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 }