Datei nach String durchsuchen und in Datei ausgeben - #146772 (Allgemeines zu Perl)

FtR

2011-03-22 13:28

User since
2003-08-20
39 Artikel
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 )

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");}