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/26 16:23

http://homepage.mac.com/hiroyuki44/

**nobodyさん** · 03/06/26 16:33

コードに直で漢字を書く以外で変なことが起きたことが無いので、
jcode:converが怪しい

**nobodyさん** · 03/06/26 16:41

>>883
＞jcode::convert(\$value,'euc', 'euc','z');
3つ目にeucを指定してEUCtoEUCじゃ、実際に変換が行われるのは
ｚオプションの半角カナ→全角カナ変換だけだろ

jcode::convert(\$value,'euc', '','z');　じゃないのか？

**nobodyさん** · 03/06/26 16:43

pack("C", hex($1))ってよく見かけるけど、なんでpack("H2", $1)にしないの？
なんか理由あるのかね？

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

>>887
pack("H2", $1)の方が早いけど、そうすると何故か人気が出ないというジンクスがある。

**nobodyさん** · 03/06/26 17:12

pack("C", hex($1))とpack("H2", $1)はどう違うの？

**nobodyさん** · 03/06/26 17:23

>887
多分 kent-web とかの配布スクリプトが hex 使ってるから
>889
同じ
速度が違う

**nobodyさん** · 03/06/26 17:37

原因不明の症状に悩んでおります・・・。
申し訳ありませんがご助言をお願いできませんでしょうか。

1: Perlスクリプトで色んなサイトのhtmlソースを一気に取得してきたい。
2: それでこんな風にやってみました。

　※メインのスクリプトにて
　foreach(@url_list){　# @url_listに各サイトのurlが入っている。
　@source = &get($_);

　（いろいろな処理）

　}

　※サブルーチン（別ファイル）にて
　sub get{

　（socketを使ってソースを取得し、@backに格納）

　return(@back);
　}

3: うまくいかないサイトがちらほらあります。
　＜付加的情報＞
　・問題なく取得できるサイトも多くある。
　・Hostヘッダは送っている（＝バーチャルホストが原因ではない？）。
　・うまくいかないサイトでも、サブルーチン内ではそのソースをprintできる。
　（＝実は取得できている？）

　＜自分の考え＞
　・特定のサイトの時だけ、メインのスクリプトに@backが帰って来ない？
　・特定のサイトの時だけ、そもそもサブルーチン内で配列に格納されていない？

**891** · 03/06/26 17:38

これ以上の原因を調べようがなくて八方塞状態です。
足りない情報などあったらすべてお答えしますので、
何とぞよろしくおながいします。<(_ _)>

**nobodyさん** · 03/06/26 17:43

>>891
ステータスコードは確認している？

# なんかPerlと関係ない話題のような・・・

**nobodyさん** · 03/06/26 17:54

俺も>>886に同意。
HTMLの文字コードがEUCだからって、EUCが送られてくるとは
限らないよ。たまたまIEなんかはそういう実装になってるだけで。

あと、単にブラウザが文字コードを判定ミスしてるってことはない？
Content-Type行を、

print "Content-Type: text/html; charset=EUC-JP\r\n\r\n";

みたいにしてみ。

**nobodyさん** · 03/06/26 18:09

icab とかは EUC のページでも SJIS で送信するらしいね

**nobodyさん** · 03/06/26 18:22

>>895
んでそういうのを平気で「ブラウザのバグ」とか言うプログラマが居るんだよな。

**nobodyさん** · 03/06/26 18:26

逝ってよしだな。

**891** · 03/06/26 18:29

>>893
ありがとうございます。しかし申し訳ありません。原因は凡ミスでした・・・。
891の「（いろいろな処理）」のほうがマズかったようです。
質問する前にもっとしつこく調べてみるべきでした。本当にすみません。

**nobodyさん** · 03/06/26 18:52

>>898
おいおい、解決したから満足ですさようならーってのはナシでしょ。
善意とは言え、他人の手を煩わせたんだから、
その凡ミスを晒して他の初心者に貢献するのが
ギブアンドテイクっていうもんじゃないか？

**nobodyさん** · 03/06/26 19:05

>>899
「この掲示板は自分のためにある」by 891

**nobodyさん** · 03/06/26 19:12

>>900
そりゃ本７の名言だろ

**nobodyさん** · 03/06/26 20:03

<FORM accept-charset="euc-jp" ･･･
とか。

**nobodyさん** · 03/06/26 20:10

>>902
それ、すごく正しいけどIEもNNも実装してなかった気がする。
ちょっと今すぐ試せないけど。

**nobodyさん** · 03/06/26 20:13

>>902
んな風に書けるんだ。知らなかった。

**nobodyさん** · 03/06/26 20:36

ファイルの読み書きとフォームデータを使う場合の二つの負荷はどっちがお得か教えて下さい。
サーバーの負荷はファイルの読み書き何byteに対してフォームデータ送信何byteと同じぐらいでしょうか？

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

>>903
そんなブラウザ今すぐ窓から投げ捨てた方がいい気がする。

**nobodyさん** · 03/06/26 20:55

>>903
今回の件についてはIEやNNなら実装していなくても問題ない。

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

Welcome..........

ホスト12-231-187-185.client.attbi.com

名前：
E-mail：
内容：

こちらでリロードしてください。 GO!
分からないことがあったら２ちゃんねるガイドへ。。。

プロキシー制限は、２ちゃんねるビューアを使うと回避できることがあります。

ﾜﾗﾀ

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

>>906
窓も一緒に投げ捨てた方がいい気がする。

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

２つ（以上）の jpeg 画像ファイルを入力とし、
横に連結した１つの jpeg 画像ファイルを出力するプログラムを書け。
また、指定した位置に連結できるようにもせよ。

どなたか作っていただけませんか？

**nobodyさん** · 03/06/26 22:07

自分でコーディングしないのは初心者とは言いません

**nobodyさん** · 03/06/26 22:07

>>910
偉そうにマルチポストか。死ね。

**nobodyさん** · 03/06/26 22:29

>>910
うわぁ、最悪

**nobodyさん** · 03/06/26 22:31

>>910
まじれすすると、モジュール要るし、
貴方にはソレを入れるとか、もしくはソレを使えるサーバーも用意できないと思われる。

もうちっと勉強してきなさい。

**nobodyさん** · 03/06/26 22:33

>>914
＞まじれすすると、モジュール要るし、

自分の低レベルをカミングアウトせんでも・・・。
学生のうちに離散コサイン変換位覚えとけ。

**nobodyさん** · 03/06/26 22:54

>>915
>>914じゃないけど、俺も面倒だからモジュール使うかなあ。必須だとは思わんけど。

> 学生のうちに離散コサイン変換位覚えとけ。

プログラマで10年飯を食ってるけど、文系なのでそういうの苦手。

**nobodyさん** · 03/06/26 22:55

>>915
自分で実装するのもなー。
社会人になってからじゃあ、確かに時間がないから、今のうちっちゃ今のうちだが。

**891** · 03/06/26 23:08

>893,>899
本当にバカですみません。どういう凡ミスかを簡単に申しますと、
htmlソースの<body>から</bocy>までの間だけ切り取ろうとしていた部分で
$_ =~ /^<body/i　→　$_ =~ /<body/i　のように直したという感じの話です。

ちなみに実は他にも問題山積みであまり解決していないので
＞解決したから満足ですさようならー
という状況でもなかったりするのですが。

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

>>915
あふぉか・・・そんな処理入れて使い物になる実行速度でるよ

**nobodyさん** · 03/06/26 23:24

>>915
何のためにいろいろとモジュールが公開されているのか･･･。

**nobodyさん** · 03/06/26 23:29

でるのかよ

**nobodyさん** · 03/06/26 23:30

>>919がよくわからない。
入力ミスか？

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

どっちにしろPerlでは向かない処理やね

**nobodyさん** · 03/06/26 23:37

(´-`).｡ｏＯ(やっぱりGD.pmかなぁ、、、)

**nobodyさん** · 03/06/26 23:55

おお、聞き逃げかと思ったらちゃんと戻ってきた。尊敬。わざわざありがと。
関係ないけど、

> どういう凡ミスかを簡単に申しますと、

と書いた次の瞬間に↓

> </bocy>

なんか性格出ててちょっと好感度アップ。

**nobodyさん** · 03/06/26 23:58

>>923
昔、月の満ち欠けのレンダラーを何を思ったかPerlで書いた事があったが、
恐ろしく遅かったのを覚えてるな。
ただの球体なのに、500x500程度の画像に数分かかってた。
まぁ俺のアルゴリズムが自己流で糞だったのもあるけど。

でもCで書き直したら一瞬で計算できたよ。

**nobodyさん** · 03/06/27 00:55

WinXPでrenameを使ってみたところ失敗してしまい
$!に permission deniedが入っていました。

やったことをまとめるとこの様な感じです
・renameの第二引数には既に存在しているファイルを指定し上書きしたい
・第一、二引数のファイルは共に存在する
・両ファイル共に読み取り専用のチェックは入っていない

openでの書き込みやmkdirなどその他のファイルシステム関数は普通に使えます。
Windowsなのでパーミッションは要らないと思っていたのですが
この場合どこに原因があるのでしょうか？
どうかよろしくお願い致します

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

>>927
どんなコードでやってるんだ？
問題なくできるし、できないならアクセス権とか確かめてみれ

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

（・∀・）ﾎﾞｽｨｰ!!

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

>927
自分も同様な処理で同じエラーが出たが、
アクセス権を考えるのが面倒くさいので、
存在しているrename先ファイルをunlinkした。

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

>>930
普通はそう考えるよな

**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

かぶった