Perlがインストールされている場合(RHELマシンにある場合):
perl -MIO::Socket::INET -ne 'BEGIN{$l=IO::Socket::INET->new(
LocalPort=>1234,Proto=>"tcp",Listen=>5,ReuseAddr=>1);
$l=$l->accept}print $l $_' < ~/.bashrc
ローカルファイアウォールが1234への着信接続を許可しない限り、動作します。
socatがインストールされている場合:
socat -u - tcp-listen:1234,reuseaddr < ~/.bashrc
zshがインストールされている場合:
zmodload zsh/net/tcp
ztcp -ld3 1234 && # start listening socket on fd 3
ztcp -ad4 3 && # accept connection on fd 4
ztcp -c 3 && # close the listening socket that is no longer needed
cat < ~/.bashrc >&4 && # send the data
ztcp -c 4 # close the communication socket to tell the other end we're finished