[perl]ある日の曜日を求める

localtime関数とは逆の動きをするTime::Localパッケージのtimelocal関数をつかう．

use Time::Local;
my $day = ("Sun","Mon","Tue","Wed","Thr","Fri","Sat");
...
#localtime系では月の番号は1月が0となる．
my $time_info = timelocal ( $sec, $min, $hour, $day, $month-1,$year);
my $wday = (localtime $time_info)[6];

[perl]文字列中の正規表現制御文字にエスケープを入れる

正規表現マッチングのパタンを変数で指定するなどする場合に，文字列の中に正規表現の制御文字列が入ってしまうような場合に予めエスケープ（バックスラッシュ）を入れたりする方法．

$quotestr = quotemeta $str;

$str="私(30)"が$quotestr="私\(30\)"になる．

[perl]標準出力以外のバッファリングを無効にする

perlにはCでいうところのfflush関数がないのですが，以下のように実現．CGIでおなじみの変数$|とselect関数を使う．

  open OUT ,"> a_file.txt" or die "Cannot open a_file.txt\n";
  my $oldflh = select(OUT); $| = 1;  select($oldflh);

プログラミングPerl〈VOLUME2〉 オライリー・ジャパン このアイテムの詳細を見る

[perl]use strict時にgetoptをつかう

オプションに使う文字(たとえばx)に対する変数$opt_xをvarプラグマでグローバル宣言しておく。

use strict;
use vars qw($opt_o $opt_i);
use Getopt::Std;

getopt('oi'); # 自動的に$opt_o, $opt_iが設定される

プログラミングPerl〈VOLUME2〉 オライリー・ジャパン このアイテムの詳細を見る

[perl]use strict時に、ファイルハンドルを関数の引数にする

use strict; を宣言したときには、たとえば

open HNDL, "> $filename";
&fileout(HNDL, $aaa)；

なんて事をするとエラーになる。

これを解消するには、

1. Symbolパッケージをつかう

use Symbol ();
my $filehndl = Symbol::gensym();
open($filehndl, $filename);
&fileout($filehndl,...);

2. ファイルハンドルの自動生成機能を使う(5.6.0以上）

open (my $filehndl, $filename);
&fileout($filehndl,...);

プログラミングPerl〈VOLUME2〉 オライリー・ジャパン このアイテムの詳細を見る

[perl]HTML::Parserを使う

HTML::Parserを使って、HTML内のタグを無視してテキストだけを抜き出す

--------

use HTML::Parser();

$flgInScript = 0;
sub proc_text
{
    my @a =@_;
    unless (  $flgInScript ){ 
        foreach  (@a){
            print $_;
        }
    }
}

sub incheck_script
{
    my @a =@_;

    foreach  (@a){
        if ( /script/i ){
            $flgInScript = 1;
        }
    }
}

sub outcheck_script
{
    if ( $flgInScript )
    {
        $flgInScript = 0;
    }

}


if ( $#ARGV <0  ){new(api_version => 3,
                       text_h => [\&proc_text , "dtext" ],
                       start_h => [\&incheck_script, "tagname"],
                       end_h => [\&outcheck_script,"tagname"]); 

$p->parse_file($ARGV[0]);

[Perl]Encodeモジュールでコード変換

use Encode;
#EUC->Shift-JISの例
foreach (map glob($_), @ARGV)
{
print $_."\n";
open IN, "<:encoding(euc-jp)", $_ or die;
open OUT, ">:encoding(shiftjis)", "sjis_".$_ or die;
while (<IN>){ print OUT $_; }
}
# 下のような方法もあるらしい(from_to)
# open my $in, "<", $infile or die;
# open my $out, ">", $outfile or die;
# while(<$in>){
# from_to($_, "shiftjis", "euc-jp", 1);
# print $out $_;
# }

perl 5.8とjperlで同一の日本語用スクリプトを使いまわす

ホームディレクトリを多数のマシンが共有するような環境で使う場合のTip。
5.8系では先頭に use encoding 'euc-jp'としてencodingパッケージにより、スクリプトファイルの自体のエンコーディングが指定ができるが（というか指定しないとutf8のファイルだと思われてしまう）、perlバージョンがjperlの場合use encodingするとエラーになる(5.8以前なのでこのパッケージを持っていない)。これを回避しつつスクリプトを共有する方法。

なお、open.pmの部分は、open関数や通常の関数で開くファイルの漢字コードをeuc-jpに指定する方法。(たぶん、こっちのほうが情報として有益と思われる）

use English qw/ $PERL_VERSION /;
BEGIN {
    if( $PERL_VERSION >= 5.008 ){
         #perl 5.8
         require encoding;
         encoding->import( "euc-jp" );
         require "open.pm";
         open::import(IO, ":encoding(euc-jp)");
    } elsif( split( //, "字" ) == 1 ){
         #perl vesrion 5?
         require I18N::Japanese;
         I18N::Japanese->import();
    } else {
         #jperl
#	die "Can't Handling Japanese char";
    }
}

参考:http://namazu.org/~tsuchiya/perl/perl-5.8.html

再帰的にディレクトリを走査 + 特定のファイルを取り出す

sub make_list
{
	my (@allfiles);
	my ($mydir) = @_;
	my ($file);

	#print "$mydir";
	opendir THISDIR, $mydir or die "Can't opendirn";
	@allfiles = grep !/^..?$/, readdir THISDIR;
	closedir THISDIR;
	foreach $file (@allfiles)
	{
		if (-d $mydir."/".$file)
		{	
			&make_list ( $mydir."/".$file );
		}else
		{
                           #not a Directory
			print $mydir."".$file."n";
		}
	}
}

	&make_list(".");