[ Web Proxy ]
URL:
Viewing: https://raw.githubusercontent.com/livecode/livecode/develop/util/decode_version.pl [Back]  [Original] 
#!/usr/bin/env perl

open(FILE, $ARGV[1]) || die "Can't open input file";

my $expr = "^${ARGV[0]}[[:blank:]]*=[[:blank:]]*(.*)\$";

while () {
	if (/$expr/) { print $1 }
}
Web Proxy Viewer  |  New URL  |  Original Page