Perl 从下拉列表中获取所有值

我试图找到一种方法，从网页的下拉列表中获取所有值和标签。 有了标签，我可以使用：

my @labels = $sel->get_select_options('s');

返回值是下拉列表中标签的数组。 但是，没有获得所有值的等效方法

---

你们知道怎么做吗？

因为在Selenium 1中没有直接的API。不过你可以试试这个。 考虑下面的<代码> <代码>。

新鲜牛奶

旧奶酪

热面包

下面是Java中用于检索值的代码段。您可以从这个代码段中获取逻辑并在Perl中实现它

int no_of_options = selenium.getSelectOptions("//select[@id='optionset']").length String option_values[] = new String[no_of_options]; for (int i=0;i<no_of_options;i++){ String value = selenium.getAttribute("//select[@id='optionset']/option["+i+"]/@value"); option_values[i] = value; } int no of_options=selenium.getSelectOptions（//select[@id='optionset']）。长度 字符串选项_值[]=新字符串[没有_个选项]； 对于（int i=0；i