Il mer, 2002-04-03 alle 15:58, MaX ha scritto:
> > FDG o qualcosa del genere...
>
> ecco!!! lo sapevo che c'era la trappola!!! :)
> ..come funziona?
> non so assolutamente niente di perl.
proprio perche' oggi mi sento buono...
cat A.txt | perl sort.pl
butta in stdout quello che vuoi tu. >file.txt per metterlo in file.txt.
invece sort.pl e` il seguente programmillo:
my $old = <>;
while (<>) {
my @p1 = split(/\s+/, $old);
my @p2 = split(/\s+/, $_);
if ($p1[0] ne $p2[0]) {
print $old;
}
$old = $_;
}
print $old;
si puo` far di meglio, ma col perl sono un poco arrugginito...
--
Federico Di Gregorio
Debian GNU/Linux Developer & Italian Press Contact fog@debian.org
INIT.D Developer fog@initd.org
Quis custodiet ipsos custodes? -- Juvenal, Satires, VI, 347
Attachment:
signature.asc
Description: PGP signature