if __name__ == '__main__':
    # do something

同様のコードを Perl, Ruby, PHP で書く方法を調べてみた。

Perl の場合

if ($0 eq __FILE__) {
    # do something
}

Ruby の場合

if $0 == __FILE__
  # do something
end

PHP の場合

if (basename(__FILE__) == basename($_SERVER['PHP_SELF'])) {
    // do something
}

#!/usr/bin/env perl -wnl
use strict;
use warnings;
use Encode;
use utf8;

my $line = $_; # UTF8 フラグ無し
my $str = "内部:hello world.ハロー　ワールド。"; # UTF8 フラグ有り
my $line2 = Encode::decode_utf8($line); # UTF8 フラグを付ける

$line =~ s/\s//g;
$line2 =~ s/\s//g;
$str =~ s/\s//g;

print $line;
binmode STDOUT, ":utf8";
print $line2;
print $str;

実行結果

$ ./u8.pl hoge.txt
外部:helloworld.ハロー　ワールド。
外部:helloworld.ハローワールド。
内部:helloworld.ハローワールド。

hoge.txt の中身

外部:hello world.ハロー　ワールド。

内部文字列では UTF8 フラグが付いているために全角空白も \s でマッチしている。

参考：Perl 5.8.x Unicode関連

ミニマルPerl Unix/LinuxユーザのためのPerl習得法

posted with amazlet at 09.06.05

Tim Maher
オライリージャパン
売り上げランキング: 279701

Amazon.co.jp で詳細を見る

"全角半角変換" の仕方としては、文字名（HALFWIDTH KATAKANA VOICED SOUND MARK など）から HALFWIDTH を削除して対応する全角カナ一覧を作り、tr/// で変換している。
eval の部分は NFC で合字の処理をするのに必要なのかな？hira2kata では NFC が必要ないから eval する必要もないのだろうか。

（追記：eval の部分について）
tr/// では変数展開が行われないために、$hankaku、$zenkaku を文字列内でそれぞれ変数展開してから eval するようになっている。
参考：perlop – Perl の演算子と優先順位
　　　tr///で変数展開するにはevalする必要があるわけですが、 – 浅倉卓司＠blog風味？ – ひとりでもグループ

 1 #!/usr/bin/perl
 2 use 5.008001;
 3 use strict;
 4 use warnings;
 5 use utf8;
 6 use charnames ':full';
 7 use Unicode::Normalize;
 8 
 9 {
10     my $hankaku = "\x{FF9E}\x{FF9F}";
11     my $zenkaku = "\x{3099}\x{309A}";
12 
13     for my $o (0xFF61 .. 0xFF9D){
14         $hankaku .= chr $o;
15         my $n = charnames::viacode($o);
16         $n =~ s/HALFWIDTH\s+//;
17         $zenkaku .= chr charnames::vianame($n);
18     }
19 
20     *tr_h2z = eval "sub { local \$_ = shift; tr/$hankaku/$zenkaku/; \$_ }";
21     *tr_z2h = eval "sub { local \$_ = shift; tr/$zenkaku/$hankaku/; \$_ }";
22 
23     sub han2zen { NFC(tr_h2z(shift)) }
24     sub zen2han { NFC(tr_z2h(NFD(shift))) }
25 
26     sub hira2kata {
27         local $_ = shift;
28         tr/\x{3041}-\x{3096}/\x{30A1}-\x{30F6}/;
29         $_;
30     }
31 }
32 binmode STDOUT, ":utf8";
33 local $\ = "\n";
34 print zen2han(hira2kata("「ぽげむたぴぎゃみにょーん」って最初に言ったのは?"));
35 print han2zen("ｳｿﾀﾞﾄﾞﾝﾄﾞｺﾄﾞｰﾝ");

2行目(use 5.008001;)

Perl のバージョン番号を指定して、指定バージョンより新しいものであることをチェックする。
参考：perlfunc – Perl 組み込み関数

5行目(use utf8;)

Perl にスクリプトが UTF-8 で書かれている事を教える。
参考：utf8 – ソースコード内に、UTF-8(か、UTF-EBCDIC)を有効/無効にするためのプラグマ

6行目(use charnames ':full';)

ダブルクォートされた文字列内で、名前でキャラクタを呼び出す（\x{FF9E} といった部分）。
参考：Perl 5.8.x Unicode関連

7行目(use Unicode::Normalize;)

Unicode 正規化 を使って合字（ここでは濁点・半濁点）を処理する。
参考：Unicode::Normalize で遊ぶ – daily dayflower

10行目(my $hankaku = "\x{FF9E}\x{FF9F}";)

\x{FF9E} は半角の濁点(HALFWIDTH KATAKANA VOICED SOUND MARK) 、\x{FF9F} は半角の半濁点(HALFWIDTH KATAKANA SEMI-VOICED SOUND MARK)

11行目(my $zenkaku = "\x{3099}\x{309A}";)

\x{3099} は全角の濁点(COMBINING KATAKANA-HIRAGANA VOICED SOUND MARK)、\x{309A} は全角の半濁点(COMBINING KATAKANA-HIRAGANA SEMI-VOICED SOUND MARK)

13行目(for my $o (0xFF61 .. 0xFF9D){)

0xFF61 は半角の句点 "｡"、0xFF9D は半角カタカナの "ﾝ"
"｡" から "ﾝ" までの文字に対して処理を行う。

14行目($hankaku .= chr $o;)

chr：引数で指定したコードに対応する文字を返す。
半角の濁点・半濁点からなる $hankaku に、半角の "句点" から半角カタカナの "ﾝ" までを追加していく。

15行目(my $n = charnames::viacode($o);)

charnames::viacode(code)：コード番号 code の文字の名前を返す。（例:HALFWIDTH KATAKANA VOICED SOUND MARK）

16行目($n =~ s/HALFWIDTH\s+//;)

$n の HALFWIDTH  を削除する。

17行目($zenkaku .= chr charnames::vianame($n);)

charnames::viacode(name)：文字の名前 name のコード番号を返す。
全角の濁点・半濁点からなる $zenkaku に、返されたコード番号（HALFWIDTH を削除したもの）を chr で文字に変換した結果を追加していく。

20行目(*tr_h2z = eval "sub { local \$_ = shift; tr/$hankaku/$zenkaku/; \$_ }";)

変数名のプレフィクスの * は型グロブ。
参考：Perl講座　２章　［変数］
$_ は入力レコード。tr/FROM/TO/ は、検索文字列 FROM に含まれる各文字を対応する置換文字列 TO にマッチする文字に1文字ずつ変換する。
参考：tr/// [Perl講座 -Smart]

23行目(sub han2zen { NFC(tr_h2z(shift)) })

NFC：2つの文字を合字にする。
参考：Macの合字ファイル名で困ったときにはUnicode::Normalizeで処理すべし – 狐の王国
shift で取り出した引数（変換対象文字列）を tr_h2z 関数に渡す。

24行目(sub zen2han { NFC(tr_z2h(NFD(shift))) })

NFD：合字を2つの文字に分解する。
shift で取り出した引数（変換対象文字列）を NFD 関数に渡して2つの文字に分解するしてから tr_z2h 関数に渡す。

27行目(local $_ = shift;)

shift 関数で @_ の先頭を切り出しサブルーチンの引数を取得する。

28行目(tr/\x{3041}-\x{3096}/\x{30A1}-\x{30F6}/;)

ひらがな から カタカナ へ変換する。
"ぁ-ゖ" を "ァ-ヶ" に変換する。

29行目($_;)

return が無い場合は、最後に評価された値が返される。

32行目(binmode STDOUT, ":utf8";)

use utf8; したので、文字列に UTF-8 フラグが付いているため PerlIO レイヤを使う。
参考：Perl 5.8.x Unicode関連

33行目(local $\ = "\n";)

出力レコードセパレータに \n を指定する。print の出力に自動的に \n が付加される。

ミニマルPerl Unix/LinuxユーザのためのPerl習得法

posted with amazlet at 09.06.05

Tim Maher
オライリージャパン
売り上げランキング: 279701

Amazon.co.jp で詳細を見る

$ sudo -H cpan

この後 CPAN の設定をしていく。

CPAN 起動

$ sudo cpan
cpan>

CPAN モジュールのインストール

cpan> install <モジュール名>

CPAN 終了させる。

cpan> quit

モジュールのインストールされた場所を確認

$ perldoc -ml <モジュール名>

まずは、標準モジュールの Encode.pm を使った場合。
変換を文字コード euc-jp で行うために、変換前と変換後に utf-8 との文字コード変換を行う必要があった。

use Encode;
use Encode::JP::H2Z;

my $str_z = "Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０";
my $str_h = "Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０";

# 全角カナ→半角カナ
Encode::from_to($str_z, "utf-8", "euc-jp");
Encode::JP::H2Z::z2h(\$str_z);
Encode::from_to($str_z, "euc-jp", "utf-8");
print $str_z, "\n"; # => Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０

# 半角カナ→全角カナ
Encode::from_to($str_h, "utf-8", "euc-jp");
Encode::JP::H2Z::h2z(\$str_h);
Encode::from_to($str_h, "euc-jp", "utf-8");
print $str_h, "\n"; # => Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０

次に、Unicode::Japanese モジュールを使った場合。
z2h, h2z 関数ではカタカナ以外も変換されてしまうため、カタカナのみの変換には z2hKana, h2zKana 関数を使う必要があった。
参考：半角←→全角変換，Unicode::Japanese に未公開機能が… – daily dayflower

use Unicode::Japanese;

my $str_z = "Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０";
my $str_h = "Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０";

print Unicode::Japanese->new($str_z)->z2h->get, "\n"; # => Hello World.全角ｶﾀｶﾅﾃﾞｽ｡ 12345 67890
print Unicode::Japanese->new($str_h)->h2z->get, "\n"; # => Ｈｅｌｌｏ　Ｗｏｒｌｄ．全角カタカナデス。　１２３４５　６７８９０
print Unicode::Japanese->new($str_z)->z2hKana->get, "\n"; # => Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０
print Unicode::Japanese->new($str_h)->h2zKana->get, "\n"; # => Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０

最後に、Lingua::JA::Regular::Unicode を使った場合。
use utf8; しないと動作しなかった。

use utf8;
use Lingua::JA::Regular::Unicode;

my $str_z = "Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０";
my $str_h = "Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０";

print encode("utf-8", katakana_z2h($str_z)), "\n"; # => Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345　６７８９０
print encode("utf-8", katakana_h2z($str_h)), "\n"; # => Hello Ｗｏｒｌｄ.全角カタカナデス。 12345　６７８９０

ミニマルPerl Unix/LinuxユーザのためのPerl習得法

posted with amazlet at 09.06.05

Tim Maher
オライリージャパン
売り上げランキング: 279701

Amazon.co.jp で詳細を見る

OME は1メール1テキストファイルで送受信メールを扱えるので差し込みメールファイルを作って送ることもできる。
差し込みメール作成のための OME_MailMerger が見つからなかったので Perl で差し込みメール作成のためのスクリプトを作った。

#!/usr/bin/env perl -nlaF'\t'
use strict;
use warnings;
use Encode;

my $name;
my $mail;
my $type;
my $result = "";

($name, $mail, $type)=@F;

$result .=  "To: $mail\n";
$result .=  "Subject: ココに件名を書く\n\n";
$result .=  "$name さま\n";
$result .=  "貴方の番号は $type です。\n\n";
$result .=  "--\n";
$result .=  "Serendip\n";
$result .=  "http://www.serendip.ws/";

Encode::from_to($result, "utf8", "shiftjis");

open(OUT, ">upload-$..wmail");
print OUT $result;
close(OUT);

このスクリプトで.csvファイルからメールファイルを生成し、生成されたメールファイルを OutBox フォルダに移動して送信する。

-a オプションでフィールド処理を行い、 -F オプションでフィールド処理のカスタムセパレータを指定する。

ミニマルPerl Unix/LinuxユーザのためのPerl習得法

posted with amazlet at 08.07.16

Tim Maher
オライリージャパン
売り上げランキング: 4736

Amazon.co.jp で詳細を見る

"-n"オプションは while (<>) { ... } があるように振舞う。（ファイル名引数があるときはファイルから、無いときは標準入力からデータを取り込む）
ただし、そのまま出力はしない。

perl -wnl -e 'print;' file1 file2 ...

"-p"オプションは-nオプション同様にループがあるように振舞い、さらにループ中に各行の処理毎に出力をする。

perl -wpl -e '' file1 file2 ...

"-w" は警告を有効に、"-l" は行末処理を行う。

ミニマルPerl Unix/LinuxユーザのためのPerl習得法

posted with amazlet at 08.07.16

Tim Maher
オライリージャパン
売り上げランキング: 4736

Amazon.co.jp で詳細を見る