note
linuxer
<p>What do you use that <c>eval</c> for? Only for eliminating the parentheses? Bad idea, I think.</p>
<p>Let's assume there is a list of strings from which the value of the second last field is wanted.</p>
<p>If there is a bad data source, that <c>eval</c> would execute bad stuff like <c>system("echo Hello World.")</c> or even worse...
<code>
$ 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 ,aaaaaaa aa ,aaaaaa, ,xxxxxxxx,dd/dd/dd,xx, system('echo bad command executed!!'),111111
END
say eval [split /,\s*/, $var]->[-2]
bad command executed!!
0
</code>
If you want to remove the parentheses, you could use an tr///. For example:
<code>
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 ,aaaaaaa aa
,aaaaaa, ,xxxxxxxx,dd/dd/dd,xx, (195.14) ,111111
END
my $interest = split /,\s*/, $var)[-2];
$interest =~ tr/0-9.//cd;
say $interest;
</code>
990423
990463