1001コメント303KB

Perlについての質問箱 54目

■ このスレッドは過去ログ倉庫に格納されています

0832デフォルトの名無しさん

2012/08/26(日) 13:54:03.78

my $count = $str =~ tr/^//;

my $count = $str =~ s/(\Q^\E)/$1/g;

■ このスレッドは過去ログ倉庫に格納されています