Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^4: Parse a file into a hash

by kazak (Beadle)
on Apr 06, 2012 at 14:50 UTC ( [id://963829]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Parse a file into a hash
in thread [Resolved] Parse a file into a hash

Thanks for your reply. I don't know how to preserve initial format of the file here, so I'll replace empty cells of.csv with null.

Username; Asset Name

Corinna Mayer;JKDef4574

Janek Huska;NAdf8f48g5

Eric Shtits;JSd5345kPFl

null;A878rfgP56

null;KDLefrtgt

Erik Fisher;UiO8trve

As you can see Eric Shtits owns 3 asset names in according to this .csv file, so two fields that supposed to be keys are empty.And I need to implement a solution that will be able to detect that all three asset names belong to one person. Regards, Kazak

Replies are listed 'Best First'.
Re^5: Parse a file into a hash
by mendeepak (Scribe) on Apr 07, 2012 at 05:55 UTC

    hi check if this code works or not its not tested. 

    my ($key,$val,$keyprev);
open(fh,'< file.txt');
while (<fh>){
    $keyprev=$key;
    ($key,$val)=split /\;/, $_;
    $key=$keyprev if($key eq"");
    print "$key :: $val\n";
}
close fh;

    [download]

[reply]
[d/l]
      Yes it helped. Thanks to everyone.
[reply]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://963829]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others cooling their heels in the Monastery: (3)
As of 2024-04-25 05:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found