my main 2 tasks are :
1. reading line from file. for this i've created the following function :
Expand|Select|Wrap|Line Numbers
- sub read_line {
- my $filename = shift;
- my $index = shift;
- open FILE, $filename or die "can't open $filename";
- my @text = <FILE>;
- return $text[$index];
- }
Expand|Select|Wrap|Line Numbers
- sub write_line {
- my $filename = shift;
- my $index = shift;
- my $text = shift;
- open FILE, $filename or die "can't open $filename";
- my @file = <FILE>;
- @file = (@file[0..($index-1)],"$text\n",@file[$index..$#file]);
- print @file;
- }
thanks