linux-l: perl-array

[Jens Dreger]

On Wed, Aug 08, 2001 at 10:59:29PM +0200, olaf wrote:
> ich bin dabei eine übung aus dem buch "einfürung in perl" zu machen. die
> aufgabe besteht darin, ein skript zu schreiben, das unteranderem, über
> die eingabe, eine liste von strings in ein array einliest. das problem
> zeigt sich dann aber darin die liste abzuschliesen. dieses sollte
> eigendlich mit Strg-d gehen. tuts aber nicht so richtig. wenn man's zu
> zaghaft macht, pasiert garnichts. macht man's zu lange, wird der prozes
> ganz abgebrochen.  Macht man's kurtz hintereinander, klabt es manchmal.
> aber das befridigt mich nicht so rächt.
> giebt es nich noch eine andere möglichkei, das ende einer liste
> anzuzeigen?

---------8<-----------------
#!/usr/bin/perl -w

while(<>) { chomp; last if /^END$/; push @liste,$_; }
print "Liste:",join(",", at liste),"\n";
---------8<-----------------------

~> belug/liste.pl
1
2
3
4
5
END
Liste:1,2,3,4,5

CTRL-D funktioniert bei mir allerdings auch gut.

Gruss,

Jens.