繋がらないけどどうしたのかな。pingうっても返ってこないし。もしかして鯖落ちしてる？

今日もPerlでプログラミング。正規表現で文字列の置き換えをしてました。 sub foo { my $r = shift; $r =~ s/^\^(.+)/^(?:\\[.+?\\]\\s*?)*?$1/; return qr/$r/; } 上みたいなコードを書いてたんだけど、よく考えたらこれ正規表現を持ち出すまでもないんだよ…