Perlコーディング初心者質問スレ Part 48
レス数が1000を超えています。これ以上書き込みはできません。
0001nobodyさん
2006/04/26(水) 18:00:50ID:RLbnve1J【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0967nobodyさん
2006/05/31(水) 03:58:55ID:8kzUocWY今書いたスクリプト見て
>@log_lines より先に、ソートする open_in_new(？) を呼べばいいとしか答えられないや。
のところをやろうとしたら、
#&open_in_new;
foreach $line(@log_lines){
@Slog=split(/<>/,$line);
&PRlog;
}
って、なってました^^; なるわけ無いですよね。。。
そこで、# を外してみたら。。。！！！
。。。やっぱり正確に表示されませんでしたToT
それどころか、登録してある部分が消えてました(оД〇;)マヂ?!
open_in_new の方で、ちゃんとlocal を使ったりしてないのがまずかったんですかねぇ。。。？？
0968nobodyさん
2006/05/31(水) 04:01:21ID:???0969nobodyさん
2006/05/31(水) 04:07:43ID:???orz
でも一度答えると責任ってのが発生してなかなか逃れられない罠。
>>964
いや、変わらないのはありえないなｗ
元が、157行目の、
@Slog=split(/<>/,$line);## $Slog[13] = 0_0_0_0, $Slog[2] = URL
@IN_count=(split(/_/,$Slog[13]))[2];
push(@data,{url => $Slog[2], IN_count => $IN_count});
だったので、 $IN_count は未定義で、IN_count => $IN_count には undef が設定されてたので、いままでソートがされていなかったはず。
それが、
$IN_count=(split(/_/,$Slog[13]))[2];
に直すことで $IN_count は定義されて、ソートができるようになったはず。
>>961 でソートされてない、っていってたけど、まだされてない？
もしソートできてないなら、 $IN_count の値が怪しいなｗ
本当に (split(/_/,$Slog[13]))[2]; で正しいのか確認してみて。
print $IN_count, $Slog[13], "\n"; とかやるなりして。
$array[2] は 「123-456-789」 でいえば 456 じゃなくて 789 だぞ？
0970nobodyさん
2006/05/31(水) 04:09:58ID:???0971nobodyさん
NGNG0972nobodyさん
2006/05/31(水) 04:11:20ID:???0973nobodyさん
2006/05/31(水) 04:13:14ID:???ニヤニヤしながら生温かい目で見守ることにする。
>>971
なんだか急に「お客さん」向けのスレに変わったなぁとは思う。
0974nobodyさん
2006/05/31(水) 04:18:09ID:???改造は改造スレでどぞ。
と、自治厨ぶるつもりはなく、むしろ「親切な人も居るんだなぁ」とROMってたんけどな。
この調子で続けられると荒れそうな気がしないでもなく。
で、他のROMは落としたスクリプトの著作権のとこ見てニヤニヤしてるんだろ？な？ｗ
0975nobodyさん
2006/05/31(水) 04:21:37ID:8kzUocWY迷惑ですよね。。すみません。
遅くまで付き合っていただいてありがとうございました！
とても親切な方でしたので、つい調子に乗ってしまいました。
ごめんなさいm(__)m
0976nobodyさん
2006/05/31(水) 04:22:33ID:???0977nobodyさん
2006/05/31(水) 04:23:09ID:???あと、178行目
push(@log_lines,$data[$j]);
↓
push(@log_lines,$data[$j]->{url});
で、
print $_->{url}, "<hr>\n"; html 165行目
↓
print $_, "<hr>\n";
にした方がいいような気がする。
0978976
2006/05/31(水) 04:26:11ID:???生IPもISP串もこうなったので、ほかの方お願いします...orz
0979nobodyさん
2006/05/31(水) 04:29:58ID:???よろ〜
>>975
いや、迷惑っていうか、なんていうか。
まぁ、動かして確認できるようにファイル一式同梱でもしてくれたら1レスで済んだんだけどね。
プログラムは、、、ほんと勉強するとしないとで雲泥の差だねｗ
勉強しないでやるとkentくらいで終わる気がする。
まぁがんばってちょ。
>>978
最近建てられたことないけどやってみるーｗ
0980nobodyさん
2006/05/31(水) 04:34:00ID:???まぁ、なんだ、著作権とかうるさく言う方じゃないけど、
ttp://yomi.pekori.to/yomi-search.shtml
の作者にも謝っとけ。
しかし、変なやつが１人でも居たら即効で晒されてただろうに
このスレは本当に生温かいｗ
>>979
よろ
0981nobodyさん
2006/05/31(水) 04:34:44ID:???Perlコーディング初心者質問スレ Part 49
http://pc8.2ch.net/test/read.cgi/php/1149017548/
テンプレ貼り終わるまで待ってｔ
0982976
2006/05/31(水) 04:39:05ID:???乙。IPレンジかぶってなくてよかった。
連投規制値知らないので（全部貼ってもだいじょぶ？）、無駄な投稿をここに投げてみる。
0983976
2006/05/31(水) 04:45:01ID:???0984nobodyさん
2006/05/31(水) 04:45:05ID:???もしかして過去ログって省略して倉庫だけでよかった？(；´Д｀)
誰か後2個だけよろしく orz
0989nobodyさん
NGNG二度と来んな
0991nobodyさん
2006/05/31(水) 05:38:29ID:???0992nobodyさん
2006/05/31(水) 06:06:41ID:???Content-Type: application/x-www-form-urlencodedで送らなければいけない場合に文字化けが発生します
具体的には日本語と書いてエスケープして渡した値が??{??になったりするものです
$str =~ s/([^\w ])/'%' . unpack('H2', $1)/eg;
$str=~ tr/ /+/;
ではだめなのでしょうか？
0993nobodyさん
NGNG0994nobodyさん
2006/05/31(水) 06:10:37ID:???文字コードはどれかに決め打ちされてるの？
どっかでEncode.pmなり何なりを使わなきゃいけない仕組みになってない？
0995nobodyさん
2006/05/31(水) 06:14:14ID:???いま、POST先のページを見てきたら charset=euc-jpとなっていました。プログラム側の文字コードは決めてないです。
POST先のページがeuc-jpだとEncode.pmを使わなければいけないのでしょうか？
0996nobodyさん
2006/05/31(水) 06:20:16ID:???「日本語」が
・%C6%FC%CB%DC%B8%EC
・%93%FA%96%7B%8C%EA
・%E6%97%A5%E6%9C%AC%E8%AA%9E
どれになってるのかも、そこからどうしたいのかもわからんので何とも言えません。
0997nobodyさん
2006/05/31(水) 06:23:03ID:???%93%fa%96%7b%8c%eaとなっています。情報が小出しですいませんでした。どの情報を書けばいいのかすらわからなかったもので…
0998nobodyさん
2006/05/31(水) 06:27:29ID:???どこまで小出しが続くのかもわからんので、
それ（>>996の2つめ）はShift_JISですよー、とだけ言い残して落ちよう。
がんばれ。
0999nobodyさん
NGNG1000nobodyさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。