Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: (tye)Re: 'perl -p' ne 'cat'

by danger (Priest)
on Jun 04, 2002 at 19:57 UTC ( #171621=note: print w/ replies, xml ) Need Help??

in reply to (tye)Re: 'perl -p' ne 'cat'
in thread 'perl -p' ne 'cat'

I often add cases of test data after __END__ or __DATA__ in scripts that use while(<>) loops --- and I used to always switch between <> and <DATA> for testing purposes (and usually forgot to switch back when done). I recall being quite happy a few years back when I realized ("Doh!") I could just leave the bare diamond op and run the script on the test data via  perl -w < Actually, I mostly test within the editor by sending the buffer to a filter of  perl -w with output directed to another buffer, but its the same thing.

Comment on Re: (tye)Re: 'perl -p' ne 'cat'
Select or Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://171621]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (5)
As of 2015-11-28 13:35 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (742 votes), past polls