いい感じに出力をインデントしてくれるモジュール #perl - 詩と創作・思索のひろば
[2013-11-20: Print::IndentedがCPANになくてしょんぼりしている。 とのことで shipit いたしました。 あざーす！] 過去のよく分からないコードの挙動を把握したいときには print (warn) するのが少なくともとりあえずの方法としては常套手段ですが、これがただ平坦に画面に現れるだけだと見づらい。例えば条件分岐やループの中にいる時は出力をインデントするようにすると動きが掴みやすくなるけれど、ただでさえ人間に単純労働を課す print デバッグにそこまで労力を使うのは辛い。そういう面倒さを減らそうという動機で、このモジュールは書かれました。 https://github.com/motemen/perl5-Print-Indented 一体何をするのかというと今書いた通りですが、print 時に、その print 関数の呼び出しコードのインデントに応じて
Perlとffmpegを使ったYouTubeの動画をmp3に変換 - Naritakaのはてな日記
Perlとffmpegを使ってYouTubeの動画をダウンロードした後mp3に変換するソースコード use strict; use warnings; use URI::Escape; use LWP::UserAgent; use HTTP::Request; use IO::File; use URI; use Getopt::Long; print "http://www.youtube.com/watch?v=動画ID\n"; print "YouTubeの動画ID:"; my $id = <STDIN>; chomp $id; print "タイトル(スペースは入れないでください):"; my $title = <STDIN>; chomp $title; my $ua = LWP::UserAgent->new(); my $req = HTTP::Request->new("
YouTubeからMP3を落とすWebインターフェイスを書いた - Csideのダイアリー
自分用に欲しかったので、Amon2::Liteで作ってみました。https://github.com/Cside/YouTube-to-MP3セットアップの方法はREADME.mdにあるとおりです。（plackup、cpanm、ffmpegの入れ方はググッてね！）Amon2とにかくコードが読みやすくて、ドキュメント見てなお分からないことはコードを見ればすぐ分かるようになってたのが良かった。拡張もしやすい。あと個人的には、「そのWAF特有の決まりごと」みたいなのがほぼ無いのが嬉しかった。と言いつつ、「正しく」使えてるかあまり自信がないですが…。つまづいたことダウンロードキューを非同期かつ並列で処理させるのが案の定とても面倒で、結果的にかなり時間を食ってしまった。 AnyEventやCoroをブラックボックスとして使うと火傷するなぁと改めて感じさせられた。何回かこういうアプリを書いていくうちに
Pelletkachels.nl
Pelletkachels waren ooit eenvoudige apparaten voor verwarming, maar ze hebben een opmerkelijke evolutie doorgemaakt sinds hun bescheiden begin in de jaren ’80 van de vorige eeuw. In dit artikel duiken we diep in de geschiedenis van pelletkachel, bespreken we de belangrijkste mijlpalen en ontwikkelingen op het gebied van subsidiemogelijkheden en werpen we een blik op de transformatie tot moderne en
Perl 初心者がとある JavaScript コードを読むための基礎知識 - あらびき日記
この記事は abicky.net の Perl 初心者がとある JavaScript コードを読むための基礎知識 に移行しました
[perl][自然言語処理]Mecabに住所用の辞書を追加する | そうだ車輪と名づけよう 5th
タグ： [perl] [自然言語処理] 公開日：2011-07-05 PHPで都道府県、市区町村、町域名以降の住所分割を高速に行う方法 - 理想未来はどうなった？を参考に ただし、辞書の生成のところのスクリプトをうまく動かすことができなかったのでPerlで書いて無理やり対応。 それに合わせて処理全体が手作業っぽくなってしまった 作成手順 日本郵政の郵便番号一覧を取得する http://www.post.japanpost.jp/zipcode/download.html $ wget http://www.post.japanpost.jp/zipcode/dl/kogaki/lzh/ken_all.lzh 上記で取得した圧縮ファイルを手動で解凍＋UTF8へ変換 辞書用CSVを生成する $ perl conv.pl ken_all.csv ken_dic.csv ※ conv.plの中
perlモジュールのinstallにcpanmを使う - Perl - @OMAKASE
当サイトのblogのエントリーで検索ワードが多いのはCPANなんですがこの古い記事はperl5.6時代に書いた記事(多分10年近く前だと思う)で今時のperl使いにお勧めできるものではありません。 2010年2月にあの miyagawa さんが書いた cpanminus が非常に素晴らしいので CPAN::shell を捨てて App-cpanminus を積極的に利用しましょう。 と言うことでcpanに関連して新しい記事を書いてみました。 CPAN::shell の欠点 設定が面倒 動作が遅い(cpanmと比較して) 多くのメモリが必要(制約のきついレンタルサーバで使うのは無理) 依存するモジュールが多い 基本root権限が必要 cpanm の利点 一枚岩のプログラムで可搬性に優れる 高速で小メモリでも動作可能 pluginで拡張できる local::lib と組み合わせるとユーザーラン
Mojolicious::Liteではじめてのアプリを作ってみた - kun432.github.com
Kansai.pm #15 からの熱が冷めないうちに、ということで、@yusukebeさんの「Webサービスのつくり方」でもオススメされていたMojoliciousを使って、簡単なものを書いてみました。あと、ちょうどすぐわかる オブジェクト指向 Perlを読みおわったところなのっでOOPでクラスも作ってみました。 はじめてのWAF、はじめての自作クラス、と初物尽くしですが、こんなレベルでも調べながら試しながらでやってみたら数時間でそれっぽいものはできちゃうよ、ということで。 仕様 IPアドレスを入力して、「逆引き」「国情報」「Whois」のどれかを出力する。 IPアドレス関連の処理はクラスを作って、上記のそれぞれの情報に対応したメソッドを用意。 Mojolicious::Liteを使って１ファイルでシンプルに作成。 見た目は気にしない！ 細かいチェックも気にしない！ コード 1 2 3 4
n列目まででdiff - Negative/Positive Thinking
はじめに タブ区切りなどのファイルで、n列目までを考慮したdiffなどを取りたいけど、出力はその行のすべてを表示してほしい。 コマンドの組み合わせだけでやりたいけど、いい方法が思いつかない。。 コード とりあえず1列目だけでdiff。 #!/usr/bin/perl # # column diff # Usage: $ cdiff.pl FILE1 FILE2 # use strict; use warnings; use Text::Diff; my @FILE_NAME = @ARGV; my $delim = "\t"; my $file1 = $FILE_NAME[0]; my $file2 = $FILE_NAME[1]; my $FH1; my $FH2; my $linenum1 = 1; my $linenum2 = 1; open($FH1, "<", $file1) o
Perlを勉強するときにオススメしたい本 - 車輪を再発明 / koba04の日記
JavaScript版を書いてみたので調子に乗ってPerl版も書いてみます。 4月からPerl始める人もいるかもしれないですし。(こじつけ) JavaScript版 http://d.hatena.ne.jp/koba04/20130311/1362931533 初めてのPerl 第6版 自分が読んだのは第5版でその時点でも5.10に対応しており、given-whenやスマートマッチなどについてもしっかり載っていたのですが、この第6版ではさらに5.14に対応していて、モダンな書き方になっていたりPath::Classなど新しいモジュールや付録としてUnicode入門があったりと、古さを感じない内容になっていてその点も素晴らしいなと思います。 この変数や関数、正規表現、文字列操作、ファイル操作などからシグナルの処理、便利なモジュールの紹介までPerlの基本的な部分がしっかりと紹介されていて、
ヒアドキュメントの中でPerlの式を書く
初代新幹線「0系」最後のラストランの日に、新幹線N700系のぞみでイーモバイルしながらこの記事を書いているid:TAKESAKOです。 Perlのヒアドキュメントを使うと複数行にわたる文字列を一気に代入したりするときに楽なので、使っている人も多いと思います。 my $foo = "bar"; my $tmp = time(); # ←関数の実行結果 print<<EOF; <div class="${foo}1"> <h1>TIME: $tmp</h1> </div> EOF しかし、ヒアドキュメントの途中でサブルーチンの実行結果も一緒に埋め込みたいときがでてくるときがあります。 @{[ Perlの式 ]} そのようなときは、@{[ リスト ]} というイディオムを使うと非常に便利です。 print<<EOF; <div class="${foo}1"> <h1>TIME: @{[ tim
コマンドラインでデジタル写真にメタデータを追加する | OSDN Magazine
デジタルメディアファイルの有用性は、メタデータをタグ付けすることでより高くなる。つまり、写真の説明をそれぞれの画像に埋め込んだり、外部データベースに保存したりできるのだ。 ExifTool は、写真、オーディオ、ビデオのメタデータをLinuxで管理する効果的なツールであり、柔軟性が高くて手軽に使える。ここでは、ExifToolを使ってJPEGファイル内のEXIFデータを処理する方法を紹介する。 ExifToolの柔軟性の高さは、その構成に起因している。このツールは、EXIFデータを扱うためのマルチプラットフォームのPerlモジュール群と、それらをコマンドラインから利用するためのexiftoolという小さなプログラムで構成されている。exiftoolでは、パイプまたは（リモート）ファイルからのデータや画像の読み書きが問題なく行える。たとえば、ネットで見つけたJPEG画像をローカルにコメント付
おそらくはそれさえも平凡な日々: 2013年のGetopt::Long
完璧な引数処理モジュールなどといったものは存在しない。完璧なGetopt::Longが存在しないようにね。 バッドノウハウの宝庫として有名なGetopt::Longですが、なんだかんだでデファクトで、gnu parallel等、名の知れたコマンドラインツールで使われていたりします。標準モジュール縛りでサクッとコマンドラインツールを書くこともあるでしょうし、そうではなくても、Getopt::Longで片付くことも多いので、個人的なベタープラクティスとかtipsとかを書きます。 Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 大事なことは上の記事に書いてあるので、まずはこれを読んでください。 サンプルコード 僕がスクリプトを書くときのの雛形は大体以下の様な感じ。 #!/usr/bin/env perl =head1 DESCRIPTI
Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
Perlでコマンドラインオプションをparseしようと思うと組込みモジュールとしては Getopt::Std と Getopt::Long がある。が、long style option *1 つまり --option-name のようなオプションを解釈してくれるのは Getopt::Long だけだ。なので普通はこちらを使おう。 ただし 絶対にデフォルト、つまり以下のようにして使ってはいけない。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
Algorithm::NaiveBayesで2ch系まとめサイトをカテゴライズしてみた - 岩手からこんにちは ☆彡 perl とかウェブ系なブログ
2ch系まとめサイトのアンテナ？的な新着サイトは結構あるんですが、勉強もかねてAlgorithm::NaiveBayesでベイズ使ってカテゴライズしてみたメモ。 Algorithm::NaiveBayes http://search.cpan.org/~kwilliams/Algorithm-NaiveBayes-0.04/lib/Algorithm/NaiveBayes.pm 目標 はてぶみたいに自動でカテゴリ分けしたい 参考に・・ 新はてなブックマークでも使われてるComplement Naive Bayesを解説するよhttp://d.hatena.ne.jp/tkng/20081217/1229475900上のサイトをみるとはてなではComplement Naive Bayesがつかわれてるっぽいです。 ここではAlgorithm::NaiveBayes 単純ベイズを使いました。
[Perl]ファイル出力時にXML::RSSの文字化け（エンティティコード化を防ぐ）対策 : 構想雑文
構想雑文 WEBデザインとmacに関すること中心の自分向けメモ主体のブログ。 DREAMWEAVER、Illustrator、Photoshopなどのアプリケーションの設定や使い方。HTML、CSS、JavaScript、PHPのコーディングのことをあれこれ書いています。 ブログネタ：perlプログラミング に参加中！ XML::RSSを使った自作PerlのRSS生成スクリプトが急にエンティティコード（こう感じ→ ム）でRSSを書き出すようになってしまい、困りました。 Nix::WebLabさんの「XML::RSS で文字化け」という記事によると、XML::RSSのバージョン1.12以降はどうやら出力時の処理がデフォルトでエンティティコードにして書き出すように変更したからっぽい。 そのスクリプトを使っているウェブサイトは、さくらインターネットにあるんですが、どうやら
![[Perl]ファイル出力時にXML::RSSの文字化け（エンティティコード化を防ぐ）対策 : 構想雑文](https://cdn-ak-scissors.b.st-hatena.com/image/square/da78a05937633f7a2b4b2219826151c370cd607b/height=288;version=1;width=512/https%3A%2F%2Fparts.blog.livedoor.jp%2Fimg%2Fusr%2Fcmn%2Fogp_image%2Flivedoor.png)
Amon2::Liteでmarkdownその他のリアルタイムプレビュー - すぎゃーんメモ
http://d.hatena.ne.jp/tokuhirom/20110710/1310303859 でAmon2::Liteが出てきて、Mojolicious::Liteのようにアプリが書けるようになったので、 Mojolicious::Liteを使ってMarkdownをリアルタイムプレビューしてみた - アリ 昨日のリアルタイムプレビューは... - アリ リアルタイムプレビューしたい - アリ これと同じものもAmon2::Liteで同じように簡単に書けるようになったはず、ということで練習がてら書いてみた。 #!/usr/bin/env plackup use strict; use warnings; use Amon2::Lite; use Encode 'encode_utf8'; use Text::Markdown 'markdown'; use Text::Xatena
YAPC::ASIA 2011で最近のPerl界隈の"当たり前"を勉強する - hsksnote
@hsksyusk Hosokoshi Yusuke#yapcasia で知らない事とかついていけない話とか多いけどこれはこれでモチベーション上がるしキーワードくらいなら拾えるから来てよかった。 Oct 14 via EchofonFavoriteRetweetReply ということで、今年に入ってからPerlを始め、Catalystで作ったwebアプリケーションをそのままサーバに乗せてCGIで動かしてる私め*1が、初めて参加したYAPC::ASIAで拾ってきたキーワードに関する簡単なまとめとリンク集を作りますよ。 先に断っておきますが、最新情報はありません。このあたりが常識っぽいなというまとめです。 Dancer Sinatraライクな軽量Webアプリケーションフレームワーク。 今回のYAPCでは、@tomitaさんがCPANモジュールガイド編集後記＋αの中で触れていました。最近使ってる
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
初めて Perl でコードを書く時に知っておきたかったこと - あらびき日記
ごりゅご.com