CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Need a Custom or Prewritten Perl Program?: I need a program that...: Re: [syedarshi] csv parsing: Edit Log



shest75
Novice

Oct 27, 2009, 11:27 AM


Views: 2583
Re: [syedarshi] csv parsing

Bonjour,please try ( change file1.txt by the name of the file )

my %myhash;
my $ligne;
my $cpt;
my $i;

open FILE, "file1.txt" or die $!;
while (<FILE>) {
chomp($_);
@ligne=split(/,/,$_);
$cpt=split(/,/,$_);
$i=2;
while ( $i < $cpt-1 ) {
$myhash{$ligne[0]}->{desc}=$myhash{$ligne[0]}->{desc}.",".$ligne[$i]; $i++;}
$myhash{$ligne[0]}->{mesh}=$myhash{$ligne[0]}->{mesh}.",".$ligne[$cpt-1];
}

foreach my $key ( sort keys %myhash ) {
my $value = $myhash{$key};
$myhash{$key}->{desc} =~ s/,//;
$myhash{$key}->{mesh} =~ s/,//;
print "$key,$myhash{$key}->{desc},$myhash{$key}->{mesh}\n";
}

perl file.pl > result.txt to have the result in a file.


(This post was edited by shest75 on Oct 27, 2009, 11:54 PM)


Edit Log:
Post edited by shest75 (Novice) on Oct 27, 2009, 11:31 AM
Post edited by shest75 (Novice) on Oct 27, 2009, 11:53 PM
Post edited by shest75 (Novice) on Oct 27, 2009, 11:54 PM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives