my @arr = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13); ↑ こういう感じの配列を、 my $expected = [ [ 1, 2, 3, 4 ], [ 5, 6, 7, 8 ], [ 9, 10, 11, 12 ] ]; ↑ こういう感じに分割したい欲望に駆られました。この場合は、13個の要素を持つ配列を4つの要素ずつの配列リファレンスに分割（端数は切り捨て） で、テストから書きました。 #!/usr/bin/env perl use strict; use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; use Test::More tests => 2; BEGIN {use_ok('MyArrayUtility')} # MyArrayUtility::divide_

grep -Pオプションを使って複数行を検索する方法 grepは単一行のみしか検索できないのかと思っていたが、オプションを使うとできることが分かった。 例として、検索対象のテキストtest.txtに以下のように書かれているとする。 aaabbbccc dddeeefff ggghhhiiiこのテキストから、「bbbで始まってdddで終わる文字列」を検索するのは以下のようにすればできる。 $ grep -P 'bbb[\s\S]*?ddd' test.txt 記号の意味を簡単に解説。 -Pオプションは、Perl風の正規表現を使うという意味。 [\s\S]は改行文字も含めたすべての文字1文字にマッチ。 *?で、[\s\S]の繰り返しのうちもっとも短いものにマッチ。 このコマンドで表示される結果は以下。 aaabbbccc dddeeefffこれだと、求める文字列を含む行ごとすべて表示されてしま

前回作ったイメージビューアにメニューバーとファイルを開くダイアログを追加して、アプリ開発をしやすい様に、簡単にクラス化してみた。 ソースはこんな感じ。 メニューバーはXMLで構造を定義して、それに対応する、コマンドやハンドラを登録するという感じです。そんなに難しいところはないんですが、情報が少ないので自分用のメモとして置いておこうかと。 実行するとこんな感じ。 前回との違いは、メニューバーが追加されたのと、Quitボタンを削除して、メニューに入れたくらい。

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

雅(みやび)なPerl入門は、雅ちゃんが大学生クロウにPerlを学ぶ物語形式で、Perlを学べる入門書。 「Perlを教えてくださいっ!」 ある日突然、twitterのダイレクトメッセージにメッセージが飛び込んできた。それは女の子からのものだった。どうせまたスパムだろう。最初はそう思っていたのでメッセージを無視し続けていたのだ。しかし、その後もメッセージは送られ続けてきた。 そんな俺がPerlを教えることになるとは。ただ、俺は面倒見は良い方だから、こういう話は断れない性格なのだ。決して女の子にPerlを教えたいがためではないのだ。 「ところで名前はなんていうの?」 「雅といいます!」 そんなこんなで俺はPerlを教えることになったのだ。 「やれやれだ」 (第一章プロローグより) 会話形式で、進んでいくので、Perlを学びながら楽しく読み進めていくことができます。 第二章。 第三章。 「表紙

独自にコンパイルされたperlや自分で少しソースコードをいじったperlもplenvで管理したいなーと思ったのでやってみました。 基本的にrbenvなどと同じようにできるようです。 手順 1. Perlのソースコードを入手する perl - The Perl 5 language interpreter - metacpan.org https://github.com/Perl/perl5/releases 2. コンパイルする 取得してきたPerlのソースコードの中に ./Configure というファイルがあります。 このファイルを実行することでMakefileが生成されます。 plenv管理下のperlは通常 $HOME/.plenv/versions/ 以下にあり、その中にあるディレクトリの一覧が plenv versions で表示されるようになっています。 なので、以下のよう

はじめに この記事は、はてなダイアリーの同タイトルのものを、Qiitaのマークダウンの練習で移植したものです。 http://d.hatena.ne.jp/namikawamisaki/20180206 （ここから） いまさらこれやってもすでに、ぼうだいな量のドキュメントがあるので、何をいまさらという感じですが。自分の復習つうか自分が喋るならどうやってたかな（昔某所で研修してた気がする）というのを思い出す感じで書いてみます。 対象としては初学者。ほんとの基礎基礎はできてて、まだパイプとリダイレクトとかはいまいちわかってない人あたり。 http://d.hatena.ne.jp/namikawamisaki/20160825 -- サーバ接続、対話型シェル http://d.hatena.ne.jp/namikawamisaki/20160827 -- ツリー構造、ファイル操作について 今回

（2024年リリースの Perl 5.40 まで対応しています） Perl5 は 2010年リリースの 5.12 以降、ほぼ毎年ペースでメジャーバージョンアップしています1。つまり 5.x の偶数 x が +2 されています。 Perl は後方互換性をとても重視した言語で、メジャーバージョンアップで過去の Perl プログラムが動かなくなることはほぼありません。また、バージョンアップによって変わる部分の多くが、速度的な改善であったり、限定的な状況におけるセキュリティ改善だったりといった、インターフェースにかかわらない部分です。 とはいえ、Perl も後方互換性を崩さないよう配慮した上で、実験的な機能として新しい組み込み関数や文法を追加することがあります。 そのときに活躍するのが feature プラグマ です。この記事ではそれら実験的な機能の登場バージョンをまとめました。 文字コード関連の

本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回のハッカーは、はてなでPerlを利用したWebアプリケーションを開発している@shiba_yu36こと柴崎優季さんで、テーマは「Perl開発への動的な型制約の導入」です。 本稿のサンプルコードは、WEB+DB PRESS Vol.94のサポートサイトから入手できます。 なぜ動的な型制約を導入したいのか 動的な型制約とは、関数の引数や変数に受け付ける型を制約として記述しておき、プログラムの実行時に制約を満たしているかのチェックを行うしくみのことです。静的な言語ではコンパイル時に型チェックを行っているのですが、それを動的な言語で実行時に行います。 動的な型制約をPerlへ導入する方法の解説に入る前に、本節でまず、なぜPerlに動的な型制約を導入したいのかについて説明します。 型がないことによる問題 Perlを使うメリットにはた

#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.010; use Encode qw(encode); # 半角スペースを明示的に全角スペースにする my $str = "ニューヨーク シティボーイ"; say encode('utf8', $str); # ニューヨーク シティボーイ $str =~ s/\s/\x{3000}/g; say encode('utf8', $str); # ニューヨーク　シティボーイ データベースに登録された氏名の苗字と名前の間が全角スペースのものがある。で、検索フォームから苗字と名前の間を半角スペースで入力した時にマッチさせたい、という要望に応えるために書きました。 use utf8プラグマを書くと \s が半角スペースにも全角スペースにもマッチする、というのは単純にスペース除去