aaa/AAAAAAAAA.pm - metacpan.org
The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending. package AAAAAAAAA; use strict; use warnings; our $VERSION = '1.00'; my @aaaaaaa = ('a'..'z', 'A'..'Z', 0..9); my %aaa_aaa; for my $a (0..$#aaaaaaa) { my $aaaa = sprintf("%06b", $a); $aaaa =~ s{0}{a}g; $aaaa =~ s{1}{A}g; $aaa_aaa{ $aaaaaaa[$a] } = $aaaa; } my
Perlの正しい潰し方 - TKSKを作る人のネタ帳 〜人格崩壊〜
Perlを潰したい他の言語の派閥の人に教えてあげます。Perlの正しい潰し方を。 まず言語自体を潰すのは難しいと考えてください。 いいとこ取りして出来た言語なので、致命的な欠点がありません。 狙いどころは開発体制やコミュニティなどです。 過去に失敗したが、そんなに無茶ではない方法 最初に何個か便利なライブラリをPerlで作ってリリースしてください。 #perl-users, #perl-casualの両方にアナウンスするのをおすすめします。 これでPerlコミュニティに潜入できます。 自分の作ったライブラリを標準添付してくれと言い張ります。#perl-casualで議論することを勧めます。 #p5pではコミュニティのメインストリームでしか議論が起きません。 拒否されたら、それまでに追加された標準添付ライブラリの採用根拠を説明させます。 ライブラリのメンテナ一覧を出してくれと騒ぎます。 #p
YappoLogs: モテる Perl 女子力を磨くための4つの心得
« LWP::UserAgent の HTTPS 対応は LWP::Protocol::https というパッケージに分離されました | Main | BPStudy#39 で Ficia の UI とテストに関する事を発表してきました » モテる Perl 女子力を磨くための4つの心得 こんにちは、毎夜 Perl コードでラブレターをコンパイルしては core 吐かれている Yappo です。 。私は学歴も知識もありませんしリア貧ですが、 Perl 恋愛に関してはプロフェッショナル。 今回は、モテる Perl 女子力を磨くための 4 つの心得を皆さんにお教えしたいと思います。 1.あえて 2～3 世代前の Perl を使う あえて 2～3 世代前の Perl を使うようにしましょう。そうですね5.6あたりが良いです。そして好みの Perl Monger がいたら話しかけ、わざとらしく P
被害者はPerlのようなもので殴られ意識不明--IT駄洒落コンテスト
印刷する メールで送る テキスト HTML 電子書籍 PDF ダウンロード テキスト 電子書籍 PDF クリップした記事をMyページから読むことができます 日立ソリューションズが運営する「情報セキュリティブログ」で開催されていた「第3回 IT駄洒落コンテストNEO」の結果が発表された。 応募総数5200件の中から大賞に選ばれたのは、「お前にURL筋合いはない！」という駄洒落。考案したosicomanさんには、iPad 16GB Wi-Fiモデルが贈られる。そのほか、優秀賞には「被害者はPerlのようなもので殴られ意識不明」（liquidfuncさん）、特別審査員を務めた伊藤ガビン氏による伊藤ガビン賞には「いろはにほへとちりNULLｵﾜﾀ＼(^o^)／」（takawoさん）などが選ばれた。 日立ソリューションズでは、これまでもセキュリティ啓発のカジュアルな取り組みを実施している。代表的なもの
HASH(0x8f7771c) | Taiwan News | 2010-07-27 08:00:24
Today is Tuesday, August 3, the 215th day of 2010. There are 150 days left in the year. Highlights in history on this date: 1460 - King James II of Scotland is killed by the blast of a cannon saluting the arrival of his wife, Queen Mary, at Roxburgh Castle, England. 1492 - Christopher Columbus sets sail from Palos, Spain, looking for a route to India across the Atlantic, encountering the New World
| ＾＾ |秒刊SUNDAY｜スクエニのCGIプログラムが丸見えで大変危険な状態な件
ファイナルファンタジーやドラゴンクエストなど数々のゲームをヒットさせ日本のゲーム業界をけん引してきた「スクウェアエニックス」（9684 ）だが、そんな一流企業にも大きなミスが発覚してしまった。同サイトのコンテンツの一部に、一定のユーザのみ閲覧させるプログラム（CGI）を導入してあったようだが、現在そのプログラムが丸見えになってしまっている。この丸見え状態であるがゆえ、ハッカーの絶好の攻撃対象になってしまう。一刻も早く対応すべきではないか。 CGIプログラムには以下のコメントがされている # 会員限定のムービー画面の表示を行います。 # ログイン済みの場合は、ムービー画面を表示します。 # ログインしていない場合は、メンバーズサイトのログイン画面にリダイレクトします などと書かれ会員専用ページであることが分かる。 ソースは2006年のものでかなり古い、おそらく公開終了後そのまま放置し CG
10種類の記号で書くPerlワンライナーの作り方 - すぎゃーんメモ
java-ja温泉にて、Pythonのワンライナーがキモいという話が出ていて、Perlだってこれくらいキモいの書けるよ！とアピールしてみた perl -e '""!~("(?{".("{^(?)!(?^{^^!){.^^~~?}{!~}^}^.(!~}!..^^!~}!~~.~^}"^"^}((~))~~^{.{^~?}^!^}(~{^)?()^)^!).^}!()){.^)(}.("^"!~!{}(!(!~((}}!})!^^{^){(.?}{}!~{^~!)^?..(~)!~.?."^"{{?}^(~)~^!..~)??){^.~){.~(!{.)}}^.}^~}?}.^}(^?{~"^".)^!?^(.)!~!)~{^{(}){?!^.~)({?)(^.^!.^{((^!!^(^(!"^"!})^?}^(?^(~{.)(}})!.?^~!!{~))}({^^!..)^^~?{.?).
エクストリームテキストプロセシング - 0xFEEDFACE
C++0xをdisってる人をdisる闇のC++軍団たち - Togetterに吹いた。 だがちょっと待ってほしい。C++0xは変態過ぎはしないか。たとえば増田からは「正規表現使いたければそれこそ、Perl使え」と主張するような声もある。このような声に闇のC++軍団たちは謙虚に耳を傾けるべきではないか。 傾けてみた。まず、perlfaq9 - Networking - metacpan.orgをコピペして、 #! /usr/bin/perl use strict; my $atom = qr{[a-zA-Z0-9_!#\$\%&'*+/=?\^`{}~|\-]+}; my $dot_atom = qr{$atom(?:\.$atom)*}; my $quoted = qr{"(?:\\[^\r\n]|[^\\"])*"}; my $local = qr{(?:$dot_atom|$quote
HASH(0x ... なページ集 - 昨日知ったこと
いつまでそのままかわからないけど。 http://www.gurumeruku.jp/search.cgi?action=search&category_l=CTG200&category_s=CTG217&hit_per_page=30&offset_page=9 平均予算が「HASH(0x8b56684)円」 株式会社ロジスティック、「ＦＴＡ／ＥＰＡ」活用のた...｜ビジネスポータルサイト アクシア 『マニュアル工房』新入社員教育“始めたい！”キャン...｜ビジネスポータルサイト アクシア header 内の description が「HASH(0x84e80ac)」 http://blogsho2.blog.so-net.ne.jp/2006-12-29-35
Pythonでチャットや掲示板を作りたいのですが日本語の入門書が見つかりません。 - Perlの入門書を買ってこれば大丈夫ですか？ - Yahoo!知恵袋
Pythonはあまりにも日本で多く上級者・中級者にしか使用されてないんで、初心者用の説明書などが少ない。上級者はもう殆ど英語で読めるタイプなので、ネットワーキング周りやらについての本はそこまで出てなくても不思議ではない。 それで、プログラミングの練習で役に立てるかもしれないヒントをあげよう： 「英語であっても、逃げない・諦めない。Googleは使う。」 基本を理解したら英語であっても、ソースさえ理解しようとして、英語を少しでも理解したら大きく役に立つかと思います。 Perlに関わってるこの文の一部を読んで、Python.orgの初心者用のマニュアルから、様々な大学が提供してるPDFを読めば、Pythonを少しでも理解が出来るようになるかと思います。Googleもあなたの大きな友達の一人にはなるかと思います。 そして、少し検索したらこんなのも出てきました: http://www.tobari
へぼへぼCTO日記 - Acme::Coro::Sukeをリリースしました
Acme::Coro::Sukeを先ほどCPANにリリースしました。(githubにもあげてあります) これは、Coroのasyncと基本的には同じ動作をするbenzoというブロック定義ができるようになるもので、benzoブロックにCoroがスレッドを切り替えるたびに、「うわぁ…べんぞうさんの中…すごくあったかいナリぃ… 」とコロちゃんが囁やいてくれるモジュールです。 一番簡単な使い方は以下のようになります。 use Coro; use Acme::Coro::Suke; benzo { }; cede; enjoy Acme::Coro::Suke! CPANに上げる三つめのモジュールがAcmeモジュールというのはこれはひどい。
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
miyagawanize.pl 試した - bayashi_netの作業ログ
YAPC::Asia2009で大うけだった miyagawanize にインスパイアされて、4U - beauty image bookmarking のフィードの画像を取ってきて、根こそぎ美少女を miyagawanize して IRC か twitter にポストするというネタを非同期な感じでやろうとしたけど、なかなか難しかった。 まず普通にスクリプトを動かそうとする。 OpenCV と Imager はけっこうすぐ入ったけど、Image::ObjectDetect がすんなり行ってくれなかった。 Package opencv was not found in the pkg-config search path. Perhaps you should add the directory containing `opencv.pc' to the PKG_CONFIG_PATH env
素晴らしきPerlモジュールの世界
カテゴリー"Acme" CPANには大量のPerlモジュールが登録されています。暗号操作、Apacheとの連携、テキスト処理、データベースへの接続、MIDIやPDFファイルの操作等々、ありとあらゆるモジュールがプログラミングの手助けをしてくれます。これらは全てカテゴリー別に分類されています。例えば、今あげた暗号関連のモジュールなら"Crypt"に属しますし、テキスト処理に関するものは"Text"という具合です。 このなかでも、"Acme"というカテゴリーには大変素敵で野心的なものがたくさんあります。いくつか紹介してみたいと思います。 Acme::Damn さて、Perlでオブジェクト指向プログラミングを行なう場合、blessという組み込み関数を使います。 bless $object,MyClass; で、blessというのは「祝福」という意味でしてTRPGやってた人にはお馴染みですね。CP
全裸で形態素解析をするスクリプト - すぎゃーんメモ
ゲレンデがとけるほどくだらないスクリプト - すぎゃーんメモに引き続き、くだらないスクリプトを。 今度は動詞の前に「全裸で」を挿入する。 #!/opt/local/bin/perl use strict; use warnings; use JSON 'decode_json'; use LWP::Simple 'get'; use Text::MeCab; use Readonly; Readonly::Scalar my $zenra => '全裸で'; # 引数に文章があればそれを対象に my $text = shift; if (defined $text) { print zenrize($text), "\n"; } # 引数指定が無い場合はWassrのPublic Timelineを使用する else { my $json = get 'http://api.wassr.jp
tips - 十まで数える二千百一の方法 : 404 Blog Not Found
2009年05月01日18:15 カテゴリTips tips - 十まで数える二千百一の方法 絶望した!誰も「笑」ってないことに絶望した! 斬新な数の数え方を考えた。 - NaokiTakahashiの日記 よく「正」って字を書いて数を数えるでしょ。一画ずつかいて、ひとつで５。 あれを「殺」って字にしたら一文字で１０数えられるんじゃないかとさっき思いついた。十画だから。で、十数えた、じゃなかった笑った後に、気になったわけです。十画の字ってどれだけあるだろうか、と。 こんなにありました。 㑣㑥㑦㑧㑨㑩㑪㑫㑬㑭㒭㓐㓑㓒㓬㓭㓮㓯㓰㔝㔞㔟㕋㕌㕍㕖㖏㖐㖑㖒㖓㖔㖕㖖㖗㖘㖙㖚㖛㖜 㖝㖞㘣㘿㙀㙁㙂㙃㙄㙅㙆㛍㛎㛏㛐㛑㛒㛓㛔㛕㛖㛗㛘㛙㛚㛛㛜㛝㛞㛟㛡㛢㛣㛤㝂㝃㝗㝘㝙㝚 㝶㝸㞂㞗㟇㟈㟉㟊㟋㟌㟍㟎㟏㟐㟑㟒㟓㟔㟕㟖㠫㠬㡇㡈㢃㢄㢅㢆㢇㢸㢹㣢㣣㤟㤠㤣㤩㤪㤫㤯 㤱㤳㤴㤶㤷㤸㤹㤼㤽㦴㦵㦶㧬㧭㧱㧲㧴㧵㧶㧷㧸㩻㩼㪇㪈㪉㪰㪶㪾㪿㫅
CPAN 長いネームスペース大会 : にぽたん研究所
「FormValidator::Simple::Plugin::Japanese の依存ライブラリを減らしつつ perl5.8 的な Unicode 使用スタイルにして高速化をはかるパッチ - TokuLog 改めB日記」 あたりに関連して、某 IRC にて… 19:23 >nipotan< FormValidator::Simple::Plugin::Japanese は、 19:24 >nipotan< Number::Phone::JP フンフンまわりが重いような希ガス 19:24 >nipotan< つか、U::RD にしても、N::P::J にしても俺じゃねぇか 19:24 <hid*******> w 19:26 <Yap***> www 19:27 >nipotan< FormValidator::Simple::Plugin::Number::Phone::JP でしたっけ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
GitHub - takuji31/p5-Acme-QB: 僕と契約して、魔法少女になってよ！
http://twitter.com/kentosho/status/20873410973
MyFinger.pm