ralijani has asked for the wisdom of the Perl Monks concerning the following question:

Hi dear Friend I want to send AT command like ATD and so, to serial port my serial port connected to a standard modem,how can i use perl to do that, is there and modules for this job? best regurd.

Replies are listed 'Best First'.
Re: how can I send AT command
by tachyon (Chancellor) on Aug 15, 2004 at 11:30 UTC
    Device::Modem or Device::SerialPort will do the trick. 
    use Device::Modem;
my $modem = new Device::Modem( port => '/dev/ttyS1' );
die "Sorry, no connection with serial port!\n"
    unless $modem->connect( baudrate => 9600 );

$modem->atsend( 'ATD' );
print $modem->answer();

    [download]

    cheers

    tachyon

[reply]
[d/l]
Re: how can I send AT command
by borisz (Canon) on Aug 15, 2004 at 11:30 UTC
[reply]
Re: how can I send AT command
by edan (Curate) on Aug 15, 2004 at 11:30 UTC
[reply]

Back to Seekers of Perl Wisdom