Zeilenumbruch abfragen (Allgemeines zu Perl)

[thread]7213[/thread]

Zeilenumbruch abfragen

Jamthelaw

2005-08-16 20:26

User since
2005-08-16
9 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

Ich habe ein Script das eine Datei zeichenweise ausliest und in einen Array speichert. Ich möchte auch zählen wie viele Zeichen in der Datei vorkommen, möchte aber das der Zeilenumbruch nicht mitgezählt wird.

Code: (dl )

while($actchar = getc(INFILE)){
    push @file, $actchar;
    $laenge++;
}

Kann ich das irgendwie abfragen, ob das aktuelle Zeichen ein CR ist?

Thx schonmal

Greetz
Jamthelaw

pktm

2005-08-16 20:37

User since
2003-08-07
2921 Artikel
BenutzerIn

if( $actchar =~ m/\n/ ){
print "ist newline\n";
}

Du kannst das Newline-Zeichen auch mit chomp() abscheiden.

http://www.intergastro-service.de (mein erstes CMS :) )

betterworld

2005-08-16 21:29

User since
2003-08-21
2613 Artikel
ModeratorIn

user image

Code: (dl )

while(<F>) {
  chomp;
  $lange += length;
}

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

Jamthelaw

2005-08-16 22:50

User since
2005-08-16
9 Artikel
BenutzerIn
[default_avatar]

Thx für die schnelle Hilfe, hat geklappt :-)

Greetz
Jamthelaw

View all threads created 2005-08-16 20:26.