Loading bin/efa +4 −8 Original line number Diff line number Diff line Loading @@ -91,17 +91,13 @@ $www->submit_form( $content = $www->content; # ambiguous input if ($content =~ /<span class="errorTextBold">Bitte auswählen<\/span>/s) { print STDERR "Ambiguous input for "; if ($content =~ /<select name="(?<what>(place|type|name)_(origin|destination))"/) { print STDERR "$+{what}\n"; } else { print STDERR "unknown\n"; } while ($content =~ /<option value="\d+:\d+"( selected)?>(?<choice>[^<]+)<\/option>/gs) { foreach (split(/<span class="errorTextBold">Bitte auswählen<\/span>/s, $content)) { if (/<select name="(?<what>(place|type|name)_(origin|destination))"/) { print STDERR "Ambiguous input for $+{what}\n"; } while (/<option value="\d+(:\d+)*"( selected)?>(?<choice>[^<]+)<\/option>/gs) { print STDERR "\t$+{choice}\n"; } exit(1); } foreach (split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $content)) { Loading Loading
bin/efa +4 −8 Original line number Diff line number Diff line Loading @@ -91,17 +91,13 @@ $www->submit_form( $content = $www->content; # ambiguous input if ($content =~ /<span class="errorTextBold">Bitte auswählen<\/span>/s) { print STDERR "Ambiguous input for "; if ($content =~ /<select name="(?<what>(place|type|name)_(origin|destination))"/) { print STDERR "$+{what}\n"; } else { print STDERR "unknown\n"; } while ($content =~ /<option value="\d+:\d+"( selected)?>(?<choice>[^<]+)<\/option>/gs) { foreach (split(/<span class="errorTextBold">Bitte auswählen<\/span>/s, $content)) { if (/<select name="(?<what>(place|type|name)_(origin|destination))"/) { print STDERR "Ambiguous input for $+{what}\n"; } while (/<option value="\d+(:\d+)*"( selected)?>(?<choice>[^<]+)<\/option>/gs) { print STDERR "\t$+{choice}\n"; } exit(1); } foreach (split(/<span class="labelTextBold"> \d+\. Fahrt<\/span>/, $content)) { Loading