nixp.ru v3.0

25 мая 2017,
четверг,
21:22:48 MSK

DevOps с компанией «Флант»
tcg2 написал 30 октября 2006 года в 00:52 (523 просмотра) Ведет себя неопределенно; открыл 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’ом?..