2. H.N.: turugina Web Site : http://floralcompany.jp/ Twitter: @turugina CPAN: http://search.cpan.org/~turugina/ : Perl, C++ : Ruby, Java 3.
4. 5. 1 6. MISSION: 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. MISSION: 21. ... 22. perl 23. but 24. Web 25. 26. 27. 28. lwp-request(GET)
29. lwp-request(GET)
30. -P-> no proxy (Intranet ) 31. empno=999-> 999 32. today_status=17-> 33. nextday_status=2-> 34. nextday_hour=11&nextday_min=00-> (11:00 a.m.) 35. lwp-request(GET)
36. -d-> 37. POST 38. lwp-request(POST)
39. -m POST-> HTTP 40. -c application/x-www-form-urlencoded-> POSTcontent-type 41. one-liner
42. Basic 43. lwp-request
44. -C turugina:hogehoge-> Basiccredencial 45. 46. use strict; use warnings; use LWP::UserAgent; use Config::Pit; my $cfg = pit_get("ikisaki" , require => { user => "your user id", pass => "your pass" }); my $ua =LWP::UserAgent->new; $ua->credentials( "ikisaki:80", "ikisaki", @$cfg{qw{user pass}} ); my %setting = ( empno => 999, today_status => 17, ... ); $ua->get( 'http://ikisaki/change.php', %setting ); # or $ua->post( 'http://ikisaki/change.php', %setting ); 47. form 48. WWW::Mechanize use WWW::Mechanize; use Config::Pit; my $cfg = pit_get("ikisaki" , require => { user => "your user id", pass => "your pass" }); my $ua = WWW::Mechanize->new; $ua->get("http://ikisaki/index.php"); $ua->submit_form(# form_id => "login", with_fields => $cfg ); $ua->submit_form(...); # 49. Flash( Silverlight( ActiveX(ry 50. (# 51. Win32::GuiTest use Win32::GuiTest qw/:ALL/; system(qq{cmd.exe /c "start explorer http://ikisaki/"}); my $w = WaitWindow('.*Windows Internet Explorer$', 30)or die "window not found!"; sleep 10;# Flash SendKeys("username{TAB}password~"); sleep 10;# SendKeys(.....) s.a. Perl (How to play Win32::GuiTest) TAKESAKO (Sat Oct 15 12:10) - 52.
53. Intenete.g. ) 54. 55. m(_ _)m
Top Related