Help for this page

Select Code to Download


  1. or download this
    my $string = "ABCDEFGHIJKLMNOPCDEFQRST";
my $find = "CDEF";
...
if( $index > 0 ){
  print "found $find in $string at position $index\n";
}
  2. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)