Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: <> oddity ?

by hdb (Prior)
on Mar 27, 2013 at 10:17 UTC ( #1025667=note: print w/replies, xml ) Need Help??


in reply to <> oddity ?

while(<>)

reads from STDIN. Try this script:

while(<>) { print; }

This should behave similar to yours under your 3 scenarios.

$ ./weird.pl sample.txt whereas $ ./weird.pl <sample.txt or $ cat sample.txt | ./weird.pl
UPDATE: I am stupid and should read "Programming Perl" again. Apologies for posting useless stuff. No idea what goes wrong with your code.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1025667]
help
Chatterbox?
[marto]: breakin' up is hard to do
[LanX]: 123456789012345678 90 123456789012345678 901234567890
LanX should break up with false friends ;)
[Discipulus]: last hour of cb breaks it differently..
[LanX]: I think I've send one whitespace by myself at 20
[Discipulus]: are you polluting tests? grin..
[LanX]: 123456789012345678 901234567890123456 789012345678901234 567890
[LanX]: yep

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (11)
As of 2017-07-24 10:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (350 votes). Check out past polls.