Re: [RiminiLUG-General] Perl

[Alessandro Carichini <alexsoft@xxxxxxxxx>]

>Scusate se questa mail arriva 2 volte. Ho problemi con outlook.

male, male, outlook non è cosa buona e giusta ;-)


>Ho un foglio di excel con dei dati così impostati:
>
>col.A            col.B
>
>VT100          1.170
>VT149          1.300
>VT117            100
>VT100          1.170
>AA17              860
>accessori
>VT149          1.300
>VT100          1.200
>.......            .......
>.......            .......

l'esempio lo vuoi per forza in perl? perchè in riga di comando
usando l'awk fai prima....

credo di aver capito che da un elenco ordinato per la
prima colonna vuoi togliere i doppi.

se è così (e non ho capito male) allora basta estrarre il file
xls in plain text (assicurandoti che ci siano solo due colonne
ben distinte, non importa che siano indentate perfettamente
basta che siano distinte da un tab) e in riga di comando

cat FoglioXlsInPlainText | awk '{printf("\n%s %s",$1,$2)}' | sort | uniq > fileoutput

awk comunque lo trovi anche per pc insieme a cat e uniq (nella versione
dos bisogna invertire il singolo apice con il doppio e quindi in
riga di comando è awk "{print $1}" ma fa casino se usi printf)

in perl invece

cat FoglioXlsInPlainText | perl -e 'foreach $lista (<STDIN>){print $lista}' | sort | uniq > fileout


Alex



--
Mailing list info: http://lists.linux.it/listinfo/riminilug-general