Probleme mit 'getc' (Allgemeines zu Perl)

[thread]7214[/thread]

Probleme mit 'getc'

Jamthelaw

2005-08-16 23:26

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

Hallo,

und schon das nächste Problem...
ich habe folgenden Code:

Code: (dl )

while($actchar = getc(INFILE)){
    if($actchar =~ m/\n/ or $actchar =~ / /){
        push @file, $actchar;
    }
    else{
        $actchar = uc($actchar);
        push @file, $actchar;
        $laenge++;
    }
}

Dieser Code liest einwandfrei eine Textdatei aus, es sei denn in der textdatei kommt ein 0 vor. Dann liest er einfach nicht mehr weiter ein, bringt aber auch keine Fehlermeldung...

Weiß jemand woran das liegen könnte?

Thx schonmal

Greetz
Jamthelaw

renee

2005-08-16 23:40

User since
2003-08-04
14371 Artikel
ModeratorIn

das ergibt while(0){, was zum Abbruch führt. Probier mal

Code: (dl )

while(defined($actchar = getc(INFILE))){

\n\n

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/

Crian

2005-08-17 12:39

User since
2003-08-04
5872 Artikel
ModeratorIn

Warum nimmst Du überhaupt getc?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

Jamthelaw

2005-08-17 14:53

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

Vielen Dank, hat funktioniert.

Ich benutze getc weil ich alle Zeichen einzeln in ein Array zur weiteren bearbeitung speichern möchte.

Thx & Greetz
Jamthelaw

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