Net::Telnet, open(), print(), getline()

来源:互联网 发布:300英雄淘宝店 编辑:程序博客网 时间:2024/06/09 23:56


#!/usr/bin/perl use strict; use Net::Telnet; my $p = Net::Telnet->new(); my $h = shift || "www.chinaunix.net"; $p->open(Host => $h, Port => 80); $p->print("GET /\n"); while(my $line = $p->getline()) {    print $line; } exit 0;  


0 0