How to find out, if the data from STDIN comes from a pipe or from the 
keyboard?

My script is called in two modes:
echo "[TEXT]" | smtp_send.pl ...
or
smtp_send.pl -message "[TEXT]"

Inside the script, I read with:
  while( $zeile = <> ) {
     ....
  }

I need to check, if data comes from a pipe before enter the loop ...
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to