Гость Опубликовано 9 марта, 2004 Жалоба Поделиться Опубликовано 9 марта, 2004 Привет... Значит стоит задача програмно проверить наличие PPP соединения перл начал изучать 2 часа назад использую первый попавшийся способ #!/usr/local/bin/perl open(PASS, "ifconfig |grep ppp|"); while() { ($m_ppp) = split(' '); if ($m_ppp=="ppp0") { #тут все работает все ок т.е. когда соединение есть прога #определяет что оно есть } else { # а вот тут нихрена не работает # команда ifconfig | grep ppp в этом случае возвращает пустую #строку как ее проанализировать? } print; } close(PASS); а может подскажите более продвинутый способ спасибо... Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 11 марта, 2004 Жалоба Поделиться Опубликовано 11 марта, 2004 в Perl сравнение строк осуществляется с помощью eq и ne. то естьв твоем коде правильно написать: if ($m_ppp eq "ppp0") { .... я не совсем понял, в чем именно неполадка ("это не работает, это работает"), но этот кусок - точно надо исправить. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 6 апреля, 2004 Жалоба Поделиться Опубликовано 6 апреля, 2004 Попробуй не open а $inode = `ifconfig ppp0`; if ($inode){ print "В точку"; } else{ print "Что-то не так"; } Данная конструкция должна поместить в $inode булевое значение true/false и при проверке выдаст результатMaestro писал(а): > > Привет... > Значит стоит задача програмно проверить наличие PPP соединения > перл начал изучать 2 часа назад использую первый попавшийся > способ > #!/usr/local/bin/perl > open(PASS, "ifconfig |grep ppp|"); > while() > { > ($m_ppp) = split(' '); > if ($m_ppp=="ppp0") > { > #тут все работает все ок т.е. когда соединение есть прога > #определяет что оно есть > } > else > { > # а вот тут нихрена не работает > # команда ifconfig | grep ppp в этом случае возвращает пустую > #строку как ее проанализировать? > } > print; > } > close(PASS); > а может подскажите более продвинутый способ > спасибо... Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 6 апреля, 2004 Жалоба Поделиться Опубликовано 6 апреля, 2004 Попробуй не open а $inode = `ifconfig ppp0`; if ($inode){ print "В точку"; } else{ print "Что-то не так"; } Данная конструкция должна поместить в $inode булевое значение true/false и при проверке выдаст результатMaestro писал(а): > > Привет... > Значит стоит задача програмно проверить наличие PPP соединения > перл начал изучать 2 часа назад использую первый попавшийся > способ > #!/usr/local/bin/perl > open(PASS, "ifconfig |grep ppp|"); > while() > { > ($m_ppp) = split(' '); > if ($m_ppp=="ppp0") > { > #тут все работает все ок т.е. когда соединение есть прога > #определяет что оно есть > } > else > { > # а вот тут нихрена не работает > # команда ifconfig | grep ppp в этом случае возвращает пустую > #строку как ее проанализировать? > } > print; > } > close(PASS); > а может подскажите более продвинутый способ > спасибо... Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 6 апреля, 2004 Жалоба Поделиться Опубликовано 6 апреля, 2004 Попробуй не open а $inode = `ifconfig ppp0`; if ($inode){ print "В точку"; } else{ print "Что-то не так"; } Данная конструкция должна поместить в $inode булевое значение true/false и при проверке выдаст результатMaestro писал(а): > > Привет... > Значит стоит задача програмно проверить наличие PPP соединения > перл начал изучать 2 часа назад использую первый попавшийся > способ > #!/usr/local/bin/perl > open(PASS, "ifconfig |grep ppp|"); > while() > { > ($m_ppp) = split(' '); > if ($m_ppp=="ppp0") > { > #тут все работает все ок т.е. когда соединение есть прога > #определяет что оно есть > } > else > { > # а вот тут нихрена не работает > # команда ifconfig | grep ppp в этом случае возвращает пустую > #строку как ее проанализировать? > } > print; > } > close(PASS); > а может подскажите более продвинутый способ > спасибо... Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 10 апреля, 2004 Жалоба Поделиться Опубликовано 10 апреля, 2004 А не проще /proc пролистать?setty писал(а): > > Попробуй не open а > > $inode = `ifconfig ppp0`; > if ($inode){ > print "В точку"; > } > else{ > print "Что-то не так"; > } > Данная конструкция должна поместить в $inode булевое > значение true/false и при проверке выдаст результатMaestro > писал(а): > > > > Привет... > > Значит стоит задача програмно проверить наличие PPP > соединения > > перл начал изучать 2 часа назад использую первый попавшийся > > способ > > #!/usr/local/bin/perl > > open(PASS, "ifconfig |grep ppp|"); > > while() > > { > > ($m_ppp) = split(' '); > > if ($m_ppp=="ppp0") > > { > > #тут все работает все ок т.е. когда соединение есть прога > > #определяет что оно есть > > } > > else > > { > > # а вот тут нихрена не работает > > # команда ifconfig | grep ppp в этом случае возвращает пустую > > #строку как ее проанализировать? > > } > > print; > > } > > close(PASS); > > а может подскажите более продвинутый способ > > спасибо... Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Гость Опубликовано 10 апреля, 2004 Жалоба Поделиться Опубликовано 10 апреля, 2004 А не проще /proc пролистать? setty писал(а): > > Попробуй не open а > > $inode = `ifconfig ppp0`; > if ($inode){ > print "В точку"; > } > else{ > print "Что-то не так"; > } > Данная конструкция должна поместить в $inode булевое > значение true/false и при проверке выдаст результатMaestro > писал(а): > > > > Привет... > > Значит стоит задача програмно проверить наличие PPP > соединения > > перл начал изучать 2 часа назад использую первый попавшийся > > способ > > #!/usr/local/bin/perl > > open(PASS, "ifconfig |grep ppp|"); > > while() > > { > > ($m_ppp) = split(' '); > > if ($m_ppp=="ppp0") > > { > > #тут все работает все ок т.е. когда соединение есть прога > > #определяет что оно есть > > } > > else > > { > > # а вот тут нихрена не работает > > # команда ifconfig | grep ppp в этом случае возвращает пустую > > #строку как ее проанализировать? > > } > > print; > > } > > close(PASS); > > а может подскажите более продвинутый способ > > спасибо... Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.