Re: Match and Assign Problem

Perl Idioms Explained - @ary = $str =~ m/(stuff)/g.

Change:

my $totmem = $OVERALL_MEM =~ /(\d+)/;
[download]

to:

my ($totmem) = $OVERALL_MEM =~ /(\d+)/;
[download]

For example:

use warnings;
use strict;

my $OVERALL_MEM = 'MemTotal: 148704012 kB MemFree: 32165204 kB';
my ($totmem) = $OVERALL_MEM =~ /(\d+)/;
print "totmem is : $totmem";
print "\n";

__END__

totmem is : 148704012
[download]

Comment on Re: Match and Assign Problem Select or Download Code

Replies are listed 'Best First'.
Re^2: Match and Assign Problem by intoperl (Acolyte) on Aug 26, 2015 at 14:48 UTC
Thanks Toolic, that helped ! :)	[reply]