Perlについての質問箱 28箱目
■ このスレッドは過去ログ倉庫に格納されています
0843デフォルトの名無しさん
2006/12/18(月) 12:02:34>>837 訂正だ。
perl -le 'print + ( split /aaa/, "000aaa111aaa222")[-1] '
perl -le 'print + ( "000aaa111aaa222" =~ /.*(＼d{3})$/ )'
perl -le 'print + ( unpack "A3" x 5, "000aaa111aaa222" )[-1] '
perl -le 'print + ( unpack "@*X3A3", "000aaa111aaa222" ) '
perl -le 'print + ( substr "000aaa111aaa222" , -3 )'
■ このスレッドは過去ログ倉庫に格納されています