Thread Regex matched nicht (24 answers)
Opened by FlorianL at 2008-03-13 15:51

FlorianL
 2008-03-14 10:48
#107027 #107027
User since
2007-05-18
142 Artikel
BenutzerIn
[default_avatar]
Nochmal kurz auf den Punkt gebracht was ich nun tun möchte:

Ich Möchte eine Abfrage auf "http://www-912.ibm.com/eserver/support/fixes/fixce..." starten. Dort werden IBM Fixes angezeigt, jedoch erst nachdem man im OS-Patchlevel filter was ausgewählt hat.

Hier ist das form:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
<form name="tlFilter" action="/eserver/support/fixes/fixcentral/pfixpacks/53" method="POST" >
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
<label for="tl">
<strong>Select a Technology Level</strong>
</label>
</td>
</tr>
<tr>
<td>
<select class="iform" name="tl" id="tl">
<option value="">Select one</option>
<option value="all" selected="selected">All 5.3</option>
<option value="5300-07-00-0747">TL&nbsp;5300-07-00-0747</option>
<option value="5300-06">TL&nbsp;5300-06</option>
<option value="5300-05">TL&nbsp;5300-05</option>
<option value="5300-04">TL&nbsp;5300-04</option>
<option value="5300-03">ML&nbsp;5300-03</option>
<option value="5300-02">ML&nbsp;5300-02</option>
<option value="5300-01">ML&nbsp;5300-01</option>
</select>


Ich möchte dabei alles auswählen, Formname ist also 'tlFilter', Wert des feldes ist 'all' und der request ist POST...

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

sub checkfixpack() {
        my $request = POST 'http://www-912.ibm.com/eserver/support/fixes/fixcentral/pfixpacks/53', [ 'tlFilter' => 'all' ];
        my $response = $browser->request($request);
        if ($response -> is_success()) {
                my @site = $response->content;
                foreach (@site) {
                        my $line = $_;
                        if ($line =~ m/pseriesfixpackinformation\/(.+)\"/g) {
                                print("Fixpack: $1\n");
                        }
                }
        } else {
                print  "ERROR ".$response->message . "\n";
        }
}


Ich erhalte beim ausführen nur die Meldung: 'ERROR Found'

Ein print @site zeigt mir auch das das Formular nicht richtig übergeben wurde, ich lande auf der 'normalen' seite...

View full thread Regex matched nicht