Comment puis-je vérifier pour les expressions du folklore en Perl?

Donc, j'ai un peu de problème figurer ce que Perl n'est dans le cas suivant:

while(1){
$inputLine=<STDIN>

#parse $inputLine below
#BUT FIRST, I need to check if $inputLine = EOF

}

avant que je reçois la réponse la plus évidente de l'aide while(<>){}, permettez-moi de dire qu'il y a une très bonne raison que je dois faire ci-dessus (en gros, la configuration d'une alarme pour interrompre le blocage et je ne voulais pas que le code de l'encombrement de l'exemple).

Est là d'une certaine manière pour comparer $inputLine == undef (je pense que c'est ce que STDIN retourne à la fin).

Grâce.

OriginalL'auteur intiha | 2010-02-03

  1. 11

    À l'intérieur de votre boucle, utilisez

    last unless defined $inputLine;

    De la perlfunc documentation sur défini:

    défini EXPR

    défini

    Renvoie une valeur Booléenne dire si EXPR est une valeur autre que la valeur undefined undef. Si EXPR est pas présent, $_ sera vérifié.

    De nombreuses opérations de retour undef pour indiquer l'échec, à la fin du fichier, erreur système, variable non initialisée, et d'autres conditions exceptionnelles. Cette fonction permet de distinguer undef d'autres valeurs. (Un simple Booléen test ne fera pas de distinction entre undef, zéro, la chaîne vide, et "0", qui sont tout aussi fausse.) A noter que depuis undef est valable un scalaire, sa présence n'indique pas nécessairement un état exceptionnel: pop retourne undef si son argument est un tableau vide, ou lorsque l'élément à retour arrive à être undef.

    Je vous remercie. Je suis nouveau sur le perl, mais je reçois le coup de lui.
    Vous êtes les bienvenus! Nous sommes là pour vous aider!

    OriginalL'auteur Greg Bacon

  2. 4
    defined($inputLine)

    Aussi, voir le 4 l'argument de la version de la select function pour une autre façon de lire à partir d'un descripteur de fichier sans blocage.

    OriginalL'auteur mob

  3. 0

    Vous pouvez utiliser eof sur le descripteur de fichier. eof retourne 1 si la prochaine lecture sur le DESCRIPTEUR de fichier est un EOF.

    À partir de l'eof documentation: "(Notez que cette fonction lit un caractère et puis " ungetc est tout, il n'est donc pas très utile dans un contexte interactif.)" L'OP est de la lecture à partir de STDIN, c'est à dire, dans un contexte interactif.
    Ah, je viens de fixation sur le eof. Sur plus de lecture, j'ai aussi remarqué qu'elle vous dit presque jamais besoin d'utiliser eof puisque vous pouvez simplement regarder pour le undef. Drôle - je sais j'ai utilisé des expressions du folklore à quelques reprises. Mais je suppose que TMTOWTDI 😉

    OriginalL'auteur Vivin Paliath

  4. 0

    Suivants ont des problèmes avec les fichiers d'entrée qui ont des lignes qui ne disposent que d'un saut de ligne ou que, dans le cas qui me donnait des problèmes un FF au début de certaines lignes (Form Feed - le fichier a été la sortie d'un programme développé à la fin des années 70 et a encore de la mise en forme pour une imprimante en ligne, et est encore en FORTRAN - je ne manquez pas la grande continu de papier pour le dessin des diagrammes de flux sur le dos).

    open (SIMFIL, "<", 'InputFileName') or die "Can´t open InputFileName\n" ;
open (EXTRDATS, ">>", 'OutputFileName' ) or die "Can´t open OutputFileName\n";
$Simfilline = "";
while (<SIMFIL>) {
    $Simfilline = <SIMFIL>;
    print EXTRDATS $Simfilline;
    $Simfilline = <SIMFIL>;
    print EXTRDATS $Simfilline;
    }
close SIMFIL;
close EXTRDATS;

    `
    La suite, c'est quand eof est très pratique - l'expression: "while ()" peut retourner false dans d'autres conditions que la fin du fichier.

    open (SIMFIL, "<", 'InputFileName') or die "Can´t open InputFileName\n" ;
open (EXTRDATS, ">>", 'OutputFileName' ) or die "Can´t open OutputFileName\n";
$Simfilline = "";
while (!eof SIMFIL) {
    $Simfilline = <SIMFIL>;
    print EXTRDATS $Simfilline;
    $Simfilline = <SIMFIL>;
    print EXTRDATS $Simfilline;
    }
close SIMFIL;
close EXTRDATS;

    Ce dernier fragment de code s'affiche à dupliquer le fichier d'entrée exactement.

    OriginalL'auteur cheard