Q

Perl機械化 - 如何禁用Kerberose？

2014-07-01 63 views 0 likes

0

我有一種情況，我需要檢查內部Web應用程序的某些條件。Perl機械化 - 如何禁用Kerberose？

首先，我需要檢查，如果加載應用程序或沒有。 - 爲此，我使用了Perl機械化模塊並使用get方法加載了URl的。我面臨的問題是它顯示401 未經授權，如果我發送用戶名和密碼作爲參數函數「憑據」它工作正常。

我只是想檢查網頁是否加載或沒有輸入憑據？打印一條消息，如果它加載看起來很好。

2014-07-01 Fla-Hyd

A

回答

3

您可以直接請求LWP並檢查返回代碼。如果它是401，你就知道服務器正在響應。如果這也意味着您的應用程序正在運行取決於誰負責檢查授權。

use LWP::UserAgent; 
my $resp = LWP::UserAgent->new->get('http://example.com'); 
if ($resp->code == 401) ...

2014-07-01 15:19:48

+0

根據我的理解，你要求我爲「401」做一個正則表達式匹配？ –

+0

請參閱編輯的響應示例 –

+0

OP使用WWW :: Mechanize，並且可以使用WWW :: Mechanize（作爲LWP :: UserAgent的子類）完成相同的檢查。 – ikegami

相關問題

11. Perl WWW ::機械化cookie問題
12. Perl機械化單擊單選按鈕
13. Perl的機械化follow_link失敗
14. WWW ::機械化和草莓的Perl
15. 如何在Perl中處理UTF16警告機械化調用
16. Perl的WWW ::機械化JSESSION問題
17. 的Perl - geturls與WWW ::機械化
18. Perl的機械化提交按鈕
19. 將機械化瀏覽器傳遞給子例程（Perl與WWW ::機械化）
20. Python：機械化
21. 使用機械化
22. 如何使用使用機械化
23. 在機械化
24. 機械化Javascript
25. Perl WWW機械化submit_form（）不指向form_number請求如何解決？
26. 與機械化
27. 如何在pypy中使用機械化？
28. 機械化重定向/引入nokogiri（使用機械化小白）
29. 多頁機械化
30. NoMethodError從機械化