| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Benchmark qw(cmpthese); | |
| my $h = '25'; | |
| my $pattern = '((?:(?:'.$h.'[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?))'; | |
| my $regexp = qr/$pattern/; | |
| my $regexp_o = qr/$pattern/o; |
| #!/usr/bin/env perl | |
| use strict; | |
| use warnings; | |
| use Benchmarks sub { | |
| my @list = (1..10); | |
| +{ | |
| map_join => sub { | |
| join(',', map { '?' } @list); |
| $ perl -MLWP::Simple=get -we 'my %r=(a=>1000, b=>100, c=>120, d=>288, e=>288); for my $room (sort keys %r){ my ($count) = (get("http://api.conbu.net/v1/associations/track_$room") =~ m!:(\d+)!); printf("track".uc($room).": %.2f%%\t%04d/%04d\n", $count/$r{$room}*100, $count, $r{$room}); }' | |
| trackA: 44.60% 0446/1000 | |
| trackB: 136.00% 0136/0100 | |
| trackC: 66.67% 0080/0120 | |
| trackD: 75.35% 0217/0288 | |
| trackE: 68.40% 0197/0288 |
| package MojoMojo::Formatter::NicoVideo; | |
| use strict; | |
| use warnings; | |
| use parent qw/MojoMojo::Formatter/; | |
| =head1 NAME | |
| MojoMojo::Formatter::NicoVideo - Embed Nico Nico Doga player | |
| =cut |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use Linux::Smaps; | |
| my $proc_name = 'starman';#shift or die "usage: $0 PROC_NAME"; | |
| my $proc_list = `ps a|grep $proc_name` || ''; | |
| my @pid_list; |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use LWP::UserAgent; | |
| use URI::Fetch; | |
| use Cache::FileCache; | |
| use Data::Dumper; | |
| my $TSV_URL = 'http://www.tepco.co.jp/forecast/html/images/juyo-j.csv2'; |
| package Plack::Middleware::Debug::StackTrace; | |
| use strict; | |
| use parent qw/Plack::Middleware::Debug::Base/; | |
| use Devel::StackTrace; | |
| our $VERSION = '0.01'; | |
| our $StackTraceClass = "Devel::StackTrace"; | |
| # Optional since it needs PadWalker | |
| eval { | |
| require Devel::StackTrace::WithLexicals; |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Encode qw/encode_utf8/; | |
| my @list = split //, 'あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわをんがぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽ'; | |
| my $words = [qw/ | |
| おかね げんきん たいきん | |
| ゆめ きぼう じゆう せいこう |
| #!/usr/bin/perl | |
| use strict; | |
| use warnings; | |
| use utf8; | |
| use Encode qw/encode_utf8/; | |
| my @list = split //, '岩多大片倉小篠高高仲中仲前前松秋板内梅大菊田中仁野藤松松峯宮横石河柏北小小佐佐佐鈴鈴近増宮渡渡阿市入岩大加川島島高竹田仲中永山伊小小名藤森伊小小名藤森大サ佐平武江相岩梅大岡北篠高光村茂内岡小西橋前宇上折高今星渡増井大駒戸中成野松川早大早成佐大野浦小佐小奥森平米指磯大坂藤堀飯金小吉渡出山西中片石有鈴冨畑瓜上小林西浅石石郭小坂杉冨三村伊今石絹藤高植岩佐豊岡川金牛山鈴雨北長森渡百玉佐有高'; | |
| my $words = [qw/ | |
| 岩佐美咲 | |
| 多田愛佳 |
plackup -MLWP::Simple=get -e 'sub { my $env = shift; my ($url) = ($env->{REQUEST_URI} =~ m!^/(.*)!); my @html; push(@html, qq|<img src="$_">|) for get($url) =~ m!<img[^>]*src="(https?://[^"]+)"[^>]*>!g; return [200, ["Content-Type" => "text/html"], [join("", @html) || "OK"]] }'
http://127.0.0.1:5000/http://matome.naver.jp/odai/2135350364969742801