#! /usr/bin/perl -w opendir(DIR,"."); @allfiles = grep !/^\./, readdir DIR; foreach (@allfiles){ next if /CLpublications.html/; if(/html$/){ print "$_\n"; # system("cat $_ |rplit.perl > temp"); system("cat $_ |uzh.perl > temp"); system("mv temp $_"); system("chmod g+r $_"); }; } __END__ @dots = grep { /^\./ && -f "$some_dir/$_" } readdir(DIR); s/Manfred$//ig; s/Klenner *\( *\<\!\-\-\#set var\=\"name\" value\=\"\klenner\" \-\-\>/
Webmaster (/ig;