http://www.perlmonks.org?node_id=929366


in reply to Re: Testing <>
in thread Testing <>

That works for 
/tmp/>echo "hello world\n" | myscript

[download]
and now called on its own doesn't hang 
/tmp/>myscript

[download]
but there again its not clear how a usage message could be printed out.

But it now fails when passed a filename 

/tmp/>cat x
   October 2011
 S  M Tu  W Th  F  S
                   1
 2  3  4  5  6  7  8
 9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31
/tmp/myscript x

[download]
it doesn't print the contents of the file :-( Isn't there a simpler solution? I thought that this would have a simple, forehead slapping, solution.

In Section Seekers of Perl Wisdom