#!/usr/bin/perl -w
opendir TheDir, ".";
@filename = readdir(TheDir);
#print join("/n", @filename);
foreach $fname (@filename)
{
if ($fname =~ /^/./)
{
next;
}
my $tmpfileName = "$fname.tmp.tmp.tmp";
open srcFILE, "<$fname" ;
open tmpFILE, ">$tmpfileName";
while(
)
{
if ($_ =~ /^(.*)/r/n$/)
{
print tmpFILE $1."/n";
}
else
{
print tmpFILE $_;
}
}
close srcFILE;
close tmpFILE;
my @fileStatus = stat($fname);
chmod($fileStatus[2], $tmpfileName);
chown($fileStatus[4], $fileStatus[5], $tmpfileName);
#delete srcfile
unlink($fname);
`mv $tmpfileName $fname`;
}
`rm *.tmp.tmp.tmp`;
closedir(TheDir);