正規表現をコンパイルする場合のグローバルオプション(全件マッチ)の使用について

Perl

グローバルオプションを示す'g'は、正規表現のコンパイル時には付加できません。例えば、次のような記述はエラーになります。

http://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A1%E3%83%A2%2F%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE%E3%81%AE%E3%82%B3%E3%83%B3%E3%83%91%E3%82%A4%E3%83%AB#i1 
my $re = qr/^https?:.*?\.html?/gi;

グローバルオプションを使うには、次のようにマッチング時に指定します。

http://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83%A1%E3%83%A2%2F%E6%AD%A3%E8%A6%8F%E8%A1%A8%E7%8F%BE%E3%81%AE%E3%82%B3%E3%83%B3%E3%83%91%E3%82%A4%E3%83%AB#i1 
my $re = qr/\w/;
my $url = 'http://digit.que.ne.jp/index.htm';
my @word = ($url =~ /$re/g);
print "words : ", join(', ', @words), "\n";