Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
$arg=$ARGV[0];
...
$arr=`$cmd1`;
$storage=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\s
++\w+\);
print "$storage\n";

Select or download this

$storage=$1 if($arr=~/^*\s+\/\w+\/\w+\s+(.+)\s+\w+|^*\s+\/\w+\s+(.+)\s
++\w+\|^*\s+\/\w+\s+(.+)\s+\w+/);