dtinstall - daemontools install script
0.76.3
time-2710.000000検知率=100 | |
time-3310.000000検知率=100 | |
time-3910.000000検知率=100 | |
time-4510.000000検知率=100 |
use warnings; | |
use strict; | |
my $file = 'file.dat'; | |
my $data = {}; | |
open my $fh, '<', $file or die "Couldn't open file"; | |
while ( my $line = <$fh> ) { | |
$line =~ s/(\r\n|\n)$//; | |
my ( $key, $val ) = $line =~ /^(.+)=(.+)$/; |
use strict; | |
my @a = (1,2,3,4,5,6,7,8,9); | |
my @b = (5,2,9,3); | |
my @x = grep { | |
my $_1 = $_; | |
my $r = grep {$_ eq $_1} @b; | |
$r == 0; | |
} @a; |
# | |
# LWP::UserAgentを使ってBasic認証+GETパラメータつきのリクエストを発行するサンプル | |
# | |
use strict; | |
use HTTP::Request::Common; | |
use LWP::UserAgent; | |
use URI; | |
# URIオブジェクト作成 |
use strict; | |
my %hash = ( | |
hoge => [ 1, 2, 3, 4 ], | |
fuga => [ 3, 4, 6, 8, 2 ], | |
piyo => [ 4, 6, 9, 2 ], | |
); | |
print join ', ', map { join ': ', @{$hash{$_}} } keys %hash; |