Re: Remove double bracket and singe quotes

This works for me:

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my $doc = "'C-3PO' or 'See-Threepio' is a humanoid robot character fro
+m the [[Star Wars]] universe who appears in the original ''Star Wars'
+' films, the prequel trilogy and the sequel trilogy.";

$doc =~ s/[\[\]']+//g;

say $doc;
[download]

Did you mean that you want to only remove one single quote and not two of them?

Comment on Re: Remove double bracket and singe quotes Download Code

Replies are listed 'Best First'.
Re^2: Remove double bracket and singe quotes by smknjoe (Beadle) on May 04, 2016 at 18:38 UTC
I like how the OP hasn't come back to clarify his problem and qualify what "Doesn't work at all" really means. But, I think the answer to your question is "yes"; only a single quote and not double quotes. Which then begs the question (from me) HOW DO YOU do this? As soon as you put a single quote followed by the "g" option on the search-and-replace, it removes all of them.	[reply]
Re^3: Remove double bracket and singe quotes by Anonymous Monk on May 04, 2016 at 23:18 UTC
`$doc =~ s/(?<!\')\'(?!\')//g;` The above seems to work for OP's example. Only matches single "'" by using negative look-behind and negative look-ahead assertions to avoid matches of more than one consecutive single quote.	[reply] [d/l]
Re^4: Remove double bracket and singe quotes by smknjoe (Beadle) on May 04, 2016 at 23:47 UTC
Excellent! I've never had a need to use look-ahead/look-behind in any of my scripts, so this is new territory for me.	[reply]


"be consistent"
	PerlMonks