Perlについての質問箱 28箱目
■ このスレッドは過去ログ倉庫に格納されています
0839デフォルトの名無しさん
2006/12/18(月) 08:19:06perl -le 'print + ( split /aaa/, "000aaa111aaa222")[0] '
perl -le 'print + ( "000aaa111aaa222" =~ /(＼d{3})/ )'
perl -le 'print + ( unpack "A3", "000aaa111aaa222" ) '
perl -le 'print + ( substr "000aaa111aaa222" , 0, 3 )'
■ このスレッドは過去ログ倉庫に格納されています