chiark / gitweb /
pwhich: '#! /bin/sh -e' -> '#! /bin/sh', 'set -e'.
[bin.git] / get-var
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 }