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.

Expand|Select|Wrap|Line Numbers

 
# -----------------------------------------------------

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

Question on opening a Socket

re: Question on opening a Socket

re: Question on opening a Socket

re: Question on opening a Socket

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/about