| 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
Make an exhaustive list of everything you might do and do the last thing on the list
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