タグ: perl

Python の if __name__ == ‘__main__’: を Perl, Ruby, PHP で行う

以下の Python コードの if 文の本体は、直接スクリプトとして呼び出された場合のみ実行され、ライブラリとして読み込まれた場合は実行されない。 if __name__ == ‘__main__’: # do something 同様のコードを Perl, Ruby, PHP で書く方法を調べてみた。 Perl の場合 if ($0 eq __FILE__) { # do something …続きを読む

Perl で全角空白(スペース)にマッチ

use utf8; をすると \s で全角空白(スペース)にもマッチするということでスクリプトを作っていたら、どうも上手く動作しないので調べてみると。\s で全角空白にマッチするのは UTF8 フラグが付いている文字列に対してらしい。 外部から読み込んだファイルの文字列には use utf8; しても UTF8 フラグが付かないので上手く動かなかったらしい。 そこで、外部から読み込んだ文字列は E…続きを読む

CPAN 使い方メモ

CPAN 初回起動 $ sudo -H cpan この後 CPAN の設定をしていく。 CPAN 起動 $ sudo cpan cpan> CPAN モジュールのインストール cpan> install <モジュール名> CPAN 終了させる。 cpan> quit モジュールのインストールされた場所を確認 $ perldoc -ml <モジュール名>

Perl で半角カナと全角カナの変換をする

Perl を使って半角カタカナと全角カタカナの変換をするスクリプトを、標準モジュールの Encode.pm と Unicode::Japanese と Lingua::JA::Regular::Unicode を使ってそれぞれ変換スクリプトを書いてみる。 まずは、標準モジュールの Encode.pm を使った場合。 変換を文字コード euc-jp で行うために、変換前と変換後に utf-8 との文…続きを読む

Open Mail Environment で差し込みメール送信

Mac OSX で利用できる MUA の OME を使って差し込みメール送信をしてみる。 OME は1メール1テキストファイルで送受信メールを扱えるので差し込みメールファイルを作って送ることもできる。 差し込みメール作成のための OME_MailMerger が見つからなかったので Perl で差し込みメール作成のためのスクリプトを作った。 #!/usr/bin/env perl -nlaF’\t…続きを読む

ミニマルPerl 第1章

ミニマルPerl の第1章で出てきたオプションについてのメモ。 "-n"オプションは while (<>) { … } があるように振舞う。(ファイル名引数があるときはファイルから、無いときは標準入力からデータを取り込む) ただし、そのまま出力はしない。 perl -wnl -e ‘print;’ file1 file2 … "-p"オプ…続きを読む