正規表現によるバリデーションでは ^ と $ ではなく \A と \z を使おう
正規表現によるバリデーション等で、完全一致を示す目的で ^ と $ を用いる方法が一般的ですが、正しくは \A と \z を用いる必要があります。Rubyの場合 ^ と $ を使って完全一致のバリデーションを行うと脆弱性が入りやすいワナとなります。PerlやPHPの場合は、Ruby程ではありませんが不具合が生じるので \A と \z を使うようにしましょう。 はじめに 大垣さんのブログエントリ「PHPer向け、Ruby/Railsの落とし穴」には、Rubyの落とし穴として、完全一致検索の指定として、正規表現の ^ と $ を指定する例が、Ruby on Rails Security Guideからの引用として紹介されています。以下の正規表現は、XSS対策として、httpスキームあるいはhttpsスキームのURLのみを許可する正規表現のつもりです。 /^https?:\/\/[^\n]+$/
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
TwiterとOAuthとperlでの実装 - Lazy Programmer :-p
UmakatterにOAuthを利用した機能を組み込みました。 TwitterのOAuthなのですが、Net::Twitter を利用すると本当に簡単に実現できます。こんなコードです。 OAuthアカウント作成 http://twitter.com/oauth_clients にて、アカウントを作成してください。 Net::Twitter::OAuthじゃなくてNet::Twitter::Role::OAuthの方の PODを読むと吉 Net::Twitter::Role::OAuth に書いてある通りにやると、とても簡単に実装できます。(Typoがいくつかあるので注意) OAuth認証へのリダイレクトしょり こんな感じで、リダイレクトする前に、token, token_secretをユーザのクッキーに保存しておきます。 my $nt = Net::Twitter->new( %{$con
付加価値コンテンツとは――スクレイピングからグラフ化まで
前回までの記事で、オルタナティブ・ブログを例とした過去ランキングの「期間」を抜き出すスクレイピングについて解説した。 今回の記事では、スクレイピングの最終目的となる「各週の1位から10位のタイトルとURL」を配列として抜き出す手法、そしてグラフ化を行う手順までを見てみよう。 1位から10位のタイトル、そしてURLを抜き出すスクレイピングには、幾つかの手法が考えられる。例えばリスト2のように記述することが可能だ。 リスト2■配列要素を抜き出す my $scrape_ranking = scraper { process 'span > a', 'link[]' => '@href', 'title[]' => 'text'; result 'link', 'title'; }; my $scrape_term = scraper { process 'div#postranking > di
Net::Twitterが3になりCPAN経由でインストールできない件 - Scrapdiary
Net::Twitterが大幅バージョンアップされたようで、依存moduleの数がかなり多くなってるようです。CPANにてインストールすると途中で、恐らくMoose関連の依存moduleをインストール中に何故かfailureとう文字が・・・そしてインストール失敗。CPANで自動化してるのでどこでコケてるのかがイマイチわかりづらいところではありますが、原因を調べるためにCPANに上がっているPODをみれば何かわかるかもと思い読んでみることにした。 以下訳を書いてみる。 名前 Net::Twitter - Twitter APIのためのPerlインターフェース バージョン この資料はNet::Twitter バージョン3.04000について記載 概要（簡単なサンプルコード） use Net::Twitter; my $nt = Net::Twitter->new( traits => [qw/
＠ドリブンなTwitter自動投稿スクリプト - ここでもバリ３をゲットできるかな - はてなグループ::ついったー部:
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
知らないことがあってもへっちゃらさ: 「Amazon Product Advertising API」 にリクエストする Perl モジュールを書いてみた
「Amazon アソシエイト Web サービス」が 2009年8月15日で終了して「Product Advertising API」（2009年5月11日より提供開始）に置き換わるってんで、とりあず「Product Advertising API」にリクエストを投げる Perl モジュールを書いてみました。 つっても、ホントにリクエストを投げるだけで、帰ってきた XML をそのまま返します。 まぁね、サービスが変わってもレスポンスの XML は変わらないようなので、「パースするところは今まで通りでいいよね」つうことで手抜きです。 ダウンロードはこちらのページからお願いします。 使い方は以下な感じです。 use AmazonPAPI; # オブジェクトの作成 # 引数には各要素をハッシュノリファレンスにまとめて渡します。 my $aws = new AmazonPAPI({ 'AWSAcce
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perl - URI::Amazon::APA released! : 404 Blog Not Found
2009年05月10日20:15 カテゴリLightweight Languages perl - URI::Amazon::APA released! そんなわけで、作りました。 /lang/perl/URI-Amazon-APA/trunk - CodeRepos::Share - Trac dankogai's p5-uri-amazon-apa at master - GitHub @CPAN (coming soon) Amazon アソシエイト・プログラム（アフィリエイト） 公式ブログ: Amazon アソシエイト Web サービスの名称変更および署名認証についてのお知らせ名称変更にともない、Product Advertising API にリクエストを送信いただく都度、認証のための電子署名を含めていただくことが必要になります。この変更は、2009年5月11日より3ヶ月の間の移
新・たけぞう瀕死の日記 - ひどいCGIスクリプト
■ [Perl]ひどいCGIスクリプト 個人的に頼まれてネットで配られているCGIスクリプトの改造なんかをすることがあるのですが、巷でもよく言われているようにCGI系サイトで配布されているものは本当にひどいコードが多いです。折角なのでこれらのひどいコードに共通する例をいくつかあげてみようと思います。 もちろんuse strict;などとは書かれていない myとか一切使わない ソースがShiftJISで書かれている モジュールは一切使っていないが（たぶん必要に迫られて）jcode.plだけは使っている Perl4で時が止まっている 関数は使っているが値は全てグローバル変数で受け渡している 以上のような理由によりmod_perlでは動きそうな気配がまったくない 変数名や関数名が無闇に短い インデントされてない（全ての行が左寄せになっている） 空白も空行も全部詰めて書く 意味もなく1行にたくさん
モダンなPerl入門 - モダンなPerl入門
目次 Perlの概要 なにか なにか バージョン ラクダ画像とPerl 環境別インストール 基礎的なperldocコマンド 変数 スカラー（文字列・数値） 配列 ハッシュ リファレンス 条件分岐 if / elsif / else ループ foreach while デバッグ手法 print warn Data::Dumper YAML XXX ファイル操作 open() IO::File Path::Class stat() / -f / -d / -e / -x サブルーチン プロトタイプ 正規表現 メタキャラクター キャラクターセット データ tie Storable Encode 入出力の考え方 ワンライナー データベース DBI mysql PostgreSQL SQLite オブジェクト bless モジュール CPAN 各OSでのCPANのつかいかた WindowsでCPAN
MobileCat
MobileCat とは さいきんすっかり放置です、すみません。このページとソース逆引きのページだけ静的に残してあります。参考程度にお願いします。2009/8 冨田 Perl で、CPAN モジュールをさまざま組み合わせてモバイルサイトを作る方法を紹介してみるプロジェクトです。（紹介記事） このサイト http://mobilecat.koneta.org/ 自体がサンプルとなっています。UA を変えたり携帯からアクセスしてみてください。 Links ソース一式 // thanks coderepos ソース逆引き - 簡単な解説のページ TODO founder: Naoki Tomita (モバイル系ブログ) 携帯開発系チャンネル: #mobilejp @ irc.freenode.net おことわり スケールのサンプルになる必要もないだろうと、個人サーバーで軽く動かしているため、修正
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;
URLランキングをPerlで作る方法
URLランキングサイトとは、多くのサイトを巡回し、リンクを抜き出して多い順に並び替え表示するサイトです。リンクが多く張られている（＝話題となっている）ニュースをランキング形式で一望できる便利なサイトです。「blogdex」というサイトがありましたが、現在は停止中です。現時点で稼動している類似サイトは「1470.net」「みなぎね5.1」「メガとんトラック」などがあります。 ここではそういったサービスをどう実現するかの、簡単なサンプルを作る方法を箇条書きで解説します。もちろん最低限のPerlの知識がないと読めません。 やり方を箇条書きにしてみる 巡回するニュースサイトを仮に100サイト選定 100サイトのHTMLファイルをGET HTMLファイルからリンクだけを全部抜き出す 24時間くらい待つ 改めて100サイトのHTMLファイルをGET HTMLファイルからリンクだけを全部抜き出す サイト
YappoLogs: GunghoっていうWebクロウラーたんの件
GunghoっていうWebクロウラーたんの件 なんか男前そうなクロウラーたんを発見したお 資料はhttp://www.slideshare.net/lestrrat/gungho-swarmage-pocomdba/を見るべし。 ちなみに、これ書くのに使ったGunghoはVersion 0.09001 のCPANの。 概要 GunghoはPlaggerっぽいwebクロウラーたんです。なのでGunghoの名前空間以下にあるモジュールとかを個別に使おうとしたら大変です。 Gunghoのアーキテクチャにそった一本道な動作をさせるのがいいはず。 設定はConfig::Any使ってるので、色んな形式のを使えます。 Providerにより収集URLを取得し、EngineがHTTPでコンテンツを取得し、Handlerで取得したコンテンツを処理します。 Provider,Engine,Handlerは、そ
Windowsの通知領域で処理が終わったことをお知らせ - ヒルズで働く@robarioの技ログ
id:hirose31さんのファイルを変更したら自動的にreloadする方法 - （ひ）メモにあるobserve-mtimeを使わせていただいて「編集したら自動コンパイル」とかやってるんですが、裏で動かしてるのでいつコンパイルが終わったのか分からないんですよ。 でも音は出したくないので、通知領域にテキストバルーンを表示させることにしました。Windowsだし。 （MacだとMac::Growl::RegisterNotificationsかな？） cpanからWin32::GUI - metacpan.orgをインストールして、 % perl -MWin32::GUI -e '$t=3;$n=Win32::GUI::Window->new->AddNotifyIcon(-balloon=>1,-balloon_tip=>q{COMPLETE});sleep $t;'と、これだけで3秒間「C
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
GitHub - livedoor/cicindela2: a highly customizable recommendation engine written in perl + MySQL
Perl逆引き辞典 - サンプルコードによる Perl 入門
PHPやPerlでQRコードを超簡単に作れるサンプルスクリプト:phpspot開発日誌
【インフォシーク】Infoseek ： 楽天が運営するポータルサイト