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

**３７４** · 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

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