String suchen und danach löschen - #153652 (Allgemeines zu Perl)

GwenDragon

2011-10-28 20:11

User since
2005-01-17
14788 Artikel
Admin1

Etwas altmodisch mit index und substr:

Code (perl): (dl )

1
2
3

my $line = q{2011/06/03 15:00:22.684 !     Label: |      ID      State        Offset   RSSI                 |};
$line = substr($line,length("Label:")+index($line,"Label:"));
print $line;

Ich schreibe das deswegen, weil ein Regex manchmal langsamer sein kann, das ist wichtig bei langen Logdateien. Aber das musst du testen.
Last edited: 2011-10-28 20:13:22 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten