Problema su script Perl

[Davem]

Ciao a tutti,
devo scrivere uno script in Perl che converta il mio file di partenza che ha questo formato:

ADD01 SCG01 SCG02 SCG03
ADD02 SCG04 SCG05 SCG06

in un altro che abbia questa forma

ADD01 SCG01
ADD01 SCG02
ADD01 SCG03
ADD02 SCG04
ADD02 SCG05
ADD02 SCG06

Qualcuno mi potrebbe dare qualche dritta su come fare??
Vi ringrazio infinitamente,
Davide

[basileus]

Originariamente inviato da Davem
Ciao a tutti,
devo scrivere uno script in Perl che converta il mio file di partenza che ha questo formato:

ADD01 SCG01 SCG02 SCG03
ADD02 SCG04 SCG05 SCG06

in un altro che abbia questa forma

ADD01 SCG01
ADD01 SCG02
ADD01 SCG03
ADD02 SCG04
ADD02 SCG05
ADD02 SCG06

Qualcuno mi potrebbe dare qualche dritta su come fare??
Vi ringrazio infinitamente,
Davide

puoi utilizzare lo split, così dividi tutto in colonne
quindi per ogni riga stampi la prima colonna (ripetuta) e poi le altre

es:



open (DATA,"< $tuo_file") || die "$tuo_file $!";
open (OUT,"> $altro_file") || die "$altro_file $!";

while (<DATA>) {
@x = split(' ');
$lunghezza=scalar(@x);
for ($i=1;i<$lunghezza;$i++) {
print OUT "$x[0] $x[i]\n";
}
}
close(DATA);
close(OUT);
exit(0);

prova così, o mejo io non l'ho provato, quindi casomai cambia qualcosa, più che altro è una dritta

io non sono esperto di Perl, nè di altri linguaggi in particolare

Perl a me piace molto, lo sto imparando, adesso sto cercando di imparare le interfacce grafiche Tk