はじめに autovivificationを避ける myと後置ifを同時に使ってはならない return;で返る値は空のリスト 正規表現によるバリデーションでは\Aと\zを使おう '0' は偽で評価される each は中断した時、中断した時点の状態が残り続ける おわりに はじめに こんにちは。アプリケーションエンジニアの id:t_kyt です。 春です。Perlを始めるにはいい季節ですね。Perl始めていますか？ どの言語にもハマりどころというものがありますがPerlも例外ではありません。というわけで今回はPerlを始めた人がハマりがちなポイントを幾つか紹介したいと思います。 この記事ははてなの教科書程度の知識を前提としています。またモジュールに依存しない部分に絞りました。 github.com autovivificationを避ける autovivificationとはundefの入

こちらの記事では、以下のレシピを掲載しています。 ■シチュエーション別ケーキのレシピ 誕生日×3 バレンタイン×3 ひな祭り×2 クリスマス×3 ■種類別ケーキのレシピ スポンジケーキ×3 デコレーションケーキ×3 チーズケーキ×3 HMを使ったケーキ×3 チョコレートケーキ×3 トルテ×3 カップケーキ×3 パウンドケーキ×3 ロールケーキ×3 シフォンケーキ×3 クグロフ×3 シュトーレン×3 カステラ×3

#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $hashref = { hoge => 100, fuga => 200, piyo => 300, }; print Dumper $hashref; と、ハッシュ初期化時にkeyとvalueの組み合わせをまとめて指定することがあると思います。 $ perl hoge.pl $VAR1 = { 'piyo' => 300, 'fuga' => 200, 'hoge' => 100 }; ここで、valueの部分にサブルーチンやメソッドからの返り値を入れるようにするときに注意。 #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $hashref = { hoge => 100, fuga

目次 - Perl Index Theme Perl について、復習を兼ねて断片的な情報を掲載して行く連載その 0x77 回。 Perl 「 正規表現 」( Regular expression )「 s/// 」演算子で結合 ( 拘束 ) 演算子を利用する。それと「 非破壊置換 」について。 s/// で結合演算子「 =~ 」を使う 「 Perl 「 正規表現 」: 結合演算子 ( =~ ) (0x6a) 」で確認した結合演算子 ( 拘束演算子 ) は、置換演算子「 s/// 」でも利用可能です。 次の例では、$text に格納されている文字列の内「 yes 」を 「 no 」に置き換えています。ワードアンカー「 \b 」を使っているのは、「 eyes 」や「 dyes 」をうっかり置き換えない様にするためです。 $text =~ s/\b(yes)\b/no/g; これで、$text

{}の前にプラスが付いて、+{}とかなってるのをよく見るけど、やっとこれの意味が分かったのでメモ。 このカッコはハッシュ以外にも使われるから、「これはハッシュリファレンスですよ」と明示するためのもの。 use strict; use warnings; use Data::Dumper; local $\ = "\n"; sub p { print Dumper shift; } sub hashref_ng { { @_ } } sub hashref_ok { +{ @_ } } my $ng = hashref_ng(1,2,3,4); my $ok = hashref_ok(1,2,3,4); p $ng; p $ok; 実行結果 % perl hashref.pl $VAR1 = 4; $VAR1 = { '1' => 2, '3' => 4 }; こんな常識も知らずにおりますよ

perlに限ったことではありませんが、DB処理を行う際、データの重複登録を回避するにはどういう方法をとるのがよいのでしょうか？ WEBアプリケーションの場合、ページリロードによるデータの重複登録が発生することがあり、それをうまく回避する方法はないかと模索中です。 ぱっと思いついたのは、 データ登録を行う前にチェック用のSQLを実行し、データが存在しなければ登録する方法 登録の際に例外処理を行い、意図的に例外を握りつぶす方法 の2通りです。 サンプルとして、id(主キー)とnameを持つmemberテーブルを作ってみます。 テーブル作成 mysql> show create table member\G *************************** 1. row *************************** Table: member Create Table: CREA

Perlのソースコードから，文単位でトークンをgit grepするのを作った． 普通のgrepは行単位の検索なので，これまでgit grepするとき， メソッドの呼び出しが複数行に渡ることが予想されるとき，勘で-A 5 とかやって，後ろ5行も表示，とかやってたけど，勘に頼っていて，不便だった．ソースコードはトークン単位とか文単位なので，行単位で扱ってもあまり意味がない． GitHubに，git-grep-perl-statementというのを置いてある． hitode909/git-grep-perl-statement · GitHub 例 git-grep-perl-statementのソースコードから，coloredというトークンを探してみる． % git grep-perl-statement colored git-grep-perl-statement:61 colored($

これまで perlbrewを使っていましたが、plenvに乗り換えてみました。 perlbrew と違いプロダクト(アプリケーション)毎に perl のバージョンを指定できたり、バージョン間のモジュール移行ができたりと便利そうです。 以前は perl で実装されていたようですが、shell で再実装されたそうです。 インストール GitHub からインストールします。*1 $ git clone git://github.com/tokuhirom/plenv.git ~/.plenv $ echo 'export PATH="$HOME/.plenv/bin:$PATH"' >> ~/.bashrc $ echo 'eval "$(plenv init -)"' >> ~/.bashrc $ exec $SHELL -l plenv で perl をインストールするのに実行する perl

Perl › 関数 › here Perlではコンテキストという概念があるので、スカラあるいはリストをコンテキストに応じて返却することができます。 sub func_name{ # 処理 ... return wantarray ? リスト : スカラ; } wantarrayを使えば、リストコンテキストの場合とスカラコンテキストの場合を区別して、戻り値を返却することができます。 wantarrayが使われている標準関数にはlocaltime関数があります。 wantarray関数は使わないほうがよい wantarray関数は、非常に発見しにくバグを生み出しだしがちなので、使用することはお勧めしません。たとえば、スカラが返ってくると思って、関数の引数に指定したら、リストが返っていたということが、起こりうるからです。 # スカラが返ってくると思っていたが、実際はリストが返ってきてしまう fu

NAME Web::Query - Yet another scraping library like jQuery VERSION version 1.01 SYNOPSIS use Web::Query; wq('http://www.w3.org/TR/html401/') ->find('div.head dt') ->each(sub { my $i = shift; printf("%d %s\n", $i+1, $_->text); }); DESCRIPTION Web::Query is a yet another scraping framework, have a jQuery like interface. Yes, I know Ingy's pQuery. But it's just alpha quality. It doesn't work. Web::Qu

NAME Carp::Always - Warns and dies noisily with stack backtraces SYNOPSIS use Carp::Always; Often used on the command line: perl -MCarp::Always script.pl DESCRIPTION This module is meant as a debugging aid. It can be used to make a script complain loudly with stack backtraces when warn()ing or die()ing. Here are how stack backtraces produced by this module looks: # it works for explicit die's and

こんにちは。最近は PHP ばっかり書いている、永遠の Perl 初心者 hatyuki です。 とつぜん質問ですが、みなさんが最も多くみている Perl のエラーはなんですか？ 自分の場合は、う〜ん。。。 Can't locate Hoge.pm in @INC (@INC contains: ~~~~ .). BEGIN failed--compilation aborted. かな？いつまでも進歩がないのが伺えますね！ 皆さんご存知の通り、このエラーは "@INC" で指定されたディレクトリの中にモジュールが見つからなかった場合に発生するエラーです。つまり、モジュールをインストールし忘れているか、モジュールがどこに置いてあるのかを適切に設定していないか、の (およそ) どちらかですね。 さてさて、Casual Perler な皆さんは、このエラーを回避するためにどんな方法を使って @

OrePAN的なやり方でモジュール管理していたプロジェクトのcarton化を進めているので、進捗をメモしてみる。 整合性が取れるまでcarton installを進める 現状のモジュールのバージョンを完全に固定したままで、carton installしたらあまりうまく行かなかった。プロジェクトにはテストがかなりあるので、まあ全部バージョン上がっても良いとして、carton installする。テストを走らせてみて、バージョンを固定しないと動かないようなモジュールはcpanfileに記述していった。 $ carton install $ # なんかおかしかったらcpanfileを編集 $ carton install　cpanfileには以下の様な形でモジュールを固定していった。 requires 'HTTP::Message' => '<= 6.02';　またinstallが終わった後はc

Perl のバージョン管理ツール Perlbrew で、既にインストールしている Perl のバージョンを別名で新規にインストールしたい場合、--as オプションを使うことで別名を付けられる。 (いつもわからなくなって id:aereal 氏に教えてもらってばかりいるのでいい加減書き残しておく。) perlbrew install perl-5.8.8 --as perl-hogeperlbrew --help すればすぐ下のような情報が出てくるんだけど、何故かいつも --help を見ずにぐぐっていい情報が出てこなくて悩む、みたいなことをしてる。 --as Install the given version of perl by a name. ex. C<perlbrew install perl-5.6.2 --as legacy-perl> 最近の Perl のバージョン管理 最近