Block2csv: Difference between revisions
From Federal Burro of Information
Jump to navigationJump to search
(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 )...") |
No edit summary |
||
| Line 18: | Line 18: | ||
[[Category: | [[Category:script]] | ||
Revision as of 14:10, 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";
}
