SOHOルータの外部接続を切断（Net::UPnP::ControlPointを利用）:Geekなぺーじ
最近は、NATを利用したSOHOルータを使ってイントラネットを構築する事が一般的になってきました。 それらのSOHOルータの多くは、UPnP機能を有しています。 UPnPを利用すると、SOHOルータの情報を取得したり、設定を行ったりできます。 ここでは、PPPを使って接続しているSOHOルータの外部側ネットワークを切断してしまう方法を説明したいと思います。 ここで紹介しているサンプルコードを実行すると、SOHOルータとISPとのPPP接続が切断されてしまうのでご注意下さい。 PPP接続が切断されてしまうとインターネットとの通信ができなくなります。 SOHOルータの外部接続を復活させるには、SOHOルータの管理用ページや管理用アプリケーションで再度PPP接続を確立して下さい。 SOHOルータをリセットしても外部接続が復活できるかも知れません。 ルータを復活させる方法に自信が無い人はこのサンプ
SOHOルータの状態を取得（Net::UPnP::ControlPointを利用）:Geekなぺーじ
最近は、NATを利用したSOHOルータを使ってイントラネットを構築する事が一般的になってきました。 それらのSOHOルータの多くは、UPnP機能を有しています。 UPnPを利用すると、SOHOルータの情報を取得したり、設定を行ったりできます。 ここでは、PPPを使って接続しているSOHOルータの状態を取得する方法を説明したいと思います。 取得できる情報は、外部との接続性があるかどうか、最新のエラー、SOHOルータの起動継続時間です。 IPアドレス取得サンプル サンプルです。 #!/usr/bin/perl use Net::UPnP::ControlPoint; $upnp = Net::UPnP::ControlPoint->new(); # UPnP deviceを検索 @devs = $upnp->search(st => 'upnp:rootdevice', mx => 3); $
SOHOルータのExternal IPアドレスを取得（Net::UPnP::ControlPointを利用）:Geekなぺーじ
最近は、NATを利用したSOHOルータを使ってイントラネットを構築する事が一般的になってきました。 それらのSOHOルータの多くは、UPnP機能を有しています。 UPnPを利用すると、SOHOルータの情報を取得したり、設定を行ったりできます。 ここでは、PPPを使って接続しているSOHOルータの外部側ネットワークインターフェースに割り当てられているIPアドレスを取得する方法を説明したいと思います。 IPアドレス取得サンプル SOHOルータがPPPで取得した外部アドレス(一般的にはグローバルIPアドレス)を、UPnPを使ってイントラネット側(家庭側)から取得する方法です。 #!/usr/bin/perl use Net::UPnP::ControlPoint; $upnp = Net::UPnP::ControlPoint->new(); # UPnP deviceを検索 @devs = $
Perl から Growl をちゃんと使おう - Articles Advent Calendar 2010 Hacker
こんにちわ。Growl 大好きっ子 typester です。 重たいバッチジョブを走らせている間、別の作業をする。ジョブが終わったらデスクトップに Growl を表示させて処理の完了を知る。 その合間にもRSSから配信されたニュースや自分への Mention を Growl 表示し、あっという間に情報を操作する。 誰もが憧れる Hackish な作業風景ですね。Mac ユーザであればその他の活用方法を知ってる人も数多くいるでしょう。 でもperlbrewで64bit perlいれてるからMac::Growlがうまくインストールできないし... そんな風に思っていた頃が僕にもありました。 Cocoa::Growl http://search.cpan.org/dist/Cocoa-Growl/ そんな不満を打破するべく僕は Cocoa::Growl を書いた。 XS で Objective-
Cocoa::EventLoop - unknownplace.org
そういえば Cocoa::EventLoop と言うモジュールを書いたんでした。 これはもともと AnyEvent::Impl::NSRunLoop として書いていたイベントループ処理部分だけを単体モジュールとして切り出した物で、 AnyEvent を使わなくても Cocoa のイベントループを Perl から使用できるというものです。 くわしくはドキュメントを参照してもらうとして、Cocoa::Growl を使ったサンプルを載せてみます： use Cocoa::EventLoop; use Cocoa::Growl; my $done = 0; growl_notify( name => 'Notification Name', title => 'Hello', description => 'Cocoa World!', on_click => sub { $done++; }, o
Perl 5.10からの新機能を一部使ってみる。 - 車輪を再発明 / koba04の日記
初めてのPerlにも書いてあったperl 5.10からの新機能ですが、個人的に5.10以上の環境でも全く使っていなかったので、改めて(今さら)整理してみました。 （使いそうなものだけ抜粋しています。その他新機能については下記を参照ください。） http://fleur.hio.jp/perldoc/perl/5.10.0/pod/perl5100delta.mix.html say javaでいうprintfで、末尾に自動的に改行を付加してくれます。 use 5.010; say 'Say Hello'; say 'Say Hello'; 結果 Say Hello Say Hello defined-or演算子(//) //の左の値がundefだった場合に右の値を返します。||でもよさそうですが、||だと左の値が0や''の時でも右の値を返します。undefの場合だけ右の値を返したい時に使用
【Perl】WWW::Mechanize と Web::Scraper で PASMO の利用履歴を得る（その１） - blog.remora.cx
This domain may be for sale!
[perl] Class::Method::Modifiers で WWW::Mechanize の送信するリクエスト内容をロギング - 酒日記 はてな支店
WWW::Mechanize がどんなリクエストを送っているのか、をログに出力してデバッグに使いたいという話。 Class::Method::Modifiers を使って、LWP::UserAgent::send_request を hook してあげるとうまくいった。(WWW::Mechanize は LWP::UserAgent の子クラス) use strict; use WWW::Mechanize; use Class::Method::Modifiers; use Data::Dumper; use utf8; $Data::Dumper::Indent = 1; before "LWP::UserAgent::send_request" => sub { print Dumper $_[1]; }; my $mech = WWW::Mechanize->new; $mech-
![[perl] Class::Method::Modifiers で WWW::Mechanize の送信するリクエスト内容をロギング - 酒日記 はてな支店](https://cdn-ak-scissors.b.st-hatena.com/image/square/9534d0b24e2539e420fff3142105eeac17e6a3fe/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729889028%2F8454420450078126223%2F1419604152)
cz500.com
通过金名网(4.cn) 中介交易 金名网(4.cn)是全球领先的域名交易服务机构，同时也是Icann认证的注册商，拥有六年的域名交易经验，年交易额达3亿元以上。我们承诺，提供简单、安全、专业的第三方服务！ 为了保证交易的安全，整个交易过程大概需要5个工作日。 具体交易流程可“点击这里”查看或咨询support@goldenname.com。 我要购买>> Process Overview: 4.cn is a world leading domain escrow service platform and ICANN-Accredited Registrar, with 6 years rich experience in domain name brokerage and over 300 million RMB transaction volume every year. We pro
WWW::Mechanizeのsubmitとclickの違い - はて日記
これははまりました・・ CPANのWWW::Mechanize 1.34で click() は <input type="submit" name="name1" value="value1"> の分の name1=value1 も送信しますが、submit() ではこれを送信しません。 たとえば下のようなフォームの場合。 <form method="get" action="do.php" name="loginform"> <input type="hidden" name="login" value="123"> <input type="hidden" name="login" value="abc"> <input type="submit" name="login" value="xyz"> </form> Firefox 2.0等のブラウザでsubmitボタンをクリックすると
WWW::Mechanize 覚書
概論 LWP::UserAgent のサブクラスとして実装され、LWP::UserAgent のメソッドは全部使える。 WWW::Mechanize::FAQ なんてのがある コンストラクタ my $mech = WWW::Mechanize->new() WWW::Mechanize のコンストラクタは、LWP::UserAgent のしてくれることに加えて、User-Agent to とクッキージャーを、↓のような具合にセットアップしてくれる agent => "WWW-Mechanize/#.##" cookie_jar => {} # an empty, memory-only HTTP::Cookies object ユーザーエージェントを変更するなら my $mech = WWW::Mechanize->new( agent=>"wonderbot 1.01" ); クッキーを
WWW::Mechanize - Perlオブジェクト中のハンディWebブラウザ - perldoc.jp
名前¶ WWW::Mechanize - Perlオブジェクト中のハンディWebブラウザ VERSION¶ Version 1.02 $Header$ 概要¶ WWW::Mechanize、あるいは縮めてMechはWebサイトとのやりとりの自動化を 助けます。これはリンク先やフォームデータの送信を含む、複数のページの取得を サポートします。取得したページはそれぞれ解析され、そのリンクやフォームが 抽出されます。リンクやフォームを選択し、フォームを埋め、次のページを取得 することが可能です。Mechは訪れたURLの履歴を保持しますので、これを問い あわせたり再訪することも可能です。 use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->get( $url ); $mech->follow_link( n => 3 ); $m
WWW::Mechanize::Examples - WWW::Mechanizeを使用するサンプルプログラム - perldoc.jp
名前¶ WWW::Mechanize::Examples - WWW::Mechanizeを使用するサンプルプログラム 概要¶ たくさんの人たちがWWW::Mechanizeについて学んできましたし、今もそうして いますし、あなたもそうすることができます！ 以下はこの活動を通してユーザーが提供してくれたWWW::Mechanizeのサンプル です。もしあなたがサンプルを持っており、寄付しようと思ってくれたら、 <andy@petdance.com> にメールを送ってください。 ディストリビューション中のt/*.tファイルも見てみると良いでしょう。 これらの例は、何か特定のタスクをこなすことを意図していないことは覚えて おいてください。私の知る限りでは、これらがアクセスするサイトのほうの 変更によりこれらはそれほど長い期間は機能しません。彼らは、みんなが どうWWW::Mechanizeを使
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Web::Scraper - naoyaのはてなダイアリー
Today I've been thinking about what to talk in YAPC::EU (and OSCON if they're short of Perl talks, I'm not sure), and came up with a few hours of hacking with web-content scraping module using Domain Specific Languages. 使ってみたよ! #!/usr/local/bin/perl use strict; use warnings; use FindBin::libs; use URI; use Web::Scraper; use Encode; use List::MoreUtils qw/uniq/; my $links = scraper { process 'a.key
よしいずの雑記帳 Web::Scraperを使ったPerlプログラムの例
Web::Scraper は、スクレイピングのための Perl モジュールです。スクレイピングとは、HTML データから、不要な部分を削ぎ落とし、必要な部分だけを抽出することです。 2012年3月30日更新。 サンプルプログラム 指定した要素の内側の HTML を取得したい場合 use strict; use warnings; use Web::Scraper; use Data::Dumper; my $html_content = <<"EOT"; <html> <head> <title>リンク集</title> </head> <body> <ul id="search"> <li><a href="http://www.gogole.com/">Google</a></li> <li><a href="http://www.yahoo.co.jp/">Yahoo! Japan<
Perlモジュール/WWW::Mechanize - Walrus, Digit.
以下は、他サイトに掲載されている有用なWWW::Mechanize使用例です。 私自身、「Amazon アフィリエイトレポート」を見て、本当にこのWWW::Mechanizeを使おう、と思いました。 Amazon アフィリエイトレポート(blog.bulknews.net)。 WWW::Mechanize を使って bk1 の注文履歴を取得するスクリプト(www.asmate.net)。 mixiの足あとを取得するスクリプト(digit.que.ne.jp)。日記を投稿するスクリプトのアレンジです。 指定したカテゴリの、今日の一覧を取得。 「次のページ」も追いかけて処理します。 use strict; use WWW::Mechanize; my $url = 'http://headlines.yahoo.co.jp/hl'; my $cate_label = 'コンピュータ一覧'; m
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
プロとしての行為 Act as Proffesional
remora.cx
remora.cx