[B! perl] kkobayashiのブックマーク

第140回ブロックを渡せるのはRubyだけじゃない!　Perlだって渡せるんだ！ - bingo_nakanishiの他言語出身者のためのPerl入門

YAPCが始まりましたね。去年は参加したのですが︵聴衆の方ですが︶、今年は非常にとてつもなく残念な事に参加できません。でも気分だけでもひたりたいのでPerlのお話を少々。 Rubyに備わったブロックという概念 Rubyは言語自体に高階関数をブロックという形でもっており、 eachなどで使われているのは有名です。例‥ array = [1,3,5,9] array.each{|i| puts i} eachに与えている { }の部分がブロックです。自前でブロックを受け取る関数を作りたければ yield を使えばよいでしょう。今回のお話の内容は﹁Perlでもブロックを渡せる﹂ということなので、 eachの機能, yieldの機能は知っておられるという前提で先にすすみたいと思います。 Perlのブロックを使った例それではRubyの話はこれくらいにしてPerlの話にまいりましょう。ま

kkobayashi 2017/02/14

"プロトタイプで&を指定することでブロックを受け取ることができます"

perl

リンク

perl - HTTP::Date : 404 Blog Not Found

2006年09月04日13:45 カテゴリLightweight Languages perl - HTTP::Date モジュールなしとは行かないのだけど、HTTP::Dateは紹介するに値する。 [を] 日付文字列のencode/decode とある用途に、日付っぽい文字列を手軽に可逆変換する方法を模索中。モジュールなしで済ませたい。なんといっても、LWPに付属しているので、インストールベースをあまり気にしなくてよいのがよい。今時LWPをinstallしていないとしたら、そちらの方がperl mongerとしては問題といえるほど普及しているので。対応しているフォーマットは、以下のとおり。 HTTP::Date - date conversion routines - search.cpan.org The function is able to parse the followin

kkobayashi 2017/01/24

perl

リンク

Google Sites: Sign-in

Not your computer? Use a private browsing window to sign in. Learn more about using Guest mode

kkobayashi 2017/01/08

つらい

perl

リンク

Windows上でperlを使って日本語ファイル名を操作する(メモ – OSAKANA TAROのメモ帳

slashdot.jpの﹁Perlはゾンビだ﹂に、日本語Windows環境において、perlを使って日本語ファイル名を操作する時の注意点がまとめられていたので、引用＆備忘録化。過去にperlスクリプトを作る際、ファイル内に書かれた日本語の操作に関することはWindows/Linuxで動作が共通化できたものの、﹁日本語ファイル名の取り扱い﹂について、Windows上での動作がいまいち分からず、面倒になり、NASに該当ファイル群を置き、Linuxで処理する、ということをしたことがある。その時に受けた感じからすると、以下の解説は非常に納得がいくモノだった。﹁Anonymous Coward の書き込み (#2628619) ﹂よりコマンドラインからの引数取得とかファイル操作とかのたびに @ARGV = map { decode(‘cp932’, $_) } @ARGV; とか open

kkobayashi 2017/01/08

本当に日本語ファイルの取り扱いは面倒。

perl

リンク

Perl 101 - Debugging

Turn on strict and warnings Whenever debugging code, make sure the strict and warnings pragmata are turned on. Put these two lines use strict; use warnings; at the top of any program you're trying to debug, or may want to debug in the future. (If you think about it, that's every program ever, isn't it?) The http://perldoc.perl.org/strict.html strict pragma forces you to use a number of features th

kkobayashi 2016/11/17

perl

リンク

dropbox-api-command - DropboxでLinuxライクなコマンド操作を - Articles Advent Calendar 2011 Casual

はい、One Page Appsの@su_askaです。今日はちゃんとPerlの話をしようと思います。 DropboxというとクライアントOSにインストールして使用するイメージが強いですが、自分のサーバー上でも利用したい場合もあります。 Linux用のパッケージもあるので全部同期して構わなければそれをインストールする方法もあるのですが、デーモンまで上げるのはちょっと大袈裟だなーというシチュエーションもありますよね！例えば... 個人契約のサーバーで運用しているDBのバックアップ期間削除そんな時はdropbox-api-commandの出番です！（迫真 https://github.com/s-aska/dropbox-api-command インストールの仕方や細かい使用方法は上記URLを参照下さい。豊富なコマンド群 linuxライクな ls **find** **sync**

kkobayashi 2016/01/13

へぇこれは便利

perl

リンク

書き捨てスクリプトを書くときに便利なモジュールとPragmatic Module - Articles Advent Calendar 2010 Casual

先月末から原稿を書こう書こうと延ばし延ばしきて当日に書いている私ことpunytanです。みなさん、書き捨てスクリプト書いてますか？書いてますよね。書き捨てのつもりがいつの間にかオプションを取るようになっていて、使うときに﹁オプションなんだっけ…?﹂なんてことよくありますよね。ありますね。そんなときはGetopt::Long と Pod::Usageを組み合わせて使うと POD で Usageを書く事ができます。便利！ use Getopt::Long; use Pod::Usage; my $man = 0; my $help = 0; GetOptions('help|?' => \$help, man => \$man) or pod2usage(2); pod2usage(1) if $help; pod2usage(-exitstatus => 0, -verbose

kkobayashi 2015/09/02

これは便利

perl

リンク

WWW::MechanizeやWeb::Scraperはmetaタグを見てデコードするが、charset=Shift_JISのコンテンツって実際にはCP932なので化けるのを防ぐEncode::Alias

WWW::MechanizeやWeb::Scraperはmetaタグを見てデコードするが、charset=Shift_JISのコンテンツって実際にはCP932なので化けるのを防ぐEncode::Alias スポンサードリンク Tweet WWW::MechanizeというPerlのウェブブラウザになりきるモジュールで、2006年9月の、バージョン1.21_01から、自動的にHTML文書のmetaタグなどからエンコーディングを取得して、デコードしてくれるのだけれども、オンライン上にあるほとんどのShift_JIS指定のHTML文書のほとんどが実際にはCP932︵シフトJISのMicrosoft拡張︶になっているために、文字化けしちゃうっていう問題があって、どうすれバインダー︵未解決︶っていうのを以前やりました。 M.C.P.C.: WWW::Mechanizeはmetaタグを見てデコードする

kkobayashi 2014/05/09

おーできた

perl

リンク

第20回　Email::Sender：メールを送信する | gihyo.jp

メール送信のあれこれたとえばウェブアプリケーションでなにかの注文を受け取ったとき、あるいはシステム管理ツールでなにか異常を発見したとき、ユーザや管理者にメールを送れるようにしたい、というのはよくある要件です。昔はヒアドキュメントやテンプレートエンジンなどを使って送信したいメールを用意したあと、sendmailへのパイプを開いてメールを流し込んでいたものですが、いまはメールの作成から送信まで、すべてモジュールを使って実現できるようになっています。とはいえ、需要が大きいだけにメール関係のモジュールは山のようにあります。ディストリビューション︵パッケージ︶の数だけで500を数えますし、メール関係の名前がついたモジュールは現在CPANにアップロードされている7万以上ものモジュールのほぼ1割を占めるほどです。これではどれを使えばよいのかわからないという声があがるのも当然でしょう。そこで今回はP

kkobayashi 2014/02/19

perl

リンク

Perlゼミ(サンプルコードPerl入門)

Perl入学式全6回のPerl入門講座。東京、大阪、沖縄、札幌で開催。(東京は4月と10月スタート、それ以外は5月スタート) YAPC::Japan Perlを軸としたITに関わる全ての人のためのカンファレンス。東京吉祥寺.pm 五反田.pm 大阪なにわPerl 沖縄沖縄.pm

kkobayashi 2014/01/31

なるほど。

perl

リンク

Perlでインストールされているモジュールを全部リストアップする - （ひ）メモ

[twitter:@fujiwara] さんのこれ、新しいPerlに今まで使ってたモジュールをまとめてインストールする - 酒日記はてな支店 ExtUtils::Installedで現在インストールされているモジュールからcpanfileを作るをベースにちょっと弄ってモジュールをリストアップするスクリプトを書いて使ってたんですが、core モジュールがリストアップされてなかったので、もろもろ対応したのを上げましたのでどうぞみなさまお使いくださいませ。 https://github.com/hirose31/list-installed-perl-modules 出力フォーマットは、バージョン固定な cpanfile と Perl のハッシュの2つです。 Carton使ってないけど、同じモジュール、同じバージョンのモジュールを一式、新環境にもりっとまるっと入れたい！とかってときに便利か

kkobayashi 2014/01/27

べんり

perl

リンク

#735366 - libnet-twitter-perl: "403 Forbidden" error with default params due to SSL/TLS traffic restriction - Debian Bug report logs

kkobayashi 2014/01/24

いつの間にかbotが止まってた原因はこれかー

perl
twitter

リンク

ピヨピヨ ZeroMemory( ) » Blog Archive » Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには

変数の中身を表示してくれるperlのCPANモジュール、Data::Dumperは、UTF8フラグのついているデータがエスケープされて文字化け状態になってしまうため、UTF8で日本語を扱う時に困る。でもそもそもUTF8フラグがついていなければエスケープされることもなくて困らないのはなんで？というわけでソースを読むと Data::Dumper::qquote() というメソッドの中で、文字列をエスケープする条件に my $bytes; { use bytes; $bytes = length } s/([^\x00-\x7f])/'\x{'.sprintf("%x",ord($1)).'}'/ge if $bytes > length; というトリッキーなコードが入っていた。UTF-8フラグがついていると、UTF8の文字列が正しく文字として認識されてlengthがバイト数よりも小さくなるので

kkobayashi 2013/09/22

perl

リンク

Perlの一文字変数の攻略 | Hachioji.pm 日めくりテックトーク

xtetsujiです。昨今は書籍よりも検索エンジンに頼って勉強する人が多くなってきているのかもしれませんが、そういう人を戒めるかのようにPerlでは﹁ググれない﹂一文字変数や一文字シンボルやそれに類するものの数々があります。実際のところ、ちゃんと書籍を通読したり、perldoc perlvar perldoc.jp/perlvar を読めば理解できるのですが、それでもハマる落とし穴といったところを解説していきたいとおもいます。 use English; は使わない perlvar の解説を読んでいると、一文字変数が嫌な場合は use English; とすれば $_ が $ARG として参照できて嬉しいよ、といった解説が行われていますが、通常 use English; は使いません。というか、use English; を使ったプロジェクトを内外で見聞きしたことが10年の間に私の経験上あ

kkobayashi 2013/09/17

確かにこのくらいしか使わない。

perl

リンク

perl - LWP::UserAgentで進捗表示しつつダウンロード : 404 Blog Not Found

2008年11月21日00:15 カテゴリLightweight Languages perl - LWP::UserAgentで進捗表示しつつダウンロード食後のデザートとして手頃なサイズの問題だったので。 Ruby Net::HTTP で進捗表示しつつダウンロードのメモ - 冬通りに消え行く制服ガールは、夢物語にリアルを求めない。 - subtech #!/usr/local/bin/perl # # $Id: lwp-callback-example.pl,v 0.1 2008/11/20 15:16:48 dankogai Exp dankogai $ # use strict; use warnings; use LWP::UserAgent; use File::Basename; my $uri = shift || die "$0 http://example.com/bi

kkobayashi 2013/04/18

perl

リンク

Perl を学ぶとき、真っ先に覚えたいモジュール

春ですね！新年度ですね！ Perl 書くことになってしまいましたか！奇遇ですね！ sigil が意味わかりませんか！特殊変数がググれませんか！リファレンスが謎ですか！ 1; の存在が不明ですか！オブジェクト指向が難しいですか！むしろオブジェクトじゃないコードの方がゆるくて大変ですか！ XS が読めませんか！ええ、XS は僕もあんまり読めません＞＜さて、この春から Perl を学ぶことになった人も多いかと思いますが、なにはなくともこれまず覚えたら後が楽になるんじゃないかというモジュールを、いくつか紹介したいと思います！ (まあ、自分の初期を思い返すと、この辺はやく知っておきたかったなあというリストです) Data::Dumper, YAML 変数(リファレンス)やオブジェクト(blessされたリファレンス)をダンプする用途では、Data::Dumper が一番メジャーのような

kkobayashi 2013/04/15

perl

リンク

perl - 最速のUTF-8処理法 : 404 Blog Not Found

2013年03月04日14:45 カテゴリTipsLightweight Languages perl - 最速のUTF-8処理法 Perl Cookbook (English, Kindle Ed.) Christiansen / Torkington [邦訳: Perlクックブック] というわけで解説。 2013/03/04:Unicode::UTF8 がガチ爆速すぎる - bayashi.net encode より decode のが差が大きい感じ。encode だけだと、文字列長くなると Encode の方が速いっぽい。まずは改めて検証してみましょう。 https://gist.github.com/dankogai/5079930 確かにその通りになっています。Unicode::UTF8はEncodeはおろかPerl組み込みのutf8::decodeより高速なのか(文字列をコピ

kkobayashi 2013/03/04

perl

リンク

Perlの食えない事情 - 演算子編 - アリ

Perlの食えない事情よりおっと、そうです、Perlには演算子が多すぎるのでした。せっかくの機会なので、Perlの演算子を紹介します。ビーナス演算子: 0+, +0 数値として評価してくれます。意外とよく見かけますね。なぜこの演算子を使う必要があるのかというと、Perlは文字列と数値を明確に区別できないからです。scalarを文字列として解釈するならば文字列として、 print 0+ '10'; #=> 10 print 0+ '123b'; #=> 123 print '1.2e3' +0; #=> 1200 print [] +0; #=> 4303367864 ちなみに、文字列として評価するときにはこのようにするとかっこいいと言われています。 $obj.q(); 一見メソッド呼び出しのように見えますが $obj . ''; と等価です。ベビーカー演算子: @{[ ]} 文字

kkobayashi 2013/02/05

なんじゃこりゃ・・・。というか、下ネタがひどい

perl

リンク

perlで変数の型を調べる - たていすのメモ2

変数がリファレンスである場合に参照先が配列かハッシュか調べる。 blessが絡むとrefだけでもscalarだけでもダメらしい。 sub getDataType($){ return if not ref $_[0]; # return null if not reference type. $_[0]=~/(\w+)\(/; # use scalar to void effect of bless. return $1; } sub test{ my($v)=@_; my $g = getDataType($v); my $r = ref($v); my $s = scalar($v); defined($g) or $g ="(null)"; defined($r) or $r ="(null)"; defined($s) or $s ="(null)"; print "gdt=$g\