09/06/08 23:54:54
>>97
何がどう「うまくいかなかった」のか書かないと返事のしようがないな。
とりあえず自分が書いたコードをさらせ。
101:デフォルトの名無しさん
09/06/09 00:23:10
>>97
田中と東京に区切り文字はないの？
あれば区切ってデータベースにでも突っ込んで少しずつ検索すればいいんじゃね？
102:デフォルトの名無しさん
09/06/09 01:08:19
情報少なすぎ
マッチングやらgrepとか言っといて初心者だとか
どうやったらうまくいかなかったのかとか
取り扱いデータは改変されてるし
聞きたいならネタ隠すなよな・・・
103:デフォルトの名無しさん
09/06/09 02:09:50
>>97
ちなみに、
> 実際は生物の遺伝子名で膨大なのでPerlなどプログラムを書かなければならないのですが・・・・
こういう用途は古くからPerlが多用されていた分野だから、十分なライブラリと
ノウハウの蓄積があるぞ。
104:デフォルトの名無しさん
09/06/09 08:28:37
DB入れれば一番簡単
105:デフォルトの名無しさん
09/06/09 10:28:42
>>96
そもそも普通に書いてスパゲティになるのはおかしいw
たしかに書いてくるコードがことごとくスパゲティの奴って
いるんだが、どうしてできるのか不思議でしょうがないよ。
素直に書く方が圧倒的に楽だろ?
106:デフォルトの名無しさん
09/06/09 11:04:49
素直厨w
107:デフォルトの名無しさん
09/06/09 12:14:52
Encodeモジュールの質問です。
shiftjisで書かれたファイルから文字列を読み込んで、utf8でdecodeした場合、文字列の内容は復旧できないのでしょうか?
utf8でencodeしても元の文字列には戻らなくて困っています。
サンプルです。test.txtはshiftjisで書かれています。
use Encode;
open IN, "test.txt";
my $str = <IN>;
print $str;
my $miss = decode 'utf8', $str;
my $recover = encode 'shiftjis', $miss;
print $recover ;
コマンドプロンプトで実行しても元に戻りません。
108:デフォルトの名無しさん
09/06/09 12:27:58
shift-jisのファイルをutf8でdecodeしてまともになると思うほうがどうかしている。
109:デフォルトの名無しさん
09/06/09 12:52:06
テンプレ読めよアホウ。
110:デフォルトの名無しさん
09/06/09 12:56:37
>>108
アホ
111:デフォルトの名無しさん
09/06/09 14:44:32
use lib "lib";
use App::Config;
で、自作のpmを使いたいんだけど上手く読めない…。
Configにsub testって関数があって
print test(); ってやると
Undefined subroutine &main::test called at index.cgi line 11.
ってなる。
App::Config::test();ならちゃんと動く。
ちゃんとuse App::Config;って書いたのになんでエラーが出るんですか？
分かる方たすけてください！！
112:デフォルトの名無しさん
09/06/09 15:11:35
>>111
うまくエクスポートされていないだけだろ。
113:デフォルトの名無しさん
09/06/09 15:16:18
>>112
どおいうことですか？
是非詳しく教えてください！
114:デフォルトの名無しさん
09/06/09 15:18:01
>>111
Exporter 使ってる？
つかってるならlib 以下のディレクトリとパッケージ名がマッチしてない予感
115:デフォルトの名無しさん
09/06/09 15:26:02
>>114
つかってないです。
116:デフォルトの名無しさん
09/06/09 15:27:08
WindowsXP Pro
BlackJumboDog
ActivePerl 5.10.0 Build 1005
の環境で行ってます。
117:デフォルトの名無しさん
09/06/09 15:32:37
packageの後にExporterでシンボルをエクスポートする必要がある。
Exporterのマニュアル見れ。
118:デフォルトの名無しさん
09/06/09 15:55:04
>>117
えええ、いままでこんなことしてなかったのに…
ありがとうございます。
全てのサブルーチンをエクスポートするとした場合には
@EXPORT = qw(sub1 sub2 sub3 ...);って永遠に書かなきゃダメですか？
それと、use constantで定義した定数とかもuse Config;したところで
使えるようにしたいのですが、そういった場合はどうすればいいですか？
require使ったほうが早いですかね？
119:デフォルトの名無しさん
09/06/09 16:02:36
気のせいでした…
今までApp::Config::test();ってアクセスしてました（汗。
とっても勉強になりました！ありがとうございました！
120:デフォルトの名無しさん
09/06/09 16:13:08
>>118
> 全てのサブルーチンをエクスポートするとした場合には
そんな変なことをしたいのだったら、そもそもpackageするなよ。
121:デフォルトの名無しさん
09/06/09 16:37:47
どうしてもやりたければ
our @EXPORT = grep {defined &{$_}} keys %Hoge::;
とでもしとけばいいんでね？ 勧めないが。
122:デフォルトの名無しさん
09/06/09 20:15:39
>>47
PHPのほうがいいよ
123:デフォルトの名無しさん
09/06/09 21:40:55
>>122
彼にPHPを勧める理由がわからん
124:デフォルトの名無しさん
09/06/09 22:01:39
>>47
Pythonのほうがいいよ
125:デフォルトの名無しさん
09/06/10 06:56:38
PHPコミュニティの方が厨房が多い。
Perlコミュニティはオッサンばっかりだ。
Rubyコミュニティは若いがなんかキモイ。
126:デフォルトの名無しさん
09/06/10 12:42:05
html::template 2.9の使い方が書いてある日本語サイトとかないですか？
127:デフォルトの名無しさん
09/06/10 13:57:08
新しいモジュールを使う度に解説を探すけど、
日本語でまともなのが見つかった試しがない
128:デフォルトの名無しさん
09/06/10 14:29:27
古い版の日本語マニュアルを見つつ、適当に差分を探すのがいいんじゃない？
129:デフォルトの名無しさん
09/06/10 14:32:53
解説かけるぐらいの人になると英語マニュアルで足りるので
よっぽどのモチベーションがないと日本語の解説って作られない
気がする。
130:デフォルトの名無しさん
09/06/10 15:13:17
ドキュメントの翻訳は、きちんと制度化しておかないと、元の更新に追従するのが
困難という法則。
131:デフォルトの名無しさん
09/06/10 17:10:15
簡単な部分は英語でも簡単に読めるし、
ニュアンスが微妙な部分は訳さずに原語を残した方がいい
結局、訳す意味がない
132: ◆TWARamEjuA
09/06/10 18:07:04 BE:2940293-BRZ(10072)
実際に動かしてみてから英文マニュアルやチュートリアルを眺めてみると、Jojoに英文が解せるようになってくるかと。
133:デフォルトの名無しさん
09/06/10 18:18:15
古ぼけた翻訳があることは、翻訳がないことより悪い。
134:デフォルトの名無しさん
09/06/10 18:18:57
つかよドキュメント文章、そんな難しくない多い。
でもよたくさん読む日本語速い
135:デフォルトの名無しさん
09/06/10 21:10:38
優秀サンプルあればドキュメント要らない
136:デフォルトの名無しさん
09/06/10 22:10:54
それはそうだね
cpanのドキュメントとかも、サンプルコードがあれば、ほぼ目的は達成できるしな
137:デフォルトの名無しさん
09/06/10 22:18:26
簡単な英文なら頑張れば読めるけど、検索とかが自分には難しいッス…
138:デフォルトの名無しさん
09/06/11 00:07:42
googleが記号を無視してくれるせいで、
特定の使い方について調べように見つからない
139:デフォルトの名無しさん
09/06/11 00:47:39
優秀なマニュアルは英語も簡単
この英文難しいなって感じたらそれはマニュアル書いた奴が説明下手ってことにしてる
140:デフォルトの名無しさん
09/06/11 01:09:55
>>138
Perlの調べ物はググる前にperldoc
ドキュメントのどこに書いてるかも分からないなら目次から見当つければいい
URLﾘﾝｸ(search.cpan.org)
URLﾘﾝｸ(search.cpan.org)
141:デフォルトの名無しさん
09/06/11 06:49:30
>>138
青らくだ買え
142:デフォルトの名無しさん
09/06/11 17:21:13
書籍は買ったほうがいいよ～
場合によっちゃ使い勝手はネットより良いｗ
Perlバリバリ使えるけど本なんか買ったことねーよって人いるかな？
おいらは駱駝とクックとエフェクティブくらいしか持ってない
143:デフォルトの名無しさん
09/06/11 18:30:10
ラクダは買ったけど、ほとんど読んでないな
リャマは続と併せて結構読んだ
でも一番読んだのは、フクロウだな。
144:デフォルトの名無しさん
09/06/11 20:57:58
フクロウっつーと正規表現だっけ？
145:デフォルトの名無しさん
09/06/11 21:13:09
>>142
perldocより青らくだ買えとは言わないが、
「本はネットがあるからいらない」って人は考えを改めた方がいい。
本でしか手に入らないものもあるし、ネットだと不便な情報もある。
146:デフォルトの名無しさん
09/06/11 21:26:33
本ってそんなに売れてないのか
147:デフォルトの名無しさん
09/06/11 22:21:38
>>146
じゃあなんでAmazonがブイブイ言わせてるんだ？
こないだも村上春樹が速攻で100万部突破したそうじゃねーか。
148:デフォルトの名無しさん
09/06/11 22:31:58
>>147
Amazonは本だけじゃないよ
村上春樹は、かなり異例。出版業はかなりやばいよ
149:デフォルトの名無しさん
09/06/11 22:48:20
>>148
Amazonは元々本が出発点だ。手を広げただけ。
そりゃ媒体が増えたからある程度は仕方ない。
音楽産業の凋落よりはマシだろ。
150:デフォルトの名無しさん
09/06/11 22:51:04
>>149
そんなの誰でも知ってるだろ。何得意げに語ってるの？
Amazonがブイブイ言わせてるのは、書籍の売り上げじゃないっていう話だろ？
151:デフォルトの名無しさん
09/06/11 22:51:34
ブログを見ると、
「献本でもらった」「献本でもらった」「献本でもらった」
「献本でもらった」「献本でもらった」「献本でもらった」「献本でもらった」
「献本でもらった」「献本でもらった」「献本でもらった」
ばかりなので、本を買う気なくした。
152:デフォルトの名無しさん
09/06/11 22:53:35
>>151
dan？
あれは仕方ない
153:デフォルトの名無しさん
09/06/11 22:55:19
もっと悪い例を出してそれよりマシとか言い訳するようになったら、
あとは人生転落するだけ。
154:デフォルトの名無しさん
09/06/11 23:07:44
つーか書籍の売上は落ちてるけど、1995年がピークだっただけで、
80年代に比べれば売上は今の方が大きい。
近視眼的な数値だけみてヤバイヤバイと騒ぐのは愚か。
155:デフォルトの名無しさん
09/06/11 23:15:19
>>154
80年代と比べたら、出版数自体が大きく違う
つまり、売れないから一杯出すのスパイラルになってるんだよ
156:デフォルトの名無しさん
09/06/11 23:16:07
ここへの質問にしても、その質問に答えをもらったとしても、
その後あんたどうすんの？と言いたくなるような質問が多い。
一冊本を通読した方がよっぽど近道だと思うんだが。
157:デフォルトの名無しさん
09/06/11 23:30:05
>>152
いや、danに限らず、新しい本が出た前後、あるいは出る前に
その本について触れているブログを見ると、「献本でもらった」
ばかりという現象さ。
158:デフォルトの名無しさん
09/06/12 00:26:04
基礎の本はネットで間に合うから買ったことない
Effective Perlは買った
あれはいい本だ
159:デフォルトの名無しさん
09/06/12 05:58:35
>>155
昔はいっぱい出版しても置くとこがなかった＝売れなかった。
今はロングテールがそれを下支えしてる。
それはどうでもいいとして、現在一定の売上が上がってる以上、
「本が売れてない」って話は違うだろ。
>>158
青らくだくらいは通読しといた方がいいと思うけどな。
perldoc通読する気にはならんだろ。
このスレには青らくだにちゃんと書いてあるような単純なことで騒ぐやつが多すぎる。
160:デフォルトの名無しさん
09/06/12 08:07:45
>>159
お前さんは出版業界の人なのけ？
一般的にニュース等で言われてたり、実際に出版業倒産が相次いでたり
そういう事実を否定してまで、「売れてる」と主張する根拠は？
161:デフォルトの名無しさん
09/06/12 08:47:46
>>146
うん、全然売れなくなったな。
コンピュータ関係の本は、もう終わりだと思う。
162:デフォルトの名無しさん
09/06/12 11:52:28
.plはポーランドのドメインです
163:デフォルトの名無しさん
09/06/12 18:18:44
http:// にはマッチしなくて
http:// にマッチするってどんな風に書けばいい？
164:デフォルトの名無しさん
09/06/12 18:21:18
(?<!h)http://
165:デフォルトの名無しさん
09/06/12 18:47:06
ちなみに新聞も売上げヤバイよ
166:デフォルトの名無しさん
09/06/12 20:16:28
コンピュータ関係の書籍は、ずっと縮小を続けている分野だよ。
167:デフォルトの名無しさん
09/06/12 20:21:31
小説もね。
東野圭吾とか、今回の村上春樹とか、一部の売れっ子作家以外が殆ど売れない。
そこそこ売れる作家 というのが昔に比べてとても減った。
昔に比べ、どんどん娯楽というかエンターテイメントの多様化が進んでるから仕方ない。
168:デフォルトの名無しさん
09/06/12 22:59:13
なんのスレやねんここ
169:デフォルトの名無しさん
09/06/12 23:14:48
まあ、「本なんていらね。webに全部書いてある」とか言う人間は、
どんな入門書にも答えが書いてあるような質問を
こんなとこでするな、ということだ。
答える方も時間の無駄だし、質問してわかった気になっても全然身につかない。
無駄の相乗。
170:デフォルトの名無しさん
09/06/12 23:17:42
sub hoge{
my $self = shift;
my $func = shift;
&{$func($self)}
}
こんな感じで変数に入ってるメソッド名を実行したいのですが、
継承ができる書き方を教えてください
171:デフォルトの名無しさん
09/06/12 23:39:19
>>170
$self->$func();
…って事ではなく？
172:デフォルトの名無しさん
09/06/12 23:56:30
>>171
いけました。ありがとうございます。
sub hoge{
my $self = shift;
my $Function = {};
$Function->{'hoge'} = shift;
no strict 'refs';
#$self->{$Function->{'hoge'}};#ここがわからない
}
実際のコードだとこんな感じなんですが、
一時変数に代入したら{}とか気にせずにいけたんですね。
ちなみに、一時変数使わない場合の書き方とかあるんでしょうか？
後学のためにご存じでしたら教えて欲しいです。
173:デフォルトの名無しさん
09/06/13 00:27:49
>>172
URLﾘﾝｸ(perldoc.jp)
> 矢印の右側は典型的にはメソッド名ですが、メソッド名や
> サブルーチンリファレンスが入った単純スカラ変数も使えます。
あとperlrefとperlmodくらいは通読しとくといいよ
URLﾘﾝｸ(perldoc.jp)
URLﾘﾝｸ(perldoc.jp)
174:デフォルトの名無しさん
09/06/13 00:29:35
>>172
らくだ本を買おう！
175:デフォルトの名無しさん
09/06/13 00:33:34
>>173
素敵なマニュアルまで紹介して頂いて重ね重ね感謝します
隅々まで全部読んできます
176:デフォルトの名無しさん
09/06/13 01:19:50
はぁ・・・出版業界よろしくPerl界の凋落もここまできたか・・・
１にマニュアル
２にgoogle
３，４が無くて
５に2ch
だろーが！
177:デフォルトの名無しさん
09/06/13 01:55:53
らくだ高いっつの
178:デフォルトの名無しさん
09/06/13 02:07:30
勉強する代わりに本を集めまくる。
そういう強迫神経症的逃避法が存在する。
179:デフォルトの名無しさん
09/06/13 02:36:22
5.6ベースで二分冊な第3版を今から買うくらいなら、
5.00xベースの改訂版(第2版)の古本でも買って、
新しい情報はperldocで追いかけた方がいいかもな
URLﾘﾝｸ(www.amazon.co.jp)
実際押さえるべき基本的な部分は5.00xの頃から大差無いし、
細かいところは第3版だと古いしね
180:デフォルトの名無しさん
09/06/13 03:13:14
でも大半は既に知ってることのような
読んでないから実際にはウロコ落ちまくりかもしれないけど
181:デフォルトの名無しさん
09/06/13 05:17:02
Ｐｅｒｌのテキスト処理で質問があります。
個人のデータ（苗字、名前、性別、住所、部署等）が載ったテキストを処理し、
特定の苗字で、性別が男の場合はその人のデータをすべて削除し、
それ以外はすべて出力するといったようなコードはどう組めばよいのでしょうか？
例えば、
鈴木 一郎 男 東京都大田区～、営業部
鈴木 花子 女 千葉県浦安市～、総務部
といったデータが存在した場合、鈴木花子はテキストに残るが、
鈴木一郎に関する全データは削除される、という処理です。
他の苗字の人のデータは性別関係なくすべて出力されますが、鈴木という苗字で男性のデータはすべて削除します。
どなたかご教示よろしくお願いします。使用環境はＵＮＩＸです。
182:デフォルトの名無しさん
09/06/13 05:58:14
>>181
Perlでリクに答えるスクリプトを作るスレ
ｽﾚﾘﾝｸ(tech板)
183:デフォルトの名無しさん
09/06/13 05:59:59
>>182
ありがとうございます。
こちらに書いてみます。
184:デフォルトの名無しさん
09/06/13 12:12:11
OpenOfficeのオートフィルタでいいんじゃね
185:デフォルトの名無しさん
09/06/13 14:28:58
>>181
grep -v ' 男 ' data.txt > result.txt
186:デフォルトの名無しさん
09/06/13 15:54:39
鈴木 花子 女 青森県男鹿市~、男性用出版物販売業