Match and Assign Problem

intoperl has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks - I have a prblem going for match and assign statement. The result i get in $totmem, $freemem and $memdiff is Zero '0'. The Variables $OVERALL_MEM, and $OVERALL_MEM_FREE has value in the form like below: MemTotal: 148704012 kB MemFree: 32165204 kB Please see the code snippet below to see what possible error i made :

                                my $totmem = $OVERALL_MEM =~ /(\d+)/;
                                print "totmem is : $totmem";
                                my $freemem = $OVERALL_MEM_FREE =~ /(\
+d+)/;
                                print "freemem is : $freemem";
                                my $memdiff = $totmem - $freemem;
 print "Memdiff is :$memdiff KB ";
[download]

Comment on Match and Assign Problem Download Code

Replies are listed 'Best First'.
Re: Match and Assign Problem by toolic (Bishop) on Aug 26, 2015 at 14:32 UTC
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]	[reply] [d/l] [select]
Re^2: Match and Assign Problem by intoperl (Acolyte) on Aug 26, 2015 at 14:48 UTC
Thanks Toolic, that helped ! :)	[reply]
Re: Match and Assign Problem by neilwatson (Priest) on Aug 26, 2015 at 18:55 UTC
I keep that one in my cheatsheet Neil Watson watson-wilson.ca	[reply]