Perl › 関数 › here splice関数を使用すると配列の要素に対して複雑な操作を行うことができます。複数の要素を取り出したり、置換したりすることができます。 複数要素の取り出し 次の方法で配列の複数要素を取り出すことができます。 # 複数要素の取り出し @parts = splice @array, $pos, $length; $posは取り出しの開始位置を指定します。$lengthには、取り出す長さを指定します。複数要素の取り出しにおいて$lengthを省略すると$posの位置から配列の末尾までが対象になります。 複数要素の置換 第４引数に、配列を指定することで、指定した配列で置換を行うことができます。対象の配列は、上記の構文と同じです。 # 複数要素の置換 splice @array, $pos, $length, @replace; splice関数の使いどころ まず最

Perl › 日付・時刻 存在する日付かどうかを簡単に判定するには、Time::Localモジュールを利用します。 Time::Localのtimelocal関数は指定した日付をエポックからの経過秒に変換する関数ですが、存在しない日付を指定すると例外を投げます。 このことを利用すると存在する日付の判定を行うことができます。 use strict; use warnings; use Time::Local 'timelocal'; print "(1)存在する日付かどうかを確認する。\n"; # Perlでは時刻は1900年からの経過年数で扱うので # 1900を引く。 my $year = 2008 -1900; # 月は0から始まるので、求めたい月から1を引く。 my $mon = 10 - 1; # そんな日はないはず。 my $mday = 32; # 存在しない日を指定すると例外

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

以下は SYNOPSIS を CPAN からパクってきただけなんですけど，なんで use LWP::Authen::Wsse してないのかがちょっと不思議だったりしました．ソースを見ても，別に LWP::UserAgent の名前空間を汚しているわけじゃないし，なんで LWP::UserAgent は，LWP::Authen::Wsse をインストールするだけで WSSE 認証に対応できるようになってんだ! わからん!! 調べなければ!! use LWP::UserAgent; use HTTP::Request::Common; my $url = 'http://www.example.org/protected_page.html'; # Set up the WSSE client my $ua = LWP::UserAgent->new; $ua->credentials('ex

Perl › 関数 › here sprintf関数を使用すると書式指定した文字列を作成することができます。数値の左側を0で埋めて出力したい場合や、浮動小数点の少数の桁数を指定したい場合などに、sprintf関数を使うと便利です。 my $str = sprintf("%08d", $num1); my $str = sprintf("%.2f", $num2); my $str = sprintf("aiueo%08daiueo%.2f", $num1, $num2); 数値や文字列をある規則にしたがって出力したい場合があります。たとえば、足りない部分を空白で埋めた固定長の文字列を作成したい場合 "18     " のようにわざわざ空白を作っておくのは面倒です。 sprintf関数で書式指定を行えば、 "18" を "18     " のように変換できます。 またたとえば足りない部分を0

最新版Moxyをチェックアウトする(2008/10/02現在) svn co http://svn.coderepos.org/share/lang/perl/Moxy/trunk/ moxy cd moxy perl Makefile.PL Warning: prerequisite HTML::Entities::ImodePictogram 0 not found. Warning: prerequisite HTML::StickyQuery 0 not found. Warning: prerequisite HTTP::MobileAgent 0 not found. モジュールないよ！ってエラーが出るので、必要なモジュールをCPANのインストールする。 再度実行。エラーでなくなった。 perl Makefile.PL Writing Makefile for Moxy con

30分プログラム、その381。文字列をHTML化するのにPOD(Plain Old Document)を使ってみる。 PODファイルをHTMLファイルに変換するpod2htmlコマンドは用意されている。これをうまいこと利用して、文字列をHTMLに変換するpod2html関数が作りたかった。RailsのRedCloth的な使い方ができるかなぁ、と思って。 本当はPod::Htmlを利用したかったけれど、 pod2html("pod2html", "--podpath=lib:ext:pod:vms", "--podroot=/usr/src/perl", "--htmlroot=/perl/nmanual", "--libpods=perlfunc:perlguts:perlvar:perlrun:perlop", "--recurse", "--infile=foo.pod", "--ou

perl でスレッドが有効になっているか(使えるか)は， $ perl -V で確認できます． ぼくは最初こんな感じで出た．これだと perl のスレッドは有効化されていません． $ perl -V | grep thread useithreads=undef, usemultiplicity=undef useithreads が undef だと，そもそもスレッドは使えませんから，perl をインストールしなおしますね． $ sudo port deactivate perl5.10 $ sudo port install perl5.10 +threads すると，perl -V でこんな表示が出るようになります． perl -V|grep thread osname=darwin, osvers=9.5.0, archname=darwin-thread-multi-2level

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28