Re: OT: a problem about text manipulation

[Gary Stainburn]

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);