[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]

Re: OT: a problem about text manipulation



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     


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]