Perl tricks by Neil Kandalgaonkar
Perl tricks by NEIL KANDALGAONKAR Author: Neil Kandalgaonkar Formatting: Laurent CAPRANI Look here for a nicer version of this page that Neil made. Contents Primality regex How it works Example This vs. mine Primality regex I found the actual one-liner Abigail originally used from http://www.mit.edu:8008/bloom-picayune.mit.edu/perl/10138: perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Perlプログラマのためのgdb入門(at Shibuya.pm #9 LT) - とあるはてな社員の日記
先日のShibuya.pm #9のLightening Talkで「gdbでXS on mod_perlをデバッグ」という話をしてきました。XSを使い出すと、従来のPerl的デバッグだけでは不十分なのでgdbをうまく使って、効率的にデバッグしましょう、という話です。実は、はてな社内では1年近く前に勉強で話したネタだったのですが、ようやく公開することができました。 Shibuya.pmでは5分という枠があったのでショートver.でしたが、ここでは制限はないので、本来のロングバージョンの資料をアップします。ちょっと公開できない情報が混っていたので、xxxで隠していますが、ご了承ください。 ちなみに、Rubyとかでも似た感じでデバッグできると思うので、そちらの人も参考にしてください。長いよ!という人は、最後の「これは設定しておけ的gdb初期化マクロ」だけでもどうぞ。かなり便利です。 (資料公開が
紹介 - Larry Wall Interview by Tech総研 : 404 Blog Not Found
2008年06月20日14:00 カテゴリLightweight Languages 紹介 - Larry Wall Interview by Tech総研 YAPC::Asia::2008のHackerthonの日程をぬって行われた、Larry Wallのインタビューが公開されましたのでお報せします。 ラリー・ウォール＠Perlは、とっっても愛妻家！／Ｔｅｃｈ総研 も、萌え死ぬ.... ラリー・ウォール＠Perlは、とっっても愛妻家！／Ｔｅｃｈ総研私の中には、Perl6はずっと完成しなくてもいいという気持ちもあるのですが。 ちょちょまwww でも、記事を全部読めば真意は理解できるはずです。 Enjoy! Dan the Host Thereof 「Lightweight Languages」カテゴリの最新記事
YAPC 2日目 - higepon blog
今日も良い天気！ memcached in mixi by kazeburoさん 自分も使ったことがあるので mixi のような大規模使用例の話は楽しみ。 すみません。以下にはいくつかメモ漏れがあります。 memcached って何？ さまざまな言語でクライアント API memached の「分散」 クライアントに実装された分散アルゴリズムで分散 get / get_multi get_multi は非常に高速 delete 上書き禁止の秒数指定できる→知らなかった mixi での利用事例 Pentium4 / Pentium D memory 4GB Linux 2.6.x x86_64 ちょっと古めのマシン 専用マシン 100台以上 1台につき 3GB の容量で起動 cache Hit率 94%（安定している値） メモリ使用量 88%（安定している値） memcached のレポート
YAPC 1日目 - higepon blog
良い天気だしキャンパスが気持ちよい。 miyagawa さんの英語が流暢。 Larry Wall ktkr お茶目だな。 Continuous Testing Test::Continuous ソースが変更されたら自動テスト ポップアップで知らせる これいいね。 Log::Dispatch らしい Log::Dispath::MacGrowl すべてのテストを実行するのは重いよね .pm -> .t の依存関係 すべての依存関係を検知するのはむり（yamlとか） Perl as a Second Language by 弾さん なぜ外国語を学ぶべきか？ 何かやるには1つ以上の方法がある 言語毎にどんなことにより注意を払っているか？の違いがある 英語・日本語・中国語における「いとこ」の例 Perl と他の言語が似ている例 print "Hello, World!"; # python, ru
404 Blog Not Found:perl - There's more than one way to die
2008年05月10日15:00 カテゴリLightweight Languages perl - There's more than one way to die いよいよ来週はYAPC::Asia::2008ですが、Hotel DANは本日から開業。我が家では本日から20日までが「YAPC旬間」です。 というわけで、その間は少なくとも一つはperlがらみのentryにしていく所存です。 で、第一回はいきなりdieの話題です。 開発日誌 pp-perl: Perlのエラー処理プログラムを停止して、メッセージ（LIST）をSTRERRに出力します。 間違っていませんが正しいとは言えません。 die = throw die()とは何か? まずは、以下のコードをご覧下さい。 [Run via codepad] eval { my $zero = 0; my $dead = 1 / $zero;
404 Blog Not Found:perl - ワンライナーの書き方入門
2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl
＠ドリブンなTwitter自動投稿スクリプト - ここでもバリ３をゲットできるかな - はてなグループ::ついったー部:
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
perl - ソースが読みにくいには訳がある - そして愛も : 404 Blog Not Found
2007年12月26日17:45 カテゴリOpen Source perl - ソースが読みにくいには訳がある - そして愛も Can't agree more! まつもとゆきひろのハッカーズライフ：第10回 ソースを読もう (2/2) - ITmedia エンタープライズ このように、ソースコード読解の経験を積むと、読みやすいソースコードと読みにくいソースコードがあることに気がつくと思います。わたしが最悪と思ったのは、（失礼ながら）Perl5のソースコードです。 このPerlのソースコードの読みにくさが、Perlの実装の分化の一番の妨げになってきた。Perlより新しいRubyにYARVが生まれたり、Pythonにあれだけ多彩な実装があるのは、その裏返しと言っていい。Perlにもそういう動きがなかったわけでもないのだが、他の言語のようにうまく行っていないのは、ソースコードの読みにくさが確か
Perl入門講座 - builder by ZDNet Japan
今を知り、未来を見据える 培ってきたノウハウを最新技術へ対応させる レガシーシステムのモダン化実現への道 ネットワークもサービスとして使う いま企業ネットワークが受ける大きな制約 クラウドシフトで大きく変わる！ 激変するビジネス環境の中でのDX モダンアプリケーション戦略への取り組みが 市場の競争力の源泉となる 体験から学んだ成功への知見 マネーフォワード×エム・フィールド対談 Fintechプラットフォーム開発の「鍵」 ともにDXを推進する コンテナ化されたワークロードを管理 継続的な価値を生みだす「協創」への挑戦 自社利用の知見・経験を顧客に提供 コンテナ活用を推進する日立製作所 VMware Tanzuを利用したモダナイズを伝授 大学、研究機関、製造業など いま目覚ましい躍進ぶりを見せるデルのHPC その背景と選ばれる理由にせまる エッジからハイブリッド環境まで 考えられる全てのイン
perl - 文字列ばらしはsplit //, $strで : 404 Blog Not Found
2007年11月27日13:30 カテゴリLightweight Languages perl - 文字列ばらしはsplit //, $strで うーん、ここがあきまへん。 [を] 転置インデックスによる検索システムを作ってみよう！ 9 my @char = ($c =~ /([\x00-\x7f]|[\xC0-\xDF][\x80-\xBF]| 10 [\xE0-\xEF][\x80-\xBF]{2}| 11 [\xF0-\xF7][\x80-\xBF]{3})/gsx); 文字列をばらして(utf8の)文字一つ一つの配列にするには、バイト列に正規表現をかますのではなく、utf8文字列にしてからそれにsplit //をかますのが一番です。単にわかりやすいだけではなく、その方がずっと高速です。以下、Benchmark。 #!/usr/local/bin/perl use strict; u
perl - Imager::QRCodeを使ってみた : 404 Blog Not Found
2007年11月12日15:00 カテゴリLightweight Languages perl - Imager::QRCodeを使ってみた 野暮用があったのでこんなのさくっと作ってみた。 http://api.dan.co.jp/qrcode.src 使い方は、こんな感じ。詳しくはソースを参照してちょんまげ。ご自由にお持ち帰りください。つーかそうしてもらった方がアクセス負荷的にありがたいか。 data: size: margin: version:0で自動 level: mode:漢字が入っている場合は、Kanjiに指定 lightcolor:#バックグラウンドの色 darkcolor:#フォアグラウンドの色 鯖側はあっという魔に出来た。5分かかったかどうか。蔵側(JS)も10分ほど。引っかかったのは、ちょっとKanjiの扱いで手直ししたぐらいか。 Imager::QRCode++;KU
中はLISPです - なつたん
Higher-Order Perl、chap3から。 メモ化の話 少し前に流行った、fib関数をメモ化して速度を上げる話。 普通にいろんな実装方法を説明した後、どうやって一般化するかでMemoize.pmの紹介がある。 Perlだと メモ化を個人で実装する必要はなくて、 use Memoize; memoize 'fib'; で関数fibをメモ化できる。この本では、紹介だけでなくMemoize.pmの動きをちゃんと説明している。Memoize.pmはPerlの内部テーブルを書き換える話をした後に、closureが来る。 どうみても、Lispです。 Padというのは、ローカル変数のbindingを行うデータ構造で、StubはPerlのjargonではCV(code,value)と呼ばれる。carが手続き(code)をさして、cdrがpad(ローカル変数のbinding)を指すと説明が入る。P
perl - 配列をハッシュキーとして扱う : 404 Blog Not Found
2007年10月24日20:00 カテゴリLightweight Languages perl - 配列をハッシュキーとして扱う コメント欄にも「教科書解」がなかったので。 Perl勉強中 - YoshioriのBlog #!/usr/bin/perl use strict; use warnings; my @array = qw/1 2 3/; my @array2 = qw/1 2 3/; my %hash; $hash{@array} = 'foo'; # ちょっと変更 print $hash{ @array2 }; # foo みたいなこと出来ないのかな？ 教科書解は、こちら。 $hash{ join($;, @array) } = 'foo'; これは、 $hash{1,2,3} = 'foo'; $hash{qw/1 2 3/} = 'foo'; という、配列リテラルをキーに
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のプログラミング経験が少
perl - 左辺値代入 : 404 Blog Not Found
2007年05月25日15:30 カテゴリLightweight Languages perl - 左辺値代入 それってPerlで。 鍋あり谷あり 条件式の結果を左辺に書ける言語って、C/C++以外にあるのだろうか。 Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] my $a = 1; my $b = 2; print "a = $a, b = $b\n"; ($a < $b ? $a : $b) = 0; print "a = $a, b = $b\n"; a = 1, b = 2 a = 0, b = 2 さすがに上記の例はあまり使いませんが、 my $str = "foobar"; substr($str, 3, 3) = 'dan'; # foodan とかは比較的よく見られます。 ちなみに、DCONWAYは左辺値代入(lv
ErlangからPerlを使う : 404 Blog Not Found
2007年05月24日18:00 カテゴリLightweight Languages ErlangからPerlを使う hio++. ひおにっき(2007-05-22) 外部ポートっていう言い方があってるのかわかんないけれど^^; 別プロセスを起動してそっちで処理して結果を返す. 返さなくてもいいんだけど. Erlang-Port-0.04として CPAN にアップしてあります.遊び方はしごく簡単で、Erlang::Portを入手したらmakeして、exampleディレクトリにcdして以下のようにするだけ。 % erl Erlang (BEAM) emulator version 5.5.4 [source] [async-threads:0] [kernel-poll:false] 1> c("perleval"). {ok,perleval} 2> perleval:start("per
Kazuho@Cybozu Labs: 負荷に応じてキャッシュを自動調節する Perl モジュール
« Re: PoCo::Client::HTTP が勝手に文字コードを変えてしまう件 | メイン | Cache::Adaptive の使い方 » 2007年05月09日 負荷に応じてキャッシュを自動調節する Perl モジュール Cache::Adaptive の使い方に続く 最近かりかりとサーバサイドの実装をしています。修行の成果、だいぶ複雑な SQL も書けるようになってきました。DBMS の気持ちを考えながら SQL 最適化するのは楽しいですね。しかし、いくら SQL を工夫したところでパフォーマンスの限界はあるわけです。 となると、採りうる選択肢はスケールアウト・スケールアップ・キャッシングの３つになります (もちろん組み合わせも可)。ただ、需要予測の最大値に基づいて機材を確保するのもあまり効率的とは言えませんし、リリース直後に徹夜でパフォーマンスのチューニングをするのもイヤです
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
弾のスライド - PSL = Perl as a Second Language : 404 Blog Not Found