Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Efficient regex search on array table

by kcott (Archbishop)
on Dec 16, 2022 at 09:10 UTC ( [id://11148917] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $ perl -e 'my $x = " X "; $x =~ s/^\s+|\s+$//; print "|$x|";'
    |X |
    
    $ perl -e 'my $x = " X "; $x =~ s/^\s+|\s+$//g; print "|$x|";'
    |X|
    
  2. or download this
    #!/usr/bin/env perl
    
    ...
            ],
        };
    }
    
  3. or download this
    User Test Index 0:
    {
    ...
    Results:
    { "Lang A" => [2, 3], "Lang Q" => [2, 3], "ref_lang" => [2, 3] }
    ------------------------------------------------------------