Temas

Hola, antes hice otro post, preguntando como hacerlo de buscar una subcadena repetida mas larga en otra ,
hice esto :


#!c:/perl/bin/perl.exe
open(CADENA,"C:/cadena.txt") || die "No se encuentra el archivo";
$linea=<CADENA>;
print $linea;
close(CADENA);
$subcadena="";
$aux="";
$e=-1;
@array=split("",$linea);
foreach $letra(@array){

  $e++;
  $i=$e;
  for($e;$e<@array.length;$e++){
      $subcadena .= "$array[$e]";
      if($linea =~ /($subcadena){2,}/)
         {
           $res=1;
         }
         else{

          $res=0;
          }
        if($res==1 && length($subcadena) > length($aux)){

          $aux=$subcadena;
           }
          }
          $e=$i;
          $subcadena="";
}
print "\n$aux";



el problema es que no me esta filtrando bien el if de si se repite o no, si alguien me da una mano en donde puede estar el erro se lo agradeceria mucho.
Desde ya muchas gracias, Elesar

Hola soy nuevo y estoy empezando con PERL , tengo un problema en la resolucion de un ejercicio , nose como identificar una cadena , nose si habra una funcion para eso , o como hacerlo, pero el enunciado es este:
Leer de un archivo ya existente una cadena muy larga de caracteres,
encontrar la subcadena repetida más larga, la cadena es una secuencia de caracteres sin enter y sin espacios.
si alguien me puede orientar en como manejar la cadena se lo agradezco, muchas gracias