diff options
author | epochqwert <epoch@hacking.allowed.org> | 2015-04-21 13:41:40 -0500 |
---|---|---|
committer | epochqwert <epoch@hacking.allowed.org> | 2015-04-21 13:41:40 -0500 |
commit | 318b3220d191011bb9132efd4dbd5e6fb467b4e7 (patch) | |
tree | 1b0e7a29d15f79743c8559652432658423046a38 /nocompile/bin/nc.perl1.sh | |
parent | 4bdfc44f4681ef322378e614a409d5acc4d6586c (diff) | |
download | misc-318b3220d191011bb9132efd4dbd5e6fb467b4e7.tar.gz misc-318b3220d191011bb9132efd4dbd5e6fb467b4e7.zip |
made dcchelper a script instead of a c program.
ipdist which gives shortest distance based on whob's output of lat and lon
nc.* are minmal versions of a netcat like program written in Perl.
rfc is a script for downloading and viewing RFCs
tpb.sh is for pulling magnet links from tpb search results.
cuturl got an upgrade to better handle scheme:?query_string type URLs. (URN? URI? fuck if I know.)
Diffstat (limited to 'nocompile/bin/nc.perl1.sh')
-rwxr-xr-x | nocompile/bin/nc.perl1.sh | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/nocompile/bin/nc.perl1.sh b/nocompile/bin/nc.perl1.sh new file mode 100755 index 0000000..cfd8535 --- /dev/null +++ b/nocompile/bin/nc.perl1.sh @@ -0,0 +1,2 @@ +#!/bin/sh +perl -mIO::Socket -e '$socket=IO::Socket::INET->new(PeerAddr=>"$ARGV[0]:$ARGV[1]",Proto=>"tcp",Timeout=>1);if(fork()) {while($l=<stdin>) {print $socket "$l";}} else {while($l=<$socket>) {print $l;}}' $1 $2 |