以下の Python コードの if 文の本体は、直接スクリプトとして呼び出された場合のみ実行され、ライブラリとして読み込まれた場合は実行されない。 if __name__ == ‘__main__’: # do something 同様のコードを Perl, Ruby, PHP で書く方法を調べてみた。 Perl の場合 if ($0 eq __FILE__) { # do something …続きを読む
use utf8; をすると \s で全角空白（スペース）にもマッチするということでスクリプトを作っていたら、どうも上手く動作しないので調べてみると。\s で全角空白にマッチするのは UTF8 フラグが付いている文字列に対してらしい。 外部から読み込んだファイルの文字列には use utf8; しても UTF8 フラグが付かないので上手く動かなかったらしい。 そこで、外部から読み込んだ文字列は E…続きを読む
"Perl で半角カナと全角カナの変換をする" の記事を書いたら、"404 Blog Not Found:perl – で全角半角変換をモダンに行う" という CORE Module のみを使う方法というのが返ってきたのだけれど、Perl 特有の"呪文"というか"記号のお化け"のようなコードで何をしているの…続きを読む
CPAN 初回起動 $ sudo -H cpan この後 CPAN の設定をしていく。 CPAN 起動 $ sudo cpan cpan> CPAN モジュールのインストール cpan> install <モジュール名> CPAN 終了させる。 cpan> quit モジュールのインストールされた場所を確認 $ perldoc -ml <モジュール名>
Perl を使って半角カタカナと全角カタカナの変換をするスクリプトを、標準モジュールの Encode.pm と Unicode::Japanese と Lingua::JA::Regular::Unicode を使ってそれぞれ変換スクリプトを書いてみる。 まずは、標準モジュールの Encode.pm を使った場合。 変換を文字コード euc-jp で行うために、変換前と変換後に utf-8 との文…続きを読む
Mac OSX で利用できる MUA の OME を使って差し込みメール送信をしてみる。 OME は1メール1テキストファイルで送受信メールを扱えるので差し込みメールファイルを作って送ることもできる。 差し込みメール作成のための OME_MailMerger が見つからなかったので Perl で差し込みメール作成のためのスクリプトを作った。 #!/usr/bin/env perl -nlaF’\t…続きを読む
ミニマルPerl の第1章で出てきたオプションについてのメモ。 "-n"オプションは while (<>) { … } があるように振舞う。（ファイル名引数があるときはファイルから、無いときは標準入力からデータを取り込む） ただし、そのまま出力はしない。 perl -wnl -e ‘print;’ file1 file2 … "-p"オプ…続きを読む