Zeilen löschen in Perl
Vendar
- perl
Hi zusammen,
ich lösche auf folgende Weise ein Zeile in Perl:
sub delete_case
{
open(FILE,"< X") or die " $!\n";
open(TEMP,"> x_temp") or die "$!\n";
while (<FILE>)
{
if($_ =~ /^BLABLA/)
{
next;
}
print TEMP $_;
}
close(FILE) or die "$!\n";
close(TEMP) or die "$!\n";
unlink("X");
rename("x_temp","X");
}
Aber irgendie glaub ich dass das noch optimaler geht. Hat jemand ein Tipp?
cu,
Vendar
ich lösche auf folgende Weise ein Zeile in Perl:
[...]
Aber irgendie glaub ich dass das noch optimaler geht. Hat jemand ein Tipp?
Aber klar: Tie::File kombiniert mit splice.
Siechfred