数字を3桁ごとにカンマで区切る - Perlリファレンス
$num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g; 正規表現の拡張構文を使って1行でできます。 まず、 (\d{1,3}) が、数字1-3桁にマッチ。 一致した場合は$1はこの部分の数値となる。 (?=(?:\d{3})+(?!\d)) 続く部分は拡張構文なので一致の確認は行うが置換対象にはならない。 拡張構文の中にさらに拡張構文が入ってます。 (?:\d{3})+ 数字3の倍数桁に一致。 (?!\d) 続く文字が数字以外。 例 $num=1234567890; $num=~s/(\d{1,3})(?=(?:\d{3})+(?!\d))/$1,/g; 一番最後の文字が数字以外に一致ですので、末尾のみ一致する。 その前が数字3桁の倍数890、567、234、に一致。 その前の1-3桁の数字は「1」ですので、$1==1。 これで「1」が「1,」に置換される
AnyEvent::TwitterでOAuthを使うためのパッチを書いた - すぎゃーんメモ
Twitermで、AnyEvent::Twitterを使っているのだけど、これはBASIC認証のみ対応していて、現時点ではOAuthは使えない。 でも個人的にはPOST時にクライアント名を表示させたいし、OAuthをまだほとんど使ったことがなかったので使い方を学びたい。 ということで、下記を参考にしながらパッチモジュールを書いてみた。 404 Blog Not Found:perl - パッチなしでパッチする package AnyEvent::Twitter::EnableOAuth; use strict; use warnings; use base qw/Object::Event/; use AnyEvent::HTTP; use Carp 'croak'; use Encode 'encode_utf8'; use Digest::SHA; use JSON 'decode_j
正規表現だけで3桁ごとカンマで区切る - EAGLE 雑記
元ネタ: http://d.hatena.ne.jp/mzp/20090725/comma 数字が前にあって，3桁の数字のセットが最後まで続いている zero-width な文字をカンマに置換しています． #!/usr/bin/perl use strict; use warnings; use Data::Dumper; sub sep_by_comma($;$) { my ($n,$sep) = @_; $sep ||= ','; $n =~ s/(?<=\d)(?=(\d{3})+$)/$sep/g; $n; } print Dumper(sep_by_comma(1234)); print Dumper(sep_by_comma(12345, '_')); print Dumper(sep_by_comma(-1234567));
perlre - Perlの正規表現
NAME DESCRIPTION Regular Expressions Backtracking Version 8 Regular Expressions WARNING on \1 vs $1 Repeated patterns matching zero-length substring Creating custom RE engines SEE ALSO NAME perlre - Perlの正規表現 DESCRIPTION このページでは、Perlの正規表現の構文を説明します。マッチング演算 子中での正規表現の使い方や様々なサンプルについては、] perlopにあるm//、s/// qr//、?? を参照してください。 マッチング操作は様々な修飾子(modifier)を持つことができます。正規 表現中に置かれ、解釈される修飾子には以下のようなものがあります。 操作の振る舞いを
現代的なPerlの記述方法一覧 - Perl入門ゼミ
Perl › here Perl5.8以降における標準的なPerlの書き方を解説します。 インターネットで検索するとPerl4のころの古い記述がたくさんあります。また書籍などの多くもPerl4の記法で書かれています。Perl4の記法は複雑になりやすく間違いを生みやすいのでこれからPerlを書く人はPerl5の現代的な記法で記述することを強くお勧めします。 strictプラグマとwarningsプラグマ (必須) strictプラグマとwarningsプラグマを有効にします。 use strict; use warnings; use strict;とuse warnings;の２行はスクリプトの最初に必ず記述してください。これらはPerlの文法チェックを厳しくするためのものです。面倒だという軽い気持ちでこれを記述しないと後々本当に面倒なことになります。 use strict;とuse wa
『プライベート ブロック チェーン』｜ブロック チェーン 3|ホワイ ブロック チェーン･鹿沼市|諫早市|スカラー ブロック チェーン
スクエニ ブロック チェーン NEWS パチスロ 貞子3D(自动转) 東京都立川市 デジタル 通貨 白虎 どうしてもって時は、お刺身とかお野菜が単品で出てくるようなところに行って、それだけを食べたりしています 伊豆市 ブロック チェーン 3 確かに送迎は必要なくなったとはいえ、年ごろの娘たちのことは心配だったので、その提案はいいかもしれないと思いました 2023-03-20 帯広市 プライベート ブロック チェーン 「聞いちゃいけない内容っぽいから一旦退出します」というメールと共に終了されていました（笑） 茨城県高萩市 CR牙狼GOLDSTORM翔 Ver.319 「原監督は19年のシーズン終了後に阿部慎之助（42）を引退させ、帝王学を授けるために二軍監督に就かせた,明野 パチンコ 屋 nft とは 仮想 通貨 愛知県尾張旭市 apple ブロック チェーン それでは、どうすればストレスの
MooseとMouse（Any::Moose）の違い（今ちがわないようだ） - トミールの技術系日記
2009/10/1 たぶん今MooseもMouseと同じ挙動になっている（has定義必須） - Mooseはhasで定義してないやつも、bressされてるハッシュに残すけど、Mouse（Any::Moose）はhasで定義してるやつしか残らないのでちゅうい package Foo; use Any::Moose; has 'foo' => ( is => 'rw );で my $foo = Foo->new( foo => "foooo", bar => "baaaar"); use Data::Dump 'dump'; warn dump $foo; bless({ foo => "foooo", }, "Foo");みたいな。 Mooseもたまたまかもしれないから、ちゃんといるものは定義しよう。 ブレスオブジェクトに残しておきたい場合は、 sub BUILD { my ($self,
Adways Engineers' Blog : Mooseを使ってコマンドライン引数を処理する
2009年06月25日12:50 カテゴリ プログラミング Mooseを使ってコマンドライン引数を処理する 最近、Moose の素晴らしさに気付いて使い始めた sasata299 です。こんにちわ。(=ﾟωﾟ)ﾉ Moose ってとても便利だと思うんですが、どう使ったらいいものかよくわからない・・・。そんな人も多いのではないかと思ったので、今日は Moose を使う一例を紹介してみます。 そもそも Moose の利点って何？という話ですが、Moose にはこのような利点があります。 use strict; use warnings; しなくていい。自動でやってくれるPerl5 で OOP をより簡単にできる型チェックしてくれるので、本質的な部分に集中できる。可読性も（慣れれば）上がる素晴らしいじゃないですかぁ〜 ただ依存モジュールが多かったり、コンストラクタの処理に時間がかかるという欠点も
記号解読にチャレンジ - すぎゃーんメモ
Perlで記号プログラミング - TAKESAKOのはてな出張所 に対しての挑戦が。 id:TAKESAKO に挑戦してみる - yujiorama の日記 面白そうなので自分もやってみる。 #!/usr/bin/perl $^='-^\\\\%+"<&]\\$=/**:.](%_,//;<#)\\^_%$=]."\\&=\'?/:$?({/!_})(([=##!-^/\'%_#"]{"?~<]$\':$;#"&]`<#:?', $^_='_~`||`]@^_`"./,))<%?%<"(?<_}+^.;#^^@@{`:,|[{_``__[]_;/@-<~<;^.[^~::<&""[_`}*.[?]+[?!|-_`@[*);//(]?",=_+?]{{#`,@@<*@[{|/`.@#@[""[+_}[?__(?.+[_}<.?_"{>|!{}@@^_,{<', $^_^='{>][[[;/,
Template Toolkit 社内勉強会のレポート - hamashun.hatena
あちこち間違ってるという指摘を受けたのであちこち直しました＞＜ にぽたんさんによる、Template Toolkit（TT）の社内勉強会がありました。 という訳でOpen & Share！ アジェンダ 変数展開について オブジェクトからの呼び出し 意外と知られてない事 質問への回答 変数展開について TTはPerlなので、Perlに準拠する。 Perlは$とか@（シギル）で変数の型がわかるけど、TTにはそういうのがない。 しかし、型自体は持っている。 スカラー 配列 ハッシュ オブジェクト 実際は複雑で、スカラーのなかに配列とかなんか色々あるらしい。 スカラー 実は業務ではあんまり使われない。 単一の値しか持たない文字列。 または数値。 配列 一つの変数の中に複数の値を持つ値 ちなみにコード中に登場する "=" と "in" に違いはない。 全く同じ動作をする。 ちなみにFOREACH中に
CatalystのChainedアクションを使いこなすための3つのルール - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年05月16日13:45 Perl CatalystのChainedアクションを使いこなすための3つのルール 僕は最近、Chainedアクションを良く使っています。だってとっても便利なんです＞＜ 特に http://localhost:3000/hoge/*/*/edit みたいな複雑なURLに対するアクションを作りたいときなど、大活躍です！最近ではautoとかbeginをChainedで代用するように。。。(*´Д｀*) サンプルはこんな感じ。 sub mysetup : Chained('/') PathPart('') CaptureArgs(2) { my ($self, $c, @arg) = @_; $c->log->debug("in mysetup"); $c->log->debug( $arg[0] ); $c->log->debug( $arg[1] ); }
CatalystのChainedアクションの連鎖を止める方法 - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年05月17日00:14 Perl CatalystのChainedアクションの連鎖を止める方法 最近Chainedアクションを使っていて困ったことがありました。それは、、、 レインボーブリッジが封鎖ｄ Chainedアクションの連鎖が止められませんっっ(ﾉ｀□´)ﾉ〜┻━┻ どういうことかというと、ログインしているかどうかのログインチェックをChainedアクションを使って実装していて、未ログイン状態だったらログインページにリダイレクトさせたかったんです。 sub auto : Private { my ($self, $c) = @_; $c->res->redirect( 'http://www.zozom.net' ); $c->log->debug("in auto"); } sub hoge : Local { my ($self, $c) = @_; $c->log-
LWPとWWW::Mechanizeのバージョンが揃ってなかった - Pixel Pedals of Tomakomai
不具合が起こったので自分のためのメモ。 現象 $mech->back すると、以降Cookieが飛ばない 原因 LWPとWWW::Mechanizeのバージョンの相性。 LWP:5.825 (16 Feb 2009) WWW::Mechanize:1.34 (10 Dec 2007) Mechanizeを最新にするか、LWPがMechanizeと同じ頃のバージョンになってれば大丈夫です。 備考 この不具合は、後述するようにMechanizeの1.51_01の方針変更によって修正されています。 1.51_01 Thu Nov 6 15:13:03 CST 2008 ======================================== [FIXES] Page history is now working much better. The $mech->back() method
Big Sky :: 軽量Web Application Framework「MENTA」でOAuthしてみた
twitterのOAuthベータが開始されたので、さっそく軽量Web Application Framework「MENTA」でOAuthする物を作ってみた。 構成も簡単で │ .htaccess │ menta.cgi ├─app │ ├─controller │ │ callback.pl │ │ request.pl │ ├─data │ └─static ├─bin ├─lib └─plugins session.pl こんな感じ。トップページからrequest.plに飛び、OAuthのcallbackとしてcallback.plがキックされる。 要のrequest.plは以下の様な感じ use MENTA::Controller; use URI; use OAuth::Lite::Consumer; sub run { my $consumer
catalystのサンプルアプリとソースを公開してみる - 新だるろぐ跡地
モダンPerl入門を読んで色々勉強したので、サンプルアプリを作って自宅サーバで公開してみる。 http://niget.net/ ソースはgithubで晒し中。 http://github.com/hirafoo/niget/tree/master 誰かの参考になったり、disられたり、あれこれ議論したり、何かが起こったりするのを期待中。 とりあえず、このアプリの使い方とか。 ニコニコ動画の任意の動画のURLを入力 適当バリデートを通ったらDBに保存 5分に1回cronが走る。内容は、ニコニコ動画のAPIを叩いて、動画本体のURLと動画の名前を取得 APIは2個ある。本体のURLを取得する部分は小飼 弾さんのスクリプトを使わせてもらった 取得した内容をDBに保存。取得済みの動画は削除。 あとは動画本体を落とせばいいじゃない 以上。 まーサンプルアプリだしね！ でも、本体URLを取得できるw
Perlでアニメ顔を検出＆解析するImager::AnimeFace - デー
というのを作ったので自己紹介します。 2月頃から、コンピュータでアニメ顔を検出&解析する方法をいろいろ試しつつ作っていて、その成果のひとつとして、無理やり出力したライブラリです。 はじめに はじめにざっとライブラリの紹介を書いて、あとのほうでは詳細な処理の話を僕の考えを超交えつつグダグだと書きたいと思います。 Imager::AnimeFaceでできること Imager::AnimeFaceは、画像に含まれるアニメキャラクター的な人物の顔の位置を検出し、さらに目や口など顔を構成する部品位置や大きさの推定、肌や髪の色の抽出を簡単に行うことができるライブラリです。 これらが可能になると、 画像から自動でいい感じのサムネイルを作成できる 動画から自動でいい感じのサムネイルを作成できる 自動的にぐぬぬ画像が作れる 自動的に全員の顔を○○にできる 顔ベースのローカル画像検索 など、最新鋭のソリューシ
DBIC でSELECT時に複雑な関数を使いたい（例、年齢計算） | ブログが続かないわけ
ユーザーのプロフィールとして年齢を持ちたい場合、実際に年齢をユーザーに入れさせてしまうと、データの更新が必要になり大変です。当然、ユーザーには生年月日などを登録してもらうことになるわけですけど、そうなると、年齢を表示するときに、ちょっとした年齢計算が必要になります。うるう年のことなども考えると結構面倒なので、このあたりはSQLの関数でバシッと計算する方がラクにできます。 データベースには生年月日が登録されている場合に、年齢を取得することを考えてみましょう。SQLはちょこっと複雑になりますが、MySQLのサイトに解答が出ていますのでそのまままねてしまうことにします。 【参考】MySQL 4.1 リファレンスマニュアル :: 3.3.4.5 日付計算 birth というカラムに生年月日が入っているとすると、SQLはこんな感じになります。SELECT user_name, birth, (YEA
【CGI・Perl】[Perl]ディレクトリを再帰的にたどりファイル一覧を取得したい その1
CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：ディレクトリ [Perl]ディレクトリを再帰的にたどりファイル一覧を取得したい その1 以下のエントリーの続き。 [Linux]ディレクトリを再帰的にたどりファイル一覧を取得したい http://katsubemakito.net/cgiperl/2006/10/_perl_1.html 特定のディレクトリ配下を再帰的にたどりファイル一覧を表示などしたい。 階層の深さが決まっていればかんたんに取得できる方法もあるが、階層はまちまちで、今後もダイナミックに変化していく。このような場合にはどうすれば良いだろうか。 今回はPerlでの実装方法について解説する。 ○オリジナルの関数を用意する 再帰については見てもらった通り、関数(サブルーチン内)で自分自身を呼び出せばOKだ。 ;#
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
サービス終了のお知らせ
B型SEの日記: 【Perl】数値のカンマ整形（数値フォーマット）