Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: File Handle qwerk?

by chargrill (Parson)
on Apr 10, 2007 at 14:06 UTC ( [id://609149] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $memcmd=`/usr/sbin/prtconf | grep Memory`;
    
  2. or download this
    $memcmd="/usr/sbin/prtconf | grep Memory |";
    
  3. or download this
    @memcmd_output = `/usr/sbin/prtconf | grep Memory`;
    
  4. or download this
    for my $line( @memcmd_output ){
       # ... do your stuff on $line
    }
    
  5. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
    qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)