Help for this page

Select Code to Download


  1. or download this
    perl -le 'print $x = "abcdefgxxabcdefgzzabcdsjfhkdfab"; print $2 if $x
+ =~ /((\w+).*?\2.*?)+/;'
abcdefgxxabcdefgzzabcdsjfhkdfab
ab
  2. or download this
    perl -le 'print $x = "abcdefgxxabcdefgzzabcdsjfhkdfab"; print $2 if $x
+ =~ /((\w{2,}).*?\2.*?)+/;'
abcdefgxxabcdefgzzabcdsjfhkdfab
abcdefg
  3. or download this
    perl -le 'print $x = "abcdefgxxabcdefgzzabcdsjfhkdfab"; print $2 if $x
+ =~ /((\w{2,}?).*?\2.*?)+/;'
abcdefgxxabcdefgzzabcdsjfhkdfab
cd