- or download this
$string = "(x1,x1)(x2,y2)........(xn,yn)"
- or download this
>perl -wMstrict -le
"my $u =
...
print qq{'$s'};
"
'(x1,y7)(x1,y9)(x2,y3)(x2,y5)(x11,y6)(x11,y8)(x22,y2)(x22,y4)'
- or download this
>perl -wMstrict -le
"my $u =
...
print qq{'$s'};
"
'(x1,y7)(x1,y9)(x2,y3)(x2,y5)(x11,y6)(x11,y8)(x22,y2)(x22,y4)'