Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: Simple parse of text file to csv

by Tux (Abbot)
on Dec 19, 2012 at 07:19 UTC ( #1009516=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\n
    +" });
    $csv->print (*STDOUT, \@keys);
    $csv->print (*STDOUT, [ map { "@$_" } @values{@keys} ]);
    
  2. or download this
    Host,Kernel,Version,"Hot fixes","Enabled Features"
    NetDevice1234,"Linux 2.6.18-164.11","Driver 23.4.1 333.0 Hotfix BLD Ed
    +ition","HF372590 HF372804 HF372864","FTP HTTP SMTP Active Directory"
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1009516]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2016-12-06 22:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (118 votes). Check out past polls.