[LON-CAPA-cvs] cvs: loncom /localize/localize filetrans.pl

[www]

www		Mon Dec  8 16:46:30 2003 EDT

  Added files:                 
    /loncom/localize/localize	filetrans.pl 
  Log:
  Stupid little utility to "translate" the filenames in a directory.
  
  

Index: loncom/localize/localize/filetrans.pl
+++ loncom/localize/localize/filetrans.pl
open(IN,'files.dat');
my $files=join(' ',<IN>);
close(IN);
foreach (split(/\s+/s,$files)) {
    my $key=$_;
    $key=~s/\_pt//;
    print "'$key' => 'pt/$_',\n";
}