Block2csv

From Federal Burro of Information
Revision as of 19:10, 17 September 2013 by David (talk | contribs) (Created page with "<pre> #!/usr/bin/perl -w use strict; use Data::Dumper; $/ = "\n\n"; # Datastore while (<>){ # print; my $r; my @arr = split "\n"; print join ( "," , @arr )...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search
#!/usr/bin/perl -w

use strict;
use Data::Dumper;

$/ = "\n\n";

# Datastore
while (<>){
    # print;
    my $r;
    my @arr =  split "\n";
    print join ( "," , @arr ) . "\n";
}