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

**nobodyさん** · 2009/02/16(月) 11:42:29

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

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

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

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

お勧めサイトは >2 以降

前スレ　http://pc11.2ch.net/test/read.cgi/php/1218030872/

**nobodyさん** · 2009/06/16(火) 23:19:47

正規表現は読みにくいものだ
人間を機械に近づける代わりにエッセンスで書ける

**661** · 2009/06/16(火) 23:45:46

>>662
Perlコーディング初心者質問スレなので、
コメントの書かれた正規表現での回答。

**nobodyさん** · 2009/06/16(火) 23:53:35

>664
ぼく質問する側だもん

**nobodyさん** · 2009/06/17(水) 00:46:18

変数に入ったリファレンスが、配列のリファレンスか、
ハッシュのリファレンスかを知る上手い方法はありますでしょうか？

今考えているのはsprintfでリファレンスを書き出してみて
その文字列の中にHASH かARRAYのどちらがあるかでやろうかと考えています。
他におすすめの方法があればお願いします。

**nobodyさん** · 2009/06/17(水) 00:54:03

>>666
print ref $ref;

**nobodyさん** · 2009/06/17(水) 00:54:57

ref

**666** · 2009/06/17(水) 01:08:36

>>667-668
ありがとうございます。
refの返り値がHASHかARRAYになってるんですね。。
リファレンスかどうかの真偽のみに使っていたので気がつきませんでした。
助かりました。

**nobodyさん** · 2009/06/17(水) 01:55:06

よくできてるなあ

**nobodyさん** · 2009/06/17(水) 18:23:12

質問です、よろしくお願いします。
読み込んだデータ($sample)が120行ほどあって、
各行の先頭全てに’１－１’という文字列を放り込みたいんですが
全くプログラムが書けません。
どうか、教えてください。

**nobodyさん** · 2009/06/17(水) 18:33:52

$sample=~ s/(.*\n)/1-1$1/g;

**nobodyさん** · 2009/06/17(水) 18:42:10

>>672
最終行に改行ｺｰﾄﾞがないと最終行が痴漢されない

**nobodyさん** · 2009/06/17(水) 19:32:47

$sample =~ s/^/1-1/gm;

**nobodyさん** · 2009/06/17(水) 19:39:35

$sample=~ s/(.*\n)/1-1$1/g;

**nobodyさん** · 2009/06/17(水) 19:41:06

$sample =~ s{^}{1-1}xmsg;

**671** · 2009/06/17(水) 19:54:39

>>672-676
みなさん、ありがとうございます。
ばっちりできました。
が、初心者なんで皆さんのプログラムで
なぜちゃんと走ったのかが理解できてないので
出直してきますorz

**nobodyさん** · 2009/06/18(木) 00:48:48

改行を含んだデータの取り扱いが弱いよな

**nobodyさん** · 2009/06/18(木) 15:26:50

@csv = (["am","a"],["au","a"]);
@list = map(split(//, $_[0]), @csv);

@csv のすべての要素の最初の要素（文字列"am","au"）を文字に分解したいのですがうまくいきません。
解決方法を教えてください。お願いします。

**nobodyさん** · 2009/06/18(木) 15:52:03

>>679
$_[0]じゃ@_の0番目だよ。$_->[0]だろ。

**nobodyさん** · 2009/06/18(木) 18:06:39

こんにちわ。
データの中にある特定の文字を消したいんですが、うまくいかないです。
while(<IN1>){
chomp;
@data = split(/-/, $_);　＃これは無視して下さい
@data2 = join(' ', @data);
という手続きで読み込んだデータをﾀﾌﾞでつないで格納しましたが
都合上、全ての行に
red apple
red fire
てな感じで、ﾀﾌﾞで区切られずひとくくりにされてしまう箇所があります。
この中の"red "だけを全ての行から取り除いて残りをそのまま出力したいんですが
可能ですか？
初心者ながら置換をしてみようと
$data2 =~ s/Level1 //g
print OUT1 "$data2\n";
というﾌﾟﾛｸﾞﾗﾑを書いてみましたが、printできねーと返されましたorz
よろしくお願いします。

**681** · 2009/06/18(木) 18:12:27

すんません。
下から４行目は
Level1 とか意味わからんのじゃなくて'red 'ですorz

**nobodyさん** · 2009/06/18(木) 18:13:04

$data2 =~ s/Level1 //gに ; が無いからprintの行でエラーのお知らせなんじゃね？

**681** · 2009/06/18(木) 18:29:39

>>683
ホンマや！
と思って、；付け足してやってみたところ
今度はこのマッチングの表現がおかしいみたいなこと言われました。。
どこが間違ってるんでしょうか？？

**nobodyさん** · 2009/06/18(木) 18:32:38

>>683でないならもしや open してない or できてない or 書き込みモードでないのでは？

**nobodyさん** · 2009/06/18(木) 18:35:41

あーじゃあデリミタちゃんとエスケープしてないとか？
$str =~ s/ttp://www.*//;
みたいな感じに文字列に/使ってない？

**nobodyさん** · 2009/06/18(木) 18:36:25

ファイル名隠して、エラー内容晒せ。
該当行前後のソースも。

**681** · 2009/06/18(木) 19:00:13

>>686
redを空白に置換しようとしてるんで、文字列に使っちゃってることになるんですかね？？

>>687
Use of uninitialized value in substitution (s///) at data_split line 15, <IN1> line 5788.
Use of uninitialized value in concatenation (.) or string at data_split line 16, <IN1> line 5788.
この２種類がガーっと出てきます。
ちなみにline15が$data2 =~ s/red //g;
line16がprint OUT1 "$data2\n";
です

**nobodyさん** · 2009/06/18(木) 19:05:09

joinは配列を返さないぞ

**nobodyさん** · 2009/06/18(木) 19:08:52

>>688
そのエラーは$data2が未定義だと言っている。

681に書いてある付け加える前の元の部分には
@data2しか登場してないぞ。

**nobodyさん** · 2009/06/18(木) 19:27:00

>>688
redならそうはならないっす＞＜
このエラー見る限り違う

つーかどういうフォーマットのデータをどういうフォーマットにしたいか教えてくれ

**681** · 2009/06/18(木) 19:27:49

>>689
そうだったんですか。。完全にわかってなかったです。

>>690
689さんが言うてるようにjoinが配列を返さないから
未定義だったんすね。。。

となると、、、
この"red "だけを消すにはどんな手が有効ですかね？？

**nobodyさん** · 2009/06/18(木) 19:39:03

$data2の内容がないよう
↓
どこかで設定したはず？→設定したはずの場所を正しく書き直す
↓
設定し忘れ？→設定すべき場所を考える
↓
わからない→とりあえず寝ちゃおう

**nobodyさん** · 2009/06/18(木) 20:02:08

結果

strict

しておけ

**nobodyさん** · 2009/06/18(木) 20:45:32

つ use Any::Mouse;

ごめん言ってみただけ

**681** · 2009/06/18(木) 20:59:17

元のデータが
1 1 2 red fire 1232 0 [n]
みたいなのがざっと200行近くあって
この'red fire'がタブで区切れない、ひとくくりのデータになっちゃってます。
この中の'red'だけを一気にそぎ落とそうとしてる・・・って感じです
どうしたら良いですか？？

**nobodyさん** · 2009/06/18(木) 21:21:41

while(@data){
my @tmp = $_ =~ /[^\t\n]+/g;
print join "\t", map{$tmp[$_] unless $_ == 3}(1..8);
}
こんな感じ？テストはしてない

**nobodyさん** · 2009/06/18(木) 21:22:37

X }(1..8);
O }(0..7);

**nobodyさん** · 2009/06/18(木) 21:30:15

>>696
$data2 =~ s/\bred\t//g;
$data2 =~ s/^red\t|(?<=\t)red\t|\tred\z//g;
$data2 = join("\t", grep{$_ ne 'red'} split(/\t/, $data2));

お好きなのをどうぞ。

**681** · 2009/06/18(木) 22:01:42

>>697-699
ありがとうございました。
せっかく教えてくれたのに申し訳ないですが、
やはり>>688と同じようなエラーが出てしまいました。
見つけれる限りの間違いは直してみたつもりなんですが。。。

◆TWARamEjuA · 2009/06/18(木) 22:32:31

while以前の行に変なのがあるんじゃないかな？

while行から上に向かって
exit;
を入れてみてデバグしてみるとか。

あと~の文字コードとかとか。

**681** · 2009/06/18(木) 23:16:28

>>701
>>699さんの教えてくれた
$data2 =~ s/\bred\t//g;
が僕自身も一番わかりやすかったので使わせてもらってるんですが
エラーはこの文に対してだけ出てまして、その内容が
Use of uninitialized value in substitution (s///) at data_split line 13, <IN1> line 5788.
Use of uninitialized value in concatenation (.) or string at data_split line 15, <IN1> line 5788.
てな感じになってるんです。
ちなみに、line15は
print OUT1 "$data\n";
です。
文字コードも大丈夫なはずなんですが、、、

**nobodyさん** · 2009/06/19(金) 00:34:12

$data2に中身がねえと言われてるのに分からん奴だな。
スクリプト全部晒せばいいのに。

**nobodyさん** · 2009/06/19(金) 00:36:23

IN1 なファイルの line 5788 が空行でした、とかいう話ではないの？

**nobodyさん** · 2009/06/19(金) 04:46:39

>>703
まあそんな威張るな

**nobodyさん** · 2009/06/19(金) 09:11:31

@data2に何を入れても$data2とは関係ないってわかってる?

**nobodyさん** · 2009/06/19(金) 11:07:46

というか、このままじゃ$data2が何処から来たのか誰にも分からん。

**nobodyさん** · 2009/06/19(金) 14:19:21

>>703
威張ってはいない。
しょせんは他人事だがそれでも、いつまでも問題が解決しないことに
焦りと苛立ちと好奇心を感じている。

**nobodyさん** · 2009/06/19(金) 14:48:13

== と eq について質問があります
今、会員限定のサイトに電話番号 (ハイフン無し) によるログインをさせています。
家電話が無い人は携帯番号というふうにさせています。
認証自体は Basic 認証を使い、サイトの中で「○○さん、こんにちわ」といった具合で名前を表示させています。
(パスワードファイルは Shift_JIS、HTML は euc-jp です)
my $username; my $userid; my $usertel; my $userktai;
open(INFH, '<', $config->{'file_passwd'});
while(my $line = <INFH>){
　　my $utf8 = decode('shiftjis', $line);
　　my $eucjp = encode('euc-jp', $utf8);
　　chomp $line;
　　($userid, $username, undef, $usertel, $userktai) = split(/\t/, $eucjp);
　　$usertel = $userktai if !$usertel; # 家電話が無ければ携帯番号がユーザー名
　　last if $ENV{'REMOTE_USER'} eq $usertel;
}
close(INFH);

上記でスクリプトを書くと、家の電話番号がある人はちゃんと名前が表示されますが、携帯しか無い人を $usertel に代入させると判定できません。
ユーザー名がパスワード一覧のファイルに記述されているのは確認しています。

last if $ENV{'REMOTE_USER'} eq $usertel;
の行を
last if $ENV{'REMOTE_USER'} == $usertel;
にすると判定は上手くいき、理想どおりの動作はします。

しかしパスワードが「数値」というのになんか気持ち悪い感じがしますし、なぜ eq で判別できなくて == で判別できるのでしょうか？
書き方が悪いというのがあれば指摘していただきたく書き込みしました。

print によるデバッグでパスワードを出力させてみたところ、$ENV{'REMOTE_USER'} と $usertel が一致する行を目視で確認しました。

**nobodyさん** · 2009/06/19(金) 15:03:10

$usertel = $userktai if !$usertel; の行で$userktaiを代入してるけどこの変数には
末尾に改行がある

きみは目視で改行が見えるか？

**nobodyさん** · 2009/06/19(金) 15:17:48

chomp $line;の位置が問題ってことだね

**nobodyさん** · 2009/06/19(金) 15:21:58

改行は見えるようにしとかないと。

**nobodyさん** · 2009/06/19(金) 15:44:33

あ～、あまりにもくだらないミスでごめんなさい orz

ありがとうございました m(._.)m

**nobodyさん** · 2009/06/19(金) 16:29:20

今、データの正誤判定のための模範解答作成みたいなのやってます。
読み込むデータには
"animal"と"plant"と"food"の３種類がランダムに並んでます。
「animal
　plant
　food
　food
　animal」
というようなのが5000個近く並んでいます。
ここから、animalについては"n"、
他の２つについては"m"という文字を出力を出したいんですが、
perlを最近始めたばかりなので、全然できません。
助けてください。

のせるのも恥ずかしいぐらいですが、
とりあえず、稚拙ながらも作ったプログラムを置いておきます。
while($line = <IN1>){
chomp;
if($_ eq "animal"){
print OUT1 "n\n"
} else {
print OUT1 "m\n"
}
}

**nobodyさん** · 2009/06/19(金) 16:41:44

(´･ω･)つ ;

**nobodyさん** · 2009/06/19(金) 16:43:49

なんで$lineに読み込んでるのに$_を比較してんのよw

**nobodyさん** · 2009/06/19(金) 16:45:21

while (<IN1>) {
にしてみたらどう？
IN1 とか OUT1 を見て思うんだけど>>681や>>702に心当たりはないか？

**nobodyさん** · 2009/06/19(金) 16:53:48

>>715
いっけね。これだから初心者わw

>>716
いろんなことやってたらごっちゃになっちゃって
直すの忘れてました。
$lineに直してもﾑﾘﾎﾟでした、、、

>>717
うまくいきませんでした。
て言うてもエラーではなく、出力は最初のデータがfoodなのにも関わらず"m"と出て糸冬了。
心当たり？はわかんないす。

**nobodyさん** · 2009/06/19(金) 17:12:43

>>718
food なら m であってるんじゃないの？
それだけで終了するのはなぜかわからないけど。

修正後のスクリプトを見てみたい。

**nobodyさん** · 2009/06/19(金) 17:16:51

>>718

> $lineに直してもﾑﾘﾎﾟでした、、、

おおかたchompを直し忘れたんじゃないか。
$lineで統一するんなら明示的に引数書かないと。

> て言うてもエラーではなく、出力は最初のデータがfoodなのにも関わらず"m"と出て糸冬了。
> 心当たり？はわかんないす。

animalのときn,他のときはmだからfoodでmがでて
終了なら正しい動作なんじゃねーの?

**713** · 2009/06/19(金) 17:17:06

use strict;

while(my $line = <DATA>){
　　chomp $line;
　　if($line eq "animal"){
　　　　print "n\n";
　　}else{
　　　　print "m\n";
　　}
}
exit;

__DATA__
animal
plant
food
food
animal

原因は、$line に入れてるのに、chomp は $_ 対して行ってるから。

自分と似たようなミスですねｗｗ

**714** · 2009/06/19(金) 17:26:50

すんません、僕の説明がヘタくそすぎたし、
>>718での報告は完全に間違ってたので、もう一度チャンスをください。
望ましい出力が
animalからのn と
plant, foodからのmです。
>>721さんのやつでやってみると
5000行ほどあるうちの最初がanimalなのにnが出てきまして、
その１つで出力が終わってしまってます。
ご教授、よろしくお願いします。

>>719
>>721さんのをまんま使わせてもらったところ
上に書いたような出力になっちゃいました。

**714** · 2009/06/19(金) 17:28:42

あーもう、また間違ってる！
foodlなのにnが出ちゃったんですw
ほんますいません。

**713** · 2009/06/19(金) 17:35:12

__DATA__ は削除しないと・・・

while(my $line = <IN1>){
chomp $line;
if($line eq "animal"){
print OUT1 "n\n";
}else{
print OUT1 "m\n";
}
}

**nobodyさん** · 2009/06/19(金) 17:36:48

落ち着けよ
原因はきっとキミがパニクってるからだと思う

**719** · 2009/06/19(金) 17:44:12

>>722
スクリプトを見せてくれよ。

**714** · 2009/06/19(金) 17:46:28

>>724
あ、大丈夫です。そこは消したんですが
>>722みたいな感じになっちゃったんです・・

>>725
確かにw
今日中にこれを何とか片付けないとだめなんで若干の焦りがありますよねw

**nobodyさん** · 2009/06/19(金) 17:54:53

目茶目茶短いだろうに載せないのはネタだから？

**714** · 2009/06/19(金) 17:56:40

>>726
while($line = <IN1>){
chomp $line;
if($line eq "animal"){
print OUT1 "n\n";
}else{
print OUT1 "m\n";
}
}
て感じです。
出力は、nが１つ出ているだけです。
しかも、データの１行目はfoodなのでmが出てほしいんですが。。

**nobodyさん** · 2009/06/19(金) 18:02:04

ホントにfoodでmが出てるか↓こう書いて確認したら？
print OUT1 "n: $line\n";
print OUT1 "m: $line\n";

**nobodyさん** · 2009/06/19(金) 18:03:50

>>729
とりあえず、chompを外して
条件を
$line =~ /animal/
に変えて試してみれば？

あと、chompの後でも前でもいいけど、$lineをダンプ

**719** · 2009/06/19(金) 18:06:13

>>729 その前後に問題があるのでは？
ファイルの open, close がうまくいってないとか？

# test.pl
use strict;
open IN1, '<', 'data_in.txt' or die $!;
open OUT1, '>', 'data_out.txt' or die $!;
while(my $line = <IN1>){
chomp $line;
if($line eq "animal"){
print OUT1 "n\n";
}else{
print OUT1 "m\n";
}
}
close OUT1;
close IN1;

# data_in.txt
food
animal
plant
food
animal

#data_out.txt
m
n
m
m
n

**nobodyさん** · 2009/06/19(金) 18:13:59

ほんとに
animal
なのか？
animal
とかじゃないよね？

**nobodyさん** · 2009/06/19(金) 18:16:17

>>721ので上手くいくんだから、もうデータが間違えてるだとか
その前後が間違えてるとしか思えない

スクリプトデータを頂戴
記述間違いから何から何まで直してやる

**nobodyさん** · 2009/06/19(金) 18:28:26

use strict;
use warnings;

open IN1, '<', 'testdata.txt';
open OUT1, '>', 'results.txt';
while(my $line = <IN1>){
　　chomp $line;
　　if($line eq "animal"){
　　　　print OUT1 "n\n";
　　}else{
　　　　print OUT1 "m\n";
　　}
}
close OUT1;
close IN1;

5000個のデータ作ってやってみたけど、ちゃんと動くし、簡単なチェックスクリプトで確認したけど、
animal なのに m になってしまうなんてのは無かった。
キミの組み方の問題かと思われ。

**714** · 2009/06/19(金) 18:30:29

>>733
はい、一番処理しないといけないデータはanimalとかじゃなくて別の言葉です。
このanimalとかは、練習用で使ってたデータです。
下に生のデータを掲載させてもらいます。

>>734
スクリプトデータって読み込んだデータのことですよね？
animalとかじゃなくて、実際に処理したいデータはこんなのです。
NonWord
NonWord
NonScriptWord
NonScriptWord
NonWord
NonWord
NonWord
NonWord
ScriptA
ScriptC

こんなのが5000ほどあります。
この中のNonWordについてのみ"n"と返してほしいんです。
書いたプログラムは>>729から進歩してません。

**nobodyさん** · 2009/06/19(金) 18:48:16

>>736
> 書いたプログラムは>>729から進歩してません。

だから、そのスクリプト（プログラム）を見せろって

**714** · 2009/06/19(金) 18:56:47

>>737

use utf8;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

use open IN => ":utf8";
use open OUT => ":utf8";

open(IN1, "<data_in.txt");
open(OUT1, ">data_out.txt");

while(my $line = <IN1>){
chomp $line;
if($line eq "NonWord"){
print OUT1 "n\n";
}else{
print OUT1 "m\n";
}
}

close(IN1);
close(OUT1);

これが全貌です。
やはり、生のデータの方を扱っても１行目のNonWordに対してmと出るだけです。
つまり出力はm一文字しか出てない状態です

**nobodyさん** · 2009/06/19(金) 18:59:34

アスキーファイルじゃないのかよ
まずUTF-8のBOM付きファイルかどうか確認しろよ

**714** · 2009/06/19(金) 19:08:30

みなさん、本当にありがとうございました。
今ツレに言われたんですが
「その作業、エクセルでできんじゃね？」て言われて、やってみたらできちゃいました。
たくさん協力してもらったのに、ほんと、すいません。

**nobodyさん** · 2009/06/19(金) 19:10:25

全部ASCIIだからBOMが無ければutf8かどうかは関係ないな。
隠された部分が無ければの話だが。

**nobodyさん** · 2009/06/20(土) 04:13:04

このスレだけでも３人の質問者が IN1 と書いていて
全員初心者を自称しているわけだが(初心者質問スレだから当たり前ではあるが)、
すると恐らく、参考にした入門書・入門サイトも一緒なのだろう。
いったいどこが出自なんだろうな？

**nobodyさん** · 2009/06/20(土) 08:57:48

同一人物じゃねーの？

**nobodyさん** · 2009/06/20(土) 09:08:58

はじめは IN1 と OUT1 を open するところも書かないし
IN1 は5000行ばかしのファイルらしいしコードを見せたがらない
という入門サイトを参考にしてるんだろう

**nobodyさん** · 2009/06/20(土) 22:26:45

おなじ宿題だろ

**nobodyさん** · 2009/06/23(火) 11:24:34

>>738
それをコピペして動かしたけど、ちゃんと動くよ
まだ隠してるトコあんじゃね？
それかデータファイルそのものを、どこかにアップしてみてよ
データファイルを見ないと、もう解決できんよ

**nobodyさん** · 2009/06/24(水) 05:36:20

727で今日中にって言ってるだろ
もう終わった話なんだよ
落第すりゃいいのにね

**nobodyさん** · 2009/06/24(水) 09:31:28

宿題を2chで質問しちゃうような奴は、どの道向いてない

**nobodyさん** · 2009/06/24(水) 17:47:13

新しく環境を構築したんですけど、
以下のコードをApache2.2のlocalhostで実行すると
一度起動するたびに「てすと」と２回書き込みされてしまいます。
どうしてもコーディングにミスが見当たらないんですが
環境が悪いんでしょうか？
対処法ありましたら教えてください

#!/usr/bin/perl

use strict;
use encoding 'utf8',STDOUT=>'shift_jis';

open(ADD,">>",'./txt.txt') or die;
print ADD 'てすと'."\n";
close(ADD);

**nobodyさん** · 2009/06/24(水) 17:59:03

ＯＳが壊れてるね

**nobodyさん** · 2009/06/24(水) 18:01:30

>open(ADD,">>",'./txt.txt') or die;
open(ADD,">./txt.txt") or die;

これでもだめ？

**nobodyさん** · 2009/06/24(水) 18:07:19

>>751
そうすると何度実行しても一行だけになります。
普通ですねｗ

ブラウザのキャッシュ消したり、プロクシ見直したりしてもだめでした。
httpd.confにも異常なしです。
最近デュアルディスプレイにしたんですけど関係ないですよねぇ

**nobodyさん** · 2009/06/24(水) 18:22:10

まずログ見ろよ
２回リクエストされてればブラウザが悪さしてる
そうやって可能性を推測していけ、サルじゃなければできる

**nobodyさん** · 2009/06/24(水) 18:30:03

標準出力に何も吐いてないからブラウザには500が返るよね

**nobodyさん** · 2009/06/24(水) 18:48:09

>>753
Apacheのアクセスログも2重になってましたorz
3種類のブラウザで試しましたが同じでした。
どこら辺が悪いかわかるでしょうか？

>>754
そこら辺は省略してますが問題ない内容です。
ヘッダと少しのテキストをprintしてます。

**nobodyさん** · 2009/06/24(水) 18:49:50

じゃあabで１リクエストしたらどうよ

**nobodyさん** · 2009/06/24(水) 19:02:18

>>756
ab -n 1 -c 1 http...
'ab'は、内部コマンドまたは外部コマンド、
操作可能なプログラムまたはバッチファイルとして認識されていません。
o...rz

今更ですがerror.log見たら
utf8フラグをprintしてるとか書いてありました。
ダメなんですか

**nobodyさん** · 2009/06/24(水) 19:15:43

apache のディレクトリまで Path 通ってたっけ？

ab の Path をフルで指定しれ

**nobodyさん** · 2009/06/24(水) 19:16:47

とりあえず
use open ':encoding(utf8)';

lwp-requestはある？
バージョンが古いと別の名前だったような気がするけど。
lwp-request -USe http://localhost/
こんな感じで。

**nobodyさん** · 2009/06/24(水) 20:09:02

>>758
やってみたら理想通り動きました。

>>759
こちらも理想通り動きました。
それと、よくわかりませんが
200 ok
だそうです。

apacheとPerl,Ruby,PHP入ってたんですが一度全部消してみました。
で、同じバージョンで再インストールして
Perlの事だけ考えて設定してみましたが変化なしです。

何度もすいませんがどうすればいいんでしょうか？

**nobodyさん** · 2009/06/24(水) 20:37:38

>>760
レスポンスヘッダの時刻に注目して。オプション付けると出てくるから。
スクリプトに warn('hoehoe');　とか書いといて。実行される度にエラーログに載るから。
それと、apacheのアクセスログ。

どのリクエストが、どうスクリプトを動かして、どのレスポンス出してるのか、
タイムスタンプで照らし合わせて見て。
一致するならapacheに問題ないから。

**nobodyさん** · 2009/06/24(水) 20:39:58

解決しますた。
原因はその後のコードにありました。
全く関係ないと思ってたんですが
ヒアドキュメントで
print <<EOM;
ほにゃらら
<link rel="stylesheet" href="" type="text/css" />
ほげほげ
EOM

としてたんですが
上記のタグを削除したら直りました。
たぶんスタイルシートが読み込めなかったから
ブラウザが自動的にリロードしたんだとおもいます。
くだらないエラーですいません。ありがとうございました