Perl 初心者コーナー Part24

◆fBgbHI04bQ · 03/06/07 22:30

いらっしゃーい、Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**nobodyさん** · 03/06/27 09:45

すみません。
超初心者な質問です。

if　だと何かが真なら…って分岐になりますが、
「これら全てが真なら」とか「全てが偽なら」って記述をスマートに書くにはどのように書くのが一般的なのでしょうか？

頭悪いので
if(){
if(){
if(){
}
}
}
こんな記述使ってます。
見にくいです。

**nobodyさん** · 03/06/27 09:47

>>932
andじゃ駄目なの？

if($a == 1 and $b == 2 and $c == 3){
全てが真の時の処理;
}else{
一個でも違ったら;
}

**932** · 03/06/27 11:05

ありがとうございます。
頭が悪いのか、andとか、全然使いこなせないんです。汗

**nobodyさん** · 03/06/27 11:20

>>932=934
これ、見た目だけの問題じゃなくて、動作速度とかにも影響するから
ちゃんと覚えておいた方がええよ。

**３７４** · 03/06/27 11:22

ふーん。そういうことを話し合ってるスレかここは

**nobodyさん** · 03/06/27 11:36

そうですが、何か？

**nobodyさん** · 03/06/27 12:32

>>934
お前、高校くらい出てから来い。数学Aの履修範囲だ。

**nobodyさん** · 03/06/27 12:51

>>935
まじで!?

**nobodyさん** · 03/06/27 12:57

>>939
if文をまとめたぐらいでは体感的な速度差はない。
ただ、日頃から>>932のようなコーディングをする人は、自分でも理解できなくなるような
スパゲッティコードを書いたり、非常にパフォーマンスの悪いアルゴリズムを使ったりと
間違った方向に進みがち。
まあ何にせよ、基本はきっちりと押さえとけってこと。

**nobodyさん** · 03/06/27 13:01

push @houselist, \%HOUSE;
したあと、
$houselist[あれこれ]->{id}
が重複するものを、
@houselist から取り除く（※）にはどうすればいいのでしょう？
※取り除くというか、1つだけ残したいです。

**nobodyさん** · 03/06/27 13:21

>>941
こんな感じかのう

@check = ();
@houselist = grep { !$check{$_->{id}}++ } @houselist;

**nobodyさん** · 03/06/27 13:22

Perlらしいコードだなぁ

**nobodyさん** · 03/06/27 13:35

>>939
>>934が言っているように、ほとんど体感は無いけどね。
ただ、漏れは仕事の都合上、xGB単位のファイルの処理とかするんだけど、
そうなってくると、細かいところでかなり違ってくる。
といっても、1時間が55分に短縮されるとか程度だけど。
どっちかってーと、>>934の言うとおり、わかりやすく書く、ってことが
重要かと。

**nobodyさん** · 03/06/27 13:36

s/>>934/>>940/;

**nobodyさん** · 03/06/27 13:40

xGB単位, xGB単位, xGB単位
　　　　　　　　　　 ∧∧
　　　　　　　　　ヽ（=ﾟωﾟ）ﾉ″
　　　　　　　　　～（　×）
(=ﾟωﾟ)ﾉぃょぅ　　　　U U

**nobodyさん** · 03/06/27 13:42

変数で正規表現を使えるのでしょうか???
sub func{
$str = $_[0];
foreach(@list){
if(/$str/){
$result = $_;
}
}
return $result;
}
みたいに検索条件を変数にしたい時はどうすれば良いのでしょうか?

**942** · 03/06/27 13:42

@check = (); じゃなくて、%check = (); だった。ｽﾏｿ

**nobodyさん** · 03/06/27 13:44

>947
正規表現じゃなくてindex使え。

**nobodyさん** · 03/06/27 13:47

>>947
それでいいのでは

**３７４** · 03/06/27 14:01

もまいらひまだな

print s//uc join('',unpack('A1 x4 A1 x7 A1 x4 A1', <<EOT))/e && $_,"\n";
Just another Perl Hacker
EOT

**nobodyさん** · 03/06/27 14:03

ひまですが、何か？

**nobodyさん** · 03/06/27 14:24

レスTHX
>>950
全部にマッチしてしまうので、必ず最後の要素番号返してくれます。
>>949
調べてみます。

**947** · 03/06/27 14:25

>>953は>>947です

**nobodyさん** · 03/06/27 14:32

>>953
変数を正規表現に使うときは、メタ文字が入っているとうまくいかないから、
quoteする。
metaquote($str)または\Q$str\E
全部にマッチしちゃうってのは、/^$str$/してないから、一部にひっかかって
るんじゃないかな。

**941** · 03/06/27 14:38

>>942
やばい、何をやっているかわからない。。。
けど理解してがんがってみます。
ありがとうございます。

**947** · 03/06/27 14:39

>>949,>>950,>>955
>>955の書き込みを見る前にindexでとりあえずの解決しました。
for($i = 0;$i < @list;$i++){
$idx = index($list[i],$str);
if($idx ne -1){
$result = $i;
}
}
としました
ありがとうございました。
>>955さんのが原因かと思われるのでそちらも勉強してみます。
感謝です

**950** · 03/06/27 14:55

「変数に正規表現を」って言うから、引数にメタ文字を入れてるんだと思った……
要は正規表現を使って（変数に入った）文字列を検索したかったのね。

**947** · 03/06/27 15:02

>>958
ごめん、よくわかんない(TT

**nobodyさん** · 03/06/27 15:07

CSVからデータを読み込んで、ちょっとした条件でしぼりこんで一覧表示するだけなのに、
一覧のうち１部だけが文字化けするって、
何が考えられますか？

なお、スクリプトは、EUC（スクリプト中の処理も全てEUCで処理してます）、
CSVはSJIS、HTML吐き出しもSJISです。

文字化けしてしまってるところは、EUCになっちゃってます。

**nobodyさん** · 03/06/27 15:14

>>960
文字コード変換を自動判別に頼ってるため、Shift_JIS文字列をEUC
と見間違えるんだと思う。

CSVの１レコードとかテーブル全体を一括で文字コード変換するか、
明示的に変換元と変換先の文字コードを文字コード変換ルーチンに指示
するかすれば問題は起こりにくくなる。

あと、いわゆる半角カナが多いShift_JIS文字列もEUCと誤認識
しやすい(場合によっては区別が付かない)。

**nobodyさん** · 03/06/27 15:15

条件ってのが、EUCで比較しててそのまま出力に流してしまってるからでは？

**nobodyさん** · 03/06/27 15:21

>>960
スクリプトとデータの文字コード統一しる。
その方が変換しないで済むから早いだろうに。

**nobodyさん** · 03/06/27 15:54

>>956
この方法の解説は確かperlメモに書いてあった。
だがしかしperlメモ説明がくどいから逆に分かり難いかも。
でも便利だから一度は見ておけば？

**nobodyさん** · 03/06/27 17:01

bccに２人を入れたいとき、
メールソフトと同じように、

$bcc = 'amano@alive.ne.jp, mine@alive.ne.jp';
if (!open(OUT,"| $sendmail -t")) { &error('申し訳ありませんが何らかの原因で処理できません.'); }
#中略
print OUT "Bcc: $bcc\n";
#後略
で問題ないですよね？

実験だと問題なさそうなんですが、
環境に依存するとなんなんで、一応質問・・・

**nobodyさん** · 03/06/27 20:05

$sendmail に sendmail のパスが入ってるんだろうけど、
その sendmail が Sendmail とは限らない。

とか言ってみるテスト。
ようはそのプログラム次第ってこと。
Socket使うとかしてみたら？
その手のモジュールも転がってるし。

**965** · 03/06/27 20:21

>>966
いや、sendmailのパス入ってます。
sendmailだったら、他の環境によらず大丈夫ってことですか？

Socketの勉強は、まだ少しペンディングにしてるので。。。

**nobodyさん** · 03/06/27 20:24

>>967
適当なライブラリ探してきたら、Socket知らないでもできそうですよ。
やったことないですが。

**nobodyさん** · 03/06/27 20:53

(´-`).｡ｏＯ(この世にはsocketしか知らない香具師もいるのよねぇ、、、＠この板を荒している香具師とか)

**nobodyさん** · 03/06/27 21:05

(´-`).。oO（本7か…）

**nobodyさん** · 03/06/27 21:26

sendmail の sendmail と qmail の sendmail で利用可能なオプションとか違うよ。
それ以外のは知らないけど。
つか、スレ違いぎみな気が。

**ふつー** · 03/06/27 22:05

use Net::DNS;
use Net::SMTP;

**nobodyさん** · 03/06/27 22:34

すんごい素朴な疑問なんですが、
なぜみんなヒアドキュメントを使うんでしょう？

　　　print << "END_OF_HTML";
　　　　　　ほげ
　　　　　　ふが
　　　　　　ひげ
END_OF_HTML
っていう風に、最後を、インデントつけれないから、すごくコードがみづらくなって、
個人的にはいやなんですけど。
（なんかのオライリー本にもそんなことかいてあったきがする）

やっぱり、END_OF_HTMLみたいに意味をかけるからいいんでしょうか？

ちなみに自分は、ほとんど
　　　　　　　print qq|
　　　　　　　　　　　　　ふが
　　　　　　　　　　　　　ほげ
　　　　　　　　　　　　|;
ってやってます。

**965** · 03/06/27 22:36

やばい、qmailとsendmailてまったく別物だと思ってました。
（だから、>>971 でqmail の sendmail ってなんだ？と思った）
スレ違いぎみなので、逝って勉強してきます。

**nobodyさん** · 03/06/27 22:39

>>973
料理本でも立ち読みしてくれ

**nobodyさん** · 03/06/27 22:58

>>973
　　　print << "　　END_OF_HTML";
　　　　　　ほげ
　　　　　　ふが
　　　　　　ひげ
　　　END_OF_HTML

**973** · 03/06/27 23:25

>>975
料理本ってなんかの隠語？

**973** · 03/06/27 23:26

>>976
そ、それも、気持ち悪くないですか？個人差かな？

**nobodyさん** · 03/06/27 23:33

まあ、あまり深いインデントにならないコードを書いて気休めにするしかないな

**nobodyさん** · 03/06/27 23:36

まぁ、個人の好き嫌いじゃないの？
'
hoge
';
<< 'HOGE';
hoge
HOGE
ちなみに私は前者が多いかな。
インデントがと言うか、楽だから。

**nobodyさん** · 03/06/27 23:41

>977
クックブック

**nobodyさん** · 03/06/27 23:42

>>977
オライリーのPerl本を色々物色してれば分かる。

**982** · 03/06/27 23:43

かぶった

**nobodyさん** · 03/06/27 23:53

次スレまだー？

**nobodyさん** · 03/06/28 00:01

Perl 初心者コーディングコーナー Part25

なんてどお？

**nobodyさん** · 03/06/28 00:26

いいね。たてとけ。

**nobodyさん** · 03/06/28 00:34

ミンキーモモに出てくる

**nobodyさん** · 03/06/28 00:37

普通なら
Perlコーディング初心者コーナー Part25
じゃないのか？

**nobodyさん** · 03/06/28 00:51

CGI以外　Perl初心者コーナー Part25

**nobodyさん** · 03/06/28 01:03

せめてCGIを除外する旨のことはテンプレに書いてほしい。

**nobodyさん** · 03/06/28 01:08

別にcgiであっても構わないけど、perlに関係ない話はスレ違い

**nobodyさん** · 03/06/28 01:11

CGI以外ならむしろム板だろ。

**nobodyさん** · 03/06/28 01:13

>>992 ここは何の為の板なのかと小一時間。

**nobodyさん** · 03/06/28 01:14

WebProg 板なのになんでCGIダメなんだ

**nobodyさん** · 03/06/28 01:15

s/WebProg板/過疎板/;

**nobodyさん** · 03/06/28 01:19

Perl コーディング初心者質問コーナー Part25
http://pc2.2ch.net/test/read.cgi/php/1056730690/

立てたよ

**nobodyさん** · 03/06/28 01:28

997

**nobodyさん** · 03/06/28 01:29

998

**nobodyさん** · 03/06/28 01:32

999？

**nobodyさん** · 03/06/28 01:32

1000

**１００１** · Over 1000

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。