perl 中的對象 bless

[root@dr-mysql01 ~]# cat aa.pl use LWP::UserAgent; use Data::Dumper; my $ua = LWP::UserAgent->new; $phone=$ARGV[0]; $cc=$ARGV[1]; $ua->timeout(10); $ua->env_proxy; $ua->agent("Mozilla/8.0"); $host
相關文章
相關標籤/搜索