YAPC::HokkaidoやYAPC::Kansaiで話した通り、Perl 5.26ではセキュリティ上の問題で@INCにカレントディレクトリが含まれなくなります。p5pやツールチェーン側ではその影響を軽減すべくCPANクライアントやTest::Harnessに従来の挙動を残すような仕組みを用意中ですが、現時点ではまだすべての対策が出そろっているわけではありません。最終的にどうすべきかは5月に開催される予定のPerl Toolchain Summit (旧Perl QA Hackathon)後にあらためてまとめるつもりですが、直接的な影響を受けるCPAN Authorのところには順次バグレポートが届いているかと思いますので、可能であれば以下の対応をご検討ください。 incディレクトリなどにMakefile.PL/Build.PL用の特殊なモジュールなどを同梱している場合 カレントディレクト

Excel-Writer-XLSX はPerl製のソフトウェアです。ブックやワークシートの生成、印刷設定、書式設定等、Excelで行う作業をコーディングで行うことができます。例えば、 定期的に定型の様式で Excel を用いて資料を作成している。 データベースから検索結果を得て、Excelで資料を作成している。 な感じにExcelを利用して手作業で資料を作成している方々に便利です。 Excelには数式やマクロといった便利な機能がありますが、このソフトウェアを利用することで自動的に資料を作成できるようになります。業務システムの帳票を電子化する場合にも役立つでしょう。 以下はコーディングの例です。 use Excel::Writer::XLSX; # Create a new Excel workbook my $workbook = Excel::Writer::XLSX->new( 'pe

bytesプラグマを使うことで解決する。 （11/02/12）追記しました 何もせずに length をしてみると。 use strict; use warnings; use utf8; my $str = "あいうえお"; print length $str,"\n"; 結果は文字数。 5 以下の用に bytesプラグマを使うことで、バイト数を取得できる。 use strict; use warnings; use utf8; my $str = "あいうえお"; { use bytes; print length $str,"\n"; } 結果は、バイト数 15 ブレースで囲むのは、bytesの効果が及ぶ範囲をレキシカルスコープに限定するため。 bytesは何をやってくれるのかというと… use bytes プラグマはそれの現れたレキシカルスコープの残りで文字セマンティクスを無効化し

実家はいまだに携帯電話がまともに通じず、インターネットもないという情報鎖国状態でした。眼は休まったけど、やっぱりネットがないと落ち着きません。 さて、前回PerlのUnicode文字列に対する正規表現検索がなにやらちょっと変わった動作をするというお話を書きました。それに関連して、「Unicodeブロック」という機能がPerlの正規表現検索では利用できるようです。「\p{hoge}」と記述することで、Unicodeで定義されている文字のブロックが使えるのだそうです。 要するに、漢字やひらがな、カタカナの文字だけにヒットする正規表現が簡単に書けるということです。正直なところ、詳しくは僕もよくわかりません。 メタ文字 説明 \p{N} 全角・半角数字 \p{LC} 大文字・小文字のある文字（半角・全角両方） \p{Lu} 大文字の文字（半角・全角両方） \p{Ll} 小文字の文字（半角・全角両方

またまた，仕事用のメモ。 Windows環境で，SQLite3 のコマンドをおもむろに実行すると．．．． 文字コードが，Windows のコマンドプロンプトは S-JIS で，SQLite が UTF-8 の為，2バイトコードのデータが入っているカラムは盛大に文字化けしてくれちゃいます。 そんなときの対処法。 まず，プロパティでフォントに ”MS ゴシック” を指定します。 フォントサイズは 18 ポイントぐらいがちょうどいいかな？ で， chcp コマンドを使って文字コードを変更するだけ。 MSDN で サポートする文字コードを確認すると，UTF-8 = “65001” なので > chcp 65001 と入力すると， こんなかんじで，UTF-8 の表示になります。 冒頭のフォント変更をせずにラスタフォントのままだと，UTF-8 にしても日本語が化け化けになってしまうので注意っす。 あと

[Perl] テーブルによる文字置換 Permalink URL http://www.magicvox.net/archive/2009/03212323/ Posted by ぴろり Posted at 2009/03/21 23:23 Post Comment コメントできます Category Perl で、A→α、B→β、…というハッシュテーブルを用いて文字置換を行うコードの覚書。

Perl › 関数 › here スクリプト上の行番号を取得するには__LINE__を使用します。 __LINE__ サンプル 行番号を取得するサンプルです。 use strict; use warnings; # スクリプト上の行番号の取得 __LINE__ print "1: 行番号名を取得する。\n"; print "この行は、スクリプトの" . __LINE__ . "行目です\n"; Perl › 関数 › here

Perl › 関数 › here caller関数を使用すると、呼び出し元の情報を取得することができます。 呼び出し元のパッケージ名を取得するには、スカラコンテキストでcaller関数を呼び出します。 呼び出し元のパッケージ名、ファイル名、行番号を取得するには、リストコンテキストでcaller関数を呼び出します。 # パッケージ名 my $package_name = caller; # パッケージ名、ファイル名、行番号、サブルーチン名 my ($package_name, $file_name, $line) = caller; さらに上の階層の情報を取得するには? さらに上の階層の情報を取得するには、caller関数に何回層上にたどるかを示す引数を与えてあげます。 # 0 1 2 3 4 my ($package, $filename, $line, $subroutine, $has

でもまだフィード一つも入れてないので釣りタイトルです。 これからyamlの勉強＞＜ それはともかくUbuntu 8.10でplagger入れたのでメモ。 参考記事 http://d.hatena.ne.jp/ketuname/20070430 http://shunirr.org/archives/15 http://retlet.net/log/2008/05/openfl.html 必要らしいパッケージ入れた。 aptitude install libexpat1-dev aptitude install libxml2-dev aptitude install libio-socket-ssl-perl libnet-ssleay-perl libssl-dev 次にモジュールを入れる。 testとか気にせずにforceでねじこむのがジャスティスらしい。 cpan -i Bundle

1. Perl スクリプトを gdb でデバッグ 2011/10/15 YAPC::Asia Tokyo 2011 @ 大岡山 株式会社ディー・エヌ・エー 樋口　証 2. Perl実行中のプロセスをデバッグ 今どこの perl コードを実行してるのか知りたい どこかで固まってるが場所がわからない 無限ループしているようだが場所がわからない クラッシュするが perl の呼出し履歴がわからない 3. 作った https:// github.com/ahiguti/gdbperl 使いかた : 実行中プロセスのプロセス id を指定して実行 $ gdbperl.pl 24113 コアファイルを指定して実行 $ gdbperl.pl core.24113 /usr/bin/perl 実行すると perl の呼出し履歴などを表示する 呼出し元のファイル名と行番号 呼出し先の関数名と引数 4. 使用

先日↑なタイトルで $res->base を使うといける、とか書きましたがデマでした。すいません。消しちゃったので permalink なくなりました。もしブクマしてくれた人がいたら重ねてすいません。 で、 HTTP::Response のマニュアルをちゃんと読んで、今度は大丈夫かなと思ったのでメモ。 検証コード リダイレクト先の URL を得るには my $response = $ua->get($url); my $uri = $response->request->uri; print $uri;これでいい。 $uri は URI モジュールのインスタンス。ふつうに get とかして帰ってくる $response が最終的に 30x じゃないステータスコードが返されたレスポンスのオブジェクトなので、そのレスポンスを発生させたリクエスト (->request) をたどってその uri

LWPでできるかなって思ってたら、すぐできなかったのでSocket叩いて書いたけど、 調べたら普通にLWPで出来た。ですよねー。 use LWP::UserAgent; use HTTP::Request::Common; my $ua = new LWP::UserAgent; my $res=$ua->request( POST('http://192.168.11.254/upload', Content_Type => 'multipart/form-data', Content => [ 'file' => ['test.txt', '/tmp/test.txt'] ] ) ); 出力例 POST /upload HTTP/1.1 TE: deflate,gzip;q=0.3 Connection: TE, close Host: 192.168.11.254 User-Agen

概要 LWP::UserAgent(バージョン6.06未満)でプロキシ越しにHTTPS通信をやろうとすると、何も考えずに設定すると のように、CONNECTメソッドを使わずhttpsスキームのリクエストURLをそのままプロキシに投げてしまう。 このようなリクエストはSquidなどのプロキシではサポートされておらず、エラーになってしまう。 (Apache mod_proxyならイケるっぽい？) CONNECTメソッドによる通信をやらせるには、いろいろと環境変数を設定する必要がある。 参考 http://stackoverflow.com/questions/12116244/https-proxy-and-lwpuseragent http://d.hatena.ne.jp/ragtarou/20070302 http://perl-users.jp/articles/advent-cale

環境 OS Red Hat Enterprise Linux ES4 Squidバージョン 2.4.STABLE7 perlバージョン 5.8.5 その他モジュール Crypt-SSLeay-0.53 , openssl-0.9.7a-43.10 ソース #!/usr/local/bin/perl use strict; use warnings; use LWP::UserAgent; my $proxy_url = "http://〜proxy〜:〜port〜"; $ENV{HTTPS_PROXY} = $proxy_url; # Crypt::SSLeay のproxy設定で'https'を使う # 最後にスラッシュ('/')を入れるとエラー my $url = "https://〜URL〜"; my $ua = LWP::UserAgent->new(); $ua->proxy('