$free_root=`df -h|grep -w /|awk '{print $4}'`;
$size_root=`df -h|grep -w /|awk '{print $2}'`;
print "Free space on / = $free_root\n";
print "Size / = $size_root\n";
Свободное пространство?
Как узнать свободное пространство на носителе в perl, причем конкретные цифры с которыми в дальнейшем можно работать?
$bufer = `df |grep /dev/cciss/c0d0p8`;
($a, $b, $c, $d, $f, $g)=split(/ /, $bufer, 6);
#print STDERR "$a\n";
#print STDERR "$b\n";
#print STDERR "$c\n";
#print STDERR "$d\n";
#print STDERR "$f\n";
print STDERR "$g\n";
exit;
Не работает???
$bufer = `df |grep /dev/cciss/c0d0p8`;
($a, $b, $c, $d, $f, $g)=split(/ /, $bufer, 6);
#print STDERR "$a\n";
#print STDERR "$b\n";
#print STDERR "$c\n";
#print STDERR "$d\n";
#print STDERR "$f\n";
print STDERR "$g\n";
exit;
Не работает???
Цитата:
Originally posted by unmoved
Как узнать свободное пространство на носителе в perl, причем конкретные цифры с которыми в дальнейшем можно работать?
Как узнать свободное пространство на носителе в perl, причем конкретные цифры с которыми в дальнейшем можно работать?
например так:
Код:
точно так же можно и для любого другого раздела, устройства, тампример для floppy disk :
Код:
$free_floppy=`df -h|grep -w /dev/fd0|awk '{print $4}'`;
$size_floppy=`df -h|grep -w /dev/fd0|awk '{print $2}'`;
print "Free space on disk A = $free_floppy\n";
print "Size A = $size_floppy\n";
$size_floppy=`df -h|grep -w /dev/fd0|awk '{print $2}'`;
print "Free space on disk A = $free_floppy\n";
print "Size A = $size_floppy\n";
Цитата:
Originally posted by unmoved
Как узнать свободное пространство на носителе в perl, причем конкретные цифры с которыми в дальнейшем можно работать?
$bufer = `df |grep /dev/cciss/c0d0p8`;
($a, $b, $c, $d, $f, $g)=split(/ /, $bufer, 6);
#print STDERR "$a\n";
#print STDERR "$b\n";
#print STDERR "$c\n";
#print STDERR "$d\n";
#print STDERR "$f\n";
print STDERR "$g\n";
exit;
Не работает???
Как узнать свободное пространство на носителе в perl, причем конкретные цифры с которыми в дальнейшем можно работать?
$bufer = `df |grep /dev/cciss/c0d0p8`;
($a, $b, $c, $d, $f, $g)=split(/ /, $bufer, 6);
#print STDERR "$a\n";
#print STDERR "$b\n";
#print STDERR "$c\n";
#print STDERR "$d\n";
#print STDERR "$f\n";
print STDERR "$g\n";
exit;
Не работает???
а почему этот код собс-но должен работать ? :))
Ты вобще проверяешь, что у тебя лежит в $bufer ?
Там лежит строка вида :
Код:
"/dev/hda10 9,1G 8,0G 1,1G 88% /"
а ты ее режешь одиночными пробелами!
сначала убери все лишние пробелы так :
$bufer=~s/\s+/ /g;
а потом уж и режь .