@files = glob('c:\perl\bin\newer\*'); foreach $db (@files) { open(DATA, "$db") or die "File does not open: $!"; @data = (<DATA>); close (DATA); open(DATA, ">$db") or die "File not open: $!"; foreach $line (@data) { $line =~ s/<meta name\=\AA\.\"/<meta name\=\\./gi; print DATA $line; } close(DATA); }
In reply to Re: Re: changing data
by Anonymous Monk
in thread changing data
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |