comment on

Thank you for your reply, yes it helped a bit. File I need to parse is a .csv file with a fileds that must be converted to an ACLs, there are two fields: User name , asset name . One user can have either one or multiple asset names, but user name is unique. So unique user name I'm trying to use as a key and asset names I trying to use as a values of these unique keys. So one user John Doe may have either one asset name: John Doe = { "KJhkh23"} or multiple: John Doe = { "KJhkh23", "0jUfh4631",....."N"}. File was populated manually and irregulary, I mean in "User Name" field we may have one name "John Doe" but in field " Asset name" we may have a column of values. The problem is to define a first field as a key(John Doe) and the second as a value (KJhkh23), and if on the next line we can't detect a key, assume that this asset belongs to last available key (John Doe) . I'm new to perl so this code may look like a total mess for coders.

#!/usr/bin/perl -w
use warnings;
use strict;

my @tmp;

### Start Configuration
my $src_file = "Servers.csv";
### End Configuration

my %stack = ();
my $current_key = undef;
my $current_value = undef;

open( SRC, "<", $src_file  );

while (<SRC>) {
       chomp;
        s/#.*//;
        s/\"//g;
        s/\;/\-/;
        push @tmp, $_ if $_ =~ m/^\;/ and next;
        my ($key,$value) = split /\-/, $_;
        push @tmp, $value;

        if (defined $key) {
           $current_key = $key;
            push @tmp, $value;
           $stack{$current_key} = @tmp;
}

close(SRC);
[download]

In reply to Re^2: Parse a file into a hash by kazak
in thread [Resolved] Parse a file into a hash by kazak

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


laziness, impatience, and hubris
	PerlMonks