Perlコーディング初心者質問スレ Part 38

**nobodyさん** · 04/10/07 23:23:08

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

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

**nobodyさん** · 04/10/07 23:28:34

関連スレ
CGI: Common Gateway Interface part 11
http://pc5.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc5.2ch.net/test/read.cgi/php/1030209573/
★三　【スクリプト改造工房 PART 8 】　★三
http://pc5.2ch.net/test/read.cgi/php/1077525387/
【スクリプト改造依頼スレ】(丸投げ) part2
http://pc5.2ch.net/test/read.cgi/php/1092304968/
△▲　WebProg 初心者の質問 Part10　▼▽
http://pc5.2ch.net/test/read.cgi/php/1095633323/
【Perl】ファイルロック(排他処理)について語ろう
http://pc5.2ch.net/test/read.cgi/php/1024795138/
★負荷軽減対策委員会（Perl、PHP)★
http://pc5.2ch.net/test/read.cgi/php/1034645635/
【Perl】掲示板を使ろう！
http://pc5.2ch.net/test/read.cgi/php/988890976/
Perlモジュールについて
http://pc5.2ch.net/test/read.cgi/php/997829243/
CGIに依存しないPerlの話題一般/Part2
http://pc5.2ch.net/test/read.cgi/php/1030548610/

**nobodyさん** · 04/10/07 23:29:28

**nobodyさん** · 04/10/07 23:30:33

**nobodyさん** · 04/10/07 23:33:11

ム板Perlスレより

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www5a.biglobe.ne.jp/~n_rieko/perl/

[本]
リャマ: http://www.oreilly.co.jp/BOOK/lperl3/
駱駝: http://www.oreilly.co.jp/BOOK/pperl3v1/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/BOOK/pcook/

[オンラインマニュアル]
Perldoc.com: http://perldoc.com
perldoc.jp: http://perldoc.jp
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/%7ekbk/perl5.005/

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://member.nifty.ne.jp/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/

**nobodyさん** · 04/10/07 23:34:58

補足

コーディング　【coding】

プログラミング言語を使ってソフトウェアの設計図にあたるソースコードを作成すること。
（e-Wordsより）

自分の質問がPerlに関することなのか、
それともPerlではなくCGIやHTMLについてなのかを切り分けした上で、
質問して下さい。

**nobodyさん** · 04/10/07 23:39:18

だれも言わないから言っとく。

>>1 乙かれー

**nobodyさん** · 04/10/07 23:39:26

前スレ1氏より

http://www.geocities.co.jp/SiliconValley/5656/
http://www.hyuki.com/writing/techask.html

これはMLでの作法ですが、BBSでの質問にも当てはまると思います。
例え匿名でも、回線の向こうに居るのはあなたと同じただの人ですよ。

**nobodyさん** · 04/10/07 23:40:21

あと何かないかな。

WikipediaのPerlの項目
http://ja.wikipedia.org/wiki/Perl

**nobodyさん** · 04/10/07 23:44:13

前スレの>>1は文章自体は別に構わないと思うけど、前スレ>>987の意見を考慮して
以前の>>1に戻しました。

**nobodyさん** · 04/10/08 00:27:11

>>1乙。シャラポアマンセー

**nobodyさん** · 04/10/08 00:40:34

人によってコードの書き方は色々だと思うのですが、
一般的に美しいとされるコードの書き方はどのような書き方ですか？
参考になるようなソースがあればお教えください。

**nobodyさん** · 04/10/08 01:16:04

>>12
http://perldoc.com/perl5.8.4/pod/perlstyle.html
http://perldoc.jp/docs/perl/5.8.0/perlstyle.pod
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlstyle.html

12 · 04/10/08 02:14:31

どうもありがとうございます。
しかしながら、見た目の美しさではなく、
コードを後から読む人にとって、
直感的に、わかりやすいコードという意味で、美しいといいました。
誤解を招く言い方でスイマセンでした。

**nobodyさん** · 04/10/08 03:17:19

>>14
perlstyle にはそういう意味で美しくする為の Tips も載っているだろ?

より具体的に知りたければ、自分の書いたコードをコードレビュー系の
ML なりスレなりに投下してごらん。偏った意見が聞けて面白いよ。
http://pc5.2ch.net/test/read.cgi/php/1049514428/

12 · 04/10/08 03:46:07

スレに投下作戦で行こうと思います。
参考になりました。どうもありがとう。

**nobodyさん** · 04/10/08 03:58:51

>>1
スレ建て乙

>>14
>コードを後から読む人にとって
それだったら、コーディング標準に従ったコード >>13のURL参照
独自ルールだとどうしても*自分にとって*美しいコードになってしまうことがあるので

質問の意図からすると、
設計の簡潔さ、適切なサンプルコード/ドキュメント(POD)を重視した方がいいんじゃないかな
場合によってはコードを読まずにすませられることもあるよ。

**nobodyさん** · 04/10/08 09:25:10

文字列の中に関数を直接展開するにはどうすればいいのでしょうか？
シェルスクリプトでいうところの↓みたいなことがしたいんですが
echo "current dir is `pwd`"
以前このスレで教えてもらったのですがやり方を忘れてしまいました
ログもググってみたんですが見つかりませんでした

**nobodyさん** · 04/10/08 11:14:19

print "current dir is " .`pwd`;

これが高速だし読みやすいのでお勧めだが…
(printに関して言えば、ピリオドよりコンマの方が良いが)

print "current dir is ${\`pwd`}";
print "current dir is ${\do{ `pwd` }";
print "current dir is @{[ `pwd` ]}";

ま、こんな感じで。

**nobodyさん** · 04/10/08 14:50:00

モジュールを使うことがオブジェクト指向ということになるんでしょうか？

**nobodyさん** · 04/10/08 15:16:43

>>20
全然違います。
モジュールとオブジェクト指向に直接関連はありません。

**nobodyさん** · 04/10/08 16:02:04

プログラム実行中にperlでエラーメッセージを
別ウィンドウを使って表示することは可能でしょうか。
javascriptを使えばできるようなのですが、
perlのみでは無理なのでしょうか？
スレ違いなら申し訳ないです。

12 · 04/10/08 16:09:32

>17
どうもありがとうございます。

>>コードを後から読む人にとって

>設計の簡潔さ、適切なサンプルコード/ドキュメント(POD)を重視した方がいいんじゃないかな
>場合によってはコードを読まずにすませられることもあるよ。

ところで、ＰＯＤとは、コメントのことでしょうか？
コメントだとしても、コードを読まずに済ませられるとは考えにくいので
違う気もします。宜しけれご教授ください。

**nobodyさん** · 04/10/08 16:28:01

>>22
スレ違いもしくは板違い。
http://pc5.2ch.net/hp/
http://pc5.2ch.net/test/read.cgi/php/1095633323/

>>23
http://perldoc.com/perl5.8.4/pod/perlpod.html
http://perldoc.com/perl5.8.4/pod/perlpodspec.html
http://perldoc.jp/docs/perl/5.6.1/perlpod.pod
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlpod.html

**nobodyさん** · 04/10/08 16:39:18

sendmailでメール送るときにccとかってどう書けばいいですか？

open MAIL ,"| /usr/sbin/sendmail -t";
print MAIL "From: ".'"ほげほげ" <info@2ch.net>'."\n";
print MAIL "To: ".''."\n";
print MAIL "Cc: ".'<test@test.jp> <hoge@hoge.net>'."\n";
print MAIL "Bcc: ".''."\n";
print MAIL "Subject: ".""."\n";
print MAIL "\n";
print MAIL "test";
close MAIL;

みたいにしても動作しませんでした。
もちろん普通にtoだけいれたら動作します。
どなたかお願いします。

**nobodyさん** · 04/10/08 17:35:29

スパムに使われそうだから、回答しないわ

**nobodyさん** · 04/10/08 17:47:14

>>23
> ところで、ＰＯＤとは、コメントのことでしょうか？
> コメントだとしても、コードを読まずに済ませられるとは考えにくいので

PODは、コメントと言うよりは、ドキュメントと言った方が適切かもしれない。

Perlの標準モジュールの多くは慣習的に、
モジュールの説明、そのモジュールの使い方(実際に動く最小限のコード)
関数/メソッドのリファレンス、... などを含んでいるので
たとえば、◯◯をしたいといったとき、
PODにそのサンプルが載っていれば内部実装のコードを読む必要はない。
(デバッグで必要になる時までは...)

12 · 04/10/08 18:01:20

>24 >27
どうもありがとう。色々コード＆ＰＯＤ読んでみます。
精進します。ありがとう。

25 · 04/10/08 18:25:06

>>26
spamに使うならID出しませんよ。

どなたか>>25の回答をお願いしますm(__)m

**nobodyさん** · 04/10/08 18:26:49

>>26
ソンナコトイッタラナンデモソウジャナイカｗ

ウイルス作成に使われそうだから、このスレ閉じるか？

**nobodyさん** · 04/10/08 18:38:42

>>25
open MAIL ,"| /usr/sbin/sendmail -t";
print MAIL "From: ほげほげ <info@2ch.net>\n";
print MAIL "To: \n";
print MAIL "Cc: <test@test.jp>,<hoge@hoge.net>\n";
print MAIL "Bcc: \n";
print MAIL "Subject: スレ違い\n";
print MAIL "\n";
print MAIL "Ccでアドレス列記はperlには関係することではない";
close MAIL;

**nobodyさん** · 04/10/08 19:01:26

IDなんて飾りですよ

350235005336290 · 04/10/09 17:26:34

節穴とどっちが個人特定性が高いだろうか

**nobodyさん** · 04/10/09 18:07:02

>>33
その節穴ってどうなってんの？

個人特定性は節穴の方が高いでしょ。ID衝突は時々見かける。

**nobodyさん** · 04/10/09 19:46:27

ログが100行を越した場合最後の1行を残してあとのログが消えるようにしているのですが
ログが10行を越したときに1行だけ残してあとのログが消えるようにするのとどっちが負荷が低いのでしょう＿？
つまり、頻繁にログを1行にするのと、100行ものログを読みこむのと、どちらが負荷がかかるんでしょう。

**nobodyさん** · 04/10/09 19:51:25

>>35
自　分　で　試　し　ま　し　ょ　う　。

use べんちまーく;

**初心者です。** · 04/10/09 20:26:36

フリーの掲示板の設置が上手く出来たのですが、スクリプトの改造で
以下の戻り先URLの設定でターゲットの設定は出来ないのでしょうか?
_topに戻りたいのですが、戻れません。

# 戻り先URL
$home = 'http://xxxxx.com/index.html';

誰か教えて下さいませ。大変困ってます。<(_ _)>

**nobodyさん** · 04/10/09 20:29:04

>>37
スレ違いもしくは板違い。
http://pc5.2ch.net/hp/
http://pc5.2ch.net/test/read.cgi/php/1095633323/

**nobodyさん** · 04/10/09 21:00:25

IISでActive Perl入れてやってますが
SMTPを使ってのメール送信で送れてはいますが
OEでの受信で宛先の部分が
undisclosed-recipients　になってしまいます。
送信元は正常に表示されているのですが。
どこを修正すればよいでしょうか？
お願いします。

use Net::SMTP;
$smtp = Net::SMTP->new('***.***.ne.jp'); #SMTPサーバ
$smtp->mail(from@test.ne.jp); #送信元
$smtp->to(to@test@ne.jp); #宛先
$smtp->data();
$smtp->datasend("Subject:メール\n"); #件名
$smtp->datasend("メール本文");
$smtp->dataend();
$smtp->quit;

39 · 04/10/09 21:03:05

間違いました
×　$smtp->to(to@test@ne.jp); #宛先

○　$smtp->to(to@test.ne.jp); #宛先

39 · 04/10/09 21:04:23

ご存知の方、お願いします。

**nobodyさん** · 04/10/09 21:13:32

>>39
$smtp->datasend("To: ・・・\n); はどうした？
宛先がないだろうが

**nobodyさん** · 04/10/09 21:21:16

>>39
> $smtp->mail(from@test.ne.jp); #送信元
$smtp->mail('from@example.jp'); # MAIL FROM

> $smtp->to(to@test@ne.jp); #宛先
$smtp->to('to@example.jp'); # RCPT TO

> $smtp->datasend("Subject:メール\n"); #件名
> $smtp->datasend("メール本文");
$smtp->datasend("To: 39 <to\@example.jp>\n"); # To: ヘッダ
$smtp->datasend("Subject: メール\n");
$smtp->datasend("\n");
$smtp->datasend("メール本文");

**nobodyさん** · 04/10/09 21:24:19

>>39
君はRFC2822を勉強したまえ。このままでは腐ったメッセージ垂れ流しそうな悪寒。

**nobodyさん** · 04/10/09 21:46:43

>>42
返信ありがとうございます。

$smtp->mail(to@test.ne.jp); 　のすぐ下に
$smtp->datasend("To: to@test.ne.jp\n"); を
追加してみたけど駄目でした。
どこがまずいのでしょうか？

**nobodyさん** · 04/10/09 21:48:33

>>43
ありがとうございます。
やってみます。

**nobodyさん** · 04/10/10 00:20:52

ある関数内からスコープ外にある無名ハッシュの値を
操作したいのですがうまくいきません

my $p = { data => 1 };

&abc($p);
print "$p->{data}\n";

sub abc {
my $p = shift;
$p->{data} = 2;
}

↑のようにやってみたのですがなぜかダメでした
再帰処理がしたいので関数内から直接変数の値をいじることはできません

**nobodyさん** · 04/10/10 00:32:57

>>47
そのコードは問題なく動くので別の所がおかしいのだろう。
use strict; や -w オプション、デバッガで地道に調べてくれ。

**nobodyさん** · 04/10/10 00:48:31

blessしたあとにインスタンス変数に代入してもいいんですか？

**nobodyさん** · 04/10/10 02:42:47

オブジェクト指向な考えだと掲示板でいう
書き込みとか削除とかをifで分けていく部分はどういう風にしたらいいんですか？

**nobodyさん** · 04/10/10 03:08:11

わけわかめ

**nobodyさん** · 04/10/10 03:10:22

if ($mode eq 'write') {
　　　　&write;
} elsif ($mode eq 'delete') {
　　　　&delete;
}

こんな感じのｔ所です。

**nobodyさん** · 04/10/10 03:11:28

>>50
http://module.jp/dist/web+db-press6-perl-oo.pdf

**nobodyさん** · 04/10/10 03:14:22

>>53
デザインパターンなんて言葉を知らなかった
さんくすべるーまっち

**nobodyさん** · 04/10/10 03:18:58

$AoA[$i] = [@array]　という配列のリファレンスを配列に入れる処理が
@{$AoA[$i]} = @array　で代用できるという事がよく分かりません。

@{$AoA[$i]} = @array　と言うのはどういうことですか？
@($AoA[$i]) = @array との違いを教えてください。

**(1/2)** · 04/10/10 04:56:32

>>55
普通の配列変数を書く時の @array って書き方。コレ、本当は @{array} の
{ } を省略したものなんだよ。@{ と } で挟まれたホニャララを配列として扱い
ますよ、って意味で、ホニャララが裸のワードだったら普通の配列変数と
して扱われるんだ。

@{array} = (0,2,4,8); # array という名前の配列変数

ホニャララはリファレンスでも構わなくて、配列に対してできる操作は
同じようにできちゃう。配列の要素を見る時は ${ ホニャララ }[ 添え字 ]
って構文になるよ。

$a_ref = [1,3,5,7]; # 名無しのリストリファレンス

print @{array};　 push @{array}, 10;　${array}[0] = 12;
print @{$a_ref};　push @{$a_ref}, 9;　${$a_ref}[0] = 11;

そして当然、代入も。

@{array}　= (0,2,4,8);
@{$a_ref} = (1,3,5,7);

文法的に間違えようのない場所なら、この { } は省略できるんだ。

print @array;
print @$a_ref;

**(2/2)** · 04/10/10 05:01:32

続き。

Perl の変数は予め宣言しなくても使えるよね。この振る舞いと同じように、
未定義な「場所」をムリヤリ配列として使おうとすると、本当にそういう事に
しちゃうんだ。その「場所」がスカラー値しか収められない「場所」なら、
それ自体はスカラー値であるリストリファレンスが収まるってわけさ。

@{AoA} = (); # 空っぽの配列

# スカラー値を収められる入れ物に、リストリファレンスを作って入れる
${AoA}[0] = [0,2,4,8];

# ${AoA}[1] は配列だと勝手に決めて、代入しちゃう!
@{${AoA}[1]} = (1,3,5,7);

気をつけなきゃいけないのは、未定義でもリファレンスでもない「場所」を
ムリヤリ配列として使おうとした時。perl はこういう時、下の例なら $foo の
値、つまり hoge って名前の配列変数を勝手に使っちゃうんだ。

$foo = 'hoge'; # ただの文字列
@hoge = (2,4,6,8);
@{$foo} = (0,1,2,3);
print @hoge; # 0123

この危険な機能の名前はシンボリックリファレンス。 use strict 'refs'; と
唱えておく事で禁止できるよ。

**nobodyさん** · 04/10/10 14:32:49

メールアドレスの@から右のドメインを取得するには
どのような関数がありますでしょうか？

例えば、test@aaa.ne.jpの　aaa.ne.jpだけを取得したいんです。
ご存知の方お願いします。

**nobodyさん** · 04/10/10 14:58:33

>>58
index

**nobodyさん** · 04/10/10 15:21:22

>>59
indexは検索文字が対象文字列に存在するかのだと思いましたが
どのようにすればよいんでしょうか？

**nobodyさん** · 04/10/10 16:18:08

>>60
my $addr_spec = 'test@example.com';

# http://tohoho.wakusei.ne.jp/wwwperl2.htm#index
# http://tohoho.wakusei.ne.jp/wwwperl2.htm#substr
my $domain = substr $addr_spec, index($addr_spec, '@') + 1;

# http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlre.html
($domain) = $addr_spec =~ /([^@]+)\z/;

５５ · 04/10/10 19:15:24

>56 >57
ありがとうございました。

つまり

$a_ref = [0,2,4,6];

などと記述があった後に

@{$a_ref} = (1,3,5,7);　

と書かれていたら

$a_ref = [1,3,5,7];　と読替えて良いと言うことでしょうか？

39 · 04/10/10 20:18:00

>>61
できました。
ありがとうございました。

04/10/10 21:23:27

ID（大文字小文字混在の半角英数）と得点を格納したハッシュ%dataがあります。
これを得点の高い順に並べ、さらに同じ得点同士ではアルファベット順に並べて
IDを取り出したいと思います。そこで以下のようにしました。

%data= ('aaa' => 90, 'bbb' => 80, 'CCC' => 80, 'DDD' => 70,);
@id_array = sort { $data{$b} <=> $data{$a} or $a cmp $b} keys %data;

しかし、これでは同じ得点の人が
大文字のアルファベット順→小文字のアルファベット順になってしまいました。
（上の例ではaaa, CCC, bbb, DDD,の順になる）

アルファベットの順（aaa, bbb, CCC, DDDの順）に並べ替える方法はありますか？

**nobodyさん** · 04/10/10 21:35:49

>>64
自分で sort の中に何が書けるかわかってないんじゃない？

まぁいいや。
sort { $data{$b} <=> $data{$a} or lc($a) cmp lc($b) }
とか、大文字と小文字を無くすようなことをしてやれば、全て正解でしょうに。

64 · 04/10/10 22:02:50

>>65
できました。

文字コード自体が大文字アルファベット→小文字アルファベットの順に
なってるので、仕様だと思ってあきらめていました。

ありがとうございます｡･ﾟ･(ﾉД`)･ﾟ･｡

**nobodyさん** · 04/10/11 00:30:18

>>62
いや、だいぶ違う。

@$a_ref = (...)は新しいリファレンスを作らないし、tieやblessなどの影響はそのまま。
$a_ref = []は新しいリファレンスを作る。

特に後者にする必要がなければ、前者の方法を使った方がいい。

62 · 04/10/11 01:38:46

>>67
わかりました。あの後、ラクダ読んでなんとなく
感覚が掴めました。ありがとうございました。

**nobodyさん** · 04/10/11 17:04:09

みんなクッキーに日本語入れる時、16進数に直してますか？
漏れは直さないでそのまま使えてるんだけどなんで一般的に直す必要があるのでしょうか？

**nobodyさん** · 04/10/11 17:30:37

>>69
スレ違い。
http://pc5.2ch.net/test/read.cgi/php/1095633323/
http://www.studyinghttp.net/cgi-bin/rfc.cgi?2616

**nobodyさん** · 04/10/12 00:56:44

perlに限らず一般的なプログラミングの話になっちゃうかもしれないけど・・・
掲示板のCGIを作ってる最中なんだけど、
(1)全ての書き込みを一つのログファイルにする
(2)書き込み毎にログファイルをつくる
ログが1000件あると仮定して10件を表示する場合、どちらの方がリソース食うだろう？
(1)の場合、処理手順は少ないが余計なデータを大量に読み込む。
(2)の場合、opendir、readdirでファイル名を読み込み、かつ各々のファイルを読み込むので、
処理は繁雑になるが余計なデータをメモリ上に展開しない。
はやりシステムとのやり取りが多くなる(2)の方がコスト高いのだろうか？

**nobodyさん** · 04/10/12 00:59:02

>>71
スレ違い。
http://pc5.2ch.net/test/read.cgi/php/1034645635/

**nobodyさん** · 04/10/12 01:04:57

ルーチンにもよるが・・・

儂のケースでは、データーが300件ぐらいで使ってたフリー鯖でゴルァされたのでsql導入した。

**nobodyさん** · 04/10/12 01:05:44

>>71
俺は(1)を選ぶ。システムコールが少ない方が好きなので。
しかしログがでかくなると厄介なのも確か。

**nobodyさん** · 04/10/12 01:29:03

あと、データーが固定長なら1ファイルにして
seekで位置決めしてread,writeってのもあり。

**nobodyさん** · 04/10/12 01:35:04

>>73-75
レスありがとうございます。とりあえず、一般的（と思われる）(1)の方法でやってみます。
データは可変長ですが、固定長にしてoffsetで狙い撃ちもアリですね。ちょっと工夫してみます。
>>73
すいません。そのスレ知りませんでした。

**nobodyさん** · 04/10/12 01:52:29

低額でsql使えるところを探すのが、後々のこと考えても楽になると思うな。

**nobodyさん** · 04/10/12 10:44:09

質問です、
open IN,$dat.dat
@var[50..60]=<IN>
これは$dat.datを全部読んでいるんですか？それとも60行目で処理が終了しますか？

**nobodyさん** · 04/10/12 11:21:32

キミは@varの中身を覗いた上でその発言をしているのかね？

**nobodyさん** · 04/10/12 11:27:40

>>78
読むことは読むけど、速いことは速いんじゃない？
今のCPUで読み込みファイルの大きさで遅いってことは、普通の取り扱う範囲の
テキストファイル(1M以下程度)だとあり得ない希ガス。

Perlが一番遅いのって、「値のコピー」周辺だと思うんだけどネェ。
(特にリスト系)

まぁ、ファイルの大小と、スライス有・無でベンチとってみれヴぁ？

**nobodyさん** · 04/10/12 11:47:38

＞Perlが一番遅いのって、「値のコピー」周辺だと思うんだけどネェ。
前ｽﾚにﾌｧｲﾙの扱いの方が遅いと書いてあった希ｶﾞｽ
よほどたいそうなﾓﾝ作らない限りは誤差の範囲だろ

**nobodyさん** · 04/10/12 11:59:34

http://2ch2.net/imenu/
これの作り方教えて下さい

**nobodyさん** · 04/10/12 12:11:37

CGIでやるんなら、パラメータで作るのが手っ取り早いっしょ

**nobodyさん** · 04/10/12 15:01:19

use benchmarkで計測した結果があるのですが、
出力結果の見方がわかりません。
テンプレにはベンチマーク関連の資料が見当たらないのですが、
見方などが載っているサイトをご存知の方いませんか？

**nobodyさん** · 04/10/12 16:54:23

>>84
>>3
http://perldoc.com/perl5.8.4/lib/Benchmark.html
http://pc5.2ch.net/test/read.cgi/php/997829243/

出力のどの部分が分からんのか具体的に示した方がいいよ。

**nobodyさん** · 04/10/13 12:37:35

Ｑ：0～6の数字をそれぞれ$p1　～　$p7に代入したい
ただし、$p1　～　$p7はそれぞれ違う数字になるように代入したい
と思い、こんなコードを考えたのですが
　

86 · 04/10/13 12:38:00

$p1 = int(rand 7);
　$p2 = int(rand 7);
　while($p1 == $p2){
　$p2 = int(rand 7);
　}
　$p3 = int(rand 7);
　while($p1 == $p3 or $p2 == $p3){
　$p3 = int(rand 7);
　}
　$p4 = int(rand 7);
　while($p1 == $p4 or $p2 == $p4 or $p3 == $p4){
　$p4 = int(rand 7);
　}
　$p5 = int(rand 7);
　while($p1 == $p5 or $p2 == $p5 or $p3 == $p5 or $p4 == $p5){
　$p5 = int(rand 7);
　}
　$p6 = int(rand 7);
　while($p1 == $p6 or $p2 == $p6 or $p3 == $p6 or $p4 == $p6 or $p5 == $p6){
　$p6 = int(rand 7);
　}
　$p7 = int(rand 7);
　while($p1 == $p7 or $p2 == $p7 or $p3 == $p7 or $p4 == $p7 or $p5 == $p7 or $p6 == $p7){
　$p7 = int(rand 7);
　}

86 · 04/10/13 12:38:40

見れば見るほど頭悪そうな感じがします。。。７くらいならいいけど
p1～p100までに1～100までの数字をそれぞれ違う数字が入るようにするなんてするとひどいコードになる事に・・・
うまくループ構文使えばもっと簡単なコードになる気がするのですが
私では作れませんでした・・・どなたかご存知でしたら教えていただけますでしょうか。
（ちなみになぜこんな事をやりだしたかというと、特定個数の全てのアイコンを毎回順序をランダムで表示したいと考えたからです）

連続カキコすいません。（改行エラーでたので）

**nobodyさん** · 04/10/13 12:41:40

質問です。BBSのログを読み出す際に、URLがある場合にはリンクを貼ろうと思っています。
例えば、普通にリンクを貼るだけならできるのですが、
自サイトへはinner、他サイトへはouterというスタイルを適用したいと思っています。

ログの例：（MyIDを含むのが自サイトとします）
http://localhost/MyID/<;BR>http://www.2ch.net/

出したい出力結果（HTML上）：
<A href="http://localhost/MyID/"class="inner">http://localhost/MyID/<;/A><BR><A href="http://www.2ch.net/" class="outer">http://www.2ch.net/<;/A>

sub link {　#　引数に渡すのはログ全体
　$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+MyID[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" class="inner">$2<\/A>/g;
　$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" class="outer">$2<\/A>/g;
}

こう記述すると、前者も後者も全てouterになってしまいます。

if ($_[0] =~ /MyID/) {
　$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+MyID[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" class="inner">$2<\/A>/g;
} else {
　$_[0] =~ s/([^=^\"]|^)((http|ftp|https)\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\,\|]+)/$1<A href="$2" class="outer">$2<\/A>/g;
}

こうすると、今度は自サイトへのリンクは貼られるのですが、他サイトへのリンクは貼られなくなってしまいます。
上記の出したい出力結果を出すには、どのように記述したらよいのでしょうか。

**nobodyさん** · 04/10/13 13:24:29

>>86
数値を配列に入れてから
その配列をランダマイズすれば？

86 · 04/10/13 13:33:52

>>90
配列ってランダマイズできるんですか・・・。
知りませんでした汗
ありがとうございました。探してやってみます。

**nobodyさん** · 04/10/13 13:44:56

>>86

@array=();
for ($count = 0; $count < 7; $count++) {
push(@array,$count);
}
&shuffle( \@array );

sub shuffle {
my $array = shift;
my $i;
for ($i = @$array; --$i; ) {
my $j = int rand ($i+1);
next if $i == $j;
@$array[$i,$j] = @$array[$j,$i];
}
}

&shuffleを呼び出す前と、呼び出した後で@arrayの中身を見てみよう。

**nobodyさん** · 04/10/13 13:55:48

>>89
\大杉

**nobodyさん** · 04/10/13 15:22:33

>>86
@outにランダムな数値を出力。

@in = (1 ..100);
@out = ();
srand;
foreach (@in) {
　　my $r = int rand (@in + 1);
　　push(@out, $in[$r]);
　　$out[$r] = $_;
}

**nobodyさん** · 04/10/13 15:30:25

>>94
それ、値が入らない場合もあるし、
同じ値が入りまくってるじゃん。
>>86の要件を満たしてないぞ。

**nobodyさん** · 04/10/13 15:48:10

>>86

srand(time());
%hash = map {$_ => rand()} 0 .. 6;
@array = map $_, sort {$hash{$a} <=> $hash{$b}} keys(%hash);
print "@array\n";

**nobodyさん** · 04/10/13 16:04:53

いろいろ書いてみるのも楽しいのだが、オレは堕落したので
List::Utilのshuffle使うな

**nobodyさん** · 04/10/13 16:07:16

俺は5.6だから使えないYO!!
モジュールに頼りっきりになるのもアレだが、でも使えるものは使っていきたいよね。

**nobodyさん** · 04/10/13 16:11:23

（１２　１５　１７　２０　５０）のような配列があったとして
↑の配列の中から１８に一番近い数字を取り出すみたいなのはどうしたらいいでしょうか？

**nobodyさん** · 04/10/13 16:20:30

>>99
$seed =18;
$tmp = $seed;
@data = (12,15,20,50);
for(@data){
　　my $diff = abs($_ - $seed);
　　$min = $_ if($diff <= $tmp);
}
print $min;

こんなんでどない？

99 · 04/10/13 16:24:16

ミスった。

$seed =18;
$tmp = $seed;
@data = (12,15,20,50);
for(@data){
　　my $diff = abs($_ - $seed);
　　if($diff <= $tmp){
　　　　$min = $_;
　　　　$tmp = $diff;
　　}
}
print $min;

**nobodyさん** · 04/10/13 16:27:05

もし、数値の配列がクソ長いのであれば、
abs($_ - $seed);が0の時はlastで抜けちまった方が良さげ

**nobodyさん** · 04/10/13 16:32:45

ｔｈｘ！！！

**nobodyさん** · 04/10/13 16:37:15

オレはList::Utilラブなので、

reduce {abs($a-$seed)<abs($b-$seed)?$a:$b} @data

86 · 04/10/13 18:17:10

いろんなコードを書いていただいてありがとうございました。
書いていただいた全てのコードが勉強になりました。
一つ一つ検証して試してみたいと思います。

**nobodyさん** · 04/10/14 00:02:36

連想配列の配列数を得るにはどうすればいいのでしょうか？
forなどで一個一個数えていくしかないのでしょうか？

**nobodyさん** · 04/10/14 00:12:11

>>106
$a = scalar keys %HASH;

89 · 04/10/14 00:15:43

どなたかわかる人いらっしゃらないでしょうか；
それともこういうのは理論上無理なんですかね･･･

**nobodyさん** · 04/10/14 00:33:02

@data = ('A,2,黄緑',
         'C,3,青紫',
         'B,4,赤',
         'C,6,青',
         'A,7,緑',
         'A,9,紫',
         'B,10,黄');
こんな感じである配列の先頭にあるa,b,cの数を数えて

連想配列に
%count = (A,3,
             B,1,
             C,2);
こんな感じに持って行くにはどうしたら良いんでしょう？

**nobodyさん** · 04/10/14 00:46:44

（りんご、みかん、りんご、ぶどう、みかん、すいか、りんご）
という配列のなかから一番多いものだけを取り出すってのはどうしたらいいですか？
この中だとりんごに当たりますね。

**nobodyさん** · 04/10/14 00:49:57

ここは丸投げスレか

**nobodyさん** · 04/10/14 00:52:58

>>111
答えられない人はお帰りください＾＾

**nobodyさん** · 04/10/14 01:31:30

>>108
まずurlにマッチングさせてからinnerかouterか判定させれば？
urlの正規表現についてはググればすぐに出てくるので。
あと、エスケープする必要があるものとそうでないもの調べてくれ。

**nobodyさん** · 04/10/14 02:27:52

>>110
ここはアルゴリズムを質問するスレではない。
「こういうアルゴリズムを考えたので Perl で実装したいんですが
どうコーディングしたら良いですか?」
という質問形式にして出直してきたまえ。

例えば、いったん各々の個数を全部数え上げるというアルゴリズムで行くなら、
ハッシュをインクリメントしていって、数え終った後でソートする、というのが素直だろうな。

**nobodyさん** · 04/10/14 05:34:49

前に114と同じことを書いたら叩かれたのを思い出した

**nobodyさん** · 04/10/14 06:51:34

【目的】
Net::SSH::Perlを使ってサーバに入り、任意のメールアドレスに対してメール
を送信するスクリプトを作る。

【スクリプト】
#!/usr/bin/perl -w
use Net::SSH::Perl;
$host = "www.test.net";
$user = "hogehoge";
$pass = "2ch_test";
$cmd = "mail hoge\@hoge.ne.jp";
$body = "www.test.net is ok\n";
$ssh = Net::SSH::Perl->new($host);
$ssh->login($user, $pass);
$ssh->cmd($cmd);
$ssh->cmd($body);

【説明】
スクリプトを実行したとき、指定したサーバにログインすることはできるので
すが、それ以上処理が進まず、メール送信もされません。ただ、スクリプトを
実行させてキーボードから文字を入力してCtrl-Cで処理を中断するとメールは
配信されます。
[mona@localhosst mona]% ./test.pl<Enter>
これはテストです。<Enter>
Ctrl-C

【教えて欲しいこと】
$bodyの内容を自動的に標準入力に代入し、メールを送信する。
加えて、サーバからの切断も自動的に行ってくれる。
以上の二点を解決したいです。
よろしくお願いします。

**nobodyさん** · 04/10/14 08:14:10

@a = "ァー";

for(@a){
@b = split /　| /; #全角or半角スペースで切る
}

for(@b){
print;
}

というコードを実行すると何故か
ゼ
と表示されます。これはどういうことでしょうか？
$aの「ァー」の部分を色々変えてみましたが、
こうなるのは「ァー」と「ぁー」です。
どなたか分る方いたら教えてください。

**nobodyさん** · 04/10/14 08:36:03

http://www.dp.j-phone.com/dp/tool_dl/web/useragent.php
の表はユーザーエージェントの解説なのですが、表の一番下にあるような
「J-PHONE/4.0/J-SH51/SN*********」という文字列で、
SN以降を削除し他の部分だけを残したいんです。その場合の正規表現は
どう書けばいいのでしょうか？
$abc =~ s/(.+)[SN](.+)/$1/;　だとダメでした。どなたかお力添えをお願いします。

**nobodyさん** · 04/10/14 10:24:52

>>118
$abc =~ s/SN.*//;

**nobodyさん** · 04/10/14 10:36:01

>>117
たぶんソースをeucで書いてるだろうから、

use encoding 'euc-jp';

を頭に追加すれば直ると思うが。

unicode機能を有効にしないperlでは日本語の2バイトコードは
1つの文字としては扱えず、1バイトずつバラバラのバイト列と
なってしまう。

"ァー" = "\xa5\xa1\xa1\xbc"
/　| / = /\xa1\xa1| /

なので、ァーの部分は真中の\xa1\xa1の部分を区切りとして
splitされてしまい、\xa5\xbcが出力される。これは「ゼ」。

同様に「ぁー」のときは「ぜ」になってるはず。

**nobodyさん** · 04/10/14 10:38:58

>>117
http://www.din.or.jp/~ohzaki/perl.htm#JP_EUC_JP
ここから下を読むことを勧める。

**118** · 04/10/14 10:39:49

>>119
レスありがとうございます。
でもそれではうまく行きませんでした。
SN以降が削除されずにそのまま出力されているようです。

**118** · 04/10/14 10:43:11

失礼、うまくいきました！
感謝感謝です。ありがとう。

**117** · 04/10/14 12:36:50

>>120
ありがとうございます！
完璧な説明大変感謝してます。

**117** · 04/10/14 12:42:18

感謝した先から申し訳ないのですが、
コードはEUCで書いてるのですが
扱ってるデータがS-JISだったりします。
use encoding 'euc-jp';
したら、データが化けてしまいます。
そういう場合
:コードの文字コードと　扱ってるデータの文字コードが違う場合:
どう対処したらよいのでしょうか？

**nobodyさん** · 04/10/14 12:43:53

>>125

>>6

**117** · 04/10/14 13:13:06

>>126
コーディング、の定義を教えて下さい(･_･)(._.)

**nobodyさん** · 04/10/14 13:45:02

>>127
最低限の検索ぐらいはやった上で質問しなきゃ。
コーディングでググれば？

検索わからない？
http://pc6.2ch.net/pcqa/

**117** · 04/10/14 13:59:16

>>127
は僕じゃないです。
変な質問して、荒らしてしまって申し訳ないです。

**nobodyさん** · 04/10/14 14:04:44

>>125
ここがわかりやすかった

ttp://namazu.org/~tsuchiya/perl/perl-5.8.html

**117** · 04/10/14 14:05:05

自己レスです。

http://www.din.or.jp/~ohzaki/perl.htm#JP_Trans

にそのまんま答えが書いてありました。
お騒がせいたしました。

**nobodyさん** · 04/10/14 17:55:56

my($takesi,@takesi);

は

my *takesi;

と同じと考えてよろしいでしょうか？

**nobodyさん** · 04/10/14 18:02:41

久しぶりだなこのスレ
コーディング　【coding】

プログラミング言語を使ってソフトウェアの設計図にあたるソースコードを作成すること。
（e-Wordsより）

>>126は何故に>>125に対してこれを読めって言ったの？
文字コード問題は設計とは関係ないってか？そんなアホな事はないよな。
そもそもよほどのことでない限りコーディングと無関係にはなれないんだがな。

例えば俺の話とかなｗｗｗ完全にすれ違いってやつだ。
まあお前ら少しは言葉の勉強もしろよ。

**nobodyさん** · 04/10/14 18:03:09

>>132
違うよん。

**nobodyさん** · 04/10/14 18:04:58

>>134
そうだったのですか。
あやうく欲張るところでした。
ありがとうございました。

**nobodyさん** · 04/10/14 23:56:21

$abc = shift;

この shift ってどういう意味なんでしょうか？
関数ですか？

**nobodyさん** · 04/10/15 00:34:17

$b = "こん"
$c = "にちわ"　
変数$aに$bと$cを結合したもの、つまり
"こんにちわ"を代入するには
$a = $b.$c
で大丈夫でしょうか？

**nobodyさん** · 04/10/15 00:39:03

便乗質問。
>>137と似てるんですが、
$b = "co"
$c = "jp"
の場合に $a に co.jp を代入するにはどうすればいいですか？
$a = $b\..$c
で合ってます？？

**nobodyさん** · 04/10/15 00:44:50

>>136
関数。shift unshift pop push 他。

>>138
$a = $b.'.'.$c

**nobodyさん** · 04/10/15 00:53:13

>>137
聞く前になんで試してみないの？

**nobodyさん** · 04/10/15 01:17:23

>>140
面倒なんだろ？
まあよくわからんが。

**nobodyさん** · 04/10/15 08:34:27

このままperlの言語仕様を全部質問されそうな勢いだな。
何スレぐらいかかるだろうか。

**nobodyさん** · 04/10/15 08:35:47

掲示板があったとして
log.txtを編集するために
bbs1.cgiでflockした場合
bbs2.cgiで編集しようとした時にも
ロックされてるんですか？

**nobodyさん** · 04/10/15 10:12:58

>>139さん、shiftって配列の先頭の要素を削除する関数ではないんですか？
shift (@data);
とかならわかるんですけど、
スカラー = shiftという意味がわからないのです。

**nobodyさん** · 04/10/15 10:54:53

print "Location: http://www.2ch.net/";
という文のみのファイルを作って、プラウザからアクセスすると指定URLに飛びますが、
上記の文より前に
print "Content-type: text/html\n\n";
などと書かれていると、ブラウザ上に「Location: http://www.2ch.net/」という文字列が表示されてしまいます。

やりたい事は、フォームから検索をかけて、検索処理中の間は特定のページを表示して、
検索が終了したらその結果を表示する画面に遷移する、ということです。
「検索処理のリクエストを受ける → 特定のページを出す「お待ちください」など → 検索終了 → 結果表示」

要するに、1回のPerlの処理で、ブラウザ上で複数のページ間を遷移させる事は可能でしょうか。

**nobodyさん** · 04/10/15 11:09:31

>>144
マニュアルのshiftの項をよく読め。

ttp://perldoc.jp/docs/perl/5.6.1/perlfunc.pod とか。

**nobodyさん** · 04/10/15 11:22:44

>>145
君のやろうとしていることは perl とは関係無い。
javascript を勉強する方が役に立つだろう。

**nobodyさん** · 04/10/15 13:29:36

HTMLでmetaで指定する部分は全てヘッダで返せるのでしょうか？

例えば
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Style-Type" content="text/css">
<meta http-equiv="Content-Script-Type" content="text/Javascript">
<meta http-equiv="cache-control" content="no-cache">
<meta http-equiv="pragma" content="no-cache">

を、

print "Content-type: text/html; charset=Shift_JIS\n";
print "Content-Style-Type: text/css\n";
print "Content-Script-Type: text/Javascript\n";
print "cache-control: no-cache\n";
print "pragma: no-cache\n\n";

にした場合、きちんと返ってるのでしょうか？

**nobodyさん** · 04/10/15 13:33:40

聞く前にやってみてはどうかね。

**nobodyさん** · 04/10/15 13:45:29

返ってるか分からないんです…

**nobodyさん** · 04/10/15 13:55:55

最近はやればわかるのにやりもしないで質問してくる連中が多いな

**nobodyさん** · 04/10/15 14:55:30

>>148
一点目のアドバイス。
「きちんと返っているかどうか確認する方法を教えてください」と質問すれば
いじめられることもなかっただろうに。

二点目のアドバイス。
どっちにしても Perl と全く関係ない質問なので、
WebProg初心者スレなどで聞く方が正解。

**nobodyさん** · 04/10/15 15:35:31

>>143
bbs2.cgiがflock使うなら勿論ロックになる。
flockはセマフォでの唯一のロック獲得争いにすぎない。
そのロックしないプログラムには通用しない。

**nobodyさん** · 04/10/15 15:37:05

>>153だが我ながら変な日本語だ。逝く。

**nobodyさん** · 04/10/15 16:21:08

>>154
bbs.cgiでlog.txtに書き込みするためロックしました
そのままdelete.cgiでlog.txtの書き込みの一部を削除しようとした場合には
ロックはされてないということでいいんですか？

**nobodyさん** · 04/10/15 16:57:04

flockによるロックは、トイレにカギをかけるようなものではなく、
カギのかからないトイレのドアに使用中と札を下げるようなもの。
その札を見てくれる奴には効果はあるが、ハナから見ちゃいねー
奴には無効。delete.cgiがどっちの奴かはオレにはわからない。

**nobodyさん** · 04/10/15 17:40:29

>>155
delete.cgiが、flockでlog.txtに対するロックを獲得しようとすれば、ちゃんと排他制御がなされる。
（bbs.cgiがロックを返すまで待つか、即座に獲得失敗するかはモード次第）。
しかし、delete.cgiがflockを行っていないのなら、bbs.cgiによる排他制御は無意味。
bbs.cgiがロックを得ている・得ていないに関わらず操作可能。
flockは、お手軽なロック機構にすぎない。
（ロック用ディレクトリとか、スリープするか即座に失敗させるかを自力でやらなくて良いって程度のもの）。

**nobodyさん** · 04/10/15 17:49:21

【Perl】ファイルロック(排他処理)について語ろう
http://pc5.2ch.net/test/read.cgi/php/1024795138/

**nobodyさん** · 04/10/15 17:55:33

>>153だが、
>flockはセマフォでの唯一のロック獲得争いにすぎない。
これは勘違いだったようだ。perlのflockがセマフォ使ってるわけじゃないか。
もう氏ぬ。

**nobodyさん** · 04/10/15 20:46:48

クーロンでperlで作成したブログラムを起動したいのですが、
どうしたらいいのでしょうか？　普通はブラウザのボタンから起動されると
思うのですが、ある時間が来ると自動で動かしたいのです。よろしくお願いします。

**nobodyさん** · 04/10/15 21:05:08

>>160
好きなようにセットしろよ
使い方分からないならググれば一発だろ

ついでにｽﾚ違いな

**nobodyさん** · 04/10/15 23:13:44

>>159
下の下の方(flock(2)やfcntl(2)の下のほう)ではセマフォつかってるよ。多分。
それでも↓は意味不明だけど。
> >flockはセマフォでの唯一のロック獲得争いにすぎない。

**nobodyさん** · 04/10/16 02:52:59

1000ステップのperlスクリプトと、200ステップのperlスクリプト、
どちらも実行ステップは100だとしても、やはり後者の方がサーバに対する
負荷は少ないのだろうか。

**nobodyさん** · 04/10/16 03:14:53

それはもちろん自分で負荷を計測してから聞いｔ（

**nobodyさん** · 04/10/16 11:06:14

>>163
1ステップだ。↓を実行してみな
while(1) { fork;}

**nobodyさん** · 04/10/16 12:33:14

前のｶｷｺした香具師とは関係ないが便乗して

計測の方法が分かりません。。。
ｸﾞｸﾞったらWin鯖は無理と書いてあったんですが、Win鯖で出来るｿﾌﾄありませんか？

**nobodyさん** · 04/10/16 20:03:43

>>166
話が見えない。
ああ、誤爆か…

**nobodyさん** · 04/10/16 21:45:26

perlのスクリプトでflockしたファイルに対して、PHPのスクリプトでflockしたら（もしくはその逆も）、
ちゃんと排他は行われるでしょうか？

**nobodyさん** · 04/10/16 23:05:32

CGIカウンターを設置したいので、perlを勉強しています。参考書を見て↓のを作成したのですが。

# カウントファイルの読み込み
open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");
eval{ flock(FILE, 2);};
$count = <FILE>;

# カウントファイルの書き込み
seek(FILE, 0, 0);
print FILE ++$count;
close(FILE);

# サーバ出力
print <<END;
Content-type: text/html
中略）
END

Apachでエラーログをみると Premature end of script headers　と出てしまいます。
どの部分を訂正すればよいのでしょうか？ご存知の方、ご指導お願いします。

**nobodyさん** · 04/10/16 23:13:07

print <<END;
Content-type: text/html
中略）

**nobodyさん** · 04/10/17 01:00:06

open(FILE, "+<./count.dat") or die("エラー：カウントファイルが開けません");

このdieの部分はどこに出力されるのですか？ログとか？

**nobodyさん** · 04/10/17 01:03:49

標準エラー出力 (STDERR)

**nobodyさん** · 04/10/17 01:38:29

配列のリファレンスをforeachで処理するにはどうしたらいいですか？
$dbh->{NAME}
が配列へのリファレンスだとして、
$dbh->{NAME}->[0]ではアクセスできる状態です。

foreach($dbh->{NAME})
{
　print;
}

foreach($$dbh->{NAME})
{
　print;
}

等とやってもうまくいきませんでした。

**nobodyさん** · 04/10/17 01:39:32

@{$dbh->{NAME}}

**nobodyさん** · 04/10/17 01:41:51

>>174
うまくいきました。ありがとうございました。

**nobodyさん** · 04/10/17 10:10:48

>170
中略）の部分は

<html>
<head><title>perlアクセスカウンター</title></head>
<body>
<P>あなたは$count番目の訪問者です。</p>
</body>
</html>
END

Premature end of script headers　
エラー：カウントファイルが開けません　のエラーログが出ます。

open or die　の文がおかしいのかと思ったのですが、良くわかりませんでした。よろしくお願いします。

**nobodyさん** · 04/10/17 10:20:37

初心者なんで間違ってるかもしれんが、
Content-type:text/htmlの後に改行が2つ(\n\n)必要だった希ガス

**nobodyさん** · 04/10/17 10:21:41

openに失敗してるんだろ

**nobodyさん** · 04/10/17 13:45:28

>>168
双方が協調して動作するためには、同じ方式のロックメカニズムを使用する必要があるが、
perlのflockはOSが提供しているflockとは限らない、PHPは知らない。
プラットフォームインディペンデントに作るなら、昔ながらのロックファイル方式か、
OSの提供する排他制御のプリミティブを直接呼び出すのがいいだろう。

**nobodyさん** · 04/10/17 22:56:51

二次配列等は使えますか？

**nobodyさん** · 04/10/17 23:20:50

>>180
ここに書く前にperlのdocument群を読んで欲しいかも。。。

**nobodyさん** · 04/10/18 01:01:57

>>180
2年前に同じ質問したことあるな・・

**180** · 04/10/18 01:23:59

これは失礼いたしました…

**nobodyさん** · 04/10/18 04:17:33

myについて質問させて下さい。

sub a
{
my $daskin;
$daskin="かきくけこ";
&b;

&c;
}

sub b
{
my $daskin;
$daskin="あいうえお";
}

sub c
{
print "$daskin";
}

こういったスクリプトを書いた時、&a、&b、の中で$daskinは局所化されているので
&c内のprintの表示が空になることを期待していたのですが、｢あいうえお｣と表示されてしまいます。
変な質問ですが、みなさんにとっては納得のいく結果でしょうか？
私の局所化処理が間違っている場合、教えて下さいm(__)m

**nobodyさん** · 04/10/18 05:07:01

申し訳ありません。
自己解決いたしました。
上記のスクリプト、ここへの転載も含め、私の記述が間違っていたようです。

**nobodyさん** · 04/10/18 13:44:39

print <<"EOF";
メッセージ：
$message
ここまで
EOF

こういう記述があるとして、$messageにはランダムにメッセージが入るのですが、
ここに何も文字列が入らなかった場合、HTMLで見ると

メッセージ：

ここまで

このように、間が空行になってしまいます。
ここを上手く詰められるような記述方法は無いでしょうか。

**nobodyさん** · 04/10/18 13:54:10

print <<"EOF";
メッセージ：
$messageここまで
EOF

**nobodyさん** · 04/10/18 16:35:34

>>179
ありがとうございます。
ロックファイルでやる事にします。

**nobodyさん** · 04/10/18 18:54:11

0410181738 という形の時間(year,mon,day...)をcookieの期限のために

sprintf("%s, %02d-%s-%4d %02d:%02d:%02d GMT",
$day,$mday,$mon,$year+1900,$hour,$min,$sec);

というような形にしたいのですが、曜日だけが変換のネックと
なっています。どのようにこの日の曜日を計算させればよいの
でしょうか?

**nobodyさん** · 04/10/18 19:32:32

>>189
ttp://www.din.or.jp/~ohzaki/perl.htm#Date2WDay

**nobodyさん** · 04/10/18 21:38:36

１．http://aaa.a.a/a.cgi

２．http://bbb.b.b/b/cgi

１のプログラム上から引数を渡して２のプログラムを動作させて
結果を1のプログラムに返すようなことって可能でしょうか？

２のサーバーのローカルにあるデータベースからデータを取得して
1のサーバーのローカルにあるデータベースにデータを保存したいと
おもっております。言語はperl使用です。

**nobodyさん** · 04/10/18 21:42:53

>>191
LWPとか
さんざん外出

**nobodyさん** · 04/10/19 10:09:36

>>192
何ｽﾚも前で既出のもんとかを既出の一言で片付けられたってわかるわけねーだろｱﾌｫ
どうせ本当に既出かどうかの確認もしてねぇんだろ？（ｐｐ
ん？何ｽﾚ目で話題が出たか言えるか？無理だろうなぁ日本語読めてないっぽいもんなぁ(･∀･)ﾆﾖﾆﾖ

**nobodyさん** · 04/10/19 10:22:08

>>193
前スレで何回もでてるよ。確認もしてないのはお前だ。

**nobodyさん** · 04/10/19 10:25:54

>>194
いや、どう見ても釣りだろｗ

**nobodyさん** · 04/10/19 14:27:41

LWPで何百何千もの html をネットから落としてきて解析するプログラム書いてるんですけど
request() とrequest()の間ってやっぱsleepとか入れて間を開けた方がいいのでしょうか？
具体的にはﾔﾌｰの株価データなんですけど

**nobodyさん** · 04/10/19 14:35:05

>>196
相手次第

**nobodyさん** · 04/10/19 17:42:02

日本一Perlが凄い人ってKENTさんですか？

**nobodyさん** · 04/10/19 17:45:10

もちろんそうですよ。

**nobodyさん** · 04/10/19 19:19:06

CGIレスQって、・・・・なコーディングがしばしば。