Help for this page

Select Code to Download


  1. or download this
    my $s = q(var1='1' var2="2" var3="'3'" var4='"4"');

while ($s =~ m/(\w+)=(["'])(.*?)\2/g) {
    print "(using quote $2): $1 = $3\n";
}
  2. or download this
    (using quote '): var1 = 1
(using quote "): var2 = 2
(using quote "): var3 = '3'
(using quote '): var4 = "4"
  3. or download this
    my $s = q(var1='1" var2="2');