#!/usr/bin/env perl6 use v6; my \stdin = $*IN; my Int $count = +stdin.get(); for ^$count {…
while (<>) { next if /##/; chomp; @a=split/\s+/; @b=split/:/,$a[9];#获取0/1,1/1,1/3这样的…
open(FILEHANDLE, "+<hello.asm") or die "can't open : $!\n"; @content= <FILEHANDLE>…
map {say $_,2*$_,3*$_} grep {join("",sort split("",$_.2*$_.3*$_)) eq '123456789'} 123 .. 3…
print "input :"; chomp ($num=<STDIN>); foreach (100..(10**($num)-1)){ my $t=$_; my $…
#! /usr/bin/perl -w use strict; my $filepath = "input3"; my @matrix = (); my $count; my $m…
#!/usr/bin/perl use Archive::Zip; use IO::File; use Data::Dumper; use XML::Simple; my $buf…
#!\usr\bin\perl use warnings; use strict; use DBI; my ($dbh, $rows); $dbh=DBI->connect(…
#!/usr/bin/perl -w use Win32; use Win32::Process; $ApplicationName = 'c:/perl/bin/perl.exe…
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…
Thank you for your sharing. I am worried that I lack creative ideas. It is your article that makes me full of hope. Thank you. But, I have a question, can you help me?
Thanks for sharing. I read many of your blog posts, cool, your blog is very good.
Can you be more specific about the content of your article? After reading it, I still have some doubts. Hope you can help me.
Thanks for sharing. I read many of your blog posts, cool, your blog is very good.
Excellent blog here Also your website loads up very fast What web host are you using Can I get your affiliate link to your host I wish my web site loaded up as quickly as yours lol