[Perl]小話：多くの人に誤解されている chomp 君の地位を向上させてみる - Perl
よく Perl のコマンド紹介などで改行コードを削除する便利なコマンドとして紹介されるのが「chomp」というコマンドです。多くは、 「文字列の行末に改行がある場合はそれを削除し無い場合は何もしません」 という紹介がなされます。こういう紹介をうけると、 「おぉ！ こいつは便利だ改行コードを自動で削除してくれるんだ、きゃっほーっ！」 ということになります。ところが試してみると 異なるOS間でやり取りしているデータに対して処理するとうまく動きません。なぜなら改行コードと呼ばれる文字には三種類のコードが存在し、chomp君が取ってくれるのは現在Perlが実行されている環境における改行コードだからです。その為ネット上では Perl 初学者の 「なんかchompがうまく動かないんですけど」 という質問があり、回答として、 「改行コードはさっさと正規表現でとっちゃおうよ」 という至極真っ当な意見ととも
oinume journal
Raycastを使い始めて1年経ったので、どういうことに使っているかを振り返ってみる。去年書いた AlfredからRaycastに移行した - oinume journal の記事から少し使い方が変わっているところもあるのでメモがてら。 基本的な使い方 Cmd + QをRaycast起動のショートカットとして割り当てている。Pro版は使っていないのでAI機能などは使ったことがない。 ブラウザのブックマーク検索など、よく使うけどHotKeyを割り当てるほどでもないRaycastコマンドはbmのようにAliasを設定している。 Cmd + QでRaycastを起動してbmと入力するとブックマークの検索ができるので楽ちん アプリケーションランチャー機能 アプリケーションを起動するときのランチャーとして使っている。よく使うアプリにはHot Key(ショートカット)を割り当ててる。 Clipboar
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
Perl 5.8.x Unicode関連
-> 趣旨と注意書き -> UTF8フラグ？ -> UTF8フラグとPerlIOレイヤ -> UTF8フラグのついた文字列を記述する -> Wide character in print ... -> Encode -> utf8::* -> use utf8; -> use encoding; -> use UTF8 と use encoding -> JcodeからEncodeへ -> 情報源 <- モドル 趣旨と注意書き Perl 5.8.x のUnicode 関連です。 正直、5.8.x は、ネタでしか使ってなかったので(ぉ、ちゃんといじったことがありませんでした。 使ってみると、よくわかんなくなったので、ちょっとまとめてみました。 今でもあんまりわかってないかもしれないので、内容は無保証です。 突っ込み歓迎。 Jcode、Encodeのメンテナの弾さんから、ご指摘いただいたので、
404 Blog Not Found:perl - Encode 入門
2008年04月09日01:00 カテゴリLightweight Languages perl - Encode 入門 すでにOSCONでもYAPCでも、あちこちそちこちでこの基本方針に関しては話したのですが、ここ 404 Blog Not Found でも改めて。 Perl で utf8 化けしたときにどうしたらいいか - TokuLog 改め だまってコードを書けよハゲ 入り口で decode して、内部ではすべて flagged utf8 で扱い、出口で encode する。これがすべてです！とにかくこの基本方針をまもっていれば幸せになれます。ここでは、EUC-JPでエンコードされたファイル中の「小飼弾」「こがいだん」「コガイダン」「Kogai Dan」を正規表現で書き換えて標準出力にEUC-JPで出力するプログラムを例にとって説明します。 decode() then encode(
De4u Horse Jumps
Dear old farmers. No more opening and closing gates like you used to in the good old days. Today, you can still farm, but the work has become a lot more demanding than it used to be. There is not enough time to talk to you about all the challenges you face every day. You know enough about those, it is presumed. Not meaning to be presumptuous, let us carry on then. One challenge rural farmers are f
現代的な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
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
ワンライナーで画像収集
某掲示板まとめブログのエッチな記事に載っている画像を収集したいときに、Perl ではワンライナー、つまり1行のコマンドで書くことができます。例えば、女の子の太もも画像 ( http://metiss.blog92.fc2.com/blog-entry-142.html ) にリンクされている画像をカレントディレクトリにダウンロードしたければ以下のようなコマンドをたたくだけです。 $perl -MLWP::Simple -MFile::Basename -e 'map{mirror($_,basename($_))} get($ARGV[0]) =~ m{<a.*?href="(http://[^"]+\.jpg)"}gi;' http://metiss.blog92.fc2.com/blog-entry-142.html どうでしょう。ダウンロードできましたか？このワンライナーから以下のこ
雨が多いので、東京アメッシュHackです
雨が多いので、東京アメッシュHackです 2008-08-31-4 [Programming][Chumby] さくらの500円レンタルサーバーには 最初から ImageMagick [2008-08-15-3]が 入っているので嬉しいですね。 ということで、東京アメッシュ[2007-11-11-4]をハック！ chumby の Load Image URL widget[2008-05-20-1] で使う目的で、 東京の最新の降雨情報画像から、 東京23区の部分だけ抽出した画像を作ります。 東京アメッシュの画像を重ね合わせる 東京アメッシュの画像は三層に分かれています。 （某モ氏のハックを参考にさせて頂きました） まず、最初にトップにでる低解像度の画像： - http://tokyo-ame.jwa.or.jp/map/map000.jpg - http://tokyo-ame.jwa.
ゆーすけべー日記: Plaggerでニコニコ動画を一...
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Yusukebe::Tech: Perlでニコニコ動画のflvとコメントxmlをダウンロードする
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
DreamHost で CPAN を使う方法 - Hasta Pronto.org
最近サーバーを巷で噂の DreamHost に乗り換えてみました。決めては価格が安かったことと SSH が使えたこと。ついでに Subversion も使えるのである程度自由がきく。 DreamHost は root になれない、deamon が扱えないとか規制はあるみたいですが、他は何でも出来そうです。とりあえず Emacs もインストールできました。Var.21 だと日本語周りで色々インストールしてあげないといけないので Var.22 を持ってくる方が作業が早いはず。Subversion も手間はかかるけど自分でインストールも出来そうですね。 Perl の場合は Perl 自体のバージョンとモジュールが使えるかってのが重要なんですが、自前でインストールすれば問題なく使えるみたいです。っと言うことでみんな大好き CPAN を使えるように設定してみました。 1. Stable の Perl
PerlによるCSVファイルの高速集計：CodeZine
はじめに Perlと言えば、いまだにCGIを思い浮かべる人は多いと思います。しかし、Perlは決してそれだけの言語ではなく、その言語仕様はテキストファイルを処理し、集計結果をレポートするのに非常に向いています。特によく利用されるテキストファイルとして、CSV形式が挙げられます。CSVを集計したい場合、Excelに読み込ませて集計関数やマクロを駆使しているという人も多いかと思いますが、Perlを利用することで、高度な集計作業を簡単かつ高速にできます。 本稿では、筆者がPerlでCSV集計を行う際によく使うノウハウを紹介したいと思います。対象読者まだ、Perl＝CGIと思っている方。65,536件を超える大量のCSVデータを前に、手も足も出なくなっている方。 必要な環境テキストエディタ。Perl 5.8.X。ただし、ほとんどのコードはそれ以下のバージョンでも動きます。 Perlのインストール
404 Blog Not Found:perl - 半角スペースを自動で入れる
2007年01月15日05:00 カテゴリLightweight Languages perl - 半角スペースを自動で入れる 是非はさておき、入れるのであれば自動で入れたい。というわけでこちら。 portal shit! : 半角スペース入れてますか？ 半角スペース入れるべき、入れないべき？spacer.pl #!/usr/local/bin/perl use strict; use warnings; use Encode; my $east = qr/(?!\p{M})(?:\p{Han}|\p{Katakana}|\p{Hiragana})/; my $west = qr/(?!\p{M})(?:\p{Latin}|\p{Greek}|\p{Cyrillic})/; binmode STDOUT, ':utf8'; while(<>){ $_ = decode 'utf8', $_
F's Garage：Perlを勉強する順番
PHP｡ｦ｡ｦｱ隘癸ｦ!｡ｦ�ﾚ�!｡ｦ!ﾂ�!｡ｦ�｡ｫava｡ｦ｡ｦ｡ｦ｡ｦｹ罍肭�･蟷ｲ｡ｦ｢�!ﾊ�2ｸ螟｡｡ｦ､�"ｶ�!｡ｦ｡癸ｦ｡ｦ�ﾚ�!｡ｦ!｡ｦ｡ｦｺ�!ｸ蕕ﾔ薜ﾂ�!､�!｣罍聶爐�!ﾚ�"ｸ�!ｸ芬ｻﾊ�!｡ｦｵｷ｡ｦ｡ｦﾎ�!｡ｦ｣�｡ｦｶ�?･罐遙ｦﾞ�!｡ｦ!｡ｦ｡�｡ｦ｢�"｡ｦ!｣罍鬧�*｡ｦ｡ｦ｡ｦ莠ｶ芬ｻｺ觸｡ｦ｡裔箜ｱerl｡ｦｧ茖ｦ｡ｦｶ芬ｻﾘ�!｣罍聶盒�!ｺ�!ﾞ�!｡ｦ!｣罍聶癸ｦ｣筍ｦ､�"ｶ�!ﾎ� ｢�!ﾚ�"､�!ﾚ�"､� ｢�!ｾ罍蓊筅�!｡ｦ｡ｦ萓｡罍�｡ｦｧ罍悅ｦｶ�"ｰ�!｡ｦ!｡ｦ｡裔皀罍聶盒�!ｺ�!ﾞ�!｡ｦ!｡ｦ｡�｡ｦ｢芬ｻﾊ�"ﾄ�;｡ｦｷ遑ｦﾒ�!ｶ�!｡ｦｭ裹陦ｦ!ｧ罐筍ｦｰ�!ｾ�"ｾ�!ｶ�"ｲ�"ﾆ�!ﾂ�!｡ｦ�｢�)ｲ罍蓊翳�#･罐矣癸ｦ｡ｦ裲｢�!｡罍讌癸ｦ｡筵癸ｦ｡癸ｦ�｢芬ｹ･莵鬘ｦﾄ�
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
