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 [EMAIL PROTECTED]
INIT.D Developer [EMAIL PROTECTED]
Quis custodiet ipsos custodes? -- Juvenal, Satires, VI, 347
signature.asc
Description: PGP signature
