ytnobody

time-2710.000000検知率=100
time-3310.000000検知率=100
time-3910.000000検知率=100
time-4510.000000検知率=100

ytnobody

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 =~ /^(.+)=(.+)$/;

ytnobody

NAME

dtinstall - daemontools install script

VERSION

0.76.3

GET STARTED

ytnobody

NAME

Kariu - javascript window system

SYNOPSIS

win = new Kariu.create( { width: 250, height: 150 } );
win.html = '<p>my name is ytnobody.</p>';
win.show( 300, 100 );
Kariu.destroy( win.id );

ytnobody

NAME

jcue - javascript job-queueing engine

SYNOPSIS

// create a new jcue object with 
jcue.clock = 100;

// put job-queue to jcue

ytnobody

NAME

jiku - javascript timer management object

SYNOPSIS

// slates setTimeout
var x = new jiku.timer( 'Timeout', 5000, [ 'mytag', 'test', 'link' ], function(){ ... } );

// slates setInterval

ytnobody

#!/usr/bin/env perl

$| = 1;

use warnings;
use strict;
use Data::Dumper;
use I18N::LangTags qw/ :ALL /;
use I18N::LangTags::List;

ytnobody

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;

ytnobody

#
# LWP::UserAgentを使ってBasic認証+GETパラメータつきのリクエストを発行するサンプル
#

use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
use URI;

# URIオブジェクト作成

ytnobody

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;