トップページ⇒php
1001コメント328KB

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

■ このスレッドは過去ログ倉庫に格納されています
00019882005/12/08(木) 22:48:27ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

過去ログやお勧めサイトは >>2-10
0102nobodyさん2005/12/15(木) 12:17:37ID:???
my %count;
{
local *FH;
-f $file or die "No such file.\n";
open FH, '<' . $file or die $!;
while (<FH>) { ++$count{$_} for 「 (.*?) 」/g }
close FH;
}

if(5<$count{$_}){$bg="orange";}

print
header(-charset => $charset),
start_html(-encoding => $charset, -lang => 'ja'),
table(Tr([ map td({-bgcolor=>$bg},[ $_, $count{$_} ]), sort keys %count]) ),
end_html,

こんな感じで書きました。

>>100
for 「 (.*?) 」/gのほうは問題なく動作してます
0103nobodyさん2005/12/15(木) 13:38:24ID:???
>>102
while (<FH>) {...}を抜けた直後は$_はundefになってる筈なので、
そこで

if(5<$count{$_}){$bg="orange";}

などとやっても意味がない。

直し方としては、どれか一つでも5を超えたら全部色をかえたいのか
5を超えたやつだけ色を変えたいのかで違ってくるが、説明が不明瞭
なのでなんともいえんな。
0104nobodyさん2005/12/15(木) 13:49:29ID:tLuO4r1h
$string に以下の#1#の文が入っていたときに

$string =~ s/\r//;
$string =~ s/\n//;
という処理をしたら
出力したときに#2#の結果になります。
１行目は確かに文字列から改行が取り除かれていますが、
３、４行目は変わっていません。
すべてに対して改行を取り除く方法ってありますか？

# 1 ####################
お願いします
おねがいします

本当
おねがいします"
########################


# 2 ####################
お願いしますおねがいします

本当
おねがいします
########################

0105nobodyさん2005/12/15(木) 13:52:52ID:???
最近ほんと意味不明な質問が増えたな
0106nobodyさん2005/12/15(木) 13:55:39ID:???
$string =~ tr/\x0A\x0D//d;
0107nobodyさん2005/12/15(木) 13:59:42ID:???
お願いしますおねがいします本当おねがいします
0108nobodyさん2005/12/15(木) 14:01:43ID:tLuO4r1h
>>106
できました。
ありがとうございます！！！
0109nobodyさん2005/12/15(木) 14:10:23ID:???
>>103
できれば５区切りで色を変えたいと思ってます。
１０以上黄色、１５以上オレンジ、２０以上赤みたいな感じです。
お手数ですがお願いします。
0110nobodyさん2005/12/15(木) 14:15:52ID:???
丸投げすんなうんこ
0111nobodyさん2005/12/15(木) 14:29:41ID:???
>>109
perlをやりたいんじゃなくて、
特定の事だけをやりたいのなら、改造スレへどうぞ。
0112nobodyさん2005/12/15(木) 14:31:42ID:???
>111
わかりました。有難うございました。
0113nobodyさん2005/12/15(木) 15:19:56ID:tLuO4r1h
if ($form{'どのうようにして'} =~ /インターネット/){if ($csv) {$csv_data .= '1,';}}
else {if ($csv) {$csv_data .= '0,';}}

formから渡された「どのようにして」に”インターネット”というキーワードが入っていた
場合、１というデータをCSVファイルに挿入したいんですが、
どうやら、上の記述に間違いがあるみたいです。
記述ミスありますか？

0114nobodyさん2005/12/15(木) 15:23:56ID:???
Shift_JIS使ってるに１００００ペリカ
0115nobodyさん2005/12/15(木) 15:26:36ID:tLuO4r1h
>>114
使ってますねｗｗｗ
どうすればいいのかな？対処方法知ってたら教えてください
0116nobodyさん2005/12/15(木) 15:29:56ID:???
ちょっとは自分で調べような
/\Qインターネット\E/
http://perl.misty.ne.jp/meta.html
0117nobodyさん2005/12/15(木) 15:34:15ID:tLuO4r1h
>>116
サンクス。　htmlからフォーム渡すとき
この部分だけ　valueを　日本語から　数字に変えて渡したら上手くいったよ。
SHIFT　JISややこしいね。
0118本日＠挫折０％2005/12/15(木) 18:44:33ID:3wI62WI7
挫折より帰還しました
今後ともよろしこお願いします。
0119nobodyさん2005/12/15(木) 21:41:38ID:???
ここはコーディング初心者スレであって、Perl教室ではない。
0120nobodyさん2005/12/15(木) 22:02:39ID:???
そしてここは質問スレであって、今日のPerl日記スレじゃない。
0121nobodyさん2005/12/15(木) 22:26:35ID:???
=cut

はいはい、ここまでカット
0122俺の日記＠パールちゃん2005/12/15(木) 23:41:06ID:3wI62WI7
以下、俺の日記となります
0123nobodyさん2005/12/15(木) 23:46:19ID:???
ここまでｺﾒﾝﾄな

=cut
0124nobodyさん2005/12/16(金) 00:03:04ID:???
__END__

最強
0125nobodyさん2005/12/16(金) 01:21:20ID:???
EOF
0126nobodyさん2005/12/16(金) 03:05:21ID:???
^Z
0127nobodyさん2005/12/16(金) 05:31:09ID:nqW99XKP
だめだ。
ヒアドキュメント使うとソースが見づらいorz
0128nobodyさん2005/12/16(金) 10:52:03ID:???
# >>1に則った質問ほど答えてもらえる可能性がございます。

use strict;
0129nobodyさん2005/12/16(金) 18:01:05ID:???
elseifと書いたらエラーが出るのは、嫌がらせかなんかですか？
0130nobodyさん2005/12/16(金) 18:09:46ID:???
>>129
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perltrap.html#C_Traps
0131cbi-cgi/count/dayx.cgi?gif2005/12/16(金) 19:52:49ID:u8eearJF
$ip_check = 1
0132カウンター２日目2005/12/16(金) 19:58:13ID:u8eearJF
;上付け忘れた・・
.txtに変換
16<>1000<>2000<>3000<>fri<><>
0133nobodyさん2005/12/16(金) 21:22:32ID:Nkz0ct/3
リンクページにページ送り機能を追加するんですが、
その際リンクを、順番ではなくランダムで表示するようにしたいんです。

それぞれのページで、重複したリンクが表示されないようにしたいのですが、
具体的にどのようにコーディングすれば良いのでしょうか？
0134nobodyさん2005/12/16(金) 21:26:03ID:???
ランダムに配列から取り出した後、その要素をspliceで取り除く
0135nobodyさん2005/12/16(金) 21:30:13ID:???
それの繰り返し
0136nobodyさん2005/12/16(金) 21:43:16ID:Nkz0ct/3
表示するページをランダムに決めて、
それをパラメータとしてURLに含めるといった感じの処理でいいんでしょうか？
0137nobodyさん2005/12/17(土) 00:09:34ID:???
ﾍﾟｰｼﾞのﾅﾝﾊﾞｰを配列にでも突っ込んでｼｬｯﾌﾙして、
それを順番に出力すりゃいいんじゃね？
参考になるかわからんが、こんなんどうよ

@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];
　}
}
0138nobodyさん2005/12/17(土) 00:33:28ID:???
>>136
分からないのは
・リンクするページを混ぜる(シャッフルする)部分
・どうやってリンクするのか
のどっち？
0139nobodyさん2005/12/17(土) 11:47:28ID:???
>>138
下です。
0140nobodyさん2005/12/17(土) 18:08:47ID:???
1.テンプレートなどを利用して全てのページを動的に出力する
2.ページ移動用のスクリプトを用意して、ページ移動用のリンクに全部埋め込む
3.SSIを利用して、リンクの部分を別ファイルで用意する

一定時間ごとに混ぜるのなら3.でもいいけど、
訪問者ごとに違う順番を見せるのなら3.は向かない。
2が一番無難。

って答えでいいかしらん。
0141nobodyさん2005/12/17(土) 18:18:13ID:???
>>136の言いたいことがまだわからないのは俺だけだろうか
0142nobodyさん2005/12/17(土) 21:16:26ID:6Cij4iqn
ネット上でIDやパスワードなどの登録画面などで登録後に前のページに
戻ったりすると「有効期限切れ・・・・」という画面がでますが
そういう仕組みってどうすればいいんですか？
perlからすこしそれた質問かもしれませんが教えてもらえませんか？
0143 ◆TWARamEjuA NGNG
Expire:とかExpireとか
0144nobodyさん2005/12/17(土) 21:51:48ID:???
画像をアップロードしたいのですが
アップロードされたファイルの、保存される前のファイル名の取得方法をおしえてください。
おねがいします。
0145nobodyさん2005/12/17(土) 22:07:09ID:???
フォームからmultipart/form-dataでデータ飛ばして
観察してみろと。
0146nobodyさん2005/12/17(土) 23:16:57ID:???
それを聞いてるのでは？・・・
0147nobodyさん2005/12/18(日) 03:17:23ID:3ossMEQR
ページを戻ると
警告 : ページの有効期限切れ
が出ます。
少し調べてみたところ、入力フォームがあるとこうなるらしいですね。
入力フォームを残したまま、エラーを出させないようにすることは出来ないでしょうか？
よろしくお願いします。
0148nobodyさん2005/12/18(日) 05:12:35ID:7vISx30W
>>147
perlとは関係無いこと
外池
0149nobodyさん2005/12/18(日) 05:21:50ID:???
>>147
お前は五スレ前も見えないのか。
0150nobodyさん2005/12/18(日) 15:57:02ID:???
perlで,外部サイトへのリンク切れは
どのようにしてチェックできますか？
よろしくお願いします。
0151nobodyさん2005/12/18(日) 18:11:14ID:???
外部サイトってなんだよ
何がやりたいのか意味不明
01521502005/12/18(日) 18:22:15ID:???
意味不明でごめんなさい。
１万件のリンクをリンク切れかどうかチェックするスクリプトを作りたかったのですが、
何とか自力で作ることができました。

解決です。m(_ _)mぺこり
0153nobodyさん2005/12/18(日) 20:24:45ID:???
3時間かからないで作ったのかヨ。って、別人だろ
0154nobodyさん2005/12/18(日) 20:26:52ID:???
んなの５分もいらないだろ
0155nobodyさん2005/12/18(日) 22:42:45ID:???
>>148-149
無理なのか。期限切れにならないサイトもあったから操作可能なのかと。
サンクス。
0156nobodyさん2005/12/18(日) 23:12:38ID:7vISx30W
えくすぱいあ
以上。
>>155
文も読めないやつはマズは国語から学べよチンカスが
ほかいけや
0157nobodyさん2005/12/19(月) 00:33:37ID:???
素朴な疑問。
multipart/form-dataのときにもexpireヘッダって効いたっけ？
前にテストしたとき効かなかった(というよりはキャッシュのセキュリティで弾かれたっぽい)記憶があるんだけど？
0158nobodyさん2005/12/19(月) 00:53:51ID:???
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/
0159nobodyさん2005/12/19(月) 01:41:23ID:???
プロクシオミトロンが入ってたら無効なんだけどね。信用しすぎはイクナイ
0160nobodyさん2005/12/19(月) 01:42:18ID:???
「情報を再送信しないとページを更新できません」
という警告はブラウザの機能だから、サーバ側では操作できないと思うが。
これとは違うのだろうか。
0161nobodyさん2005/12/19(月) 01:57:53ID:mSKnbNI+
>>159
プロクソミトロン
0162nobodyさん2005/12/19(月) 10:37:15ID:???
基本的な質問で恐れ入ります。
rand関数についての質問ですが

$i = int(rand(100));
$i には、0 ～ 99 の乱数がセットされる

と、とあるサイトに説明されていたのですが、この例の場合100が
セットされることはあり得るんでしょうか?
int関数は小数部分を切り捨てて整数化するので100を返す場合は100.000…
以外ないと思うので確率的に考えて自分で実際にプログラム作って試して調べるのは
とてもじゃないですが無理だと思いますので、どなたか教えてください。
0163nobodyさん2005/12/19(月) 10:54:10ID:???
ありません。
perldocにあった気がしたけどURL忘れた
01641622005/12/19(月) 10:59:59ID:???
>>163
有り難うございました!!
乱数を使ってて、ふと気になったもので。
0165nobodyさん2005/12/19(月) 11:08:36ID:???
簡単に調べられるじゃん。

for (1 .. 1000000){
100 <= rand(100) and print "100 Over.\n";
}
0166nobodyさん2005/12/19(月) 11:14:46ID:???
( ﾟдﾟ)ﾎﾟｶｰﾝ
0167nobodyさん2005/12/19(月) 11:41:23ID:???
>>165
それじゃ証明できんだろ
というかrand(EXP)で0からEXP未満までの数をかえすと説明されてるし
0168nobodyさん2005/12/19(月) 15:14:31ID:nE/lruN5
質問です。
英語のフォームページを作っています。
htmlの中で
<html lang="en">と
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
として英語用にしています。

フォーム自体はきちんと動くのですが、届いたメールのタイトル（件名）が文字化けします。
「英語ページよりお問い合せ」が「英語ペ?[ジよりお問い??ｹ」になります。
英語ペ\ージよりお問い\合せとか英語\ペ\ー\ジよりお問\い\合\せなど試してみたのですが、うまくいきません。
jcode.plはcgiの中に読み込んでいますが、ページの内容が英語しかない場合は日本語を完全には使えないのでしょうか？
0169nobodyさん2005/12/19(月) 15:20:26ID:???
とりあえず
http://www.atmarkit.co.jp/fnetwork/rensai/netpro03/netpro01.html
ここの前編と後編読んでからもう一度来いや
01701682005/12/19(月) 16:02:23ID:???
>>169　ありがとうございます

■日本語はテキストではない？～テキストの送受信
を読んで、単純に
Content-Type: text/plain; charset="ISO-2022-JP"
を
Content-Type: text/plain; charset="SJIS"
に変えたらいいのかな、って思いましたがうまくいきませんでした。


http://www.atmarkit.co.jp/fnetwork/rensai/netpro04/netpro01.html
の●一般的なヘッダでの利用を読んで
subject:のところに=?ISO-2022-JP?B?と?=を入れて、
その間にタイトル（件名）として使う文章をbase64で変換した文字を入れました
ttp://phpspot.net/php/pgbase64%83G%83%93%83R%81%5B%83h%83c%81%5B%83%8B.html
は何故かうまくいかなかったので
ttp://www.vector.co.jp/soft/win95/util/se139646.html
でbase64に変換しました。

これでできました。ありがとうございました。
0171nobodyさん2005/12/19(月) 17:13:11ID:mSKnbNI+
rand は 0～99.99... まで
小数点以下がどれくらい続くかは知らない
0172 ◆TWARamEjuA NGNG
え？
0173nobodyさん2005/12/19(月) 19:55:13ID:???
み？
0174nobodyさん2005/12/19(月) 20:12:41ID:???
り？
0175nobodyさん2005/12/19(月) 22:15:36ID:M/zhZkxT
Perl暦数ヶ月の初心者です。
頑張ればPerl/CGIで簡単な掲示板を作れるかも、という程度でしょうか。

現在、HTML::Templateを使ってコーディングしています。
テンプレートファイル内から TMPL_VAR でパラメータを渡す時、

$template->param(
　　'PARAM_1' => $var { 'PARAM_1' } ,
　　'PARAM_2' => $var { 'PARAM_2' } ,
　　'PARAM_3' => $var { 'PARAM_3' } ,
);

というようにやるところを、
出来るだけ動的に行いたいと思っています。

テンプレートファイル内のパラメータ PARAM_XX に対し、
ハッシュ $var { 'PARAM_1' } の値を渡せるようにしたいのですが、
どのようにコーディングすれば良いでしょうか。


自分なりに、環境変数一覧を書き出すプログラムを参考にして

foreach my $key ( keys %var ) {
　$template->param ( $key => $var { $key } ) ;
}

と書いてみたのですが、値が渡された様子はありませんでした。

01761752005/12/19(月) 22:25:36ID:???
失礼。

誤：
ハッシュ $var { 'PARAM_1' } の値を渡せるようにしたいのですが、

正：
ハッシュ $var { 'PARAM_XX' } の値を渡せるようにしたいのですが、


それと、Perlのバージョンは5です。
0177nobodyさん2005/12/19(月) 22:46:36ID:???
それでわたるはずだが。思い違いじゃない?

% perl -e 'use HTML::Template; $t = HTML::Template->new(scalarref => \ "A=<TMPL_VAR NAME=A>\nB=<TMPL_VAR NAME=B>\n"); %h=(A=>"foo", B=>"bar"); foreach $k(keys %h){$t->param($k=>$h{$k});} print $t->output;'
A=foo
B=bar
0178 ◆TWARamEjuA NGNG
$template->param(map +($_, $var{$_}), map sprintf(qq|PARAM_%d|,$_), (0..XX));
(@_@)
0179nobodyさん2005/12/19(月) 23:18:48ID:???
おっかしーなー……



（１０分後）


変数名違ぇじゃん… orz


ご迷惑おかけしました。
俺の半日はなんだったんだ。
0180nobodyさん2005/12/19(月) 23:30:59ID:mSKnbNI+
ループでぶん回せばいいだけじゃん
0181nobodyさん2005/12/20(火) 00:11:38ID:???
m9(^Д^) ﾌﾟｷﾞｬｰ
0182nobodyさん2005/12/21(水) 09:34:15ID:m1/a3jED
リンク元を　取り出すためにはどうすればいいでしょうか？
0183nobodyさん2005/12/21(水) 09:53:57ID:m1/a3jED
$ENV{'HTTP_REFERER'} を使えばいいってことは分かるんだけど
流れとして


どっかリンク元→　a.html　→　b.cgi

ってかんじでaのフォームで変数をb.cgiに渡すってかんじなんだけど
b.cgiで$ENV{'HTTP_REFERER'}を使うと、a.htmlがリンク元として
表示されてしまいます。
どっかリンク元の環境変数を得るにはどうすればいいですか？
0184nobodyさん2005/12/21(水) 10:25:10ID:???
>>183
a.htmlをa.cgiにしてそこで取得する
どっかリンク元→　a.cgi　→　b.cgi

またはa.htmlでJavascript使って渡す
0185nobodyさん2005/12/21(水) 12:44:51ID:m1/a3jED
>>184
javascriptでも出来るんですか！？
0186nobodyさん2005/12/21(水) 14:50:11ID:kTJQiyq+
hogehoge配下の.txtファイルであれば全てpermissionを664にすると言うプログラムを作りたいと思います。

opendir DIR, "hogehoge" || die "cannot open";
@entry = readdir DIR;
foreach(@entry){
　opendir DIR, "$_";
　@entry = readdir DIR;
　if($_ =~ /.txt\z/){
　　$changemode = chmod 0664, "$_";
　}
}

と書いたのですが、
hogehogeの中にディレクトリがあった場合は。そのディレクトリの配下にあるディレクトリやファイルを更新しません。
hogehoge配下にあるディレクトリやファイル全てを読み込むようなプログラムを作るのにはどのようにしたらよいでしょうか？
0187nobodyさん2005/12/21(水) 15:24:50ID:???
>>186
再帰
0188nobodyさん2005/12/21(水) 16:13:34ID:???
>>186
楽してモジュール使えば？File::Findとか。
0189nobodyさん2005/12/21(水) 18:40:34ID:???
>>187-188
ありが㌧
結局Find使わずにやりました。
てか、作ってからFindに気がついたorz
0190nobodyさん2005/12/21(水) 18:47:58ID:???
質問させてください。
語尾が.htmlで終わるものを「処理」を行っているのですが、
.htmlだけでなく、.htm .jpg .gif も「処理」対象にしたい場合は
どのような正規表現を使ったらよいですか？

if($file =~ /.html\z/){
　処理
}
0191nobodyさん2005/12/21(水) 18:58:47ID:???
if ($file =~ /\.(html?|jpg|gif)) {
foo();
}
0192nobodyさん2005/12/21(水) 19:31:01ID:HAcTfIEX
ある本にperl5.8以降では、\p{Han}+ で漢字に一致すると
書いてるので、プログラムに
if($abc=~/\p{Han}/){　
を記述しているのですが漢字に一致しません。
$abcには漢字が含まれているのですが・・・
一致させるには、ほかに記述すべきことがあるんでしょうか？
0193nobodyさん2005/12/21(水) 20:03:06ID:???
>>191
ありがとう！
0194nobodyさん2005/12/21(水) 20:59:20ID:???
>191
つ/
0195nobodyさん2005/12/21(水) 21:04:57ID:???
>>192
decodeしてる？ $abcがEUCのままなんて事は無いよな？
0196nobodyさん2005/12/21(水) 21:37:38ID:ib12VQrv
JavaScript の replace() はリファラそのままスルーしたとおもった
0197nobodyさん2005/12/21(水) 21:41:14ID:???
>>191
つ$
01981922005/12/21(水) 21:45:01ID:HAcTfIEX
>>195
何もしてないのでeucそのまんまです。
「use encoding 'euc-jp';のように、
スクリプトに使っている文字コードを指定することで
\p{Han}+でEUCに正しく一致する」とだけ本には書いてあるので、
プログラムにuse encoding 'euc-jp'の一行を加えましたが、
一致しませんでした。
多分ものすごく基本的なことが理解できてないのだと思います。
もしかしてeucをUnicodeに変換しないとダメということなんでしょうか？
もしそうならその仕方を教えてもらえないでしょうか？
0199nobodyさん2005/12/21(水) 22:37:39ID:???
>>192
初めて知った機能だよ。

use encoding qw(euc-jp);
my $str = "漢字";
$str =~ /\p{Han}/ and print "true";

一応こんなでも通るけど。
0200nobodyさん2005/12/21(水) 23:02:05ID:???
>>198
shift-jisで書いちゃってるとか？
02011922005/12/22(木) 00:17:58ID:l+S0SPkv
というか
use encoding 'euc-jp'のところでエラーが発生してます
error.log見てわかりました。
Wide character in print at ....ってなってるんですが・・・・
なんでなんかな。perlは5.87なのにapche2.0やIE6では駄目とか？
■ このスレッドは過去ログ倉庫に格納されています