use strict; use warnings; use Calendar::Japanese::Holiday; use utf8; use open qw(:encoding(utf8) :std); my $year = 2015; foreach my $month (1..12) { my $href = getHolidays($year, $month, 1); foreach my $day (sort keys %$href) { printf("%02d/%02d %s\n", $month, $day, $href->{$day}); } } $ perl holiday.pl 01/01 元日 01/12 成人の日 02/11 建国記念の日 03/21 春分の日 04/29 昭和の日 05/03 憲法記念日 05/04 みどりの日 05/05 こどもの日 05/0

use v5.10; use warnings; test_v5_8(); # null test_v5_8(type => "list1"); # hash1 test_v5_8(type => "list2"); # hash2 test_v5_8(+{type => "hash-ref"}); # hash-ref test_v5_10(); # null test_v5_10(type => 0); # 0 test_v5_10(type => "list1"); # hash1 test_v5_10(type => "list2"); # hash2 test_v5_10(+{type => "hash-ref"}); # hash-ref sub test_v5_8 { my %args = @_ == 1 ? %{$_[0]} : @_; my $type = (exists

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Perlの調べ物をしているとしばしばpureperl、ピュアPerlなどという謎単語が出てきます。 それについてのまとめ。 PurePerl [1]XS を使わず純粋に Perl だけで書かれていることを、 pure perl といいます。 [2]XS 版と pure perl 版があるとき、前者を Hoge::XS、後者を Hoge::PP のように命名する慣習があります。 [3] PP 版は XS 版より動作速度で劣ることもありますが、 可搬性に優れ扱いやすいため好まれることがよくあります。 What defines "Pure Perl"? Unicode::Japanese - Convert encoding of japanese text - metacpan.org use Unicode::Japanese qw(PurePerl); If you want to exp

$ perldoc -v '$!' $OS_ERROR $ERRNO $! When referenced, $! retrieves the current value of the C "errno" integer variable. If $! is assigned a numerical value, that value is stored in "errno". When referenced as a string, $! yields the system error string corresponding to "errno". Many system or library calls set "errno" if they fail, to indicate the cause of failure. They usually do not set "errno"

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article? # yum update # yum install openscap pcre-devel libxml2-devel libxslt-devel # yum install m2crypto python-simplejson # wget http://dev.centos.org/centos/6/upg/x86_64/Packages/preupgrade-assistant-1.0.2-33.0.2.el6.centos.x86_64.rpm # wget http://dev.centos.org/centos/6/upg

Python - ファイルの中にある特定文字列を数える - Qiita 触発されて。 pythonみたいにcountメソッドは無いのでsplitで代用。 splitは分割数なので-1する。(マッチしない行でも1個の分割数) splitでなくて正規表現の置換した数でもできそうだが、遅そう。 エラー処理は面倒だったので省略。 ファイルを丸呑みできるなら # !/usr/bin/perl use strict; use warnings; sub count_words { my ($stream, $search_word) = @_; my $num = 0; while (<$stream>) { my $match_num = scalar (my @list = split /$search_word/, $_) - 1; $num += $match_num; } return $n

下書きの途中で間違って公開してしまったけれど公開。後日、最後の方書き直します。。 なにがおいしいの？ イントラネット内など（インターネットに繋がないで）でセットアップから運用まで行わなければならない環境があります。 公開されている便利なPerlのモジュールは大抵、数個から～数十個の依存関係があり、インターネットに接続されていない状態でこれらのモジュールを入れるとなるとそれはもう至難の業だったりします。（apt-getが使えないubuntu or debian、yumが使えないCentOS or fedoraを想像してもらえればいいかと） そこで、Cartonによって依存関係の解消を行い、さらにOrePANによってcpanのローカルミラーを作成し、それをUSBメモリなどに入れて持って行き、あとはcpanmでローカルミラーを指してインストールしてやれば簡単だよね！というのがここでの”おいしいこ

# !/usr/bin/env perl use Mojolicious::Lite; use Mango; use Mango::BSON 'bson_oid'; # helper mango => sub { state $mango = Mango->new($ENV{PASTEDB}) }; helper mango => sub { state $mango = Mango->new("mongodb:127.0.0.1:27017") }; helper pastes => sub { shift->mango->db->collection('pastes') }; get '/' => 'submit'; post '/' => sub { my $self = shift; my $title = $self->param('title') || 'Untitled';

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?