nixp.ru v3.0

28 марта 2024,
четверг,
11:27:11 MSK

tcg2 написал 30 октября 2006 года в 00:52 (922 просмотра) Ведет себя неопределенно; открыл 8 тем в форуме, оставил 4 комментария на сайте.

Есть такой файлик:

===============================

Volume size : 14998 MB

Total sectors : 30716216

Total clusters : 3839527

Free clusters : 3169700

Free space : 12381 MB (82% of drive)

Allocation Size

—————-

Bytes per sector : 512

Bytes per cluster : 4096

Bytes per MFT record : 1024

Clusters per MFT record: 0

================================

Каким образом можно извлечь и засунуть в переменную эти прословутые 82 процента чтоб дальше их использовать! Спасибо!

Дмитрий Шурупов

Как-нибудь типа:

my $per;
if (open(F,"a.txt")){
      while(){
            if ($_ =~ /^Free space .+ \((\d+)\% of drive\)/){ $per = $1; last; }
      }
      close(F);
}
print $per;

В $per получим «82» из файлика a.txt.

А почему бы тут не воспользоваться shell’ом?..

Последние комментарии

ecobeingecobeing.ru
Экология и вегетарианство на благо всем живым существам Планеты.