require "iuplua" require "iupluacontrols" --iup.Message("abc", "def") --[[ fileDlg = iup.f…
require('Memcached') local args = ngx.req.get_uri_args() if (ngx.var.remote_addr == '192.1…
use utf8; binmode(STDIN, ':encoding(utf8)'); binmode(STDOUT, ':encoding(utf8)'); binmode(S…
#!env perl use AnyEvent::Socket; use AnyEvent::Handle; use Data::Dumper; use LWP; my $cv =…
use LWP::Simple; use URI::URL; my @collect_url=(); my $url = "http://pngu.mgh.harvard.edu/…
#!/usr/bin/perl #server.pl #use strict; use Socket; use constant IPADDR => '192.168.1.2…
sub by_number { if ($a > $b){1} elsif($a < $b){-1} else {0} } my @number = (1,4,76,4…
#!/usr/bin/perl # # fdupe tool - finding duplicate files # # $Id: fdupe,v 1.7 2011/10/14 2…
#!/usr/bin/perl use Getopt::Long; use DBI; use warnings; use strict; my $config_file=''; m…
#!/usr/bin/perl -w use threads; use threads::shared; $| =1 ; my $flag : shared = 0; &p…
#!/usr/bin/perl -w use Tk; $Tk::strictMotif = 1; $main = MainWindow->new(); $button1 = …
use Win32::File; Win32::File::SetAttributes($name, $attr); #!/usr/bin/perl -w use Win32::F…
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