PeerAddr => $main::hostname, PeerPort => $main::port, Proto => 'tcp', Type => SOCK_STREAM, Timeout => 30) || die "connect to $main::hostname failure: $!"; $tns_sock->autoflush(1); print "\rwriting " . length($sendbuf) . " bytes\n"; if (defined($main::logfile)) ...
www.dbjr.com.cn/hack/53...html 2025-6-4