Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: f4ce6f2eff
Fetching contributors…

Cannot retrieve contributors at this time

executable file 35 lines (31 sloc) 0.514 kB
#!/usr/bin/perl
use strict;
my $first = 1;
my $prev_comment = 0;
while (<STDIN>) {
if ($_ !~ /^\#/) {
if (!$first && !$prev_comment) {
print ",\n";
} else {
$first = 0;
$prev_comment = 0;
}
chomp;
my @times = split /\ +/;
print " [ ";
my $first = 1;
foreach (@times) {
if (!$first) {
print ", ";
} else {
$first = 0;
}
print $_;
}
print "]";
} else {
# yes, this conditional is loaded with assumptions...
print ",\n" . $_;
$prev_comment = 1;
}
}
Jump to Line
Something went wrong with that request. Please try again.