| 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
Look at the order in which you do things
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