I have a program that I am writing that I need to accept input from
either STDIN (for file redirections or pipes) or from the command-line.
The program manipulates email addresses for our mail servers, so I
should have the option to do either 'email_add
[EMAIL PROTECTED]' or 'email_add < /path/to/file'.
I thought that an algorithm similar to this should work.
if (defined(@ARGV) {
process the text from the command line here;
} elsif (@EmailList = <STDIN>) {
process the text from STDIN here;
} else {
print usage statement;
}
When I run the program without any input it sits at the command line
until I either kill it, or I pass it some input from STDIN (typing a ^D
(control + D) will make it continue its execution). Is there any way
that I can test if there is information queued up in STDIN without
actually requiring that there be information there (or specifically I
believe that the test is looking for an EOF)?
Tim Donahue
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
