IE7をPerlで操る
IE7を複数立ち上げると落ちることが発覚してますが、
#!/perl/bin/perl
use Win32::OLE;
use Win32::ODBC;
use strict;
my $dsn="websearch";
my $uid="himitsu";
my $pwd="";
my $IE = Win32::OLE->new('InternetExplorer.Application');
$IE->{visible} = 1;
my $Data = new Win32::ODBC("DSN=$dsn;UID=$uid;PWD=$pwd");
$Data->Sql("select url from url where status like '200%' order by lastupdate desc limit 1000");
while($Data->FetchRow()) {
my (%data) = $Data->DataHash();
$IE->Navigate($data{'url'});
while($IE->{Busy} || $IE->{ReadyState} != 4) {
sleep(1);
}
my $IEDocument = $IE->{Document};
my $links = $IEDocument->links;
foreach my $link (in $links) {
my $url = $link->href;
print "$url\n";
}
}
$Data->Close();
関連記事
- ココログに頂いたコメントを簡単にチェックする
- PerlからWin32を使う
- 文字化け解消[Net::Amazon]
- Perl XMLでencoding='Shift_JIS'や'euc-jp'を使う
- LWP::Simpleのプロキシ設定
- やっぱりあったbasename
- find2perl
- \のコードを含む2バイト文字の対応
- mkdir -pの代わり
- はてなブックマークAtomAPIで大量登録
- Net::Amazon::Property::Music
- Perl/TkでIP Messenger
- 古いCPANモジュールのアップデート方法
- All is not a valid value for jp::Keywords
- #trouble #solved #ffmpeg 連番って連番でないとno such file error!を食らう！
- perldocがpermission deniedされてperlbrewを導入
- ll言語でhttpsサーバを作る
CIつながり
- WebGLを使ったElectronアプリをTravis CIで動かすまで
- CI環境のNightmareでWebGLを動かす方法や、NightmareでWebGL 2.0を動かす方法
- WerckerでDockerfileのビルドチェックで消耗したくない君に
- Travis ciがいつの間にかOSX向けのテストが動くようになり消耗した件
- アレクサで「iPhoneを探す」をpuppeteerを使って出来るようにした
- puppeteerで動的にウインドウの大きさを変更するには
