Update: Added more tests. Thank you, wee.

Indeed, tr is fast. I compared the 3 regex statements to tr against a 724 MB string. Testing was done on a 2.6 GHz Core i7 machine with Perl v5.16.2.

use strict;
use warnings;
use Time::HiRes 'time';

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.\n";

$doc .= $doc for 1 .. 22;      ## expand string to 724 MB

print "length   : ", length($doc), "\n";  # 759169024

my $start = time;

# $doc =~ s/\[\[//g;           ##  8.626 secs.
# $doc =~ s/\]\]//g;
# $doc =~ s/\'//g;

# $doc =~ s/\[//g;             ## 10.493 secs.
# $doc =~ s/\]//g;
# $doc =~ s/\'//g;

# $doc =~ s/\[+//g;            ##  7.050 secs.
# $doc =~ s/\]+//g;
# $doc =~ s/\'+//g;

# $doc =~ s/(?:\[|\]|\')//g;   ## 19.559 secs.
# $doc =~ s/(?:\[|\]|\')+//g;  ## 56.150 secs.  <- did not expect this

# $doc =~ s/[\[\]\']//g;       ##  9.072 secs.
# $doc =~ s/[\[\]\']+//g;      ##  6.915 secs.

  $doc =~ tr/[]'//d;           ##  1.908 secs.

printf "duration : %7.03f secs.\n", time - $start;

print  "length   : ", length($doc), "\n";  # 708837376

[download]

It's unfortunate that Perl doesn't know to optimize the following automatically :(

$doc =~ s/(?:\[|\]|\')//g   -->  $doc =~ s/[\[\]\']//g
$doc =~ s/(?:\[|\]|\')+//g  -->  $doc =~ s/[\[\]\']+//g

[download]

In reply to Re^2: Remove double bracket and singe quotes by marioroy
in thread Remove double bracket and singe quotes by lobs

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.