Re^2: Use of uninitialized value in formline?

in reply to Re: Use of uninitialized value in formline?
in thread Use of uninitialized value in formline?

Alternatively with just a little extra the original code could work:

#!perl -w

my @a = qw/one two three four five/;
$~ = "TEST";

write;

format TEST =
---+++---
a: @* @* @* ~~
   (shift @a||'',shift @a ||'',shift @a||'')
---------
.
[download]

Output:

---+++---
a: one two three
a: four five
---------
[download]

Comment on Re^2: Use of uninitialized value in formline? Select or Download Code

Replies are listed 'Best First'.
Re^3: Use of uninitialized value in formline? by MaxKlokan (Monk) on Mar 05, 2007 at 15:39 UTC
Great! You win :-) Concerning the warnings, I figured out that they appear regardless of `use warnings` just because I am running perl within Eclipse and I have set it to use warnings by default. Thanks everyone for the kind help!	[reply] [d/l]

In Section Seekers of Perl Wisdom