Perl言語に詳しい人に質問!
■ このスレッドは過去ログ倉庫に格納されています
0028鯣@暇暇團No.52 ◆F52DmOxJlc
NGNG遅レスすまそ。仕事で二泊の当直でしたw
----perlmanjより引用----
>pos SCALAR
>対象の変数に対して、前回の m//g が終了した場所のオフ
>セットを返します。 そのオフセットを変えるために、変
>更することができます。
----perlmanjより引用----
つまり $s = "abacadaeaf" について $s =~ m/a/g を行ったとき
"a" は 1byte 目にあるので pos($s) は 1 を返します。
ここで pos($s) ++ として $s =~ m/a/g すると pos($s) は 3 を返します。
サンプルプログラムと実行結果を示します。
$s = "abacadaeaf";
$s =~ m/a/g;
printf("%d\n", pos($s));
pos($s) ++;
$s =~ m/a/g;
printf("%d\n", pos($s));
__END__
1
3
ああ、マジレスしてしまったよ。
■ このスレッドは過去ログ倉庫に格納されています