On Sun, 02 Feb 2003 18:58:49 -0500, Wiggins D'Anconia wrote:
> Konrad Foerstner wrote:
> while (<INPUT>) {
> if (/^#/) {
> # start new array element
> push @array, $_;
> }
> else {
> # append to last array element
> $array[$#array] .= $_;
Or simpler$array[-1] .= $_; > } > } Greetings, Janek -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
