RE: regex

[Yacketta, Ronald]

> $str =~ s/^\s+//; # remove the first line
odd!

this results in

Use of uninitialized value at ./beta.pl line 58.
Use of uninitialized value at ./beta.pl line 58.
 => 
Use of uninitialized value at ./beta.pl line 59.
Use of uninitialized value at ./beta.pl line 59.
real => 0.06
user => 0.04
sys => 0.02
Use of uninitialized value at ./beta.pl line 58.
Use of uninitialized value at ./beta.pl line 58.
 => 
Use of uninitialized value at ./beta.pl line 59.
Use of uninitialized value at ./beta.pl line 66.
Use of uninitialized value at ./beta.pl line 66.
Use of uninitialized value at ./beta.pl line 66.

lines of code:        

@oratime = qx((timex  ps -ef > /dev/null) 2>&1 );
        foreach (@oratime) {
        $_ =~ s/^\s+//;
        my ($key,$value) = split;
        print "$key => $value\n";
        $otime{$key} = $value;
}

@systime = qx((timex df -k > /dev/null) 2>&1 );
        foreach (@systime) {
        $_ =~ s/^\s+//;
        my ($key, $value) = split;
        $stime{$key} = $value;
}