mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-23 03:02:47 +01:00
Remove unnecessary blank lines
This commit is contained in:
parent
bc3e687c27
commit
d70fa55174
@ -2,11 +2,9 @@
|
||||
|
||||
use warnings;
|
||||
use strict;
|
||||
|
||||
use JSON;
|
||||
|
||||
my $file = 'cat_questions';
|
||||
|
||||
open my $fh, '<', $file or die "$file: $!";
|
||||
|
||||
my $q = { questions => [] };
|
||||
@ -15,17 +13,12 @@ my $id = 0;
|
||||
foreach my $line (<$fh>) {
|
||||
chomp $line;
|
||||
print STDERR "<$line>\n";
|
||||
|
||||
$id++;
|
||||
|
||||
my ($category, $question, @answers) = split /`/, $line;
|
||||
my $answer = shift @answers;
|
||||
|
||||
my $h = { category => $category, question => $question, answer => $answer, alternativeSpellings => \@answers, suggestions => [], id => $id };
|
||||
|
||||
push @{$q->{questions}}, $h;
|
||||
}
|
||||
|
||||
my $json = encode_json $q;
|
||||
|
||||
print "$json\n";
|
||||
|
Loading…
Reference in New Issue
Block a user