Help for this page

Select Code to Download


  1. or download this
    >perl -wMstrict -le
"my $c   = 'A';
...
 printf qq{'$1' } while $s =~ m{ ([[:lower:]] (?:$c){$min,} [[:lower:]
+]) }xmsg;
"
'wAAAx' 'xAAAAy'
  2. or download this
    >perl -wMstrict -le
"my $c   = 'A';
...
"
Use of uninitialized value $1 in concatenation (.) or string at -e lin
+e 1.
''
  3. or download this
    >perl -wMstrict -le
"use constant MIN => 3;
...
   while $s =~ m{ ([[:lower:]] (?:$c){${ \MIN },} [[:lower:]]) }xmsg;
"
'wAAAx' 'xAAAAy'