From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.comp.tex.context/9275
Path: main.gmane.org!not-for-mail
From: Wybo Dekker <wybo@servalys.nl>
Newsgroups: gmane.comp.tex.context
Subject: getting context's version
Date: Tue, 17 Sep 2002 12:07:08 +0200 (CEST)
Sender: owner-ntg-context@let.uu.nl
Message-ID: <Pine.LNX.4.42.0209171204190.3476-100000@servalys.nl>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-Trace: main.gmane.org 1035399613 1994 80.91.224.250 (23 Oct 2002 19:00:13 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 23 Oct 2002 19:00:13 +0000 (UTC)
Original-To: ntg-context <ntg-context@ntg.nl>
Xref: main.gmane.org gmane.comp.tex.context:9275
X-Report-Spam: http://spam.gmane.org/gmane.comp.tex.context:9275

I want to check context's version in a perl script to verify that it's
recent enough. Is there a better way than this?:

#!/usr/bin/perl -w
open(IN,"echo '\\bye' |cont-en |") or
    die "Could not run cont-en\n";
while(<IN>) {
  /ver:\s+(\d+)\.(\d+)\.(\d+)/ and
    $version=sprintf("%4d%02d%02d",$1,$2,$3),last;
}
print "version=$version\n";

-- 
Wybo