Just to keep track:
my $l; # all these three variables should probably better decla
+red within the
my @vals; # while loop. Only %pairs probably need to be declared b
+efore the while
my $json;
while (<>) {
$l = $_;
chomp $l;
@vals = split /;/, $l;
if ($vals[0] =~ /Query/) {
$pairs{$vals[1]}{$vals[2]} = $vals[3]; # %pairs isn't decla
+red anywhere
} elsif {$vals[0] =~ /Answer/) { # syntax error: elsi
+f { should be elsif (
$pairs{$vals[1}{$vals[2]} = $vals[3];
$json = encode_json $pairs{$vals[1]}; # what do you think
+is the content of $pairs{$vals[1]}? Probably not what you want to enc
+ode.
print $json."\n";
delete $pairs{$vals[1]};
}
}
This will still not compile.
Do yourself a favor. Use the following pragmas:
use strict;
use warnings;
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|