got a good one-liner for manipulating this scalar?

[laredotornado]

Hi,

If have a scalar that is a list of values, separated by commas,
examples are

$s = "ab,cd,15"
$s = "ci29s"
$s = "!!!,?????,xxxxx,yy,102"

My question is, how do I take the above list and add apostraphes around
each value in the scalar? The aboev examples would then look like

$s = "'ab','cd','15'"
$s = "'ci29s'"
$s = "'!!!','?????','xxxxx','yy','102'"

Thanks for your help, - Dave

 

[Jürgen Exner]

Hi,

If have a scalar that is a list of values, separated by commas,
examples are

$s = "ab,cd,15"
$s = "ci29s"
$s = "!!!,?????,xxxxx,yy,102"

My question is, how do I take the above list and add apostraphes
around each value in the scalar? The aboev examples would then look
like

$s = "'ab','cd','15'"
$s = "'ci29s'"
$s = "'!!!','?????','xxxxx','yy','102'"

$s =~ s/,/','/g;
$s = "'" . $s . "'";

jue

 

[Josef Moellers]

$s =~ s/,/','/g;
$s = "'" . $s . "'";

TMTOWTDI:

$s = join(',', map { "'$_'" } split(/,/, $s));

 

[Dr.Ruud]

(e-mail address removed) schreef:

$s = "ab,cd,15"
$s = "ci29s"
$s = "!!!,?????,xxxxx,yy,102"

how do I take the above list and add apostraphes
around each value in the scalar? The aboev examples would then look
like

$s = "'ab','cd','15'"
$s = "'ci29s'"
$s = "'!!!','?????','xxxxx','yy','102'"

I changed your requirement to dquotes:

$ echo "xxxxx,yy,102" | perl -ple 's/([^,]+)/"$1"/g'
"xxxxx","yy","102"

A variant with tab as the separator:

$ echo "xxxxx,yy,102" | perl -ple 's/,/\t/g'
xxxxx yy 102


But why do you need a "one-liner"?

 

[Xicheng Jia]

Hi,

If have a scalar that is a list of values, separated by commas,
examples are

$s = "ab,cd,15"
$s = "ci29s"
$s = "!!!,?????,xxxxx,yy,102"

My question is, how do I take the above list and add apostraphes around
each value in the scalar? The aboev examples would then look like

$s = "'ab','cd','15'"
$s = "'ci29s'"
$s = "'!!!','?????','xxxxx','yy','102'"

echo "xxxxx,yy,102" |
perl -ple 's/(?=\A|$)|(?<=,)|(?=,)/\047/g'
or

echo "xxxxx,yy,102" |
perl -F, -anle '$"="\047,\047"; print "\047@F\047"'

Xicheng