Block2csv: Difference between revisions

From Federal Burro of Information
Jump to navigationJump to search
No edit summary
No edit summary
Line 18: Line 18:




[[Category:script]]
[[Category:Script]]

Revision as of 14:17, 10 July 2020

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

$/ = "\n\n";

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