Hi!
I'm sorry, there was a bug in perl script. For debugging purposes I've
made it to convert lowercase to uppercase, but you need vice-versa. This is
the fixed version:
#!/usr/bin/perl
$SPOOL="/home/des/bin/tmp";
@filez=glob("$SPOOL/*.[hcf]lo");
foreach $file (@filez) {
chomp;
open (CONV, $file) || die "Can't open file!";
undef $a;
while (<CONV>) {
$_ =~ tr/A-Z/a-z/;
$a.=$_;
}
close (CONV);
open (CONV, ">" . $file) || die "Can't rewrite file!";
print CONV $a;
close(CONV);
}
-- Alex Makarov aka Des/0HN/IMEM [My Girl Rulez!] #Tennis Team#