Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » perl regex не получается сделать :(

Ответить
Настройки темы
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

 

Старожил


Сообщения: 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



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для lcat

линуксоид


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

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


DAnG
СПАСИБО , ничего не остается как развести руками

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


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



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » perl regex не получается сделать :(

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Debian/Ubuntu - [решено] Не получается сделать загрузочную флешку с Xubuntu 9.4 enikei Общий по Linux 0 09-10-2009 17:13
Интерфейс - [решено] Не получается сделать образ WinXP verdix Программное обеспечение Windows 2 22-10-2008 17:17
Не получается сделать DVDrip, ошибка чтения VOB-файла ummnikk Видео и аудио: обработка и кодирование 2 12-01-2008 23:17
Авторинг VCD и SVCD — не получается сделать меню DJ Mogarych Видео и аудио: обработка и кодирование 4 25-07-2007 09:36
Редактор RegEX XCodeR Вебмастеру 7 07-02-2006 18:52




 
Переход