Re: getting context's version

[Wybo Dekker <wybo@servalys.nl>]

On Tue, 17 Sep 2002, Taco wrote:

>
>
> 4 hele regels code, ik schaam me.
>
> groetjes, Taco
>
> #!/usr/bin/perl -w
> local $/;
> open(IN,`kpsewhich context.tex`) || die "can't find context.tex";
> <IN> =~ /contextversion\{(\d+)\.(\d+)\.(\d+)\}/;
> print "version=" . sprintf("%4d%02d%02d",$1,$2,$3) . "\n";

That's better, thanks.
But it slurps the whole file, so I made it:

#!/usr/bin/perl -w
open(IN,`kpsewhich context.tex`) or die "can't find context.tex";
while(<IN>) {
    /contextversion\{(\d+)\.(\d+)\.(\d+)\}/ and
       printf("version=%4d%02d%02d\n",$1,$2,$3),last;
}

-- 
Wybo