Help for this page

Select Code to Download


  1. or download this
      my @days    = qw( Sun Mon Tue Wed Thu Fri Sat );
  my $days_re = do { my $tmp = join '|', @days; qr/$tmp/; }
  2. or download this
      sub compile_regex ( $ ) { qr/$_[0]/; }

  my $days_re = compile_regex join '|', @days;
  3. or download this
      my $days_re = qr->( join '|', @days );