技術資料

error この記事は最終更新日から1年以上が経過しています。

最近perlを触る機会が減ったせいで忘れがちなのでメモ。

$text1 = 'child/category/320,321';
$text2 = 'child/category';

# 末尾のカンマ区切りの数値部分だけに置換
$text1 =~ s/^\w*\/\w*\///;
$text2 =~ s/^\w*\/\w*\///;

# カンマと数値だけになってるなら出力
if($text1 =~ /^[\d\,]*$/){
    print $text1."\n";
}
if($text2 =~ /^[\d\,]*$/){
    print $text2."\n";
}

上記の実行結果は、 $text1 (320,321)だけが出力される。