/usr/bin/quota michele | perl -ne 'if(/none$/){print
"999999999\n"}elsif(m:^\s+/dev/:){($q,
$l)=(split(/\s+/))[2,3];$t=($l-$q)*1024};next if(!$t);{print $t."\n"}'
Is none a reserved word now?
I ask because quota doesnt return the same values across Unix opsys...
Otherwise if the vaslues are in $q and $l - why not add them? -Sx-
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
