perl regex не получается сделать :(

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

perl regex не получается сделать :(

lcat

линуксоид

Сообщения: 189
Благодарности: 0

Профиль | Отправить PM | Цитировать

воот сообственно миниатюрная программа.
но что то с сравнение, может кто то покажет как оно должно быть.

Код:

#!/usr/bin/perl -w 
use strict; 
 
my @anal=`/sbin/ifconfig eth0`; 
$anal[6] =~ /\.+:(\d)+\s\.+:(\d)+\s\.+/; 
print "You have already received *: int($1/10816) Mb\n"; 
print "You have already sent * * *: int($2/10816) Mb\n";

может не у всех nix стоит.

Цитата вывод той программы:

eth0 * * *Link encap:Ethernet *HWaddr 00:0C:6E:AF:F4:1E
* * * * *inet addr:192.168.0.2 *Bcast:192.168.0.255 *Mask:255.255.255.0
* * * * *UP BROADCAST RUNNING MULTICAST *MTU:1500 *Metric:1
* * * * *RX packets:3926966 errors:0 dropped:0 overruns:0 frame:0
* * * * *TX packets:6315106 errors:0 dropped:3 overruns:0 carrier:0
* * * * *collisions:0 txqueuelen:100
* * * * *RX bytes:43817572 (41.7 Mb) *TX bytes:1318266805 (1257.1 Mb)
* * * * *Interrupt:5 Base address:0x9800

[s]Исправлено: Prisoner, 5:21 6-06-2004[/s]

-------
slackware 13 www.slackware.com LPIC-1

Отправлено: 05:19, 06-06-2004

DAnG

Старожил

Сообщения: 185
Благодарности: 1

Профиль | Отправить PM | Цитировать

можно так:

Код:

$anal[6] =~/.+:(\d+)\s.+:(\d+)\s.+/;
print "You have already received  : ",int($1/10816)," Mb\n"; 
print "You have already sent      : ",int($2/10816)," Mb\n";

-------
I like to move it, move it.

Отправлено: 06:04, 07-06-2004 | #2