Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: Homegrown Pseudo-Tainting

by ChOas (Curate)
on Mar 15, 2002 at 09:36 UTC ( #151945=note: print w/replies, xml ) Need Help??

in reply to Homegrown Pseudo-Tainting

Just to add to all the posters above, who focus more on
untainting the data, perldoc perlsec gives this example
to beforehand check if the data is actually tainted:
sub is_tainted { return ! eval { join('',@_), kill 0; 1; }; }


print "profeth still\n" if /bird|devil/;

Replies are listed 'Best First'.
Re: Re: Homegrown Pseudo-Tainting
by gellyfish (Monsignor) on Mar 15, 2002 at 11:49 UTC

    Except that will only do what you want when you have used the '-T' switch. And as the person who asked the question said they can't use '-T' ..


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://151945]
[1nickt]: ++YourMother (Grammar Vigilante of Bristol)
[Lady_Aleena]: Um, how does grep do multiline? print "$file:$_" if grep { /get_(array|hash| data)\(.+\)/ } $_; only returns the same 18 lines the command line grep does.
[Lady_Aleena]: my scratchpad has what I have so far.
[choroba]: what do you mean by multiline?
[Discipulus]: thanks 1nickt!
[choroba]: grep is a filter, it selects elements from a list based on a boolean condition
[moritz]: you need to read the file in one go to do a multiline regex match
[erix]: ha ha, I like the Vigilante
[Lady_Aleena]: Forget it. I'm getting angry with it.
[Lady_Aleena]: I'll just have to search for the files using the subs and open them up.

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2017-05-23 19:53 GMT
Find Nodes?
    Voting Booth?