1: #!/usr/bin/perl -w 2: # As our unix printer setup is weird and I sometimes want to 3: # print to networked (HP) printers, I needed something like 4: # netcat. I was unsatisfied with <tt>telnet</tt>, as it did 5: # output stuff I didn't want, and I didn't want to add the 6: # redirection to /dev/null. Perl to the rescue: 7: 8: use strict; 9: use IO::Socket; 10: 11: select IO::Socket::INET->new(PeerAddr => shift, PeerPort => (shift || 23)); 12: print 13: for <>; 14: 15: __END__ 16: # or, as a oneliner: 17: perl -MIO::Socket -pe 'BEGIN{select IO::Socket::INET->new(PeerAddr=>shift,PeerPort =>(shift||23))}'
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Poor mans Netcat
by Samveen (Initiate) on Nov 07, 2013 at 11:00 UTC |
Back to
Craft