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