Perlでtry-catch-finally文を使いたい（2022年版？）

Perl

以下の過去記事への自己レスのようなものです。 ryozi.hatenadiary.jp コメントで教えていただいたり、try featureが追加されたりしていたのでこれを機に色々使ってみました。あと、タイトルから「（Javaのような）try-catch-finally文をPerlで行う方法」と…

2018-11-28

文字列に含まれる複数の数値を考慮したソート

Perl

ディレクトリとファイルの整理をすることになって、ファイル名に基づいて連番を振るリネーム作業が必要になった。 2_0001.dat、10_0001.dat、10_0002.dat だとか、10_aa.dat、10_ab.dat、といった感じのファイルをいい感じに並び替える必要があった。見ての…

2016-05-22

WWW::Mechanize(LWP::UserAgent)でHTTPリクエストの前後に処理をはさみたい

Perl Perl5

WWW::Mechanizeを使うとリダイレクト処理とかよしなにやってくれて便利。しかし、うまくクエリパラメータが渡されてないとかになってくると、やっぱり間の状況もしっかり見たくなる。つまり、curl -Lv URL みたいに、リダイレクトを含めたリクエストログを…

2013-08-04

value-domainのDDNS更新を使わずになるべく安全に更新したい

プログラミング perl

DDNS更新は固定IPを持たない自分としてはとても便利なのだけど、value-domainのDDNS更新はhttp通信のため、DDNS更新用のパスワード情報を傍受される可能性がある。これは非常によろしくないので、セキュアに通信する方法を考える。(結構当たり前のように使わ…

2012-07-06

CPANの初期設定を間違えた場合に再設定する

Perl

PerlいれてCPAN入れて初期設定をEnter連打して飛ばしたら、 CPANのミラーにロクに繋がらない状態になって焦ったので。 cpanで o conf を入力 cpan[1]> o conf $CPAN::Config options from /root/.cpan/CPAN/MyConfig.pm: ...以下略このファイルを削除するな…

2012-07-05

RSSパースべんち in windows

Perl

このあたりがよくまとまってました。 http://weblog.nqou.net/archives/20090223224328.html PurePerlなFeedPPが結構頑張ってる印象。自分で書いたSAXハンドラーがどんなもんか試した。いろんなパーサーで。 Rate XML::Feed XML::RSS XML::SAX::PurePerl +…

2012-07-02

XML::SAXで遊んだ

Perl

RSSを扱う用事があったので、普通のRSSリーダを使ってたけども、ふと、SAXパーサを使って読み取ってみたくなったので、試した。 DOMだと全体を読み取らないとダメなので、場合によってはメモリを食べてしまう。 SAXなら上から読み取って、いくつかのタイミ…

2012-07-02

正規表現雑メモ

Perl

ちょろっとPerl正規表現で遊んでたので、適当に書いとく。式を文字列として書くなど use strict; use warnings; use 5.10.1; # 普通 say 'xyz' =~ /y/; # 1 say 'xyz' =~ 'y'; # 1 # メタ文字 say 'xyz' =~ /.yz/; # 1 say 'xyz' =~ '.yz'; # 1 # オプショ…

2012-05-23

Encode::find_encodingで得られるオブジェクトはスレッドセーフ？

Perl

Encodeモジュールはスレッドセーフではない、ってどこかに書いてあって、 find_encodingで得られるオブジェクトを使いまわしてる身としては気になったので。 (スレッド間で使いまわすことはないんだけど。) 適当にスレッド作ってループ回してみたけども、ス…

2012-05-10

Mojoliciousでアップロードファイルを受け取った時にMojo::Asset::MemoryかMojo::Asset::Fileか判別する

Perl

$file->asset->is_file を使うとファイルか否かの判別ができます。 my $file = $self->req->upload('file'); if($file->asset->is_file){ print("filepath: ". $file->asset->path); # 一時ファイルパスが表示される }else{ print("content: ". $file->asset…

2012-05-10

ファイル演算子とopenとベンチマーク

Perl

ファイル存在の確認はファイル演算子である、-fを使うと思うのだけど、 openの戻り値を見ても出来るから、もしかしたら・・・と思ってベンチマークとってみた。 use strict; use Benchmark qw(cmpthese); my $filepath = "bench.pl"; cmpthese(10_000, { 'op…

2012-05-05

multipart/form-dataで送信する際、任意のfilename値を指定する

Perl

LWPでできるかなって思ってたら、すぐできなかったのでSocket叩いて書いたけど、調べたら普通にLWPで出来た。ですよねー。 use LWP::UserAgent; use HTTP::Request::Common; my $ua = new LWP::UserAgent; my $res=$ua->request( POST('http://192.168.11.2…

2012-04-09

XSでprintfするだけ

Perl

XSってなんか難しそうと思っていたけど、わりと簡単だった。 Windows 7 64bit + Strawberry Perl 5.12.3.0 printfするだけなので実用性はないけども、引数を受け取って処理できるようになってくると、捗りそう。 CODE部分はC言語でもりもり書けますし。参…

2012-04-04

スタックトレースを表示してくれる、diagnosticsプラグマ

Perl

dieすると、そのdieした場所の行しか教えてくれないので、何から呼ばれたのか、とかそういった情報がなかったので、今までprintデバッグでトレースしてました。 diagnosticsプラグマを指定しておくと、dieしたときとかにスタックトレースを出してくれます。…

2012-02-17

LWPでgzip圧縮されたコンテンツの取得

Perl

LWP::UserAgentを使って某FC2の某RSSを取得してたら、どうみてもUTF-8らしからぬデータが返ってきて焦った。早速、某エディタを使って作業か・・・と思ったら、某campで先頭4byteを見て某U先生が「これはgzipですね」と言っていたシグニチャを覚えていたの…

2012-02-06

Windows版PerlでMeCabを使いたい

Perl Windows

前やってダメだった、Windows版PerlへのText::MeCabの導入が出来たっぽいのでメモ。 MeCabのバージョンは0.98で、PerlライブラリにText::MeCabを使います。文字コードはUTF-8とします。

2012-01-31

MeCab 0.991

Linux ソフトウェア Perl

形態素解析とかよくわかんないけど、偉い人らが作ってるので使ってみたかったの。 WINWINな環境で頑張ってたけど、うまくいかないので投げた。まずはおとなしくLinuxでやります。本体 wget http://mecab.googlecode.com/files/mecab-0.991.tar.gz tar xzvf…

2012-01-22

SelfLoader

Perl

ドキュメント見ればいいです。 http://perldoc.perl.org/SelfLoader.html use strict; use warnings; use SelfLoader; # 1 while(<DATA>); # 先にDATAを全て読み出してしまうとダメ print foo() . "\n"; # OK print bar() . "\n"; # SelfLoaderを使っている && ま</data>…

2011-12-18

エスケープを含む文字列に一致する正規表現(PCRE)

Perl

Perlのプログラムの中の文字列定義を数えるための正規表現多分動くはず・・・というか、qq ah\agea もOKとかびっくりだよ。もう少しスマートにならないもんか。 # テスト。文字列は9個ある my $string = <<'_X_'; print('hoge :' . "$hoge"); print('aaa …

2011-11-27

use fields; と my TYPE EXPR;

Perl

my TYPE EXPR;という書式を初めて知ったので調べた。資料 my - perldoc.perl.org fields - perldoc.perl.org 追記御叱り元 Re: use fields; と my TYPE EXPR; - Islands in the byte stream fields::new()が遅いからですね。fields::new()の意味は、5.10.0…

2011-11-23

Perlでtry-catch-finally文

Perl

2022/12/30追記: 本記事は「Perlのプロトタイプ宣言を利用してtry-catch-finally文を作る」といった記事です。コメントにある通りTry::Tinyがまさしくこれをちゃんとやっています。もし「Perlでtry-catch-finallyを行いたい」という場合は次をお読みください…

2011-09-19

wind0wsのような感じのファイル名ソートをしたい

Perl

普通の文字列比較では、"a999.txt"と"a1000.txt"では、後者が小さいとみなされます。しかし、後者が大きいと判定したほうが、自然です。 Wind0wsの場合は数値の部分は数値の比較を行ってくれるようで、ファイル名ソートすると、良い感じにやってくれます。 …

2011-09-08

ファイル内の任意の文字列(バイナリOK)を探索

Perl

Windowsのファイル内検索システムがクソすぎるので急ぎで作った。 my $search = "文字列"; my $MIN_BUFFER_SIZE = 4096; foreach my $file (<*>){ if(! -f $file){ next; } print "$file\n"; open my $FH, "<", $file || die 'cant open file'; binmode($FH)…

2011-07-04

データベースのお勉強がてらに、ただタギングするツール書いた

Perl

Perl5.10(1005) + DBI + DBD::SQLite で動きます。本体コード: Local/Util/TaggingDatabase.pm http://ideone.com/bU1R8 テスト: test.pl http://ideone.com/6QKsc

2011-05-08

zipで圧縮

Perl

CSのデモを整理のためにzip圧縮しようとしたら、220個ものデモを手動でぽちぽち圧縮するのはとんでもなく面倒な事に気づいて、コマンドラインで出来れば・・・と思ったので。オレオレバッチ処理プログラミングは楽しい。それにしても久々に普通のプログラム…

2010-12-14

userstreamapi おまけ

Perl

前の続き。 LWP::UserAgentを眺めていたら http://perldoc.jp/docs/modules/libwww-perl-5.813/LWP/UserAgent.pod#item__ua__gt_get___url__ :content_cb オプションでコールバック関数が指定されると、レスポンスの内容の塊ををサーバから受信する毎にこの…

2010-12-12

TwitterのOAuth認証を通過してTLを取得

プログラミング Perl

OAuth認証を通過してTwitterの自分のアカウントのTLを取得するプログラムをPerlで書いてみた。色々間違っていそうだけど、とりあえずTLを取得できたので、その流れをメモ。 Net::OAuthとか使うんだろｗｗｗｗとか思ってた人、ごめんなさい。ほぼ標準で入っ…

2010-12-06

HMAC + 何か

Perl

HMAC - Wikipedia http://ja.wikipedia.org/wiki/HMACRFC2104 - HMAC: Keyed-Hashing for Message Authentication http://tools.ietf.org/html/rfc2104 要するに、データをキーでハッシュします。これによりデータを認証できます。 Perlで簡単に実装できるの…

2010-12-05

文字列と排他的論理和

Perl

Perlで文字列に対して排他的論理和(xor)などのビット演算が使える事を知りました。

2010-11-10

マジカルインクリメント

Perl

マジカルインクリメントとかブルートフォース以外で何に使うんだよ・・・