Perl, pobieranie <STDIN> aż do...

[Machniuk]

Siema.

 

Mam problem w zrozumieniu perl'a, nie wiem dla czego nie działają mi warunki w pętlach, wszystkie są ignorowane.

Napisałem cuś takiego:

while($cmd = <STDIN>) {
 print $cmd;
 last if($cmd eq "exit");
}

Niestety nie dziala, chodzi mi o to żeby podawało się parametry do puki zostanie wpisana wartość "exit".

[Machniuk]

ROZWIĄZANE.

 

if($cmd =~ m/^exit$/);