请教一个可能很复杂的PERL问题

learnscript

我从http://sourceforge.net/project/showfiles.php?group_id=60154&release_id=185106 下载了个叫SAMIE的东西, 是用来自动化控制IE的.  它说是基于dhtml DOM (Document Object Model) http://msdn.microsoft.com/workshop/author/dhtml/reference/dhtml_reference_entry.asp 而写的, 我弄不清楚它是怎么用的.  还是提我的问题吧.

按装SAMIE后, 有一个SAM.PM会被放到D:\Perl\site\lib\Win32, 里边有一个sub SetListBoxItem, 如果该ListBox是单选一个选项, 它是完全没问题,例如

1.         <select name=regsex>;
   
2.         <OPTION value=1>;男</OPTION>;
   
3.         <OPTION value=2>;女</OPTION>;
   
4.         <OPTION value=none selected>;保密</OPTION>;
   
5.         </select>;

复制代码

就没问题, 因为男女只能选一..

可如果遇到可以多选的,例如可以同时选男女, 就不行了.  我估计是   $select->;{value} = $ItemName;的问题.  我说的不好, 不知道有没有人明白呢.

1. 
   
2. sub SetListBoxItem { #$SelectName, $ItemName, $formname
   
3.   my ($SelectName,$ItemName,$formname) = @_;
   
4.   my ($IEDocument,$IEObject,$i,$forms,$form,$select);
   
5.   my $IEObjectGroup;
   
6.   #If ItemName is blank make it ""
   
7.   $ItemName = "" if (!defined($ItemName));
   
8.   foreach $IEObjectGroup (@AllIEObjects) {
   
9.     foreach $IEObject (@$IEObjectGroup) {
   
10.       $IEDocument = $IEObject->;{Document};
    
11.       $forms = $IEDocument->;forms;
    
12.       for ($i=0; $i<$forms->;length; $i++) {
    
13.         $form = $forms->;item($i);
    
14.           if (defined($formname)) {
    
15.           if ($form->;name ne $formname) {
    
16.             next;
    
17.           }
    
18.         }
    
19.         $select = $form->;elements($SelectName);
    
20.         $select->;{value} = $ItemName;
    
21.         return;
    
22.       }
    
23.     }
    
24.   }
    
25. }
    

复制代码

1. [/code][code]

复制代码

apile

$select = $form->;elements($SelectName);
這個地方可能要修改一下....或再去看看他的document...
因為HTTP面對多選的時候..會送出
abc=123&abc=1&abc=2&abc=3
同一個$selectname但是有不同的數值...最上面只會抓第一筆..
所以你得去看看他有沒有其他抓這些參數的方法..
不然你就只能自己改寫這一塊...自己切割

learnscript

[quote]原帖由 "apile" 发表：
$select = $form->;elements($SelectName);
這個地方可能要修改一下....或再去看看他的document...
因為HTTP面對多選的時候..會送出
abc=123&abc=1&abc=2&abc=3
同一個$selectname但是有不同的數值...最上面