Hilfe beim parsen einer Datei: entfernen von bestimmten Zeilen - #67844 (Allgemeines zu Perl)

renee

2006-07-05 13:54

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=Crian,05.07.2006, 11:22]doch wohl eher mit

Code: (dl )

if (length $zeile == 0) {...}

oder

Code: (dl )

if ($zeile eq '') {...}

[/quote]
nö, \n hat immer noch die Länge 1

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

while(my $line = <DATA>){
    print $.,":", length($line),"\n";
}

__DATA__
Diest ist

Ausgabe:

Code: (dl )

1
2
3

C:\>mail.pl
1:10
2:1

und \n ne ''

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

#local $/ = "\n\n";
while(my $line = <DATA>){
    print $.,":", length($line),"\n" unless($line eq '');
}

__DATA__
Diest ist

Ausgabe:

Code: (dl )

1
2
3

C:\>mail2.pl
1:10
2:1

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/