Re: Getting data from either ARGV or STDIN

That's quite cleverly done.

Just, according to -X is -t defaulting to STDIN. So you could spare a word.

2 other alternatives come to mind ...

... iterator

An alternative approach which seems cleaner to me could be to create an iterator which either implements:

sub iter { shift @ARGV } °

sub iter {scalar <STDIN>} *

And use it in the loop

 
while (  ($id) = iter() ) { 
   ...
}
[download]

... override

Another way could be to override readline (which is the iterator behind <> ) on demand to iterate over @ARGV.

Both ideas untested since I'm posting from mobile.

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

°) Could be that you need

sub iter { shift @ARGV //()}

instead, I'm afraid shift will return undef if the array is exhausted.

*) updated scalar

Comment on Re: Getting data from either ARGV or STDIN Select or Download Code

Replies are listed 'Best First'.
Re^2: Getting data from either ARGV or STDIN by sleet (Pilgrim) on Mar 11, 2021 at 23:26 UTC
Just according to -X is -t defaulting to STDIN so you could spare a word. True, but I'd probably have to keep looking that up to remind myself what it's doing. I was actually thinking of spending another char and switching to `!-p STDIN` since that's a bit more self-documenting. An alternative approach which seems cleaner to me could be to create an iterator which either implements: Excellent suggestion! It's both more succinct and understandable. `my $iter = (@ARGV \|\| -t STDIN) ? sub { shift @ARGV } : sub { <STDIN> } +; while (defined(my $in = $iter->())) { }` [download] Thanks!	[reply] [d/l] [select]
Re^3: Getting data from either ARGV or STDIN by LanX (Saint) on Mar 11, 2021 at 23:43 UTC
No matter which solution you choose in the end, you might want to hide the magic behind a small module with more documentation. Like this, you'll only need something like `use ReadARGV;` in your scripts Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l]
Re^3: Getting data from either ARGV or STDIN by LanX (Saint) on Mar 11, 2021 at 23:30 UTC
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}	[reply] [d/l] [select]