I need to add "new lines" of text with special characters, to specific
lines in the file. There are 3 modifications needed. Been testing 2
here without success.
#!/usr/bin/perl
use FileHandle;
$file=FileHandle->new;
$FILENAME="/opt/etc/usr/file.txt";
$file->open ("<$FILENAME") or die ("Error: $!\n");
while (<$file>) {
$count++;
if ($count=39) {
print qq[RM="rm2"];}
if ($count=47) {
print qq[$RM]
}
exit;
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
