Help for this page

Select Code to Download


  1. or download this
    ($line =~ /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+.*?avm\s+.*
    +?fre\s+.*?cs\s+.*?us\s+.*?sy\s+.*?id\s+.*?(\d+)\s+(\d+)\s+(\d+)\s+(\d
    ++)\s+(\d+)\s+(\w+)/i)
    
  2. or download this
    $line =~ /(\d+)%\s+\/var\s+(\d+).*?(\d+)%\s+Interleaved\s+.*?avm\s+.*?
    +fre\s+.*?cs\s+.*?us\s+.*?sy\s+.*?id\s+.*?(\d+)\s+(\d+)\s+(\d+)\s+(\d+
    +)\s+(\d+)\s+(\d+)\s+.*?(\d\d):(\d\d):(\d\d)/i
    
    print "$device $1, $2, $3, $4, $5, $6, $7, $8, $9, $10, $11, $12\n";
    
  3. or download this
    use strict;
    use warnings;
    ...
    5049 198 32 3 24 72
    device2
    Tue Sep  5 10:26:44 GMT 2005