use LWP::UserAgent; $user_agent = new LWP::UserAgent; $request = new HTTP::Request('GET', …
#!/usr/bin/perl -w use Win32; @os = Win32::GetOSVersion(); print "Version $os[1]\.$os[2] B…
# The syntax is (name, altnames, addrtype, len, addrs) = gethostbyname (inname); #!/usr/lo…
while (<>) { if (/Iteration_query-def/) { />(.*?)</; $out1=$1; } if (/Hit_def/…
#!/usr/bin/env perl6 my \stdin = $*IN; my $count = ~stdin.get(); my %table = 93 => 91, …
#!/usr/bin/perl -w if( @ARGV != 2 ) { print "Usage: we need two files\n"; exit 0; } my $ID…
#转换整个文件 code2html -l java Test.java test.html #转换代码片段 code2html -p test.html #test.html &l…
package Tools::Text::Format::FormTidy; use Exporter; our @ISA = qw(Exporter); our @EXPORT_…
#this is for solving the problem of magic square #!/usr/bin/perl -w use strict; #input a n…
#! /usr/bin/perl use threads; use IO::Socket::INET; use strict; my @openport; sub scan{ my…
#!/usr/bin/perl -w use CGI; my $ks_cgi=new CGI; my $ks_ip="10.10.99.103"; # auto mount cen…
use DBI; my $driver="DBI:mysql"; my $database="sample_db"; my $user="root"; my $host="loca…
Perl 使用 News::NNTPClient 访问新闻组