Deleting a line from a file
Sebastian Young
article on Perldoc, but it doesn't help me. Does anyone know how to do it?
Sebastian Young
brian d foy
<sebasti...@talk21.com> wrote:
> I'm still having real trouble deleting a line from a file. I've read the
> article on Perldoc, but it doesn't help me. Does anyone know how to do it?
what part of the answer is giving you trouble?
--
brian d foy <com...@panix.com>
CGI Meta FAQ - http://www.perl.org/CGI_MetaFAQ.html
Troubleshooting CGI scripts - http://www.perl.org/troubleshooting_CGI.html
Matthew Frick
"Sebastian Young" <sebasti...@talk21.com> wrote in message
news:9l3djf$58g$1...@neptunium.btinternet.com...
> I'm still having real trouble deleting a line from a file. I've read the
> article on Perldoc, but it doesn't help me. Does anyone know how to do it?
>
a simple way...
open file
read the file into an array.
delete the line you want removed
shuffle rest of file up to fill empty array element
write array to file (not append but overwrite)
close file
done.
andreas
Matthew Frick <mfr...@chariot.net.au> wrote:
>
>> I'm still having real trouble deleting a line from a file. I've read the
>> article on Perldoc, but it doesn't help me. Does anyone know how to do it?
>
>a simple way...
>open file
>read the file into an array.
>delete the line you want removed
>shuffle rest of file up to fill empty array element
>write array to file (not append but overwrite)
>close file
>done.
how about something like:
system("cp $file $file.old");
open(OLD, "$file.old");
open(NEW, ">$file");
while (<OLD>) {
print NEW unless (/$pattern/ || $. == 0); # delete matching line, if
# any, and first line
};
close(OLD);
close(NEW);
you may wish to edit the file in place. see the perl cookbook
for an answer.
George Bouris
Do not use the same source file as destination!
#####################
#&delete_line(line to delete , source, dest
&delete_line(3,"/test.txt","/test.txt");
sub delete_line{
($line,$source,$dest)=@_;
open (FILE,"<$source") || die $!;
open (FILE2,">$dest") || die $!;
while (<FILE>){
$i++;
(print FILE2 $_) unless ($i==$line);
}
close (FILE);
close (FILE2);
}
andreas
George Bouris <gbo...@toxo.com> wrote:
>
>Just use this sub
hm, why is this an improvement over what i posted?