Re^2: detect input available from command line

What if the input is not coming from @ARGV but from stdin?
example:

$ ./testprog -t testing@testing.com -s test5 <<EOT;
> stuff
> typed
> in 
> here
> EOT
[download]

In this case @ARGV is empty but there is still something to read. How would I detect this?

Comment on Re^2: detect input available from command line Download Code

Replies are listed 'Best First'.
Re^3: detect input available from command line by Eliya (Vicar) on Mar 10, 2011 at 22:02 UTC
You could test `if (@ARGV or !-t STDIN and !eof()) { while (<>) { ...` [download] (but any non-input file arguments would need to be removed from @ARGV first, of course) This should work with input file arguments on the command line, heredoc input (`<<`), input redirect (`<`), and piping into the program (`\|`). Update: actually, I think you don't even need the `eof()`.	[reply] [d/l] [select]
Re^3: detect input available from command line by jwkrahn (Abbot) on Mar 11, 2011 at 03:40 UTC
I have a program that may try to get data from the command line using What if the input is not coming from @ARGV but from stdin? If the input is coming from STDIN then it is not on the command line.	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks