Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^2: How to find barewords in perl code?

by moritz (Cardinal)
on Jun 01, 2010 at 16:12 UTC ( #842645=note: print w/ replies, xml ) Need Help??


in reply to Re: How to find barewords in perl code?
in thread How to find barewords in perl code?

I'd add a (?![,(]) to the end of that regex to exclude print functioncall() and print functionall, otherstuff.

Now let the bikeshedding and micro-optimizations begin!


Comment on Re^2: How to find barewords in perl code?
Select or Download Code
Re^3: How to find barewords in perl code?
by JavaFan (Canon) on Jun 01, 2010 at 16:38 UTC
    Hmmm, forgot about function calls like that. For some reason, I assumed perl would warn. But even this is warning free:
    sub foo {shift} sub bar {1} print foo bar;
    and just prints 1.

    OTOH, in pre-5.6 days, when I was still using bare word file handles, I used all uppercase names, and I use all lowercase for subs, so /(?:print|...)\s+[A-Z]/ would have worked for my code.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2015-07-04 17:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls