On Tuesday 31 October 2006 10:55, David Fletcher wrote:
> At 10:25 31/10/2006, you wrote:
> >Dear All
> >
> >I have a text file with more than 300000 of lines like the following:
> >
> >1 E E E
> >2 C D
> >3 B E D
> >4 C E D
> >5 D E
> >
> >I am looking for an automatic way of transforming my text file into
> >another one with the format
> >
Not tidy, but works.
#!/usr/bin/perl -w
open(FIN,'testfile') || die "cannot open: $!";
while (<FIN>) {
chomp;
my ($key,@values)=split(/ */);
foreach (@values) {
print "$key $_\n";
}
}
close(FIN);
--
Gary Stainburn
This email does not contain private or confidential material as it
may be snooped on by interested government parties for unknown
and undisclosed purposes - Regulation of Investigatory Powers Act, 2000
