Perlでニコニコ動画から動画とコメントをダウンロードする - KWの徒然Blog。。。
ニコニコ動画から動画をダウンロードするスクリプトをPerlで書きたい。 そこでぐぐってみたら早速情報があった。 ニコニコ動画には非公式のAPIがいくつも存在する。 ニコニコ動画API - ニコニコ大百科 - 今回は動画をダウンロードしたいのでgetflvを使う。 getflvを使うときは http://flapi.nicovideo.jp/api/getflv/sm* にアクセスする。 このAPIを使うときには条件があって、 1. ログインした状態のセッションを保持したクッキーを持ったUserAgentでアクセスする。 2. 動画IDに指定した動画のページにアクセスしている。 を満たさないと使用できない。 例えば、http://www.nicovideo.jp/watch/sm500873のFLVファイルのURLを取得するには 1. ログインする 2. http
HTTP::Responseのis_hogehoge - memo.mzt
PerlのHTTP::Responseモジュールだがis_successというメソッドがある。 前回のHTTPSのクローラーでも正常な通信の判定に利用していたが、これに落とし穴が。 サーバーが302のMoved Permanentlyを返した時にFALSEとなるのである。 CPANにあるドキュメントを読んでみると、 http://search.cpan.org/~gaas/libwww-perl-5.808/lib/HTTP/Response.pm $r->is_info $r->is_success $r->is_redirect $r->is_error These methods indicate if the response was informational, successful, a redirection, or an error. See HTTP::Status fo
Time::Piece - 日付・時刻を扱う新しい方法 - Perl入門ゼミ
Perl › モジュール › here Perlの5.10からTime::Pieceと呼ばれる時刻を便利に扱うためのモジュールが標準モジュールに加わりました。Perlの5.10以上を使用している場合はTime::Pieceモジュールを日付と時刻を扱いたい場合に利用すると便利です。 従来のPerlでは日付や時刻を直感的に扱う手段が標準モジュールにはありませんでした。日付や時刻を扱うためには少し面倒な作業が必要でした。Time::Pieceは日付と時刻の直感的な操作を提供します。また日付・時刻の書式化の機能や解析する機能も備えます。 Perlには実質的に日付を扱うモジュールのスタンダードといえるDateTimeというモジュールがあります。ただしこのモジュールは標準モジュールではなくCPANからインストールする必要があります。また巨大なモジュールですのでモジュールを読み込む時間が非常にかかります
Perl - #!/usr/bin/perl とはなにか
Windows DVDと動画 トラブル 使いやすく？ 動画/DVD おすすめ書籍 アプリ入門書 サーバー構築・運営 デザイン プログラム言語 サーバ構築 Apache CSS/HTML/JavaScript Linux Tips Movable Type SEO対策 アフィリエイト サイト構築のメモ 自作プログラムのソース プログラム C言語 JAVA PHP Perl 言語比較 健康 サプリメント 免疫とアレルギー・アトピー 毛髪 写真 小物写真 日記 DVD/映画 「漢」と書いておとこ料理 健康・サプリメント・ダイエット お進めリンク集 私が日々利用・参考にしているサイトページのブックマークを公開してみました。 アマゾン商品サーチ フリー,素材,壁紙,携帯,待ち受け 消費者金融・ローン比較 ウイルス オンライン・タイピング,ゲーム 健康,サプリメント グラビア アイドル DVDレコー
@ISAとは
[Perl] @ISAはpackageが属する（継承する）クラスを指定するために使用されます。 以下の例ではCowがAnimalであることを指しています。Cow->speakとした際、Cow::speakは存在しないため、その親であるAnimal::speakを辿っていき、a Cow goes mooo!と出力されます。Cow IS A(n) AnimalだからISAみたい・・・ @Cow::ISAの部分は @ISA = qw(Animal)ともかけますが、use strict宣言をしている場合にはエラーになります。@Cow::ISAの代わりに、our @ISA= qw(Animal) もしくは use base qw(Animal)も使用できます。 [例: O'REILLYのPerl Objects, References & Modules からの抜粋] #/usr/bin/perl
Perl 5.8.x Unicode関連
-> 趣旨と注意書き -> 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のメンテナの弾さんから、ご指摘いただいたので、
正規表現 - SMART 開発者のためのウェブマガジン
正規表現の概要 正規表現は、Perlの中で最も重宝する機能のひとつです。正規表現にはテキスト処理のための様々な機能があり、文字列の中から特定のパターンを見つけ出したり、置換したりすることができます。 正規表現の基本的な使用方法 たとえば、$strという変数に格納したデータの中から、「A」で始まって途中は何があるかわからないが最後が「E」という文字列を探したい場合､次のように記述することで、条件にマッチする文字列を見つけることができます。 $str =~ /A.*E/; 上記では、ドット( . )が改行以外の1文字を表し、アスタリスク( * )がその任意の文字の0回以上の繰り返しを意味します。このように、正規表現において特殊な働きを持った文字を正規表現演算子、またはメタ文字と呼びます。また、=~ はパターン結合演算子と呼ばれ、「左辺の値から右辺の値を検索する」という意味があります。 正規表現
Perl スクリプトでのコマンドラインオプション処理 Getopt::Long
公開 2006年8月25日、 更新 2009年1月17日 Perl でコマンドラインオプションを処理するときの覚え書き。基本的ないし実用的な事項のみで、中級以上のトピックはばっさり省いています。Perl ドキュメントをもとに作成しました。 1. 基礎知識 オプション名の大文字小文字は区別されない。 短いオプション名（例: -a）は長いオプション名（例: --all）から自動的に作られる。 オプションとして処理されなかったコマンドライン引数（ファイル名など）は @ARGV に残る。 2. GetOptions 関数 コマンドラインオプションを処理するには Getopt::Long モジュールの GetOptions 関数を使う。 use Getopt::Long; 以下のコード例では use Getopt::Long; は省略している。 2.1. 単独で指定するオプション my $opt_a
glob関数 - ディレクトリに含まれるファイル一覧を取得 - Perl入門ゼミ
Perl › 関数 › here glob関数を使用すると、ファイル一覧を取得することができます。 my @all_files = glob "*"; ファイル一覧を取得するには、glob 演算子を使います。対象は、カレントディレクトリのファイル(ディレクトリを含む)になります。別のディレクトリのファイル一覧を取得したときはchdir関数 で、カレントディレクトリを移動するか、相対パスあるいは、絶対パスで、表現します。 glob の引数の表現例 "*" .で始まらない、すべてのファイル "*.txt" .txt で終わるファイル "*.txt *.pl .txt あるいは、 .pl で終わるファイル( .txt と .pl の間に空白があります ) "* .*" すべてのファイル( * と .* の間に空白があります ) "lib/* libディレクトリ以下のファイル c:/dir/* 絶
scraper CLI で遊ぶ - へたっぴ日記
via Web::Scraper プレゼン＠YAPC::EU Web::Scraperにコマンドラインインタフェースが追加されたのでさっそく遊んでみた。お題は、オライリー・ジャパン発行書籍一覧から書籍情報の抽出。簡単杉…。 HTMLソースはこんなん。スクレイピング向きのきれいなソースだね。 ... <table class="booklist" width="100%" cellspacing="0" cellpadding="0" border="0"> <tr class="booklist defaultcolor"> ... </tr> <tr class="up"> <td class="booklistisbn"> <a name="4-87311-094-7" /> 4-87311-094-7 </td> <td class="booklisttitle"><a href="
Web::Scraperのメモ - ×××Diary
使い方は、use Web::Scraper; - 今日のCPANモジュールをがっつり参照。 コマンドラインがすごい便利よい〜なぁ〜 と、思ったものの練習用にうってつけなページ （シンプルかついろいろこみこみなページ）が 見当たらなかったので、ちょっと遊べる程度のページを作ってみました。 →テスト用のページ。 で、さっそく遊んでみる。 まずは、コンソールを立ち上げて上記URLを指定。 scraper "http://musicbb.s270.xrea.com/tes/hatena2/004/scraper.html" ◇cssセレクタ idやclassがあればピンポイントで攻めれるんでまずはそちらから。 idの場合 上記テストページの２行目で遊んでみる <p id="id1">噂のページは<a href="./scraper.html" id="id2" target="_blank">こち
URLを触る時は、URI（perlモジュール名)が超便利だと思う。 - perl-mongers.org
This webpage was generated by the domain owner using Sedo Domain Parking. Disclaimer: Sedo maintains no relationship with third party advertisers. Reference to any specific service or trade mark is not controlled by Sedo nor does it constitute or imply its association, endorsement or recommendation.
ハッシュ - 2部 Perl言語仕様 - [SMART]
1.ハッシュへ値を代入 ハッシュ変数は、配列のインデックスが文字列となったもので、このインデックスを『キー』と呼びます。ハッシュの場合は要素の値がキーによって管理されます。 ハッシュの宣言 ハッシュへ値を代入 ハッシュの宣言 ハッシュを宣言するときは変数名の前にパーセント（ % ）を付けます。 %hash; ハッシュへ値を代入 配列では、[ ] でインデックスを囲みましたが、ハッシュは、 { }でキーを囲みます。例えば社員の名前とメールアドレスを管理する場合、次のような方法でハッシュを使った管理ができます。 $hash{'Akai'} = 'akai@domain.com'; $hash{'Ishikawa'} = 'ishi@domain.com'; $hash{'Ueda'} = 'ueda@domain.com'; 複数の値を一度にハッシュへ代入するには、キー、値の順番で記述します。
404 Blog Not Found:perl - ワンライナーの書き方入門
2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl
にひりずむ::しんぷる - コマンドプロンプトでのワンライナー
コマンドプロンプトでは引数をダブルクォートでしか囲むことができないため、Unix系で書かれてるようなワンライナーをそのまま実行することができない。 perl -MLWP::Simple=get -e 'print get("http://www.example.com");' が、これをコマンドプロンプトで実行できる形にするのは意外と簡単である。 具体的には 外側のシングルクォートをダブルクォートに変換し、 中で使われているダブルクォートをエスケープする だけで大抵は動くようになる。 これを行うワンライナーは以下のような感じ。 perl -lne "s/\"/\\\\\"/gms;s/-(\w*[eE])\s+'(.*)'/-$1 \"$2\"/ms;print" 大量のバックスラッシュが含まれているがしょうがない。 これでさっきのワンライナーを変換すると以下のようになり、コマンドプロンプ
指定したTwitterアカウントの全ツイートを取得(perl版) | Moonmile Solutions Blog
Twitterアカウントを指定して、全ての発言（ツイート）を取得するための perl スクリプトです。 目的は、 あなたの彼の浮気調査 でもいいし（笑）、真面目に解析してもいいし。私の場合は、先に書いた「絡ったー」がらみで使う予定です。 twitter api を使うとアクセス制限（1時間に500回ぐらいかな）となるので、公式サイト http://twitter.com/ から直接引っ張ってきます。なので、公式サイトの形式が変わると取れなくなるんですが、ま、ひとまず、こんな感じで取得できるとという例として。 インストールは、 activeperl などをダウンロード wget をダウンロード 分かる人は、cUrl に変更しても ok コマンドラインから perl krmall.pl [アカウント] とすると、 全発言のファイル アカウント.txt 絡む人のファイル アカウント_st.txt
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
bayashi.net
「PHPでPDFファイルを結合するには？」（1） Linux Square － ＠IT
今日のCPANモジュール（跡地） 目次
Wonder-boys.net