perl - デフォルト値のperlらしい指定法 : 404 Blog Not Found
2008年07月02日23:00 カテゴリLightweight Languages perl - デフォルト値のperlらしい指定法 Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] これでもよいのだけど、さらに恰好つけるとよりperlらしくなるので。 デフォルト値の扱い。 - サンプルコードによる Perl 入門 Scalarによるデフォルト値 sub num{ my $num = shift; # .... } ここは sub num{ my $num = shift || -1; # .... } の方がわかりやすい。0または''を入力値、すなわち非デフォルト値として扱いたい場合のみ、 sub num{ my $num = shift; $num = -1 if not defined $num;
Hash::Util - ハッシュのキーの追加を禁止する - Perl入門ゼミ
Perl › モジュール › here Hash::Utilモジュールを使ってハッシュのキーの追加を禁止することができます。 use Hash::Util; # 制限 Hash::Util::lock_keys(%hash); # 解除 Hash::Util::unlock_keys(%hash); Hash::Util::lock_keysを使えば、ハッシュのキーを制限することができます。引数にハッシュのみを指定した場合は、現在のキー以外のキーの追加が禁止されます。 %hash = (); # key1 と key2に制限。 @restrict_keys = qw/key1 key2/; Hash::Util::lock_keys(%hash, @restrict_keys); # 制限を解除。 Hash::Util::unlock_keys(%hash); 第2引数にキーを指定すると、
EmacsでPerl開発する上で必須な設定 #2 - flymake
Emacs22から標準添付されているflymakeが超便利です。flymakeは、動的にシンタックスチェックを行ってくれるelispで、typo等によるミスが、これでかなり減ること受け合い。以下の設定には、set-perl5lib.elが必要なので、あらかじめload-pathの通った場所にインストールしておく必要があります。 http://svn.coderepos.org/share/lang/elisp/set-perl5lib/set-perl5lib.el 以下、設定。 ;; flymake (Emacs22から標準添付されている) (require 'flymake) ;; set-perl5lib ;; 開いたスクリプトのパスに応じて、@INCにlibを追加してくれる ;; 以下からダウンロードする必要あり ;; http://svn.coderepos.org/share/
べき乗演算子 - ** - Perl入門ゼミ
Perl › 演算子 › 算術演算子 › here べき乗を求めるにはべき乗演算子「**」を使用します。 my $two_power_num = 4 ** 2; べき乗を求めるには、** 演算子を使います。べき乗とは、同じ数を複数回かける演算のことです。 サンプルプログラム べき乗を求めるサンプルプログラムです。 use strict; use warnings; # べき乗を求める。 print "1: べき乗を求める。\n"; my $num = 4; my $two_power_num = 4 ** 2; print "$numの2乗は$two_power_numです。\n"; Perl › 演算子 › 算術演算子 › here
とりあえずXSでHelloWorldってみた - 御玉杓子スパイラル
xs, perlHelloXS.h を touch で作って同じディレクトリで $>h2xs -A HelloXS したら雛形は作ってもらえる. で, 先刻の HelloXS.h がいらないので, HelloXS/HelloXS.xs の include から #include を削ってしまって, あとはやりたい放題. 関数の宣言のしかたと返値の書き方にクセがある以外は普通に C って感じでかけた. #include "EXTERN.h" #include "perl.h" #include "XSUB.h" #include "ppport.h" #include "const-c.inc" MODULE = HelloXS PACKAGE = HelloXS INCLUDE: const-xs.inc char* hellostr() CODE: RETVAL = "Hello x
XS利用でPerl高速化 その2 - ひげぽん OSとか作っちゃうかMona-
前回は、XSモジュールを使うと処理が高速になる可能性があるという紹介をしました。 ただしXSモジュールの導入にはデメリットもあります。 C言語で実装しているという関係上、 モジュール変更のたびにリコンパイルが必要である メモリリークの危険性がある Perlの管理下にないメモリは自分で解放しなければなりません(詳細は後日) プラットフォーム間での互換性が保てない リコンパイルや修正が必要な場合が多い PerlのXSバージョンに左右される場合がある Perl単体のときと比べてデバッグが難しい などなど、クリアすべき点があります。 というわけで使いどころとしては、 Perlのコードで速度的にボトルネックになっている部分があり そのコードの仕様はほぼfixしている（変更が入る可能性は少ない) というような場合に、XSで処理を書いてみて、ベンチマークをとってみるという形が良いと思います。 なおXSに
ひげぽん OSとか作っちゃうかMona- - [Perl] XS利用でPerl高速化
（追記：2009/03/25） id:tokuhirom さんからコメントを頂きました。このベンチマークは問題があるそうです。 http://d.hatena.ne.jp/higepon/20050615/1118829090#c （追記：終わり） PerlにはC言語で書かれた関数を呼び出すためにXSという仕組みが存在します。 一部CPANモジュールでも使われているためご存知の方も多いと思いますが、今回はこのXSの簡単な利用方法を紹介したいと思います。 なおXSは、はてなでも使用しています。 さてXSモジュールを使うとうれしい事は C言語で書くことにより、処理が高速になる可能性がある 既存のC言語ライブラリ資産をPerlから利用することができる Perlがあまり得意でない、メモリ内などに存在するビット単位での細かなデータ構造を、あれこれできる などが挙げられると思います。 今回は、高速化に
![ひげぽん OSとか作っちゃうかMona- - [Perl] XS利用でPerl高速化](https://cdn-ak-scissors.b.st-hatena.com/image/square/c8c4bb60cf47745b4128808788a15216f5f5dcdf/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F13208692334729888502%2F17391345971656215022%2F1529549377)
stanaka's blog
2022年振り返りというものを書いていたようで*1、はてなブログからリマインドが来たこともあり、2023年振り返りを書いてみる。 仕事 2023年の仕事は引き続きエンジニアチームのマネジメントが中心で、ハイライトとしてはコロナ渦以来できていなかったオフサイトをボストンで開催できたこと。いつも画面越しにしか見たことがなかった同僚たちとリアルで会うことができてよかった。一度会っておくと、その後の仕事もやりやすい気がする。あと海外でオフサイト企画に携わったのは初めてだったけれど、参加してもらった人達の満足度は高くできたようでよかった。また、普段は英語で仕事をしているわけだけど、その英語はギリギリなんとかなっているレベルという自己評価をしていて、「ギリギリ」という状態から抜け出すためにも、主に発音をもうすこし良くしたい。 プライベート プライベートでは旅行に良く行った年となった。アメリカにいる間に
Perl の内部処理系をお勉強
ちょっと前に perlfilter - Source Filters - についてお勉強したときから調べようと思っていたことなのですが、Perl の内部処理の流れ（Perl 5 Internals）についてお勉強中です。思いっきり見逃してしまいましたが、Perl 5 Internals に興味を満ち始めたこのタイミングにあわせたかのように Shibuya Perl Mongers : Shibuya Perl Mongersテクニカルトーク#9 で XS ネタをやっていたみたいです。残念です。 さて、今回のお勉強の方法は、ズバリ perl 5.8.8 のソースの読解です。もちろん今回は流れを把握するためのものなので、あまり樹海の奥深くまで足を踏み入れたくはないのですが・・・。この記事を書いている時点では perl_parse までの流れを読み終えたところなのですが、構文解析と字句解析が樹海
URLとXPathを渡すと値を返すツールをもっと極悪ぶっこ抜きができるツールに改造してる - fubaはてな
jottitのほうに公式ページをつくりました。 値がとれるだけでは退屈、ページ辿りたいし、その先も辿りたいので機能追加。ずいぶんたくましくなりました。あとはキャッシュができればいいですねー。 追加したオプション n 次のページ（別に次じゃなくてもいいけど）のURLを返してくれるXPath、いっぱいマッチさせても最初の1つしかたどりません d ページを辿る回数、デフォルト1 s HTML::Elementがマッチしてる場合にHTMLソースを吐く f 処理しているURLも出力し、結果の値の前にはタブがついているフォーマット(いまひとつなのでなんとかしたい) URLのかわりに- 標準入力から改行区切りでURLをうけとる ためす twitterのfollowingリストを0回ページ継ぎ足しして、そこから抽出したユーザリストのfavoritesをさらに確認、彼らのfavってるユーザ名を集計する。 %
Perl Data Language
Search provided by MetaCPAN Found {{ results.total }} hits {{ result.name }} - {{ result.abstract }}
シンボルテーブルの中身を覗いてみる - Perl入門ゼミ
Perl › モジュール作成 › here Perlは、シンボルテーブルというものを持ち、プログラマーが、それを参照したり、変更を加えたりすることができます。Perlは、他の言語に比べて、柔軟で、高い適応力を持ちますが、その力をを生み出している機能のひとつがシンボルテーブルです。 シンボルテーブルは、%main:: という名前の単なるハッシュです。%main:: というハッシュから、実行されているスクリプトの持つすべてのサブルーチンとパッケージ変数を知ることができます。( レキシカル変数を除く ) シンボルテーブルの内容を覗いてみる # mainパッケージの内容を含むシンボルテーブル %main:: # %main:: の別名 %:: シンボルテーブルを通じて、パッケージ変数の内容を知る our $num = 1; ${$main::{num}}; 詳しい説明は、型グロブの解説で、説明しま
山口家の逆襲->perl-解説->クロージャ
テーブルゲームで遊ぶなら人気No.1! ベラジョンカジノのオンラインテーブルがオススメです! 世界中のカジノは、運試しにゲームをし、人生を変えてしまうようなジャックポットを引き当てる様々なタイプの人間たちであふれている。カジノに来る人間のタイプは大方、予想可能で、いくつかのグループに分けられる。 タバコ好き TVシリーズ『Xファイル』に出てくる ” 煙草を吸う男” はミステリアスだが、カジノのスモーカーには謎めいたところなどない。彼らはただひたすらにタバコを吸い、ウエイトレスが灰皿をせっせと片付けなければならないだけだ。 タバコ好きたちは彼らの側を通りすぎる人たちとは違い、タバコの煙の刺激に慣れている。さらに、特に理由がなければ、誰も彼らの側にとどまりたくはないのだが、しょっちゅう咳をしては周りの注目を集めている。 酒飲み タバコと酒は切り離せない存在だ（もちろん、一概には言えない）。スロ
Algorithm::SVM
NAME Algorithm::SVM - Perl bindings for the libsvm Support Vector Machine library. SYNOPSIS use Algorithm::SVM; # Load the model stored in the file 'sample.model' $svm = new Algorithm::SVM(Model => 'sample.model'); # Classify a dataset. $ds1 = new Algorithm::SVM::DataSet(Label => 1, Data => [0.12, 0.25, 0.33, 0.98]); $res = $svm->predict($ds); # Train a new SVM on some new datasets. $svm->train(@t
WWW::Mechanize
Andy Lester <andy at petdance.com> Alastair Douglas Alexandr Ciornii Andreas Huber Andrew Grangaard Andy Lester Bernhard Wagner bscan Chase Whitener dakkar Dave Doyle David Precious David Steinbrunner dependabot[bot] Desmond Daignault Ed Avis Evan Zacks Ferenc Erki Flavio Poletti Florian Schlichting Gabor Szabo Gareth Tunley Gil Magno Graham Knop gregor herrmann Grigor Karavardanyan James Raspass
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl-mongers.org
Math::Matrix - Multiply and invert Matrices
AI-Categorizer-0.09
WWW::RobotRules
WWW::Baidu