Opened by Gast at 2005-05-03 11:38
User since
2005-05-03
35 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-05-03
35 Artikel
BenutzerIn
[quote=renee,03.05.2005, 10:09]Eine der vielen Möglichkeiten wäre:
[/quote]
Also wenn ich diesen Block kopiere und den Dateinamen entsprechend anpasse, löscht er nur beim ersten gefundenen "NOID" die Zeile+die 3 darauffolgenden. die anderen 300 Einträge mit "NOID" bleiben bestehen ?!
da hab ich wohl was falsch gemacht !? Eine Idee was ??
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#! /usr/bin/perl
use strict;
use warnings;
use Tie::File;
my $file = "./test.txt";
my $index;
open(FILE,"<$file") or die $!;
while(my $line = <FILE>){
$index = $. if($line =~ /NOID/);
}
close FILE;
if(defined $index){
tie my @array,'Tie::File',$file or die $!;
splice(@array,$index-1,4);
untie @array;
}
Also wenn ich diesen Block kopiere und den Dateinamen entsprechend anpasse, löscht er nur beim ersten gefundenen "NOID" die Zeile+die 3 darauffolgenden. die anderen 300 Einträge mit "NOID" bleiben bestehen ?!
da hab ich wohl was falsch gemacht !? Eine Idee was ??