File Handling

[vindesh]

How to delete a line from text file in perl

[sasi_response]

One way is
open(IN, ">filename) ;
$line=<STDIN>;
seek(0,$line,IN );
print IN "";
close(IN);

Another Way
open(IN, "filename") ;
@arr=<IN>;
close(IN);
open(OUT, ">$filename ");
$line=<STDIN>;
$count =0;
foreach $line_no (@arr);
{
if($count == $line){}
else
print OUT $line_no;
}

--Amit V Gadgil