how can I do that ?
Well, regular expressions don't substitute contents of files. Neither does the substitute operator, which is probably what you meant. You'll need to read the file into memory in its entirety, apply the substitution, then write the text back to disk.
for my $qfn (@qfns) { my $text; { open(my $fh, '<', $qfn) or die("Can't open file \"$qfn\": $!"\n); local $/; $text = <$fh_in>; } $text =~ s///; { open(my $fh, '>', $qfn) or die("Can't create file \"$qfn\": $!"\n); print($fh $text); } }
can I do for multiple files simultaneously
You'd need to spawn processes or threads for that, but there's really no point to process the files simultaneously. I have a feeling you meant something different than what you said.
In reply to Re: reading content from multiple files
by ikegami
in thread reading content from multiple files
by manishrathi
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |