Perlで in_array｜Perlプログラムメモ｜プログラムメモ
PHPには配列の要素にある値が存在するか確認する in_array() という関数があるのですが、 Perlには標準ではないので下記に書いてみます。 sub in_array() { my ($val,$array_ref) = @_; foreach my $elem(@$array_ref) { if ($val=~m/^[0-9]+$/){ if ($val == $elem) { return 1; } } else{ if ($val eq $elem) { return 1; } } } return 0; } ■ 使い方 in_array（"検索したい値", 配列へのリファレンス）; とします my @array=('apple','blueberry','orange'); my $data='apple'; if ( in_array( $data, ?@array) )
「PHP使いはもう正規表現をblogに書くな」と言わせないでくれ : 404 Blog Not Found
2009年03月19日18:00 カテゴリLightweight Languages 「PHP使いはもう正規表現をblogに書くな」と言わせないでくれ ああ、まただよ... かなり使えるPHPの正規表現まとめ - IDEA*IDEA 〜 百式管理人のライフハックブログ 〜 正規表現って、プログラミング言語間の差が少ないサブ言語なのに、なぜ「PHP」がつくとダメ正規表現ばかり登場するのか。うんざりだ。 かなり使えるPHPの正規表現まとめ - IDEA*IDEA 〜 百式管理人のライフハックブログ 〜メールアドレスは厳密にチェックしようとするとなかなか難しいのですが、簡単なチェックだったらこれでOKぽいですね。 /^[^0-9][a-zA-Z0-9_]+([.][a-zA-Z0-9_]+)*[@][a-zA-Z0-9_]+([.][a-zA-Z0-9_]+)*[.][a-zA-Z]{2,4}$
iandeth. - Perl の use と require の違い
以前飲み会で、会社の先輩と「use と require の違いってなんじゃ？」てな話をした際、知識不足ゆえうまく答えが出せなかったのですが、Programming Perl 等をちょろちょろ読み始めた今なら、ちょっとはマシな回答が出来る気がした /w のでまとめてみました。 perldoc を始め、色々なサイトや書籍でも既に述べられているとおり、 use はコンパイル時に評価される - module load happens at comile time. require は実行時に評価される - module load happens at run time. が明確な違いになります。また、 perldoc(*) によると use は実際には以下のコードを実行するのと同等だそうです : BEGIN { require MODULE; MODULE->import(LIST); } 特殊ブ
LWP::UserAgent - WWW ユーザ・エージェント クラス
Hippo2000 (2000/7/28) LWP::UserAgentモジュールなのです。 作者はGisle Aasさんです。メールで許可をいただきました。 2001/6/21：山宮隆さんからの指摘を受けて、余分な「；」を削除しました。 目次 名前 概要 説明 メソッド 参考資料 著作権 名前 LWP::UserAgent - WWW ユーザ・エージェント クラス 概要 require LWP::UserAgent; $ua = LWP::UserAgent->new; $request = HTTP::Request->new('GET', 'file://localhost/etc/motd'); $response = $ua->request($request); # or $response = $ua->request($request, '/tmp/sss'); # or
MobaSiF (Moba/Mobile Simple Framework)
DeNA のケータイ向けサービス「モバオク」「ポケットアフィリエイト」「モバゲータウン」などで利用されているケータイ向けウェブアプリケーションフレームワークをオープンソース化したものです。
Perl-users.jp - 日本のPerlユーザのためのハブサイト
Perl Mongers Perl Mongers とは、日本各地に存在する、Perl ユーザーのコミュニティのことです。各種イベントが行われていますので、是非参加してみましょう。 Shibuya.pm Fukuoka.pm Kansai.pm (@kansaipm) Yokohama.pm (@yokohamapm) Hokkaido.pm (@hokkaidopm) Nagoya.pm (@nagoyapm) Kushiro.pm (@kushiropm) Kyoto.pm (@kyotopm) Kamakura.pm Niigata.pm (@niigatapm) Sendai.pm (@sendaipm) Tokyo.pm Hachioji.pm (@hachiojipm) Chiba.pm (@chibapm) Yomitan.pm (@yomitanpm) Machida.pm
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
perlstyle - Perl スタイルガイド - perldoc.jp
名前¶ perlstyle - Perl スタイルガイド 説明¶ プログラマは、もちろん人それぞれ、フォーマットには好みがあるでしょう。しかし、いくつかのガイドラインに従うことによって、プログラムの可読性や保守性をあげることができます。 もっとも重要なことは、つねにプログラムを-wフラグをつけて走らせることです。必要であれば、no warnings プラグマや $^W 変数を使用してコードの一部だけで警告を明示的にオフにします。また、つねに use strict を使用すべきです。もし、use strict を使用しないなら、その理由を十分に理解しておくべきです。use sigtrap や use diagnostics プラグマも便利でしょう。 コードレイアウトの美観に関しては、Larry が強く気にかけているのはたった一つ、複数行のブロックの閉じブラケット、その構造を開始したキーワード
Webプログラミング実力アップ---目次
「ちょっとしたスクリプトは書けるようになったけれど，どうしても初心者のレベルから脱出できない」。そんな悩みを抱えているWebプログラマの方は，「プロのやり方」をのぞいてみてください。Perlを使ったCGIプログラミング一つ取っても，プロは高品質のコードを書くための秘訣を実践しています。Web開発の現場では常識となっているWebアプリケーション・フレームワークの活用，付け焼き刃では太刀打ちできないセキュリティ対策，品質を確保するうえで欠かすことのできないテストなど，プロのスキルを身に付けて1ランク上のWebプログラマを目指しましょう。 Part1 正しいPerl/CGIの書き方 対談「初心者とハッカーが共存できるPerl」 ──KENT-WEB 見上氏 ＆ Shibuya.pm 竹迫氏 Part2 Webアプリケーション・フレームワーク入門 Part3 セキュアWebプログラミング入門 Pa
対談「初心者とハッカーが共存できるPerl」
現在，Perlユーザーは2極化が進んでいます。初心者はいまだに「CGIが使えさえすればいい」という段階で満足しています。一方で，Perlハッカーは独自の世界を構築し，あまり初心者を省みません。そこでこの特集では，初心者層に絶大な影響力を持つ見上巖氏（ウェブクリエイト代表取締役，KENT-WEBを運営するKENT氏として有名）と，Perlのハッカー集団であるShibuya Perl Mongers（Shibuya.pm）の新リーダー，竹迫良範氏（サイボウズ・ラボ）に対談をお願いしました（編集部）。 まずは，Perlとの出会いから教えていただけるでしょうか。 見上 私がPerlに出会ったのはちょうど10年ほど前，1996～97年くらいですね。そのころはコンピュータ・メーカーの営業で，まだプログラミングはできませんでした。自分のWebページにフリーのCGIの掲示板を設置しようとしたのですが，うま
Part1 正しいPerl/CGIの書き方：ITpro
Shibuya Perl Mongers 2代目リーダーにして，ppencodeの作者。広島市立大学卒業後，大企業向けmod_perl製品の開発に従事。2005年よりサイボウズ・ラボ株式会社に入社。LL Ringに参戦。Namazu for Win32，Plagger，Ajajaのコミッターでもある。 CGIといえばPerl。そんな風にいわれていた時期もありました。レンタル・サーバーのCGIで手軽にPerlが使えたこともあり，ちょっとした掲示板のスクリプトやアクセス・カウンタなど，CGIプログラムの多くがPerlで書かれていました。このためPerlが爆発的に普及したのです。Perlは日本のインターネット黎明期を支えたプログラミング言語として，広くその名が知られています。 その半面，Perlで書かれたプログラムの保守性に悩む声も聞かれるようになりました。事実，Perlのプログラミング経験が少
【インフォシーク】Infoseek ： 楽天が運営するポータルサイト
日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
CGI・Perl例文集
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ 画像の情報を取得する (コマンド) ImageMagickをインストールすると自動でついてくるidentifyコマンドを用いれば、画像の保存形式やサイズなどを簡単に取得することが出来る。 続きを読む "画像の情報を取得する (コマンド)" » 投稿者: かつべ 日時: 22:12 | パーマリンク | コメント (0) | トラックバック (0) Apacheのバージョンアップを行う(Linux) ここではソースからコンパイルしバージョンアップする方法を簡単に解説する。基本的には再コンパイルするだけ。『やり直し』を行う場合もこの手順を参考にすれば良い。 続きを読む "Apacheのバージョンアップを行う(Linux)" » 投稿者: かつべ 日時: 22:01 | パーマリンク | コメン
結城浩 - The Essence of Programming (プログラミングのエッセンス)
結城浩（ゆうき・ひろし） 本を書く生活が30年、著書は60冊を越えました。 代表作は『数学ガール』『プログラマの数学』『暗号技術入門』『数学文章作法』『Java言語で学ぶデザインパターン入門』他。 2014年度日本数学会出版賞受賞。 文章書きとプログラミングが好きなクリスチャン。 いつも応援ありがとうございます。 主な活動については 結城浩の活動紹介 をご覧ください。 Hiroshi Yuki. Author of "Math Girls". 30 years into writing introductory math and programming books. LaTeX / Vim / Ruby / Math / Writing /
[Perl] phone.pl 携帯電話キャリア自動判別ライブラリ
上記に JPEG が ○ と書いてあっても、古い機種では JPEG 画像を表示できない場合があります。 必ず $phone->{image_jpeg} で判別するようにしてください。 上記には入れていませんが、{ezweb_mono} が真であれば、 au・TU-KA のごく古い HDML 白黒液晶機種と判別できます。 この場合、画像は BMP 形式のみとなります。 しかし、今では利用者シェアが0.1％を割って、また新規契約も停止されています。 キャッシュ容量も 1.4KB 制限と厳しいので、動作対象外したいですねぇ。。。 その他、phone.pl の不具合情報や、ご意見・ご要望をお待ちしております。 SoftBank 3G携帯対応について バージョン1.52以前のphone.plは、 2004年以降発売の SoftBank の 3G 携帯に対応していません。 古い phone.pl をご
PerlによるCSVファイルの高速集計 2：CodeZine
open(OUT, '>result.csv'); open(IN1, 'enquate.csv'); # アンケートデータを1行ずつ処理する while(my $line1 = <IN1>){ # 1行を4つに分ける chomp($line1); my ($id, $ans1, $ans2, $ans3) = split(/,/, $line1, 4); # この行にマッチする顧客データを検索する my $name = ''; my $address = ''; open(IN2, 'address.csv'); while(my $line2 = <IN2>){ chomp($line2); my ($tmp_id, $tmp_name, $tmp_address) = split(/,/, $line2, 3); if($tmp_id eq $id){
JavaScript/HTML5, iPhone/Android, ハイビジョン映像, 自動化関連：[OpenSpace]
Web関連およびアプリケーション、映像関係、静止画素材、自動処理、4K/8K/ハイビジョン素材関連などを扱っています。 誤字脱字等、お気づきの点がありましたら、お気軽にメールをください。 この目次にないアプリケーション等の使い方などに関してはその他のリファレンス／アプリケーション...のページを参照してください。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perl入門
Perlリファレンス
Perl.com
