Return to filetrans.pl CVS log | Up to [LON-CAPA] / loncom / localize / localize |
1.1 ! www 1: open(IN,'files.dat'); ! 2: my $files=join(' ',<IN>); ! 3: close(IN); ! 4: foreach (split(/\s+/s,$files)) { ! 5: my $key=$_; ! 6: $key=~s/\_pt//; ! 7: print "'$key' => 'pt/$_',\n"; ! 8: }