https://m.opennet.dev/openforum/vsluhforumID9/7761.html есть gprs модем ComWL<br>задача стоит в том чтобы при замене симки определялся провайдер, и запускалcz ppp с соответствующим скриптом<br><br>pon provider<br><br><br>нашел в и-нете IPC::Open2<br><br>#!/usr/bin/perl -w<br><br> use IPC::Open2;<br> open2(*MODEM_IN,*MODEM_OUT, "cu -l /dev/ttyS0");<br> $_ = &lt;MODEM_IN&gt;;<br> chop;<br> if ( !m/^Connected/ ) {<br> print "$0: cu printed $_ instead of Connected";<br> }else{<br> print "HERE";<br> }<br><br><br>sub read_line {<br> $_ = &lt;MODEM_IN&gt;;<br> $_ &#124;&#124; die("got eof on modem");<br> s/[\r\n]+$//;<br> if ( $_ eq "" ) {<br> $_ = &lt;MODEM_IN&gt;;<br> $_ &#124;&#124; die("got eof on modem");<br> s/[\r\n]+$//;<br> }<br> return $_;<br>}<br><br> print MODEM_OUT "AT+CIMI\r\n";<br> my $line = read_line();<br> print "$line\n";<br> print MODEM_OUT "~.\r\n"<br><br>но что-то не так..<br>скрипт виснет после <br> open2(*MODEM_IN,*MODEM_OUT, "cu -l /dev/ttyS0");<br> $_ = &lt;MODEM_IN&gt;;<br><br>ЗЫ<br>Надо считать код IMSI - AT+CIMI<br>Ответом будет цифоровой ASCII код, типа "25099хххх https://m.opennet.dev/openforum/vsluhforumID9/7761.html#2 Wed, 10 Dec 2008 08:36:19 GMT <br>&gt; open2(*MODEM_IN,*MODEM_OUT, "cu -l /dev/ttyS0"); <br><br>а сам ты к модему с помощью cu подсоединяешься?<br>попробуй правильно выставить скорость.<br> https://m.opennet.dev/openforum/vsluhforumID9/7761.html#1 Wed, 10 Dec 2008 07:58:58 GMT вот так<br>