Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^2: regular expression for the address

by linuxer (Deacon)
on Aug 29, 2012 at 20:16 UTC ( #990551=note: print w/ replies, xml ) Need Help??


in reply to Re: regular expression for the address
in thread regular expression for the address

What do you use that eval for? Only for eliminating the parentheses? Bad idea, I think.

Let's assume there is a list of strings from which the value of the second last field is wanted.

If there is a bad data source, that eval would execute bad stuff like system("echo Hello World.") or even worse...

$ perl use feature ":5.14"; use warnings FATAL => qw(all); use strict; my $var = << 'END'; 11,2222222,"xxxxxx'x xxxxxxx, xxxxxxxxx",sssss (aaa 111) 1111-a ,aaaaa +aa aa ,aaaaaa, ,xxxxxxxx,dd/dd/dd,xx, system('echo bad command execut +ed!!'),111111 END say eval [split /,\s*/, $var]->[-2] bad command executed!! 0
If you want to remove the parentheses, you could use an tr///. For example:
use feature ":5.14"; use warnings FATAL => qw(all); use strict; my $var = << 'END'; 11,2222222,"xxxxxx'x xxxxxxx, xxxxxxxxx",sssss (aaa 111) 1111-a ,aaaaa +aa aa ,aaaaaa, ,xxxxxxxx,dd/dd/dd,xx, (195.14) ,111111 END my $interest = split /,\s*/, $var)[-2]; $interest =~ tr/0-9.//cd; say $interest;


Comment on Re^2: regular expression for the address
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (12)
As of 2015-07-31 18:03 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 (280 votes), past polls