Perl: read from file 0

Et cetera → Программирование

tcg2 написал 30 октября 2006 года в 00:52 (988 просмотров) Ведет себя неопределенно; открыл 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 процента чтоб дальше их использовать! Спасибо!

Ответить Цитировать

Дмитрий Шурупов 00:59, 30 октября 2006

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

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’ом?..

Ответить Цитировать

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

OlegL, 17 декабря в 15:00 → Перекличка 21
REDkiy, 8 июня 2023 года в 9:09 → Как «замокать» файл для юниттеста в Python? 2
fhunter, 29 ноября 2022 года в 2:09 → Проблема с NO_PUBKEY: как получить GPG-ключ и добавить его в базу apt? 6
Иванн, 9 апреля 2022 года в 8:31 → Ассоциация РАСПО провела первое учредительное собрание 1
Kiri11.ADV1, 7 марта 2021 года в 12:01 → Логи catalina.out в TomCat 9 в формате JSON 1

ecobeing.ru

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