Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    
    my ($ikegamiRe1) = map qr/$_/, join '|', map "(?<=$_{3})$_+", map quot
    +emeta,
        1 .. 9;
    
  2. or download this
    Use of uninitialized value in concatenation (.) or string at noname.pl
    + line 4.
    Use of uninitialized value in concatenation (.) or string at noname.pl
    + line 4.
    ...
    Use of uninitialized value in concatenation (.) or string at noname.pl
    + line 4.
    Use of uninitialized value in concatenation (.) or string at noname.pl
    + line 4.
    Use of uninitialized value in concatenation (.) or string at noname.pl
    + line 4.
    
  3. or download this
    use strict;
    #use warnings;
    ...
    print $str, "\n";
    $str = join '|', map "(?<=$_{3})$_+", 1 .. 2;
    print $str;
    
  4. or download this
    (?<=1{3})1+|(?<=2{3})2+
    (?<=)1+|(?<=)2+