Block2csv
From Federal Burro of Information
#!/usr/bin/perl -w use strict; use Data::Dumper; $/ = "\n\n"; # Datastore while (<>){ # print; my $r; my @arr = split "\n"; print join ( "," , @arr ) . "\n"; }
#!/usr/bin/perl -w use strict; use Data::Dumper; $/ = "\n\n"; # Datastore while (<>){ # print; my $r; my @arr = split "\n"; print join ( "," , @arr ) . "\n"; }