Как я делаю webtesting в Perl для страниц, которые требуют JavaScript?

Ваш код в основном правильный. Это еще один способ сделать то же самое:

let inline (|>!) v f = f v ; v // tee operator

let vowels     = ['a';'e';'i';'o';'u']
let if_vowel c = vowels |> List.contains c

text
|>   Seq.filter if_vowel
|>! (Seq.length >> printfn "vowels: %d")
|>   Seq.countBy id
|>   Seq.sort
|>   Seq.iter (fun (c, n) -> printfn "%c: %d" c n)

Вывод аналогичен, но не совсем совпадает с вашим, потому что он показывает только те гласные, которые присутствуют.

6
задан Sean Hayden 29 April 2009 в 19:10
поделиться

2 ответа

Попробуйте WWW :: Selenium , который использует ваш браузер (через Perl) для обработки JavaScript.

11
ответ дан 9 December 2019 в 20:48
поделиться

Возможно, вы сможете использовать JavaScript :: SpiderMonkey .

1
ответ дан 9 December 2019 в 20:48
поделиться
Другие вопросы по тегам:

Похожие вопросы: