{{tag: go, test, testing, actually }} actually は Go の testing ライブラリです。明示的なインターフェースと一貫性の高いメソッド群、そしてメンテナンスやリファクタリングの際に力を発揮するフェイルレポートを備えています。 [[https://github.com/bayashi/actually ac... つづきを読む
![bayashi.net](https://cdn-ak-scissors.b.st-hatena.com/image/square/4644130890c08da2ce60cc24d89ce5318904794c/height=288;version=1;width=512/https%3A%2F%2Fimg.bayashi.net%2Ffavicon.png)
2009年03月28日11:09 Perl LWP::UserAgentでgetすると文字コードを正しく判別できるのに、WWW::Mechanizeでは判別できない件 WWW::MechanizeとLWP::UserAgentでgetするときの話なんですが・・。 例えば、このようにしてみます。 #!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; main(); sub main { my $url = 'http://blog.livedoor.jp/sasata299/archives/51146961.html'; # WWW::Mechanize my $mech = WWW::Mechanize->new(); $mech->get( $url ); my $data = $mech->content; # L
Amazon アフィリエイトレポート Spidering Hacks からの産物。 Amazon のアフィリエイトレポートは、毎回ログインしなきゃいけなくて面倒なので、こんなスクリプトで自動化。 #!/usr/local/bin/perl -w use strict; use MIME::Lite; use WWW::Mechanize; my $email = 'your-email-address'; my $password = 'XXXXXXXX'; my $start = "http://www.amazon.co.jp/"; my $mech = WWW::Mechanize->new(); $mech->agent_alias('Windows IE 6'); $mech->get($start); $mech->follow_link(url_regex => qr/ass
以下は、他サイトに掲載されている有用な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
Hippo2000 (2000/7/28) LWP::UserAgentモジュールなのです。 作者はGisle Aasさんです。メールで許可をいただきました。 2001/6/21:山宮隆さんからの指摘を受けて、余分な「;」を削除しました。 目次 名前 概要 説明 メソッド 参考資料 著作権 名前 LWP::UserAgent - WWW ユーザ・エージェント クラス 概要 require LWP::UserAgent; $ua = LWP::UserAgent->new; $request = HTTP::Request->new('GET', 'file://localhost/etc/motd'); $response = $ua->request($request); # or $response = $ua->request($request, '/tmp/sss'); # or
CentOS4.5でperlからQRコードを生成したかったのでやってみたらGDが入ってなかったのでPerlのGDモジュールをインストールするまでのメモ 最初CPANからいきなり入れてみようとした ●スーパーユーザーになって $ su – Password: # ●CPANのシェルを起動 # perl -MCPAN -e shell cpan shell — CPAN exploration and modules installation (v1.7601) ReadLine support enabled cpan> ●インストール実行 cpan> install GD ●質問には全部エンターで答えた Where is libgd installed? [/usr/lib] Please choose the features that match how libgd was built
消費税計算のために作ってみた。 package Template::Plugin::Tax; use strict; use warnings; our $VERSION = '0.01'; require Template::Plugin; use base qw(Template::Plugin); our $FILTER_BASE_NAME = 'tax'; our $DEFAULT_TAX = 5; # 5% sub new { my($self, $context, @args) = @_; my $inc_name = sprintf "to_inc_%s" , $args[0] || $FILTER_BASE_NAME; my $enc_name = sprintf "to_enc_%s" , $args[0] || $FILTER_BASE_NAME; $context->
[Perlトップページ] 条件判断 - if文 - if文、if-else文、if-elsif-else文 unless文 演算子or, and if文 if文は、C言語と同様に条件判断を行い、条件が満たされれば実行します。下記の書き方に従います。 (正しい書き方)
日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
無気力症候群 (2) 09/01/24 by nbjogger 09/01/22 by ingaouhou おなか痛い・・・ (3) 08/12/23 by nbjogger 08/12/22 by inga 08/12/22 by Kero 1リットルの・・・ (1) 08/07/06 by 太陽の息子 破産チェッカ- (2) 08/06/09 by Sota 08/06/06 by T&A Wiiのソフトランキング Excerpt: Wiiの売れ筋ソフトランキングをチェックしてみよう。ランキング上位が今本当に面白い注目ソフトですよ。 Weblog: Wiiのソフトランキング Tracked: 09/01/14 plalaのCGIサーバ、ホント使えねー Excerpt: 前にも書いたけどやっぱ、使えねー 容量5MBしかないから、こまめに消していか
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
HOMMEZ(オムズ)は男性の心と身体の健康を支援し、一人でも多くの人が子供を得る幸せや男性としての喜びを享受できる社会の実現を目指しています。男性の妊活、活力にまつわる情報や商品の力で性や妊活に悩む男性が効率的に納得感を持って活動できる機会を創出します。
-> 趣旨と注意書き -> UTF8フラグ? -> UTF8フラグとPerlIOレイヤ -> UTF8フラグのついた文字列を記述する -> Wide character in print ... -> Encode -> utf8::* -> use utf8; -> use encoding; -> use UTF8 と use encoding -> JcodeからEncodeへ -> 情報源 <- モドル 趣旨と注意書き Perl 5.8.x のUnicode 関連です。 正直、5.8.x は、ネタでしか使ってなかったので(ぉ、ちゃんといじったことがありませんでした。 使ってみると、よくわかんなくなったので、ちょっとまとめてみました。 今でもあんまりわかってないかもしれないので、内容は無保証です。 突っ込み歓迎。 Jcode、Encodeのメンテナの弾さんから、ご指摘いただいたので、
http://www.pure.ne.jp/~learner/program/Perl_unicode.html Perl 5.8.x Unicode関連 目次 Perl 関連 ・Perl 変数について ・Perl Tips ・Perlオブジェクト指向プログラミング ・Perl 5.8.x Unicode 関連 ・Perl(とか)の書籍 > 趣旨と注意書き > UTF8フラグ? > UTF8フラグとPerlIOレイヤ > UTF8フラグのついた文字列を記述する > Wide character in print ... > Encode > utf8::* > use utf8; > use encoding; > use UTF8 と use encoding > JcodeからEncodeへ > 情報源 - モドル 趣旨と注意書き Perl 5.8.x のUnicode 関連です。 正
2008年07月25日11:51 perl urlencode(エンコード)の方法(関数) -正規表現- カテゴリperl設定、自動化、便利、テンプレート関連 perlでurlをencodeする場合もモジュールがいくらでもあると思いますが、 あまりゴテゴテuse したくない場合、↓の関数コピペでイケると思います。 # usage $encoded_url = url_encode($url) sub url_encode { my($url) = $_[0]; $url =~s/([^a-zA-Z0-9_@.\/-])/(sprintf("%%%04X",unpack("S", "$1"))) eq "%0000" ? sprintf("%%%02X",unpack("C", "$1")) : sprintf("%%\?%04X\?%%", unpack("S", "$1"))/eg; $
1.リスト 複数のスカラ変数を並べた構造を『リスト』といいます。リストはスカラと同じように数値、文字列を区別なく扱います。リストの書き方はとても簡単で、値をカンマで区切り、その全体をカッコで囲むだけです。1、2、3の 3 つの値のリストは、以下のように表します。 (1, 2, 3) リストの代入 リストの要素に代入する場合は、下記のような方法があります。 ($a, $b, $c) = (1, 2, 3); リストの中にリストがある場合には、自動的に展開されます。 (@list1, @list2, &function) 上記のようなリストは @list1 のすべての要素の後に @list2 のすべての要素を追加し、その後にfunction というサブルーティンが返すすべての要素を追加します。 リストの要素数と変数の数が違う場合 リストの要素数よりも、用意した変数のほうが多い場合には、あまった
Perlでプログラムをするときに参考となるソース集です。 URLエンコード/デコード処理 URLエンコード処理 CGIにデータを渡す場合、URL(URI)エンコードする必要があります。 URLエンコードすると、特殊な文字や漢字は %xx (xx は16進数) となります。 以下の方法で、変数($arg)の内容をURLエンコードすることができます。 URLエンコードしなければならない文字は使わないのがベストですね。 #!/usr/local/bin/perl $arg = $ARGV[0]; printf("arg=%s\n", $arg); # URLエンコード $arg =~ s/(\W)/sprintf("%%%02X", ord($1))/ego; printf("arg=%s\n", $arg); s/PATTERN/REPLACEMENT/egoで、置換を行なっています。 eは、
www.horse-water.mydns.jp is not accessible... Sorry. I do not know why this site is not working. If you know Administrator of this site, please contact directly. You may be able to see it in Google cache. For administrator ... MyDNS.JP did not received IP address from you over One week. Please check your notify system. If you restart notification of IP address, MyDNS.JP will apply your IP address
www.horse-water.mydns.jp is not accessible... Sorry. I do not know why this site is not working. If you know Administrator of this site, please contact directly. You may be able to see it in Google cache. For administrator ... MyDNS.JP did not received IP address from you over One week. Please check your notify system. If you restart notification of IP address, MyDNS.JP will apply your IP address
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く