chiark / gitweb /
Make almost everything executable.
[bin.git] / get-var.pl
1 #! /usr/bin/perl -wn
2 BEGIN {
3   unless (defined ($var = shift)) {
4     print STDERR "Usage: $0 var-name\n";
5     exit 1;
6   }
7 }
8 if (/^\Q$var\E=/) {
9   s/^\Q$var\E=//;
10   print, last unless /^'/;
11   do {
12     $quotes = (grep /'/g, (split //, $_)) % 3;
13     $inside = $quotes ... $quotes;
14     s/^'// if $inside == 1;
15     s/'$// if $quotes == 2 || $inside =~ /E0$/;
16     s/'\\''/'/g;
17     print;
18     last if $quotes == 2 || $inside =~ /E0$/;
19   } while (<>);
20 }