よいサブルーチンを作成するための心がけ。★★★ - サンプルコードによる Perl 入門
Perl › サブルーチン › here サブルーチン作成に関するわたしの考えを殴り書きしました。 見出し 引数と戻り値について理解する。 小さなサブルーチンを作成する。 サブルーチンに柔軟性を持たせる。 呼び出しの階層を浅く保つ。 機能を実現するサブルーチンを作成する。 ユーザーを意識する。 将来を楽にすることを考える。 完全な抽象化は求めない。 1. 引数と戻り値について理解する サブルーチンを理解するためには、引数の受け取り方と、戻り値の返却のし方を覚えれば十分です。なぜなら、引数を受け取ってから、戻り値を返却をするまでは、今まで学習したプログラミングとなんら変わることがないからです。引数と戻り値の扱いを、覚えたら、すぐに実践に移りましょう。 サブルーチン作成で、難しいのは、以下の4点です。 何をサブルーチンにするか どのような名前をつけるか 引数を何にするか 戻り値を何にするか 正
第1回 Perlの文法の基本
Perlとは何か Perlはテキスト処理に特に優れた非常に強力なプログラミング言語です。でも，うまく使えばシステムをきれいに掃除させることもできますし，さらにあなたの心もいやしてくれるに違いありません。また，多くのディストリビューションで標準的にインストールされていますし，自分でインストールすることも難しくはありません。 「PerlってCGIじゃないの？」と思う方がいるかも知れません。確かに，CGIで利用するためにPerlに出会った人は多いでしょう。主な利用方法といえば，Webアプリケーションの作成かもしれません。しかし，「プログラミングPerl」＊1によれば，Perlは最初，システム管理のためのツールとして作られたものだったのです。 FedoraなどのLinuxディストリビューションでは導入時に開発環境を選ぶとPerlがインストールされます。同時にPerlのドキュメントもインストールされ
YAPC::Asia Tokyo 2008 に行ってきた - bonar note
YAPC::Asia Tokyo 2008に参加してきました。 相変わらずすごく盛り上がっていて、家族的で同窓会的な雰囲気があるすばらしいカンファレンスでした。あれほどの大規模なカンファレンスを準備して滞りなく運営した実行委員会の皆様はGJにもほどがあると思いました。 今年は3つの部屋でセッションが同時進行だったので、参加するセッション選びがすごく難しかったですが、見れなかったものは後ほどあがるであろう動画を楽しみにしたいなと思います。僕の力量不足で正直付いていけなかったセッションもたくさんあったのですが、2日間参加して印象に残ったものを書き留めておこうかなと思いたちました。今東北本線の電車内でパンフレット見ながら書いていて、まわりから怪しまれてないか心配です。 Perl Black Magic (Jose Castro) Perlの文法規則と特殊変数、様々なtrickを使って、絶望的に読
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
Devel::Caller が便利すぎる件について - IT戦記
こんなことを書いていたら Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記 さっそく教えて貰えた＞＜ http://d.hatena.ne.jp/tokuhirom/20080501/1209625789 ありがとうございます！ さっそく使ってみた！ 以下のコードを # test.pl use strict; use warnings; use Devel::Caller qw(caller_cv); sub { my $c = shift; print "$c \n"; caller_cv(0)->($c) if ($c --); }->(10); 実行！ $ perl test.pl 10 9 8 7 6 5 4 3 2 1 0 $ おおおおおお。キタコレ！かなりシンプル！ これで無名関数の再帰ができる＞＜ id:tokuhirom
perlからwedataにアクセスするWebService::Wedata - koyachiの日記
http://wedata.net/ http://search.cpan.org/dist/WebService-Wedata/ (2008-06-04 追記) http://buffr.org/tmp/wedata/WebService-Wedata-v0.0.4.tar.gz APIキーが必要なのでインストール時のテストは動かないようにしてますがt/01*.api_basic*.t.skipの内容のようにwedataに対して一通りCRUDできます。単純にAutopagerizeのSITECONFIG移動先として見られがちですが、OpenID使えるような人に編集してもらいたい既存データがある場合にも、wedataはAPIがあるので簡単に移動/編集できていいと思います。 以下はsynopsisから新規データベース/アイテムの追加と更新の抜粋。 use WebService::Wedata
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
EmacsでPerlのモジュール名を動的に補完する - Kentaro Kuribayashi's blog
追記： id:rubikitchさんに、auto-revert-modeってのを教えていただきました!素晴しい!!!1 /path/to/pmlistをauto-revert-modeした状態にしておけばcronの更新が反映されるはず。 そこで(global-)?auto-revert-modeですよ - (rubikitch loves (Emacs Ruby CUI Books)) というわけで、そっちを使うように書き直した。 「EmacsでPerlのモジュール名を補完する - subpop - subtech」で書いたネタだったりするのだけど、ともあれ、Perlモジュール名を補完(dabbrev)したいよー的な要求について。上記リンク先で書いたのは、cperl-mode初回起動時にコマンドを流していて、すごく重くていらいらしてたので、あらかじめモジュールの一覧だけのファイルを作るよう
Cache::FileCache - nDiki
他の Web サイトの情報を URI::Fetch でキャッシュ付き取得 WiKicker や DiKicker でうまく他のサイトの情報を取り込んで利用できるようにしたい。 相手サイト・自サイトともに負荷をかけないように処理するには、うまくキャッシングする必要がある。 キャッシュ機能のあるPerl用HTTPユーザエージェントには WWW::Mechanize::Cached LWP::UserAgent::WithCache URI::Fetch などがある。 WWW::Mechanize::Cached 1.32 WWW::Mechanize::Cached は1度取得したレスポンスを無条件に1日間キャッシュする。 WWW::Mechanize のサブクラスで、便利な機能が利用できるが、キャッシュは適当。 キャッシュは Cache::FileCache決め打ち。 LWP::UserAg
＠ドリブンなTwitter自動投稿スクリプト - ここでもバリ３をゲットできるかな - はてなグループ::ついったー部:
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Inline - 他のプログラミング言語でPerlのサブルーチンを作成する。
名前¶ Inline - 他のプログラミング言語でPerlのサブルーチンを作成する。 概要¶ use Inline C; print "9 + 16 = ", add(9, 16), "\n"; print "9 - 16 = ", subtract(9, 16), "\n"; __END__ __C__ int add(int x, int y) { return x + y; } int subtract(int x, int y) { return x - y; } 説明¶ Inlineモジュールは他のプログラミング言語からのソースコードをPerlスクリプトやモジュールに直接"Inline"(=一緒)に入れることを可能にします。コードは自動的に必要に合わせてコンパイルされ、そしてPerlからすぐにアクセスするためにロードされます。 InlineはXSやSWIGといった手段を使って、独
Perl CGI Sample & Link
PageID:Perl CGI Sample & Link Last updete:97.03.17 Perlによる簡単なＣＧＩプログラムのサンプル／リンク集 Perlによる簡単なＣＧＩプログラムのサンプルとリストです。 自宅やスタンドアロンでテスト環境を作ってみたい方は下記を参照ください。 Macユーザの方 MacPerl関連情報： MacでPerlのページ WebStar・MacHTTP等WWWサーバ(httpd)の情報： MacでWWW & Perlのページ Windowsユーザの方 WindowsNT/95でWWW & Perlのページ WindowsNT/95でPerl : Perl for Win32 (NTPerl) 当ページのメニュ− ●CGI処理に必携のモジュール ●フォームの入力をデコード：jcode.plを使用 ●フ
mizzy.org : perlで人工無脳 #1
perlで人工無脳 #1 Posted by Gosuke Miyashita Sun, 19 Jun 2005 12:58:53 GMT 今回はマルコフ連鎖を利用した文章の自動生成について考えてみます。 A → B → C → D という一連の事象が発生する場合に、ある事象の発生する確率が、直前の事象にのみ依存するような状態を、マルコフ連鎖といいます。つまり、Cという事象が発生する確率は、Bにのみ依存していて、Bの前にAが起こっていることは全く関係ない、ということですね。 このマルコフ連鎖を利用した文章の自動生成を行うために、まずはマルコフ連鎖に基づいた文章生成用のデータを作成する必要があります。このデータをマルコフ辞書と呼びます。マルコフ辞書の中には、『「A」という単語の後には「B」という単語がつながる』という情報がたくさん入る、というイメージになります。 マルコフ辞書の生成も、前回の
Perlまわりの環境を整備した - はこべにっき#
Leopardにした and Perl5.10-RC1が出た機会にPerl環境の整備をしたのでそのメモ。要求としては以下。 MacPortsのPerl5.8を使いたい MacPortsの管理領域(/opt/local)は汚したくない 最新のCPANモジュールは使いまくりたい Perl5.10を簡単に試したい これまでも、MacPortsでインストールしたPerl5.8を使ってた。そのPerlでCPAN使うときには、 $ sudo -H cpan としてたんだけど、これはMacPortsの管理領域をいじるので若干気持ち悪かった。 自分でコンパイルしたPerlを使ってもよかったんだけど、SubversionのPerl bindingとかのコンパイル時にPerlを求めるやつのインストールとかはMacPortsでやるのががだんぜん簡単なので、そのへんは楽をしておきたい。 そこで、CPANのモジュー
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
Journal of miyagawa (1653) - Web::Scraper hacks #2: Extract javascript and css content
This is inspired by an email from Renée Bäcker asking how to get content inside javascript tag. Because Web::Scraper's 'TEXT' mapping calls as_text method of HTML::Element, it doesn't get the content inside script and style tag. Here's the code that works. It's kinda clumsy, and it'd be nice if there's much cleaner way to do this: #!/usr/bin/perl # extract Javascript code into 'code' use strict; u
Perlbalを使ったUploadプログレス表示 - Hatena::Diary::Neko::kak 500 Internal Server Error
Webでファイルアップロードの仕組みって結構つかわれてますが、 大きなファイルをアップロードしている時、プログレスバーとかを 表示したかったりしますが、Perlbalでは簡単にできました。 Perlbalの設定ファイルには↓見たいに設定 肝は CREATE SERVICE uptrack と SET upload_status_listeners = 127.0.0.1:7002, 10.54.0.1:7001 あとは普通のPerlbalの設定と同様 CREATE POOL nekokak_pool POOL nekokak_pool ADD 192.168.200.100:8000 CREATE SERVICE uptrack SET role = upload_tracker SET listen = 127.0.0.1:7002 ENABLE uptrack CREATE SERVI
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
perl-mongers.org
Perl入門
Shibuya.pm #8 - D-6 [相変わらず根無し]