Please advise why this script will not work. It gives me
messages saying it is not a directory or "File does not open: Permission denied at..."
Yet I have all the permissions and I can open the directory
and files with all other scripts. I have tried "open" and
"opendir" but cant get this to work??
I have tried on Solaris and Windows NT.
@files = glob('/perl/bin/dir');
foreach $db (@files)
opendir(DATA, "$db") or die "File does not open: $!";
@data = (<DATA>);
open(DATA, ">$db") or die "File not open: $!";
foreach $line (@data)
$line =~ s/<meta name\=\"/<meta name\=\"area\./gi;
print DATA $line;