モダンな Perl の開発環境の構築方法 - tokuhirom's blog
一般的な OSX 環境および Linux 環境における、モダンな Perl 開発環境の構築方法についてまとめてみたよ。 perlbrew のインストールperlbrew をつかうことにより、簡単に最新版の Perl5 を利用することができるようになる。 perlbrew をいれる。% curl -L http://xrl.us/perlbrew | perl - install % ~/perl5/perlbrew/bin/perlbrew init ~/.bashrc (または ~/.zshrc)に source ~/perl5/perlbrew/etc/bashrc を追記。あたらしいシェルをたちあげる。最新版の perl をインストールする。% perlbrew install perl-5.12.1 % perlbrew switch perl-5.12.1 ここまできたら、she
Perl が覚えられて胸もキュンとなるコードを書いてみた - おいちゃんと呼ばれています
なんか Perl でスクレイピングする記事が話題になっているようでして。 -簡単！たった１３行のコードでHTML取得＆解析をするPerlスクリプト - DQNEO起業日記 このブログの著者の人、いいな。と思う、ほんとに。僕も素直でありたいな、と。で、ちょっと遅くなってしまいましたが、便乗してみます。 **本日の教材 ただ、短く○○行で書くとかは得意分野ではないので、おたのしみ画像を手に入れる方向にもっていってみました。次のサイトを教材に。 -なんでもちゃんねる : 胸がきゅんとする女の子の画像 - ライブドアブログ 好みが合わなければ、サンプルコードの URL のところだけ変えてもらっても構いませんし。 **サンプルコード 下記のコードで胸キュン画像を GET できます。 |perl| ! /usr/bin/perl use strict; use warnings; use Web::S
テキストファイル内の特定文字列を一括置換させたい～Perl編～
ファイル内の特定の文字列を置換させたい場合には、sedを使用するのが容易だ。「テキストファイル内の特定文字列を一括置換させたい」Tipsでも紹介をしている。 次の例では、input.txtを読み込み、シングルクォートを削除してからoutput.txtに書き出すという指定になる。
Perl - ワンライナー - システムエンジニア虎のWiki - livedoor Wiki（ウィキ）
[ 企業/業界 - IT業界 ] [PR] Wikiポータルがリニューアル！ ウィキをはじめる！ フレパ - ピクス - リスログ - ブログ システムエンジニア虎のWiki トラブルシューティング・インストールメモ・設定方法・プログラミングのコツなどをメモして蓄積する。 編集 履歴 添付 設定 新規ページ作成 Ads by Google トップページ 最近更新したページ ページ一覧 タグ一覧 カテゴリー 一般一般 企業/業界IT業界 ソフトウェア・ネットワーク その他 Wiki内検索 最近更新したページ 2006-10-24 ディスク容量チェックスクリプト DNS_RR生成スクリプト 2006-10-17 Perl - ワンライナー 2006-10-05 スクリプト集 2006-05-17 /etc/inittab /etc 2006-05-12 /var/log /var /e
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
PerlでMeCabを使うためのメモ on Debian Lenny - punitan (a.k.a. punytan) のメモ
インストール # vim /etc/apt/sources.list -> non-freeを追記 # apt-get update # apt-get install mecab libmecab-dev mecab-ipadic-utf8 # vim /etc/apt/sources.list -> non-freeを削除 # apt-get update # cpanm Text::MeCab 正しくインストールされたか確認 ソース use strict; use utf8; use Text::MeCab; my $text = 'すもももももももものうち'; my @fields = qw(id surface feature length); sub text_mecab { my $mecab = Text::MeCab->new(); for(my $node = $mec
AnyEvent::Twitter::Chirp を書いた - punitan (a.k.a. punytan) のメモ
ChirpUserStreamsを簡単に使えるようにしてみました レポジトリ GitHub - punytan/AnyEvent-Twitter-Chirp: DEPRECATED INSTALLATION % git clone git://github.com/punytan/AnyEvent-Twitter-Chirp.git % cd AnyEvent-Twitter-Chirp/ % perl Makefile.PL % make % make test % sudo make install ChirpUserStreamsって何?という方はこちらを Twitterの新しいStreaming API「ChirpUserStreams」がすごすぎる件 - すぎゃーんメモ これを簡単に使えるようにしたモジュールです ドキュメント % perldoc AnyEvent::Twitte
Perlでメールを送信するときはEmail::Senderを使いましょうというお話 - punitan (a.k.a. punytan) のメモ
ことの経緯はEmail::MIME - Togetter まとめると、Email::MIME->create()のところうまく書けば良いよ、というお話。 ところが今度はEmail::Send。Email::SendのPODには WAIT! ACHTUNG! Email::Send is going away... well, not really going away, but it's being officially marked "out of favor." It has API design problems that make it hard to usefully extend and rather than try to deprecate features and slowly ease in a new interface, we've released Email::
第20回 Email::Sender：メールを送信する | gihyo.jp
メール送信のあれこれ たとえばウェブアプリケーションでなにかの注文を受け取ったとき、あるいはシステム管理ツールでなにか異常を発見したとき、ユーザや管理者にメールを送れるようにしたい、というのはよくある要件です。昔はヒアドキュメントやテンプレートエンジンなどを使って送信したいメールを用意したあと、sendmailへのパイプを開いてメールを流し込んでいたものですが、いまはメールの作成から送信まで、すべてモジュールを使って実現できるようになっています。 とはいえ、需要が大きいだけにメール関係のモジュールは山のようにあります。ディストリビューション（パッケージ）の数だけで500を数えますし、メール関係の名前がついたモジュールは現在CPANにアップロードされている7万以上ものモジュールのほぼ1割を占めるほどです。これではどれを使えばよいのかわからないという声があがるのも当然でしょう。 そこで今回はP
Perl5とPerl6は同じ血統ではない、Perlは2つの系統へ
Perlの最新バージョンであるPerl5と、現在開発中のPerl6との関係は、 「Perlという大家族の一員ではあるが、同じ血統ではない」 ということが基本合意されたと、ブログ「Japan Perl Association運営ブログ」のエントリ「Perl5 and Perl6」で同団体代表理事の牧大輔氏が書いています。 Perl5とPerl6は同じ血統ではないとはどういうことでしょう？ Perl6の開発スタートは2000年 Perl6は、高機能化し複雑になってきたPerl5の実装を見直し、次世代のPerlにふさわしいPerlを作ろうと2000年に開発が始まりました。 Perl6は新しく言語仕様から作り直しているため、Perl4や5に対する後方互換性がなくなることが発表されています。ということは、現在のPerl5で書かれた膨大なソフトウェア資産を維持するには、Perl5の実装を何らかの形で維
Perl でのデバグ用のダンプ
Perl でのデバグ用のダンプ 2006-09-15-4 [Programming] 「Perl Hacks」よりデバグ用のダンプの話。 Data::Dumper をよく使っていたが、よりデバグに適したモジュール Dumpvalue を知った(p.182, HACK#71)。よさげなので活用するつもり。 以下、自分用メモを兼ねたサンプルコードと実行例： % cat dumpvalue-test.pl #!/usr/bin/perl use strict; use warnings; use Dumpvalue; my $d = Dumpvalue->new(); my @array = ({foo => ["One", "Two"], bar => "Hello"}, {foo => ["Hi", "Hu", "Mi"]}, {foo => ["ABCD", "EFG"], bar =>
便利なPerlのパスワード生成ワンライナー
Perlの便利なコマンドを見つけました。英数字からパスワードを自動生成してくれます。プロンプトでいきなり実行できるワンライナー形式のコマンドなのが便利。 perl -le 'print map { ("a".."z", 0..9)[rand 36] } 1..8' Perlがインストールされていれば、８文字の英数字のパスワードを生成してくれます。map関数を使うところがうまいですね。 一応ランダム関数で作成されているので、安全性の高いパスワードができると思います。でも、ツールに作らせると、そのツールの特性を熟知してる人とかにパスワードを解読されてしまいそうで怖い。ランダムと言っても、規則性の無いところにクセがあったりするので、安心はできませんね。 意味のある単語を含まない、ランダムな英数字のパスワードを定期的に変更するのが一番セキュリティ面では安心ができますが、新しいパスワードを覚えるのが
Perl でホスト名からIPアドレスを得る
Perl でホスト名からIPアドレスを得る 2010-04-09-4 [Programming] Perl で ホスト名からIPアドレスを得るには gethostbyname を使えばOK。 $bin_addr = gethostbyname($host); $addr = sprintf("%vd", $bin_addr); (via http://code.nanigac.com/source/view/381) Net::Ping を使用してホスト名からIPアドレスを得ることもできる。 生存確認も兼ねる必要があるときには良いかと。 下記のサンプルプログラムは "perldoc Net::Ping" のをちょっといじっただけ。 コード (netping.pl)： #!/usr/bin/perl use strict; use warnings; use Net::Ping; my $h
netatalk・ファイル共有講座 | netatalk講座 [Smart]
四角の枠に囲ってある段落で、> というマークは出力行、もしくはコマンドラインを意味します。 例 print "Hello\n"; > Hello 謝辞 インターネットのおかげで無料で勉強でき、プログラムの仕事をするようになりました。とても感謝です。そのお返しという程でもありませんが、勉強の成果を公開することにしました。 この講座に掲載した情報のすべては、インターネットからかき集めたものが大半です。その情報が正しいものかどうかは確かめたのですが、それはちょっと怪しいものですので、間違いや誤解などが含まれている可能性があります。 ということで、ちょっとおかしいなと思ったらご報告お願いします。 次にこの講座にきたときは、ただしい文章が掲載されていると思います、たぶん。
システムコールを実行する 【Perl CGIプログラミング入門】
syscall関数を使うと、システムコールを実行することができます。 ただし、システムコールが実装されていないシステムではエラーになります。 システムコールは、「&SYS_システムコール名」で実行するシステムコールを指定します。 システムコールの引数は、実行するシステムコールの引数を指定します。実行するシステムコールにより、変わります。 第１引数の「システムコール」は'syscall.ph'に定義されていますので、requireしておく必要が有ります。 戻り値は実行したシステムコールの戻り値になります。 #!/usr/bin/perl require 'syscall.ph'; $buff = "Hello World!!.\n"; # syscall.txtファイルに1行出力 open(OUT, "> syscall.txt"); # writeシステムコールによる出力 syscal
AnyEvent で echo サーバ作ってみた - amari3の日記
最近ちょくちょく勉強している、AnyEvent で簡単な echo サーバを作ってみた。 入力された文字を単純に返すだけだと面白くないので、入力した時の日時を表示するようにしてみた。 #!/usr/bin/env perl use strict; use warnings; use feature qw/say/; use DateTime; use AnyEvent; use AnyEvent::Socket; my $HOST = '127.0.0.1'; my $PORT = '18888'; tcp_server $HOST, $PORT, sub { my ($fh, $host, $port) = @_; say "connected $host:$port"; &add($fh); }; AnyEvent->condvar->recv; sub add { my $fh =
ダイクストラ法, 貪欲アルゴリズム - naoyaのはてなダイアリー
現実逃避をしながらウェブを眺めていたら ダイクストラ法（最短経路問題） にたどり着きました。単一始点最短路問題におけるダイクストラ法の解説です。 何を思ったのか、図を眺めていたところ動かしたい衝動に駆られて、気付いたらパワポでアニメーションができていました。 http://bloghackers.net/~naoya/ppt/090319dijkstra_algorithm.ppt 実装もしてみました。隣接ノードの表現は、ここではリストを使いました。 #!/usr/bin/env perl use strict; use warnings; package Node; use base qw/Class::Accessor::Lvalue::Fast/; __PACKAGE__->mk_accessors(qw/id done cost edges_to prev/); package Q
第11回 Kansai.pm / スペルミス修正プログラムを作ろう - naoyaのはてなダイアリー
昨日は第11回 Kansai.pm でした。 今回は無理を言って自分がホストを担当させていただきましたが、面白い発表が多く開催した自分も非常に満足でした。 PFI の吉田さんによる Cell Challenge での計算機に合わせたアルゴリズムのチューニング手法の発表 (発表資料) は圧巻でした。伊奈さんの本文抽出の話 (発表資料)、はこべさんのコルーチンの話 (発表資料)、いずれも難解になりがちなところを凄く分かりやすく解説されていて、さすがだなと思いました。各々ショートトークも、いずれも良かったです。 スペルミス修正プログラムを作ろう 自分も 20 分ほど時間をいただいて、スペルミス修正プログラムの作り方について発表しました。 スペルミス修正プログラムを作ろうView more presentations from Naoya Ito. スペルミス修正プログラムについてはずばり スペル
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
r0nb - devmemo: Perlワンライナーで複数ファイル内文字列の一括置換
webhtm.net