http://codezine.jp/a/article/aid/2364.aspx sudo cpan -i Class::CSV use Class::CSV; my $csv = Class::CSV->parse( filename => 'test.csv', fields => [qw/姓 名 生年月日 郵便番号 住所 電話番号/] ); foreach my $line (@{$csv->lines()}) { print '…

http://codepad.org/zdeQaPMc perl -le 'do{ print if(/3/||$_%3==0||$_%5==0) } for(1..49);' for 1 〜 49でくるやつは、指定がない場合 $_に代入される。 そいつ自体は文字でも数値でもありえる$_=~ /3/ みたいに正規表現でマッチさせる場合は、暗示的に変…

http://q.hatena.ne.jp/1207585413 の問題 http://codepad.org/8BD5WPWo #!/usr/bin/perl $_ = "ワン ワワンワ ンンワ ンワ ンワ ンワン ワンワ ンワ ワン ワンワ ンワンワンンワン ンワ ンワ ンンンワンワンワンワンワ ワン ワン ワンンンワン ワン ワン ン…

use strict; ネコの動いてるのみるの賞味期限切れ

とかくと/usr/local/bin/perl でも /usr/bin/perl でもパスさえ通っていれば動く samba-jp:19271 mlで発見 目から竹輪でした。http://chaichan.web.infoseek.co.jp/qa3000/qa3082.htm

動画ダウンロードスクリプト youtube, DM, Guba, google ..フォト蔵対応 かわいいインコの動画などをHDDに保存しましょうdel

飼い猫ねこちゃんのおもしろ映像や学芸会の模様などを集めましょうhttp://www.h5.dion.ne.jp/~sed/exp/youtube.htmlが公開されていたので ようつべから取得したファイルが文字化けするのを修正しました。 (主に ãƒaãƒbãƒcãƒdãƒe とかなってしまっているもの)…

いどう

#!/usr/local/bin/perl #!/usr/bin/perl #!/bin/perl # ヽ（京）ﾉ use Lingua::JA::Numbers qw/ ja2num /; use DirHandle; use constant MINUTE => 60; use constant HOUR => 60 * MINUTE; use constant DAY => 24 * HOUR; use utf8; use Jcode; use Encode;…

上記変換ハッシュのベースはかんなヘルパそーすから以下のようにして作ります # cat p.pl $canna =<<'_CANNA_'; category_code substantive_code[]= { { "#T00", "名詞(な,さ,する,語幹,格助接続)" , "共通,孝行", 31, 3 }, { "#T01", "名詞(な,さ,する,語幹…

飼い猫の動画とか、ご子息の成長日記とかのホームビデォを落としまくりましょうヽ(゜∀゜)ノ

FAQ 単一のURLはファイル書いてください。 root@ubuntu-desktop:/tmp/remote/test# cat > listhttp://www.youtube.com/watch?v=ほげほげ http://www.youtube.com/watch?v=ほげほげ^Croot@ubuntu-desktop:/tmp/remote/test# perl test.pl list LOCALCODE: ja_…

#!/usr/local/bin/perl #!/usr/bin/perl #!/bin/perl # ヽ（京）ﾉ use DirHandle; use constant MINUTE => 60; use constant HOUR => 60 * MINUTE; use constant DAY => 24 * HOUR; use Fatal qw( open sysopen close seek ); # ISO 6429 use Term::ANSIColo…

リンク解析は m#://# and $see{$_} foreach @{[$parser->links]} にすべきだ とか # HTML からリンク抜き出し my $parser = HTML::LinkExtor->new(undef,$base); $parser->parse($content); foreach(@{$parser->links}) { m#://# or next; my $url = &func_u…

紹介ページを解析し紹介ページのタイトルでディレクトリを作成し、その中にリンクされているファイルをアップされてる頁のビデオタイトルを拾い ファイル名をつけて保存していきます。(一階層しかたどりません。) とりあえず過去にWgetと共に動く版を作った…

フルperl 重いです。正直Wget使った方がいいと思います。とりあえず、おいしいところは、youtubeサイトをクロールできます(ぉ注意事項: 18禁取得のプロセスはみけんしょうです。(前の版ではやってる zonbi がいっぱいできる.pl と むだにでかい.pl)やっぱWge…

File2=orenobouken___Episode_11___Part_2.flv File3=orenobouken___Episode_11___Part_3.flv File4=orenobouken___Episode_12___Part_1.flv File5=orenobouken___Episode_12___Part_2.flv File6=orenobouken___Episode_12___Part_3.flv File7=orenobouken__…

(゜Д゜).... ............................................................(゜Д゜)ver sys120概要あまりにもデバックしにくいので パイプでつないで動作する形式に変更週間なんとか 見たいな雑誌みたく 少しづつ公開(ぉ fetch_youtube.plふるい けす

ようつべダウンローダー - ルイズ！ルイズ！ルイズ！ルイズぅぅうううわぁああああああああああああああああああああああん！！！あぁああああ…ああ…あっあっー！あぁああああああ！！！ルイズルイズルイズぅううぁわぁああああ！！！あぁクンカクンカ！クン…

いただきよつべとv26 current2 「youtube 自動 動画 ダウンロード 保存」でぐぐってもでてこなかつたので 作りましたヽ（°▽°）ﾉ WGet 1.10.2が必須です。概要はこういうことをやってます↓ wget -O - "@ARGV" | \ perl -nle '/(youtube.com\/watch)\?(v=[^"]+…

Youtube wget 自動化ほげ いただきよつべとv26 Rev17?18? - ルイズ！ルイズ！ルイズ！ルイズぅぅうううわぁああああああああああああああああああああああん！！！あぁああああ…ああ…あっあっー！あぁああああああ！！！ルイズルイズルイズぅううぁわぁああ…

いただきよつべとv24o - ルイズ！ルイズ！ルイズ！ルイズぅぅうううわぁああああああああああああああああああああああん！！！あぁああああ…ああ…あっあっー！あぁああああああ！！！ルイズルイズルイズぅううぁわぁああああ！！！あぁクンカクンカ！クンカ…

mkdir id; cd id; perl ../youtubey.pl id.list | tee id/indexid.txt を解析 id vidididididid *** This video has been removed by the user. id vidididididid *** This video has been removed by the user. id vidididididid FILE: fugafuga.flv id vid…

自動化スクリプト(18禁おk) 18禁取得できるんだからねっ ツンデレ消した

自動化スクリプト(18禁ムリ) 自動化スクリプト(18禁ムリ)は18禁ムリなため開発停止しました。 以後 HTTP::YouTUBE をつかって作ろうと思います。 ログインしないとスピード出ないし。

$dir = "/usr/local/youtube/"; %hash; # 存在するCookieを確認 open X, "ls -1 $dir |"; /^cookie(\d+)/ and do { $hash{$1} = "cookie$1\n"; } while(<X>); close X; # 現在使用中のものを排除 open X, "ps xaw |"; /^\s*(\d+)/ and do { delete $hash{$1}; }</x>…

利点 さくら鯖でうごく(ぉ wget のバイナリ投げれば動くはず(´∀｀) LWP使うより こっちの方が手っ取り早かった。 tested OpenBSD 3.7 CUSTOM#0 Intel(R) Celeron(TM) CPU 1GHz (perl5.8.8) OpenBSD 4.0 GENERIC#0 zaurus PXA27x step C-0 (XScale core) (per…

指定したURLからタイトル拾ってファイル名をかってにつけて保存します。 連続ダウンロードできるので便利かもしれません。wget -np -r URL -O - にパイプ通して使うのも良い感じかもしれません。 ついでに自動巡回とかplaggerやircなどのautoget.plmとかにく…

diff NAT対応版 まえ版の設定ファイルと互換性ナッシング 4,6d3 < # < # ver date by note < # 2.39.1 05.10.25 Magical.H Resume 対応途中 14,16d10 < # Resume 要求用途のローカルデータベース < local( @lname, @lhost, @lport ); < 207,208d200 < < # 送…