Perl TIPS
#!/usr/bin/perl -w
if($#ARGV == -1){
printf(" Usage: %s
exit -1;
}
open(INFILE, $ARGV[0]) || die " Can\'t open INFILE: $!\n";
$flg=0;
while(
{
if ( /RU\s+ready?/ ) {
$flg=1;
}
if($flg==1){
if ( /\s* (.*)\s+ (.*)\s+ (.*)\s+ (.*)/ ) {
$var1=$1;
$var2=$2;
$var3=$3;
$var4=$4;
}
}
}
close(INFILE);
exit 0;