Thread Datei nach String durchsuchen und in Datei ausgeben (42 answers)
Opened by QWERTZ7 at 2011-03-22 10:49

FtR
 2011-03-22 13:28
#146772 #146772
User since
2003-08-20
39 articles
BenutzerIn
[default_avatar]
hatte ich in den Bedingungen ...



Ohne alles durch den Speicher zu jagen kannst du das so machen

- Zeile lesen
- an Portblock hängen
- schauen ob zeile und zeile davor leer waren
-- wenn ja portblock nach 1. Zahl durchsuchen
-- protblock löschen



Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open (FH, shift);

my $file;
my @ports;
my $port;

my $line_old;
my $line_new;
my $porblock;

while ($line_new = <FH>){
    chomp $line_new;
    $portblock .= $line_new;

    if (($line_old eq "") and ($line_new eq  "")){   # zwei aufeinander folgende Zeile die leer sind 
        if ($portblock=~m/Aktiv/){
            $portblock =~m/(\d+?)/;
            print $1, "\n";
        }
        $portblock="";
    }
    $line_old = $line_new;
}
Code: ()
1
2
print&f(($_=(3x3)."3+33")=~s=3(?![^3]|$)=&f=eg);
sub f{eval(@_?$_:"'$&+'x3");}

View full thread Datei nach String durchsuchen und in Datei ausgeben