# $str の先頭の空白文字(全角スペース含)を削除する

$str =~ s/^(?:\s|$Zspace)+//o; # $str が EUC-JP の場合

$str =~ s/^(?:\s|$Zspace_sjis)+//o; # $str が SJIS の場合

# $str の末尾の空白文字(全角スペース含)を削除する

$str =~ s/^($character*?)(?:\s|$Zspace)+$/$1/o; # $str が EUC-JP の場合

$str =~ s/$eucpre(?:\s|$Zspace)+$//o; # $str が EUC-JP の場合(perl5.005以降)

# 半角スペース

$space = '\x20';

# 全角スペース

$Zspace = '(?:\xA1\xA1)'; # EUC-JP

$Zspace_sjis = '(?:\x81\x40)'; # SJIS

[1回]

perl 数字を3桁のカンマ区切り（正規表現）

数値を金額表示用に3桁ごとにカンマで区切りたいときに。
[perl]Perlで数字を3桁ごとにカンマ区切り

sub commify {

my $text = reverse $_[0];

$text =~ s/(\d\d\d)(?=\d)(?!\d\.)/$1,/g;

return scalar reverse $text;

}

[0回]

perl の die

die関数はエラーが発生した値を標準出力に出力し実行しているperlスクリプトを終了させる。
1番目の引数にはエラーとして出力するリストを指定する。
エラー出力後に$!の内容をステータスコードとしてexit関数を呼び出して終了する。

die("err mssage")

引数が上のように改行で終わらない場合、行番号も出力される。

引数の中に$!を入れておくとシステムに対する要求のエラーのときはメッセージも一緒に出る。

open(INFILE, $infile) or die "Error Can't open $infile $!";
$ test.pl
Can't open infile.txt No such file or directory

[0回]

ブログ内検索