perl基本



2009 8月28日


Written by admin. No comments

perlで外部プログラムを実行する際の注意点

system関数やパイプを使って外部プログラムを実行する時は
汚染チェックを必ずする。

エスケープするべき文字

& ; ` ' \ " | * ? ~ < > ^ ( ) [ ] { } $ \n \r

以下の置き換えで全てをエスケープすると良い。

s/([\&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\n\r])/\\$1/g;

参考：http://www.stackasterisk.jp/tech/program/perl02_02.jsp


カテゴリー: perl基本 - Trackback Uri






2009 4月8日


Written by admin. No comments

eval{}; 中のreturn(); に注意

例えば

sub xxx{
eval{
my $a=1;
if($a){return(0);}
};
}

if(&xxx){print”abc”;}
else{print”def”;}

などとするとうまくいかない。

sub xxx{
eval{
my $a=1;
if($a){die;}
};
if($@){return(0);}
}

などとしよう。


カテゴリー: perl基本 - Trackback Uri






2009 3月30日


Written by admin. No comments

配列をプリントする時の区切り文字を変える

配列をprintする時の区切り文字を変えるには $” に代入するだけ。

@list= (1,2,3,4);
$” = ‘,’;
print “@list”;

実行結果

1,2,3,4

ただし、

print @list;

“” （だぶるクォート）無しだと反映されない。


カテゴリー: perl基本 - Trackback Uri




古い投稿 »