Thread PopUp aus WWW::Mechanize Script "beantworten" (42 answers)
Opened by roli at 2010-03-11 15:52

roli
 2010-03-12 13:50
#134579 #134579
User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]
Hi,

reicht vielleicht auch die Ausgabe von:
Code (perl): (dl )
1
2
3
4
5

my @alle_forms=$mech->forms();
print Dumper @alle_forms;
print "\n================================\n";
my @alle_submits=$mech->find_all_submits();
print Dumper @alle_submits;

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

$VAR1 = bless( {                                                                                                                                                                                         
                 'default_charset' => 'UTF-8',                                                                                                                                                           
                 'enctype' => 'application/x-www-form-urlencoded',                                                                                                                                       
                 'accept_charset' => 'UNKNOWN',                                                                                                                                                          
                 'action' => bless( do{\(my $o = 'https://xyz//create')}, 'URI::https' ),                                                                                       
                 'method' => 'POST',                                                                                                                                                                     
                 'attr' => {                                                                                                                                                                             
                             'method' => 'post'                                                                                                                                                          
                           },                                                                                                                                                                            
                 'inputs' => [                                                                                                                                                                           
                               bless( {                                                                                                                                                                  
                                        '/' => '/',                                                                                                                                                      
                                        'value_name' => '',                                                                                                                                              
                                        'src' => '/images/save.jpg',                                                                                                                            
                                        'name' => 'Sichern',                                                                                                                                             
                                        'onclick' => 'return confirm(\'Wollen Sie wirklich speichern?\')',                                                                                               
                                        'type' => 'image'                                                                                                                                                
                                      }, 'HTML::Form::ImageInput' ),                                                                                                                                     
                               bless( {                                                                                                                                                                  
                                        '/' => '/',                                                                                                                                                      
                                        'value_name' => '',                                                                                                                                              
                                        'src' => '/images/close.png',                                                                                                                         
                                        'name' => 'Abbrechen',                                                                                                                                           
                                        'type' => 'image'                                                                                                                                                
                                      }, 'HTML::Form::ImageInput' ),                                                                                                                                     
                               bless( {                                                                                                                                                                  
                                        '/' => '/',                                                                                                                                                      
                                        'value_name' => '',                                                                                                                                              
                                        'value' => 'dummy',                                                                                                                                              
                                        'name' => 'name',                                                                                                                                                
                                        'type' => 'text'                                                                                                                                                 
                                      }, 'HTML::Form::TextInput' ),                                                                                                                                      
                               bless( {                                                                                                                                                                  
                                        '/' => '/',                                                                                                                                                      
                                        'value_name' => '',                                                                                                                                              
                                        'value' => 'dummy-User mechanisch',                                                                                                                              
                                        'name' => 'Kommentar-Bemerkung',                                                                                                                                             
                                        'type' => 'text'                                                                                                                                                 
                                      }, 'HTML::Form::TextInput' ),                                                                                                                                      
                               bless( {                                                                                                                                                                  
                                        '/' => '/',                                                                                                                                                      
                                        'value_name' => '',                                                                                                                                              
                                        'value' => 'dummy',                                                                                                                                              
                                        'name' => 'pwd1',                                                                                                                                           
                                        'type' => 'password'                                                                                                                                             
                                      }, 'HTML::Form::TextInput' ),                                                                                                                                      
                               bless( {                                                                                                                                                                  
                                        '/' => '/',                                                                                                                                                      
                                        'value_name' => '',                                                                                                                                              
                                        'value' => 'dummy',                                                                                                                                              
                                        'name' => 'pwd2',                                                                                                                                           
                                        'type' => 'password'                                                                                                                                             
                                      }, 'HTML::Form::TextInput' ),                                                                                                                                      
                               bless( {                                                                                                                                                                  
                                        'current' => 2,                                                                                                                                                  
                                        'menu' => [                                                                                                                                                      
                                                    {                                                                                                                                                    
                                                      'value' => '',                                                                                                                                     
                                                      'name' => "Bitte waehlen"                                                                                                                      
                                                    },                                                                                                                                                   
                                                    {
                                                      'value' => 'admin',
                                                      'name' => 'Administrator'
                                                    },
                                                    {
                                                      'seen' => 1,
                                                      'value' => 'abc',
                                                      'name' => 'Bereich-abc'
                                                    },
                                                    {
                                                      'value' => 'def',
                                                      'name' => 'Bereich-def'
                                                    },
                                                    {
                                                      'value' => 'xyz',
                                                      'name' => 'Bereich-xyz'
                                                    }
                                                  ],
                                        'name' => 'role',
                                        'class' => 'boxinput',
                                        'idx' => 1,
                                        'type' => 'option'
                                      }, 'HTML::Form::ListInput' )
                             ]
               }, 'HTML::Form' );

================================
$VAR1 = bless( {
                 '/' => '/',
                 'value_name' => '',
                 'src' => '/images/save.png',
                 'name' => 'Sichern',
                 'onclick' => 'return confirm(\'Wollen Sie wirklich speichern?\')',
                 'type' => 'image'
               }, 'HTML::Form::ImageInput' );
$VAR2 = bless( {
                 '/' => '/',
                 'value_name' => '',
                 'src' => '/images/close.png',
                 'name' => 'Abbrechen',
                 'type' => 'image'
               }, 'HTML::Form::ImageInput' );
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

View full thread PopUp aus WWW::Mechanize Script "beantworten"