$ cd jpeg && make libjpeg.a make[2]: ディレクトリ '/home/HogeDesu/.cpan/build/Tk-804.034-1/JPEG/jpeg' に入ります make[2]: 'libjpeg.a' は更新済みです. make[2]: ディレクトリ '/home/HogeDesu/.cpan/build/Tk-804.034-1/JPEG/jpeg' から出ます make[2]: ディレクトリ '/home/HogeDesu/.cpan/build/Tk-804.034-1/JPEG/jpeg' に入ります make[2]: 'all' に対して行うべき事はありません. make[2]: ディレクトリ '/home/HogeDesu/.cpan/build/Tk-804.034-1/JPEG/jpeg' から出ます make[2]: ディレクト

シンプルなDiffツールのひとつとして 職場ではWindowsを使っていて、普段DiffをとるときはGUIなAraxis Mergeを使っています。1文字単位で差分を色分けして表示してくれるので、わかりやすく便利です。 とはいえ有料ソフトなので、だれでもが使えるわけではないのです。 かんたんに差分を確認したいだけであれば、色分け表示とかなくても大丈夫でしょう。 そんなとき、Perlクックブック Vol.1をぱらぱら見ていたら、ずばりText::Diffというモジュールが見つかりました。 このモジュールの使い方と出力のサンプルをのせてみます。 コード file1 吾輩わがはいは猫である。名前はまだ無い。 どこで生れたかとんと見当けんとうがつかぬ。 何でも薄暗いじめじめした所でミャオミャオないていた事だけは記憶している。 file2 吾輩わがはいは猫である。名前はまだ無い。 どこで生れたかとん

おそらく、ブラウザがクライアント証明書でサーバーにアクセスすれば済む事です。 わざわざ手間をかけているだけですから笑って見てください。 サーバー管理者の私だけがsshやftpやメールの送受信を行いたいので、自宅のグローバルIPアドレスに限り、それ用のポートを開きたい。 固定IPではないからプロバイダが所有するIPアドレスのどれかに変更されてしまう。 ひと昔前であれば、大きなCIDRをいくつか所有する程度でしたからiptablesでCIDRを全部指定しておけば カバーできました。 けれどIPv4枯渇の都合でプロバイダ間の譲り合いが多発、小さなCIDRを多量に所有する状態のようです（推測）。 特に私が契約している零細プロバイダは上位プロバイダから回線を借りていて、そこが小さいCIDRを持っています。 CIDRからハミ出た（＝別のCIDRに変わった）ことが１ヵ月に４度も起き、 その度にVPSを修

JSONのような階層構造の一部（枝葉）を渡すケースがあり、それ以来その手のデータはハッシュのリファレンスを渡すようにしています。 あとLWP::UserAgentといったモジュールの関数からリファレンスが返るので慣れちゃったせいもあるかな。 お好みでどちらも行けるのがPerlの良い所。 #!/usr/bin/env perl -w use utf8; use strict; use warnings; use Encode::Locale; use Encode::Argv; use URI; use feature "say"; binmode STDIN, ":encoding(console_in)"; binmode STDOUT, ":encoding(console_out)"; $| = 1; my %h = ( name => "たこルカ", size => "手乗りサイズ

ディレクトリlogがあるとmorboがログ表示の代わりにlog/development.logに出力するのでMojoliciousの反応が即座に分からない。 ファイル出力と同時にログ表示もしたい。 スクリプトでログファイルをtailしつつ、morboを起動すれば良いです。 環境変数MOJO_LISTENは起動時の-lオプション、コードの中の??????????はサーバー証明書のファイルです。 #!/bin/bash MOJO_LISTEN='https://*:3000?cert=??????????&key=??????????&ca=??????????&version=TLSv1_2&ciphers=EECDH+HIGH:EDH+HIGH:HIGH:MEDIUM:+3DES:!ADH:!RC4:!MD5:!aNULL:!eNULL:!SSLv3:!SSLv2:!LOW:!RSA:!E

ＷｉｎｄｏｗｓでＰｅｒｌを使おうとして（例えばＡｃｔｉｖｅＰｅｒｌ）、ブログとかのＬｉｎｕｘ下のＰｅｒｌスクリプトをコピペして爆死、原因を調べようにもＷｉｎｄｏｗｓ下との違いを書いたブログなどを見つけられずに玉砕されている人達が結構いらっしゃるようなので。 今時のＰｅｒｌなら、スクリプトの頭はこんな感じですよね。 ファイルの文字コードはＢＯＭなしのＵＴＦ－８です。 改行コードは愛用のエディタに合わせておけば良いと思います。 私はＶｉｍを使っているので設定次第ですからＬｉｎｕｘ風に０ｘ０ａにしています。 なおメモ帳で開くと改行してくれません（笑）。 #!/usr/local/bin/perl -w use utf8; use strict; use warnings; use Encode; 実行時の環境に合わせ、端末とプログラムの文字コードを変換してくれます。 ちなみにプログラムが扱う文字

という訳で書いてみました。 #!/usr/bin/env perl -w use utf8; use strict; use warnings; use Encode::Locale; use Encode::Argv; use feature "say"; binmode STDIN, ":encoding(console_in)"; binmode STDOUT, ":encoding(console_out)"; $| = 1; say "リストを返す関数の場合"; say "配列に代入"; my @a = return_list(); say "配列：@a"; say "変数に代入"; my $s = return_list(); say "変数：$s"; say "戻り値のリファレンスを変数に代入"; my $r = \return_list(); say "リファレンス：$r"

@yukikimoto さんのツイートを発端に色々調べることになった件をまとめますが、このまとめ自体へ方々からツッコミが入ると思います。 編集リクエスト、コメント大歓迎。皆さんの知識を借りて有用な記事にしたいと思います。 Perlにおける真値とは？ 代表的な値として1が挙げられますが、これは正確ではありません。Perlでは、__偽値でないあらゆる値が真値__です。偽値の定義が複雑なのでもはやこう表現するほかありません。 Perlにおける偽値とは？ 他言語との比較でよくある誤解としてfalseという文字列があげられますが、これは真値です。falseという関数も（作らなければ）ありません。 とりあえず列挙。 0と'0'や"0" 空の文字列（''や"") 空のリストや配列'()' undef 「真偽値コンテキストでの偽値」としか言い表せれない値1（　!1など） 次に、一つ一つ見ていきましょう。

Mojoliciousがデフォルトのアイコンファイルを持っていて、アプリケーションのルーティングの設定よりも先に参照されます。 場所はMojolicious::Staticのextraです。 extraのfavicon.icoを削除して自分が設定したルーティングで希望のfavicon.icoを返せば良い訳です。 # favicon.ico delete $self->static->extra->{"favicon.ico"}; 希望のfavicon.ico以外にも単純にディレクトリにあるファイルを返すようにしています。 コントローラー「anyfile」のメソッド「through」を呼び出すルートを設定、リクエストの際はルートのファイル名がスタッシュ「filename」に入ります。 # マッチしなかったその他のファイル全部 $r->get("/#filename")->to("anyfil

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

こちらのサイトを参考にしました。→ Tcl/Tk お気楽 GUI プログラミング入門編 参考にした書き方がこちら。 bind .lb <Double-1> { ～ } それと .lb curselection で選択した行が返るようです。 コマンド名＋ウィジェット名＋パラメタの場合は「"ウィジェットの変数"->g_"コマンド名"(パラメタ)」で呼べます。 呼び出すサブルーチンdouble_clickの第１引数にウィジェットを渡して操作できるようにします。 $lbx->g_bind( "<Double-1>" => [\&double_click, $lbx, ], ); ウィジェット名＋コマンド名の場合は「"ウィジェットの変数"->"コマンド名"」で呼べます。 $lbx->curselection; 手軽にスクロールバーを付けられるのでリストボックスはこれを使っています。 Tkx::Scr

3年半ぶりに東京に返ってきたYAPC～YAPC::Tokyo 2019 第3回AWS::XRayによる解析とその実装 / 多くのCPAN Authorに育てられ、息をするようにCPANモジュールを書けるようになり、そして分かったこと 全29の多彩なトーク YAPC::Tokyo 2019レポート、第3回です。 今回のYAPCは全部で29のトークがあり、テクニカルな話題、コミュニティの話題、エンジニアの話題など、さまざまな観点のトークが用意されました。 今回はテクニカルなトーク、そして、ベストトークを受賞した今回の珠玉のトークをお届けします。 これまでの模様はこちらをご覧ください。 第1回　型にはまらない型の話、Perl to Go 第2回　Perl5の静的解析入門、ゲストトーク「2つのDX」 PerlでもX-Rayが使えるように 今回、まずレポートするのは、LINE社主催のISUCONにお

第四回が迫ろうとしているのにまだ第二回を終えていないのでびっくりびっくりBIN BIN!!ですね。とりあえず第二回を軽くさらっていくぞと思いつつ、そういえばプログラムなんて1ヶ月以上触れていないから思い出せるか心配。というか間に合うのかこれ。そして体力的に行けるのかこれ。 第二回のスライドを探していたら、Perl入学式申し込み画面にGitHubのリンクが貼ってありました。ありがえてえありがてえ……。 github.com ということでさっそく、第一回目の復習を軽くやるぞ！ ……コイツなんか初っ端からありえない躓き方してるな。すでにperl-entranceにいるのにこれ以上どこにディレクトリを移動しようとしてるんだ。あとちょいちょい意味不明なtypoしてるけどほぼ寝ぼけながら打っているので勘弁して欲しい。現在時刻、午前4時です。 前回の復習の時点で結構周りの人よりも手間取っていて、でもなん

静的解析と人の歩み寄りがコードの治安を守る お弁当が配布されたランチスポンサーセッションの終了後、Room 1へ移りmacopyさんの「Perl5の静的解析入門」を聞きに行きました。Perl5のソースコードの静的解析には興味があり、個人的に楽しみにしていたトークの1つです。 macopy氏はPerlをテーマに、静的解析と人の歩み寄りについて自身の考えを発表しました macopyさんは、そもそも静的解析とはどういうものなのかというところから話し始めました。静的解析とは、本質的にはコードをただの文字列として扱うことです。通常、Perlで書かれたプログラムはperlコマンドによって実行されるものですが、静的解析では文字列を読むだけで実行をしません。静的解析の利点として挙げられていたのは、コードの「見たままを扱える」こと。プログラムは実行できる形式に変換される過程で最適化され、不要な情報がどんどん