Split a string to remove quotes and parentheses

perl_99_monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Split a string to remove quotes and parentheses by ikegami (Patriarch) on Feb 20, 2006 at 16:56 UTC
`split` is most useful when dealing with a list of items. In this case you only have one (`test123`), so you should look to regexps instead. The following snippets will do: `$string =~ s/^$"(.)"$$/$1/;` [download] `# Faster than first. $string =~ s/^$"//; $string =~ s/"$$//;` [download] `# Same as previous, less redundant. s/^$"//, s/"$$// for $string;` [download] Update*: I didn't know the braces needed to be replaced. I'm fixed my snippets. Two following two snippet cann't be fixed: ~~`# You didn't mention an escape mechanism, so I'm # assuming there's no other quotes in the string. $string =~ s/"//g;`~~ ~~[download]~~ `# I didn't say it was impossible. $string = (split '"', $string)[1];` [download]	[reply] [d/l] [select]
Re: Split a string to remove quotes and parentheses by vladb (Vicar) on Feb 20, 2006 at 16:55 UTC
You can try perl search/replace regexp: `$s = '("test123")'; $s =~ s/($"\|"$)//g; print "$s\n";` [download] Will print: test123 _____________________ "We've all heard that a million monkeys banging on a million typewriters will eventually reproduce the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true." Robert Wilensky, University of California	[reply] [d/l]
Re^2: Split a string to remove quotes and parentheses by perl_99_monk (Novice) on Feb 20, 2006 at 17:11 UTC
Thank you so much... It worked	[reply]
Re: Split a string to remove quotes and parentheses by CountOrlok (Friar) on Feb 20, 2006 at 16:56 UTC
Is '("test123")' all that is to be split on the line? Use a regex instead of split. There are a hundred ways to write it, but here is one: `if ($string =~ /$\"(.*+)\"$/) { $matched = $1; }` [download] -imran	[reply] [d/l]
Re: Split a string to remove quotes and parentheses by blue_cowdawg (Monsignor) on Feb 20, 2006 at 17:02 UTC
I want to remove the braces and quotes and just need test123. <Maine Downeaster Accent> Don' think ya can get theah from heah! </Maine Downeaster Accent> Split is on the answer you are after for that application. Try this: `$string='"(test123)"'; $string =~ s/[\"]//g; printf "%s\n",$string;` [download] You'll be glad you did. Peter L. Berghold -- Unix Professional Peter -at- Berghold -dot- Net; AOL IM redcowdawg Yahoo IM: blue_cowdawg	[reply] [d/l]
Re: Split a string to remove quotes and parentheses by explorer (Chaplain) on Feb 20, 2006 at 17:08 UTC
Radical look: `$s = '("test123")'; $s =~ s/\W//g; print "$s\n"` [download]	[reply] [d/l]
Re: Split a string to remove quotes and parentheses by graff (Chancellor) on Feb 21, 2006 at 06:11 UTC
You say you are trying to "split" the string, but it looks like you just want to remove unwanted characters. Everyone has pointed out variations on `s/[()"]+//g` which certainly works. Another way is the "tr" operator, which simply does character transliterations. In this case, you can "transliterate" the unwanted characters to nothing -- i.e. delete them: `my $string = '"(test123)"'; $string =~ tr/()"//d;` [download] This is a simpler operation than regex substitution, so if your code needs to do this a lot, you could see a performance difference.	[reply] [d/l] [select]
Re^2: Split a string to remove quotes and parentheses by Anonymous Monk on May 31, 2016 at 13:34 UTC
I have a similar problem to the one presented here. I have a string with dates and alternative representation of those dates in parentheses. E.g., .....5 June 2010 (June 10, 2005).... The tr solution given here is much simpler for my purposes. Thanks! Less is more!	[reply]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks