summaryrefslogtreecommitdiff
path: root/bin/efa
diff options
context:
space:
mode:
Diffstat (limited to 'bin/efa')
-rwxr-xr-xbin/efa13
1 files changed, 8 insertions, 5 deletions
diff --git a/bin/efa b/bin/efa
index 3a4af9f..4f65e98 100755
--- a/bin/efa
+++ b/bin/efa
@@ -23,6 +23,7 @@ my ($time, $time_depart, $time_arrive);
my $date;
my $restrict;
my $debug = 0;
+my ($i, $j, $con, $part);
$post{type_origin} = 'stop';
$post{type_destination} = 'stop';
@@ -175,15 +176,17 @@ if ($debug) {
$cons = parse_content($raw);
-foreach (@$cons) {
- foreach (@$_) {
+for ($i = 0; $con = $cons->[$i]; $i++) {
+ for ($j = 0; $part = $con->[$j]; $j++) {
printf(
"%-5s %-2s %-30s %-20s %s\n%-5s %-2s %-30s\n\n",
- $_->{deptime}, $_->{dep}, $_->{depstop}, $_->{deptrain},
- $_->{depdest}, $_->{arrtime}, $_->{arr}, $_->{arrstop}
+ $part->{deptime}, $part->{dep}, $part->{depstop}, $part->{deptrain},
+ $part->{depdest}, $part->{arrtime}, $part->{arr}, $part->{arrstop}
);
}
- print "------\n\n";
+ if (defined($cons->[$i+1])) {
+ print "------\n\n";
+ }
}
__END__