Return to filetrans.pl CVS log

Up to [LON-CAPA] / loncom / localize / localize

Annotation of loncom/localize/localize/filetrans.pl, revision 1.1

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: }