Re: Remove letters from variables used in math operation?

Easy peasy!

use warnings;
while ($line = <DATA>){
        chop($line);
        ($a,$b,$c,$d,$e,$f,$g)=split(",",$line);
        no warnings qw(numeric);
        $sum = ($a+$b+$c+$d+$e+$f+$g);
        print $sum;
}

__END__
86f,934e,92,102i,14,19,222,
[download]

The numeric warning is not compulsory; it's not even enabled by default (hence you needing to explicitly type use warnings). If it's not helping you, then turn it off.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: Remove letters from variables used in math operation? Select or Download Code

Replies are listed 'Best First'.
Re^2: Remove letters from variables used in math operation? by eyepopslikeamosquito (Archbishop) on Dec 08, 2012 at 22:08 UTC
While switching off warnings is OK when you are sure of the format of your data, be aware of subtle pitfalls. In particular, scientific notation. For example: `'934e' + 1; # value is 935 '934e0' + 1; # ok, value is still 935 '934e3' + 1; # oops, value is 934001 (scientific notation)` [download]	[reply] [d/l]