how should i fix this??

[jend]

my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);

my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
: $_ } @thoseLabels)."'";

print $this_array;

>> '1','1','1','mike','blah','bloh'

However I want it to come out like this:

>> 'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'

is it possible to rewrite this one liner to do this?
any tips would be greatly appreciated!!

~D

[Gunnar Hjalmarsson]

jend wrote:

> my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
>
> my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
> : $_ } @thoseLabels)."'";
>
> print $this_array;
>

>>>'1','1','1','mike','blah','bloh'

>
> However I want it to come out like this:
>

>>>'Tom\'s','John\'s','Jim\'s','mike','blah','bloh '

>
>
> is it possible to rewrite this one liner to do this?

my $this_array =
"'".join("','", map { s/'/\\'/g; $_ } @thoseLabels)."'";

--
Gunnar Hjalmarsson
Email: [url]http://www.gunnar.cc/cgi-bin/contact.pl[/url]

[Bob Walton]

jend wrote:

> my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
>
> my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
> : $_ } @thoseLabels)."'";
>
> print $this_array;
>
>

>>>'1','1','1','mike','blah','bloh'
>>>

>
> However I want it to come out like this:
>
>

>>>'Tom\'s','John\'s','Jim\'s','mike','blah','bloh '
>>>

>
>
> is it possible to rewrite this one liner to do this?

....

> ~D

Try:


my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
my $this_array="'".join("','",map{$_=~/'/?$_=~ s/'/\\'/g
:$_;$_}@thoseLabels)."'";
print $this_array;

Read carefully about what values map() and s///g return. Also, ' is not
a regexp metacharacter, so it is not necessary to quote it in a regexp.
--
Bob Walton

[John W. Krahn]

jend wrote:

>
> my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
>
> my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
> : $_ } @thoseLabels)."'";
>
> print $this_array;
>

> >> '1','1','1','mike','blah','bloh'

>
> However I want it to come out like this:
>

> >> 'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'

>
> is it possible to rewrite this one liner to do this?
> any tips would be greatly appreciated!!

If you want to escape all non-word characters then this will work:

my $this_array = join ',', map "'\Q$_\E'", @thoseLabels;


If you only want to escape the apostrophes then this will work:

my $this_array = join ',', map { s/'/\\'/g; "'$_'" } @thoseLabels;



John
--
use Perl;
program
fulfillment

[John J. Trammell]

On 9 Sep 2003 18:27:45 -0700, jend <dejen321@yahoo.com> wrote:

> my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
>
> my $this_array = "'".join("','", map { $_ =~ /\'/ ? $_ =~ s/\'/\\'/g
>: $_ } @thoseLabels)."'";
>
> print $this_array;
>

>>> '1','1','1','mike','blah','bloh'

>
> However I want it to come out like this:
>

>>> 'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'

>
>
> is it possible to rewrite this one liner to do this?
> any tips would be greatly appreciated!!
>

[untested]

my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);
my $this_array = join ",", map "'$_'", map { s/'/\\'/; $_ } @thoselabels;

[Earle Martin]

[email]dejen321@yahoo.com[/email] (jend) wrote in message news:<cc028093.0309091727.7f2ddd71@posting.google. com>...

> I want it to come out like this:
>

> >> 'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'

You need two functions: join and s//.

my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);

my $thing = join(" ", @thoseLabels);

$thing =~ s/'/\\'/g;

print "$thing\n";

I would note that what you call $this_array is not an array, it is a string.

[Earle Martin]

[email]dejen321@yahoo.com[/email] (jend) wrote in message news:<cc028093.0309091727.7f2ddd71@posting.google. com>...

> However I want it to come out like this:
>

> >> 'Tom\'s','John\'s','Jim\'s','mike','blah','bloh'

Of course I misread this the first time. Try again.

my @thoseLabels = qw(Tom's John's Jim's mike blah bloh);

foreach my $foo (@thoseLabels) {
$foo =~ s/'/\\'/;
$foo = "'$foo'";
}

my $thing = join(',', @thoseLabels);

print "$thing\n";