Perl関連

→言語・開発環境

→正規表現

一般†

• Perlの今 2025.11

• まつもとゆきひろ氏が“幻のPerl6”から学んだ教訓　「OSSの最大の敵」と「セカンドシステムの危険性」 - ログミーTech 2024.1

• Perl vs PHP 2010.3.8
• Moose - Perl5のためのまったく現代的なオブジェクトシステム
  • Mooseに入門してみたよ
  • 初めてのMoose - Mooseのすすめ

• 最新PerlフレームワークArk徹底解剖
• Perlがダメな理由 2009.4.11
  • とりあえず動くものを作りたいならPHPの方が生産性が高い。英語やコードは読めないけど、日本語なら読める人向けの文章ならいっぱい出てくる。
  • Perlは口先だけでは叩かれる文化らしいので、自分の体験を書いておく：XMPPを使って何らかの文字列を送信しようとPerlとPHPで試みた。Perlでは4時間くらい費やしたができなかった。一方、PHPでは1時間もかからずに、送信できた。アホな俺にはどちらが相応しい言語なのかよく分かる。

• 今日のCPANモジュール
• http://search.cpan.org/

• Active Perl download page
  • http://downloads.activestate.com/ActivePerl/Windows/5.8/

• http://perl-users.jp/

• Higher-Order Perl（pdf）

入門記事†

• Perl を学ぶとき、真っ先に覚えたいモジュール 2013.4.15

• Beginning Perl (Wrox)
• Perl基礎文法最速マスター
• サンプルコードによるPerl入門
  • 詳細目次

• Perl基礎入門
• とほほのPerl入門
• Perl講座[Smart]

• Essential Perl

Tips†

• Perlの食えない事情 - 演算子編 2013.2.3

• 簡単！たった１３行のコードで HTML取得＆解析をするPerlスクリプト 2010.6.7

• Perl裏技集

• $@ 例外を判定するときのlocal指定

• 現代的なPerlの記述方法一覧 2009.11.2

• $_ とスコープ 2009.11.1

• http://blog.livedoor.jp/dankogai/archives/51307692.html 2009.10.16
  • メモリを返すかどうかの振る舞いを決めているのが、 perl を build する時に指定する、usemymallocオプション

• perl - use CGI; use Encode; # 非英語Webプログラミング3原則 2009.6.23
  • PerlでWebプログラミングする場合の三原則

      1. QueryはCGIモジュールで処理する
      2. 文字コードはEncodeモジュールで処理する
      3. 文字コードを固定できない場合は、QueryまたはPATH-INFOに文字コード情報を含める
            1. 決め打ちできる場合は、UTF-8にしておく

• perl - で全角半角変換をモダンに行う 2009.6.6
• もうやらなくていい昔のコーディングテクニック
• for(;;)よりforeach() 2009.3.30
  • "Perl Best Practices"でも、読みやすさの観点からCスタイルのforは避けよ(pp. 100-101)と言っているが、もう一つ損なわれるものがある。速度である。

• 「モダンPerl入門」感想 2009.2.11
  • 本書は、まず7ページ目からいきなり、Perl5のオブジェクトシステムを刷新して昨年話題になったMooseを紹介し、それを用いて説明を行うことで、Perlにおけるよいスタイル、イディオム、デザインパタンまで一挙に説明してしまいます。特に、デザインパタンについては、オブジェクトが複雑にやり取りを行う現実のシステムを、どう交通整理すれば開発効率、保守性を高められるかという問題ですので、Mooseを用いることにより、ややもすると非本質的になってしまう言語仕様のいき届かなさのフォローを排して説明することに成功しています。

• クロージャの概念をクラスとの対比でわかりやすく説明する
  • perl - Class vs. Closure

• Perl「言語」初心者がモダンなPerlを高速に学ぶ方法 2008.7.4
  • Plaggerのソースを読む
  • モダンなPerlコードで書かれた本は殆どない
• Perlのリスト操作をRuby風に
• Perlでutf8化けしたときにどうしたらいいか
• 正規表現よりeq||eqのが速い 2008.3.14
• OLEによるWork, iTunesなどの操作サンプル
• use Imager;
  • Imagerモジュールによるサムネイル画像の作り方など
• 万能なnewの書き方
• Regexp::Assembleのススメ

• Perl6 は Parrot という環境で実行される。Parrot は Java や .NET の VMのようなもの

• PerlのAUTOLOAD
• PugsでPerl6を体験する
  • Pugs
• Perl6 Rules(新たな正規表現)

基本的な文法、関数など†

• Perlのリテラル

• 数値計算を整数でやりたいときは use integer;

• user varsとは
  • http://www.mnet.ne.jp/~tnomura/vars.html
  • use vars は組み込み関数ではなく、use で vars.pm モジュールを読み込んでいるだけなのです。

• package：＝名前空間 を指定しない場合mainパッケージとみなす

• local修飾子はグローバル変数もしくは複合型（配列やハッシュ)にしかつけられない。

• レキシカル変数
  • myキーワードで修飾する。
  • local修飾子はつけられない

• グローバル変数
  • 必ずパッケージ（＝名前空間）にヒモづける。
  • ourキーワードで修飾する。
  • 定義側

    package MyApp;
    use strict;
    our $VARIABLE=1;

  • 参照側

    package main;
    $MyApp::VARIABLE;

• Module::installのrequires()

  requires('Hoge'); Hogeというモジュールが必要。第二引数でヴァージョンを指定する

• perl 変数展開　qq qw
  • qw()は文字列のスペースによるsplit
  • qq()は変数をダブルクオートによって囲むのと同じ

• sprintf

   my $w =sprintf( '%02d', $i );

• match/replace関数のオプション

  i -> case insensitive 大文字小文字を無視する
  g -> 毎回評価する
  なぜかよく忘れるので…

PerlでAssertを使うには†

• 標準機能でやりたい場合

  use Test::Harness::Assert;
  assert( 条件 )

• 参考：http://harapeko.asablo.jp/blog/2006/10/03/546835

ファイルのオープン／クローズ†

open(IN, $filename );
while (<IN>) {
  print $_ ;
}
close(IN);

ディレクトリから列挙†

• 普通にやる

  opendir(DIR, ".");
  while ($file = readdir(DIR)) { 
   if ($file =~ /<適当なパターン>/ ) {
      #適当な作業
   }
  }
  closedir(DIR);

• 再帰的にたどる場合

  sub prc_all_dir {
      my $dir = shift;
      #print 'open' . '['. $dir ."]\n";
      opendir(DIR, $dir ) or die "can't open directory [$dir] error\n" ;
  
      my @entries = readdir( DIR ); 
      closedir(DIR);
  
      for ( @entries ) {
          # '.' と '..' はパス
          next if $_ eq '.';
          next if $_ eq '..';
  
          my $entry = $dir . '/' .$_;
  
          #ディレクトリだったら再帰する
          if ( -d $entry ) {
              #printf "Dir = %s\n", $entry;
              #各ディレクトリ内の処理
              prc_all_dir( $entry ); #再帰
          } 
          #ファイルのとき
          else {
          
          }
          
      }
  }

最新の50件