?? socket_get.pl
字號:
#!/usr/bin/perl -wTuse strict;use IO::Socket;use URI;my $location = shift || die "Usage: $0 URL\n";my $url = new URI( $location );my $host = $url->host;my $port = $url->port || 80;my $path = $url->path || "/";my $socket = new IO::Socket::INET (PeerAddr => $host, PeerPort => $port, Proto => 'tcp') or die "Cannot connect to the server.\n";$socket->autoflush (1);print $socket "GET $path HTTP/1.1\n", "Host: $host\n\n";print while (<$socket>);$socket->close;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -