chiark / gitweb /
Move most .pl scripts to names without extensions. Drop ssize.pl, which I
[bin.git] / get-var.pl
diff --git a/get-var.pl b/get-var.pl
deleted file mode 100755 (executable)
index 9b8f930..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-#! /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 (<>);
-}