Move most .pl scripts to names without extensions. Drop ssize.pl, which I

[bin.git] / get-var

diff --git a/get-var b/get-var
new file mode 100755 (executable)
index 0000000..9b8f930
--- /dev/null
+++ b/get-var
@@ -0,0 +1,20 @@
+#! /usr/bin/perl -wn
+BEGIN {
+  unless (defined ($var = shift)) {
+    print STDERR "Usage: $0 var-name\n";
+    exit 1;
+  }
+}
+if (/^\Q$var\E=/) {
+  s/^\Q$var\E=//;
+  print, last unless /^'/;
+  do {
+    $quotes = (grep /'/g, (split //, $_)) % 3;
+    $inside = $quotes ... $quotes;
+    s/^'// if $inside == 1;
+    s/'$// if $quotes == 2 || $inside =~ /E0$/;
+    s/'\\''/'/g;
+    print;
+    last if $quotes == 2 || $inside =~ /E0$/;
+  } while (<>);
+}