OT: a problem about text manipulation

Gary Stainburn gary.stainburn at ringways.co.uk
Tue Oct 31 11:18:42 UTC 2006


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, at 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     




More information about the fedora-list mailing list