while + STDIN - #77565 (Allgemeines zu Perl)

RPerl

2007-06-16 11:31

User since
2006-11-26
384 Artikel
BenutzerIn

user image

Hallo ihr Perl-Spezialisten!

Ich hab mal wieder eine Frage und zwar wollte ich ueber STDIN solange einlesen bis im STDIN das Woertchen 'exit' vorkommt.
Ich hab das so gemacht, aber irgendwie glaube ich, dass es total unsauber und unschoen ist!:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my ($string);

while($string ne 'exit') {
$string = <STDIN>;
last if $string =~ /exit/;
}

Da bekomme ich auch einen Fehler:

Code: (dl )

Use of uninitialized value in string ne at stdin.pl line 8.

Wie kann man sowas besser,sauberer (ohne regex?) machen? :?

Danke und Gruß,

rPerl\n\n