in reply to Re^2: Getting data from either ARGV or STDIN
in thread Getting data from either ARGV or STDIN

Maybe shorter

 
*iter = (@ARGV || -t STDIN) ? sub { shift @ARGV } : sub { <STDIN> };
while (defined(my $in = iter() )) {
}

[download]

> Thanks!

Your welcome. :)

update

renaming iter to input may be more self documenting.

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery

In Section Seekers of Perl Wisdom