| Home | Geschichten | Kunst | Computer | Tindertraum |
#!/usr/bin/perl
$file = shift; if (! -e $file) {die("$! : $file\n")};
open (F, "<$file"); while (<F>) {$s .= $_;}
# find all variable names
@all = ($s =~ /\$[A-Za-z0-9_]+/g);
# make unique list
while (@all) { $t = pop(@all); $vars{$t}=1; }
print join("\n",keys(%vars));
[ by Martin>] [permalink] [similar entries]
similar entries (vs):
similar entries (cg):
Martin Spernau
© 1994-2003
Big things to come (TM) 30th Dez 2002
Don't be afraid of things because they're easy to do
Oblique Strategies,
Ed.3
Brian Eno and Peter Schmidt
amazon.de Wunschliste
usefull links:
Google Graph browser
Traumwind 6-Colormatch
UAV News
powered by SBELT