Mensajes

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, si es exactamente eso, pero nose como hacerlo en perl , si me podrías dar una ayuda con eso, o como hacerlo , te lo agradecería mucho.
Saludos, 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