Question on opening a Socket

[sangith]

Hi,
I am working as a software test engineer(testing docsis compliant devices like cable modem). I have done Perl programming involving hashes, files, regex and modules. But right now, I have to automate a task which involves opening a socket. (which I have not done before)

Here is the problem:-

From my Linux server, I have to open a connection to another windows PC which is on the same network.
After getting to that PC, I have to open a web page http://192.168.100.1 (which is the diagnostic web page for the modem) It will ask for authentication. I have to enter my username and password.
After going to that web page there is an option called backup. Basically I have to click that and upload the file that I have in my script.

This is my question:-
Is it possible in Perl or should I use someother language?
Any tips or suggestions on how to approach this problem?

I would apreciate your response.

Thanks,
san

[eWish]

Not experienced in this category. Sorry -:(

A good start would possibly be perlipc. Another good place would be to look at CPAN. All else fails try Google.

[KevinADC]

Perl comes with IO::Socket which seems like a logical place to start.

[cheguvera]

Hi,

Following code is an easy code to start with sockets. This code opens a socket connection with a HTTP server and gets back a file from it.

# -----------------------------------------------------
use IO::Socket;
 
    $host = "www.google.com" ;
    $document = "/index.html" ; 
    $BLANK = "\n\n\n" ;
 
        $remote = IO::Socket::INET->new( Proto     => "tcp",
                                         PeerAddr  => $host,
                                         PeerPort  => "http(80)",
                                        );
        unless ($remote) { die "cannot connect to http daemon on $host" }
        print "Socket object created\n" ;
        $remote->autoflush(1);
        print "Autoflush done\n" ;
        print $remote "GET $document HTTP/1.0"  . $BLANK;
        print "Request written\n" ;
        while ( <$remote> ) { print }
        close $remote;
# -------------------------------------------------------------
 

the username/password thing you mentioned, need to be worked out. But this can be a starter.

Regards