Shell Programming and Scripting

maybe:

Code:

sub get 
{
return $_[0]->exists($_[1]) ?
       $_[0]->get($_[1])->[$_[2] ?
       $_[2] =~ tr/"//d : 0] : '';
}

remove this line:

tr/"//d for @fields;

Thanks for reply.

However, it is not working. Can't you put the same thing on this variable "$_[0]"?

I believe this is value which gets printed.

Sorry raj001,

I have never used that module and I have no idea what the underlying data structure is so I can't really figure it out.

Kevin-

I really thank you for all your efforts.

Might be any other Perl experts can help me out on this forum.

Raj,

Kevin's scriptlet should work just fine. Printing the headers is an entirely different matter. You only want the data to be processed. Again, what happens when you do this?

Code:

@dn = map {s/[a-z]+=//gi; tr/"//d; $_ = ucfirst} # organization

Let me explain this further, the output of my file looks as following :

"Domain","address","department","displayname","sn","roomno","site","location"
"Internal","1234","HCM","John D","JOHN D","rocks" 12","seigo"
"Internal","12345","TDM","Mr Say","Mr Say T","hupt","margo"

There are three ways in which this csv file is written out:

First the header, then the first field value (Internal) which remains same across all the rows,and last all the fields values for each user in a row.

As pointed by you, the following line prints only the first field value:

@dn = map {s/[a-z]+=//gi; tr/"//d; $_ = ucfirst} # organization

this line prints the header:

print '"'.(join '","', "DuPont_ECD_Report",map {$_->[0]} @fields)."\"\n"; # header

and last line which prints out fields values:

print '"'.(join '","', "@dn",map {get $entry, $_->[1], $_->[2]} @fields)."\"\n";

the above line uses a subroutine "get", which I am unable to comprehend as how it process each entry.

sub get
{
return $_[0]->exists($_[1])
? $_[0]->get($_[1])->[$_[2] ? $_[2] : 0]
: '';
}

The issue is to remove the quotes occuring within the field values as mentioned in the first row.

Hope this makes things clear.

Thanks.

Ah, @dn is only the first field? That's weird. Why use an array?? Oh well. So for the second join, just do this:

Code:

print '"'.(join '","', "@dn",grep {tr/"//d,$_} map {get $entry, $_->[1], $_->[2]} @fields)."\"\n";

The grep routine evaluates the expression and returns the last result for each line in the input. Its input is the output of the map expression. The reason you wouldn't use map here is because map returns every result for each line in the input and because tr returns a number.

Don't worry about this get routine so much.