[Perl] Re: [Perl] pequeño script

[Alejandro G. Bedoya]

open (ARCHIVO, "< file.txt");
open (SALIDA, "> fileSal.txt");

 @lista = <ARCHIVO>;

my %Palabras
foreach $pal (@lista){
    $Palabras{$pal}++;
    }

foreach $pal (keys %Palabras){
    print SALIDA "$Pal\n";
    }


Recuerda que lista debe estar separada por enters...


---
Sinceramente...
Alejandro G. Bedoya
www.IntraPortales.com.mx
La puerta de entrada a su empresa



----- Original Message -----
From: "John Robeto" <johnroberto2001@yahoo.es>
To: <perl@tlali.iztacala.unam.mx>
Sent: Monday, July 07, 2003 5:02 AM
Subject: [Perl] pequeño script


> Hola a todos.
> Intento hacer una chorrada de script pero no me sale.
> El script debe leer un archivo (txt) que contiene una
> lista de palabras y copiarlas a otro archivo sin que
> se repita ninguna, x ej.
>
> lista input: coche, casa, perro, perro, pájaro
> output: coche, casa, perro, pájaro
>
> lo he intentado convirtiendo el archivo de entrada en
> un @array y generando indices de array para la primera
> y segunda cadena, además de un contador $i, algo así:
>
> open (ARCHIVO, "< file.txt");
> open (SALIDA, "> fileSal.txt");
>
> @lista = <ARCHIVO>;
>
> $i = 0;             ### contador en cero
> $pal1 = $lista[$0]; ### 1ra palabra de @lista
> $pal2 = $lista[$i]; ### 2da palabra de @lista
>
>
> foreach $pal (@lista){
>     if ($pal1 ne $pal2){ ##sin son iguales $i++
> $i++;}
>     print SALIDA "$pal2 \n";
> }
>
> Gracias a quien pueda decirme en qué fallo.
>
> ___________________________________________________
> Yahoo! Messenger - Nueva versión GRATIS
> Super Webcam, voz, caritas animadas, y más...
> http://messenger.yahoo.es
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
>