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

FlorianL
 2008-03-13 17:23
#107010 #107010
User since
2007-05-18
142 Artikel
BenutzerIn
[default_avatar]
Ich weiss, und ich schüttel mit ^^


Hab das Problem nun teilweise gelöst, mir fehlt noch die 2. sub, allerdings muss ich vorher eine selectbox "füllen"

Das probiere ich hiermit (ist quasi aus der cpan-doc rauskopiert)

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', [ tl => '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";
        }
}


xadmp01 # ./updatecheck.pl
Checking for new Versions...
ERROR Found

--

Wie man sieht bringt er einfach nur die Meldung "Found".

Ich weiss gerad nich wirklich was ich falsch gemacht hab, für forms und sonstiges habe ich normalerweise mechanize genutzt... :(


edit: Ich hab den betreffenden html-code vergessen:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
<select class="iform" name="tl" id="tl">
<option value="">Select one</option>
<option value="all">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>

View full thread Regex matched nicht