qq

---

qq/STRING/

　"STRING"と同じです。
　以下$str1と$str2の中身は同じものになります。

my $foo = 12345;
my $str1 = "foo=[$foo]\n";
my $str2 = qq/foo=[$foo]\n/;
print $str1;
print $str2;

　STRINGの中に"が含まれているときに\でエスケープしなくても書けるので読みやすくなります。

my $bar = 12345;
my $str3 = "<input name=\"bar\" value=$bar>\n";
my $str4 = qq/<input name="bar" value=$bar>\n/;
print $str3;
print $str4;

　デリミタに他の文字を利用することができるので、STRINGの中に/がある場合でもいちいち\でエスケープせずに書くことができます。

my $baz = 12345;
my $str5 = qq/http:\/\/www2u.biglobe.ne.jp\/~MAS\/$baz.html/;
my $str6 = qq|http://www2u.biglobe.ne.jp/~MAS/$baz.html|;
my $str7 = qq(http://www2u.biglobe.ne.jp/~MAS/$baz.html);
print $str5, "\n";
print $str6, "\n";
print $str7, "\n";

---

関連項目

・文字列の連結
・qクオート演算子
・qwクオート演算子