Programming Forums > Script Programming > Perl

ProjectX · Dec 2nd, 2005, 10:20 PM

Hey guys its me again. Sorry if I am getting annoying with all the post i did but I need help.So I started to practice with sockets so i made a script that opens a port and listens on it.

(Toggle Plain Text)

#!C:/PERL/BIN/perl.exe -w
#
use IO::Socket;
my $sock = new IO::Socket::INET (LocalHost => '192.168.1.100',
                                 LocalPort => '1337',
                                 Proto => 'tcp',
                                 Listen => 1,
                                 Reuse => 1,);
die "Could not create socket: $!\n" unless $sock;
my $newsock = $sock -> accept();
while (defined(<newsock>)) {
      print $_;
}
close($sock);

and it gives me this error:

(Toggle Plain Text)

Name "main::newsock" used only once: possible typo at C:\DOCUME~1\User\MYDOCU~1\PERLPR~1\Sockets\Socket~1.PL line 11.

and I dont know how to fix it.

sykkn · Dec 2nd, 2005, 10:53 PM

you left the $ off of newsock in your while test .... also ... you can leave off the defined() call ... it mucks up the input anyway ...

(Toggle Plain Text)

while (<$newsock>) {
      print $_;
}

ProjectX · Dec 2nd, 2005, 11:10 PM

thanks alot syk

ProjectX · Dec 8th, 2005, 1:33 PM

is there a way to print the output of what the server will print. Like lets say i got this code

(Toggle Plain Text)

use IO::Socket;

$socket = IO::Socket::INET -> new (PeerAddr => "www.host.com", PeerPort => 80, Proto => "tcp") || die "Can't connect to the host";
print $socket "Hello, There!\n";

So is there a way to print on my screen what the www.host.com will print on his
like Unrecongnized commnad or just a plain window or Premission Denied.

swestres · Dec 27th, 2005, 9:58 AM

Sure, just put

(Toggle Plain Text)

while (<$socket>) {
  print;
}

at the end. Then all you have to do is to read RFC2616, learn some GUI programming and you've got yourself a webbrowser written in perl

Dec 2nd, 2005, 10:20 PM	#1
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	Sockets Hey guys its me again. Sorry if I am getting annoying with all the post i did but I need help.So I started to practice with sockets so i made a script that opens a port and listens on it. (Toggle Plain Text) #!C:/PERL/BIN/perl.exe -w # use IO::Socket; my $sock = new IO::Socket::INET (LocalHost => '192.168.1.100', LocalPort => '1337', Proto => 'tcp', Listen => 1, Reuse => 1,); die "Could not create socket: $!\n" unless $sock; my $newsock = $sock -> accept(); while (defined(<newsock>)) { print $_; } close($sock); #!C:/PERL/BIN/perl.exe -w # use IO::Socket; my $sock = new IO::Socket::INET (LocalHost => '192.168.1.100', LocalPort => '1337', Proto => 'tcp', Listen => 1, Reuse => 1,); die "Could not create socket: $!\n" unless $sock; my $newsock = $sock -> accept(); while (defined(<newsock>)) { print $_; } close($sock); and it gives me this error: (Toggle Plain Text) Name "main::newsock" used only once: possible typo at C:\DOCUME~1\User\MYDOCU~1\PERLPR~1\Sockets\Socket~1.PL line 11. Name "main::newsock" used only once: possible typo at C:\DOCUME~1\User\MYDOCU~1\PERLPR~1\Sockets\Socket~1.PL line 11. and I dont know how to fix it.

Dec 2nd, 2005, 10:53 PM	#2
sykkn Hobbyist Programmer Join Date: Apr 2004 Location: Texas Posts: 106 Rep Power: 5	you left the $ off of newsock in your while test .... also ... you can leave off the defined() call ... it mucks up the input anyway ... (Toggle Plain Text) while (<$newsock>) { print $_; } while (<$newsock>) { print $_; } __________________ [ [ SykkN alloc ] initWithThePowerTo: destroyYouAll ]; /* Don't make me use it! */

Dec 8th, 2005, 1:33 PM	#4
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	is there a way to print the output of what the server will print. Like lets say i got this code (Toggle Plain Text) use IO::Socket; $socket = IO::Socket::INET -> new (PeerAddr => "www.host.com", PeerPort => 80, Proto => "tcp") \|\| die "Can't connect to the host"; print $socket "Hello, There!\n"; use IO::Socket; $socket = IO::Socket::INET -> new (PeerAddr => "www.host.com", PeerPort => 80, Proto => "tcp") \|\| die "Can't connect to the host"; print $socket "Hello, There!\n"; So is there a way to print on my screen what the www.host.com will print on his like Unrecongnized commnad or just a plain window or Premission Denied.

Dec 27th, 2005, 9:58 AM	#5
swestres Newbie Join Date: Dec 2005 Posts: 13 Rep Power: 0	Sure, just put (Toggle Plain Text) while (<$socket>) { print; } while (<$socket>) { print; } at the end. Then all you have to do is to read RFC2616, learn some GUI programming and you've got yourself a webbrowser written in perl __________________ Here comes the SWAT team, and the M-16, shoot the walls in, destroy the building. Wolverine was sad and it made him mad, every single cop got a bullet in the head.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Dec 2nd, 2005, 11:10 PM	#3
ProjectX Programmer Join Date: Feb 2005 Posts: 37 Rep Power: 0	thanks alot syk

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)