Perl shell as Telnet

4,059

Expert 2GB

I don't understand what you mean by "run as telnet" but see if anything here helps you:

http://search.cpan.org/search?query=telnet&mode=all

Oct 20 '08 #2

Sorry for the confusion. I mean a command that establish a connection to a server as telnet does.

I don't understand what you mean by "run as telnet" but see if anything here helps you:

http://search.cpan.org/search?query=telnet&mode=all

Oct 20 '08 #3

4,059

Expert 2GB

You use sockets to connect to remote computers. Look into IO::Socket, it comes with perl.

Oct 20 '08 #4

Thanks.
Just finished the coding. I did this because I would like to see what will happen if I keep establishing new socket with a server and keep sending it requests. Will I be blocked or any other consequence? Or what are the reasons a server limits connections to it.

Oct 20 '08 #5

4,059

Expert 2GB

Thanks.
Just finished the coding. I did this because I would like to see what will happen if I keep establishing new socket with a server and keep sending it requests. Will I be blocked or any other consequence? Or what are the reasons a server limits connections to it.

I don't know the answer to those questions.

Oct 20 '08 #6

174

Expert 100+

Thanks.
Just finished the coding. I did this because I would like to see what will happen if I keep establishing new socket with a server and keep sending it requests. Will I be blocked or any other consequence? Or what are the reasons a server limits connections to it.

the answer is ask the server provider, they are the ones who know if there is a limit on a server connection.

Oct 20 '08 #7

Okay, then let's go back to perl. How do I generate multiple (i) threads that each binds to a TCP connection to the same server (I already have this code done)? The value of i won't know until runtime pass at argument.
Thanks!

Oct 21 '08 #8

4,059

Expert 2GB

Okay, then let's go back to perl. How do I generate multiple (i) threads that each binds to a TCP connection to the same server (I already have this code done)? The value of i won't know until runtime pass at argument.
Thanks!

I have no idea how to do that, sorry, maybe Icecrack has a suggestion or further advise.

Oct 21 '08 #9

174

Expert 100+

Okay, then let's go back to perl. How do I generate multiple (i) threads that each binds to a TCP connection to the same server (I already have this code done)? The value of i won't know until runtime pass at argument.
Thanks!

as we can't see any code how are we suppose to help answer that question and if you show code then i can see how to do it with your code.

Oct 21 '08 #10

Em..I don't have it with me now. But let's just say I have a sub A, and I want to bind this sub to multiple threads. The number of threads won't know until I pass an argument in run time.

Oct 21 '08 #11

174

Expert 100+

Em..I don't have it with me now. But let's just say I have a sub A, and I want to bind this sub to multiple threads. The number of threads won't know until I pass an argument in run time.

we will wait till you get code posted.

Oct 21 '08 #12

The br_tcp.pl code following is the one that I want to binds to multiple threads.
It may be dumb to ask, if I put the following code in a loop, since the file handle is the same (F) each time, does that mean the socket is the same?
Thanks.

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl

#test.pl

use Socket;

require "br_tcp.pl";
 
my $ser_nam;
 
# connect to server, F is the file handler, first argument is server name, second is port number

if (open_TCP(F, $ARGV[0], $ARGV[1]) == undef) {

  print "Error connecting to server at $ARGV[0] port $ARGV[1].\n";

  exit(-1);

}else {

    $ser_nam = $ARGV[0];

}
 
$req = <STDIN>;

$hos = <STDIN>;

print F "$req$hos\n\n";

print $_ while (<F>);
 
close(F);

Expand|Select|Wrap|Line Numbers

 #!/usr/bin/perl -w

#br_tcp.pl

use Socket;
 
##############################################################
 
# socket connection

# Given ($f, $dest, $port) return 1 if successful, undef when unsuccessful.
 
###############################################################

sub open_TCP{

    #get parameters: file(which file handle to associate with the socket),destination(a host name or IP address), port

    #specify wether the socket should be stream-oriented or record-oriented. For HTTP transactions, scokets are stream-oriented connections

    #running TCP over IP, so HTTP-based applications must associate these characteristics with a newly created socket.

    #put f, dest and port into variable 

    my ($f,$dest,$port) = @_;
 
    #PF_INET indicates the Internet Protocol while getprotobyname('tcp') indicates that the TCP runs on top of IP.

    #SOCK_STREAM indicates that the sockets is stream-oriented

    #my $proto = getprotobyname('tcp');

    socket($f,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
 
    #The Socket::sockaddr_in() routine accpets a port number and a 32-bit IP address; Socket::inet_aton() translates a hostname string or 

    #dotted decimal string to a 32-bit IP address.

    my $sin = sockaddr_in($port,inet_aton($dest));

    connect($f,$sin) || return undef;
 
    my $old_fh = select($f);

    #don't buffer output

    $| = 1;   

    select($old_fh);

    1;

}

1;

Oct 21 '08 #13

How to Control the default Unix Shell from Perl

174

Expert 100+

The br_tcp.pl code following is the one that I want to binds to multiple threads.
It may be dumb to ask, if I put the following code in a loop, since the file handle is the same (F) each time, does that mean the socket is the same?
Thanks.

Expand|Select|Wrap|Line Numbers

#!/usr/bin/perl

#test.pl

use Socket;

require "br_tcp.pl";

my $ser_nam;

# connect to server, F is the file handler, first argument is server name, second is port number

if (open_TCP(F, $ARGV[0], $ARGV[1]) == undef) {

  print "Error connecting to server at $ARGV[0] port $ARGV[1].\n";

  exit(-1);

}else {

    $ser_nam = $ARGV[0];

}

$req = <STDIN>;

$hos = <STDIN>;

print F "$req$hos\n\n";

print $_ while (<F>);

close(F);

try changing:

Expand|Select|Wrap|Line Numbers

print $_ while (<F>);

to :

Expand|Select|Wrap|Line Numbers

 while (<F>)

{

print $_;

}

Oct 21 '08 #14

by: Lionel | last post by:

Hi all, I would like having more informations on how we could exchange informations and/or objects between PERL and JAVA. We have a Java programs that open, maintain and close telnet...

Java

by: Mohsin | last post by:

Hi all, I have a perl program which makes a user exit to the O/S (unix, solaris) to issue a O/S command. I know that the shell it invokes is NOT a korn shell, because I captured the shell info...

Shell (sharing window focus on Access and non-Access application like telnet)

by: Pete | last post by:

Is there any possiblity of writing an Access or Visual Basic application that provides a method of sharing the window focus between Access and the Shell application? i.e....

Microsoft Access / VBA

Embed Perl or execute perl script

by: Kai Thorsrud | last post by:

Hi I'm currently into converting a perl linux app into a .Net windows service. The application monitors our syslog log files to capture i.p adress changes on some of our routers having dynamic...

Visual Basic .NET

Remote Shell

by: Stephen Long | last post by:

I'm looking for information on how i can open a remote command shell <cmd.exe> on a remote pc and perform basic DOS/Shell commands .. TIA Steve

Visual Basic .NET

How to read perl-cgi-crash-outputs WITHOUT telnet access ?

by: Patricia Mindanao | last post by:

I want to call cgi perl scripts on my web hosters server from my HTML web pages (on the the web hosters server too). It occurs sometimes (especially during development phase) that these cgi-perl...

HTML / CSS

Perl Telnet to window

by: johnyboy1230987 | last post by:

I am running my perl on linux trying to connect to window via telnet. How can I overcome the "Mode:" prompt? as you know when you telnet a window box you will be prompted with "Mode" I tried...

Perl code- using the Telnet module for remote login to a windows XP machine

by: sherrygomindes | last post by:

Hi I have written a perl script using the Telnet module. I need to remotely login in from one windows XP machine to another XP machine. But i get errors which i can't figure out the reason....

perl output

by: ravimath | last post by:

Hi all , I have written script to view some router output , my script executes successfuly , but does'nt show any output, why ?, it always shows output as 1. use Net::Telnet; use Term::ReadKey;...