Wie nennt man die Situation, wenn getc undef zurückgibt? (gelöst) - #167721 (Allgemeines zu Perl)

Kuerbis

2013-05-21 16:27

User since
2011-03-20
957 Artikel
BenutzerIn
[default_avatar]

Wenn nennt man sowas (getc gibt undef zurück)?
Kann man das so sagen:

Code: (dl )

If the STDIN puffer is empty "my_routine" warns "EOT: ... "?

Code (perl): (dl )

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.1;


print "Enter a string: ";
my $g = <>; # ein paar buchstaben eingeben und dann 2 x Strg-D drücken
say $g;

my_routine();

sub my_routine {
    print "Enter a character: ";
    my $h = getc;
    if ( defined $h ) {
        say $h;
    }
    else {
        warn "EOT: $!";
    }
}