Help for this page

Select Code to Download


  1. or download this
        my $goodnames = qr/@{[join '|', map "\Q$_", sort @names]}/;
  2. or download this
        my $goodnames = qr/@{[join'|',map"\Q$_",sort@names]}/;

;-)
  3. or download this
        use Interpolation 
        OR => sub { join '|', map "\Q$_", sort @{$_[0]} };
...
    # and later...

    my $goodnames = qr/$OR{\@names}/;
  4. or download this
        # Perl 6 code
    my $goodnames = /@names/;