please let me know where I am doing the mistakeuse strict; use warnings; open my $fo, '+>>', "outfile.txt" or die "Error:$!\n"; print $fo "how r u\n"; print $fo "hey suresh their\n"; print $fo "in bangalore\n"; while (my $line = <$fo>){ print "$line"; my $a =substr ($line, "suresh"); print "$a\n"; }
In reply to write and read the same file not display the output by ulaksh
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |