しばしば忘れるperl。でも、ちょっとしたテキストファイル処理にはとても便利。

文字列を読み込んで分離したりして、加工した後元に戻すサブルーチンのメモ

$kekka = &henkan($mojiretsu);#メインルーチンでの呼び出し方

sub henkan{
my($str) = $@_;#入力文字列を読み込む。
if($str=~/([a-zA-Z]+)([0-9]+)/){#文字列を括弧ごとに分解する
$tmp1=$1;#分解括弧の1個目
$tmp2=$2;#分解括弧の2個目
$tmp=sprintf("$1 is the $2");#分解括弧を使って新しい文字列を作成
}
$_[0]=$tmp;#作成した文字列を入力文字列に放り込む。
return $tmp;#リターンとして出力する場合。
}

初めてのPerl 第6版