【Perl】初心者コーナー Part13
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/05/30 13:06ID:R2kt1mTx1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIの質問は【CGIだけど、なんか質問ある？ part 6】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0589578=583
02/07/04 13:21ID:???i-modeではJavaScriptが使えないんです
>>584
漏れのスキルでは妥当な線ですね
>>588
なんだか使えそうな・・・それ調べてみます
みなさん有難うございます
0590nobodyさん
02/07/04 13:43ID:???吐く端末もあるけど少数だし。Ezwebはやろうと思えば出来たような気が
しないでもない。携帯端末で普通にREFERER吐くのはドットiだけだった
と思う。
0591578=583 =589
02/07/04 14:30ID:???なるほど、HTTP_REFERERも無理ですか、
「バックボタンで戻ってください」と書く方向にします。
0593nobodyさん
02/07/04 14:35ID:???おれだったら3番目を選びます。
しかし>>587が気になる。なんだろう…。そういや"..."演算子ってあるのよね。
0596585
02/07/04 20:34ID:???すいませんがもっと詳しく書いていただけると
ありがたいです。
>>592
この中では3番目が一番効率よさそうですが
人のソースのもろコピペになってしまうので
あんまり使いたく有りません
別の方法があったらぜひ教えてください
0597nobodyさん
02/07/04 21:18ID:???こんなのはどうすか。586の最後のやつと同じだけど、ややすっきり。
my @arrays = (\@top, \@middle, \@bottom);
my $i = 0;
while (<FH>) {
$i++ if /<!---->/;
push @{$arrays[$i]}, $_;
}
0599nobodyさん
02/07/04 21:42ID:gX+umWUsif ($name eq "りんご") {$img = apple ;}
0600nobodyさん
02/07/04 21:46ID:zS7n4jKKif ($name eq "りんご") {$img = "apple" ;}
0601nobodyさん
02/07/04 21:58ID:gX+umWUsありがとうございました。
0602585
02/07/04 22:05ID:???同じことをするプログラムで
処理まで一緒だとパクリになるので
別の方法は無いかと思って
同じカテゴリーのプログラムが
少ないので同じものを使うと
すぐ分かってしまいます
この処理のやり方が肝になっているので
0604nobodyさん
02/07/04 22:16ID:???書き方変えても処理同じにするんだからきみの嫌うパクリになるんじゃないか？
パクリが嫌ならソースを教えてもらう前に自分で勉強しろ。
0605nobodyさん
02/07/04 22:37ID:ru7/Ktroすみません、うまく説明できないのですが宜しくお願いします。
0606nobodyさん
02/07/04 22:38ID:???0607585
02/07/04 22:49ID:???603は考えて下さった御礼という意味です
ちなみに私は
出てくるものは同じでも、実装方法がちがったら良いのじゃないか
と思っています。
全く同じものを作っても面白みが無いので、+αはしますが
（商業関係は別です特許が絡んでくるし）
0609nobodyさん
02/07/04 22:53ID:gX+umWUs0610nobodyさん
02/07/04 22:55ID:???0611nobodyさん
02/07/04 22:56ID:gX+umWUs0612nobodyさん
02/07/04 22:57ID:GRf17RXg<A HREF="tel:$tel">$tel</A> があるんですが、
Phone to機能のない方だけに、cgiをくっつけたいんですが、
$myd = "http://www.○○○.co.jp/";
if ($myd =~ /<A HREF=\"/) {
$myd =~ s/(\<A HREF=\")(tel:)/moji($1.$2)/eg;
}
moji($1.$2) {
if (!$2) {
$myd =~ s/(\<A HREF=\")/$1test0701_2.cgi?$query/ g;
}
}
print $myd;
うまく切り分けられません 泣)
0613nobodyさん
02/07/04 23:01ID:???Ans ↓の前にカーソルを移動させ[Delete]キーで改行が外れます
0614nobodyさん
02/07/04 23:02ID:gX+umWUsそうじゃなくて、プログラムの中で実行したいのですが･･･。
0616nobodyさん
02/07/04 23:08ID:gX+umWUsすみません
0617nobodyさん
02/07/04 23:13ID:???0619nobodyさん
02/07/04 23:18ID:gX+umWUsif ($name eq "千葉" or "神奈川" or "東京")
0620578=583 =589
02/07/04 23:19ID:???すみません、気付けません（鬱
教えて下さい
0621nobodyさん
02/07/04 23:19ID:???0622nobodyさん
02/07/04 23:23ID:gX+umWUs何度もすみません。ありがとうございました。
0623nobodyさん
02/07/04 23:27ID:???0625nobodyさん
02/07/04 23:30ID:???http://pc.2ch.net/test/read.cgi/php/1019487717/87-
0626nobodyさん
02/07/04 23:46ID:???+ JavaScript の質問用スレッド vol.10 +
http://pc.2ch.net/test/read.cgi/hp/1022077876/l50
「何」にマウスが乗ると音がなるのかも言って聞いてみて・・・
「タグ」と言っている時点で怒られる怖れもあるから
1>>をよく読んでから質問してね。
0627nobodyさん
02/07/05 01:00ID:???もう解決してるみたいだけど、orと||の優先順位に違いを考慮して
if ($name eq "千葉" || "神奈川" || "東京")
こうだと大丈夫だと思うよ。
ヴァカ
0633長文
02/07/05 06:14ID:xwCvs6jwフォルダの中に、
「番号」「単語」「単語の解説」の入ったデータファイルがいくつかあります。
そのデータファイルをまとめる親データを作りたいです。
親データには、
単語に対応する番号を単語を辞書的にソートしたものを入れたいです。
具体的には
ファイル１→01 モナー 「オマエモナー」
ファイル２→02 ギコ 「逝ってよし」
ファイル３→03 ジサクジエン 「ｲｲ!」
親データ→02 03 01
みたいな感じです。分かりづらいでしょうか、、
長文すぎたようなので分割します；
0634長文２
02/07/05 06:15ID:xwCvs6jw$cufld = './';
opendir(DIR, $cufld) or die;
@file1 = sort readdir(DIR);
closedir(DIR);
で、フォルダの中のファイルをリストアップして
foreach (@files) {
で、ファイルをひとつひとつ開いて
open(IN,"$_");
$data = <IN>;
close (IN);
($ind,$word) = split(/\t/, $data);
push (@word , $word);
$NO{$word} = $ind;
}
foreach (sort { $a cmp $b } @word){
print "$NO{$_}\t";
}
という風に出力したかったんですが、
3：それだとこんなエラーが出て上手く行かなかった。
なんだかopendir〜の所で止まってしまいます。
ディレクトリのパーミッションは777にしてるんですが
他にこうやった方が、とか根本的にここが間違ってる、とか
いうところがあったら指摘お願いします。
0635nobodyさん
02/07/05 06:21ID:???@file1を表示してみれば分かるんだけど、opendir() は実際のファイルのほかに
「. (カレントディレクトリ)」「.. (ひとつ上のディレクトリ)」も含まれる。
なのでgrepでもかけて実際のファイルだけ取り出してやらないといけない。
っていうか @file1 と @files って・・書き間違い？ （@file1 = @files ？）
0636nobodyさん
02/07/05 06:25ID:???0637長文
02/07/05 07:22ID:xwCvs6jw@file1は写し間違いでした。すみません
grep、調べてみました。頭に入れときます。
>>636
そうですね、自身も含まれちゃうんで
ファイル名ではじこうと思います。
でも、@filesを表示する以前に
opendir()でdieしてるみたいなんですが……
ローカルでも、アップした状態でもやってみましたが
結果は同じでした。
環境によっては使えないとか、そういうことってあるんでしょうか。
サーバはxreaを使ってます。ローカルではMacのWEB共有です。
0638長文
02/07/05 07:24ID:xwCvs6jwこんな時間にありがとうございますです。
0639nobodyさん
02/07/05 07:26ID:q2MOJvqj$line = join('',@lines);
$line = s/***/****/g;
for (0 .. $#lines) {
my($tmp) = $lines[$_];
$tmp = s/***/****/g;
$line .= $tmp;
}
どちらが最適か教えて下さい。
（元のデータは残しておく）
0640japh ◆J.5V8ta6
02/07/05 08:30ID:???Benchmark使ってみろ。
そうすればどっちを使うべきかは一目瞭然。
#!/usr/bin/perl -w
use Benchmark;
use IO::File;
my @lines = IO::File->new(__FILE__)->getlines;
timethese 100000 => {
1 => sub{
my $line;
$line = join('',@lines);
$line =~ s/$/:/g;
},
2 => sub{
my $line;
for (0 .. $#lines) {
my($tmp) = $lines[$_];
$tmp = s/$/:/g;
$line .= $tmp;
}
},
};
0641
02/07/05 12:27ID:L0bSs9Akmod_perl用のディレクトリ以下にあるファイルは全てCGIとして使われちゃうと聞きました。
他のディレクトリに画像を移そうかとも考えましたが、スクリプトの修正個所が多くて大変なんです。
Apacheのhttpd.confの設定とかで利用できる用に出来ませんか？
0642nobodyさん
02/07/05 14:44ID:???できるよ。perldoc cgi_to_mod_perl読め。
あとは下記スレで。
[mod_perlを使おう！]
http://pc.2ch.net/test/read.cgi/php/1005122528/l50
0643nobodyさん
02/07/05 19:28ID:???できるならやり方を教えて下さい。
0644nobodyさん
02/07/05 19:35ID:???opendirとreaddirを使う。
使い方は自分で調べてみよう。
0645nobodyさん
02/07/05 19:36ID:???@readlist = readdir(DIR);
closedir(DIR);
ただ、 . と .. も入るから注意。って、他にもあったな、やりかた。
0646nobodyさん
02/07/05 20:25ID:???@readlist = grep ! /^\.\.?$/, readdir(DIR);
closedir(DIR);
0647nobodyさん
02/07/05 21:05ID:???{
my @dir;
opendir( DIR, $_[0] ) || return 0;
@dir = grep( !/^\.\.?$/, readdir( DIR ) );
closedir( DIR );
foreach ( @dir ) {
if ( -d "$_[0]$_\/" ) {
push( @all, "$_[0]$_\/" );
&filescan( "$_[0]$_\/" );
}
else {
push( @all, "$_[0]$_" );
#print "$_[0]$_\n";
}
}
return 1;
}
0648nobodyさん
02/07/05 23:25ID:St7kmpIx{
}
とかくバカは死ね
0649nobodyさん
02/07/05 23:26ID:???@readlist = readdir(DIR);
closedir(DIR);
splice(@readlist, 0, 2);
0650nobodyさん
02/07/05 23:49ID:???@readlist = <*>;
を愛用してる。こっちは逆にドットファイルが出てこないけど。
0651nobodyさん
02/07/06 01:52ID:???http://pc.2ch.net/test/read.cgi/php/1024741312/71-
0652nobodyさん
02/07/06 05:36ID:???0653nobodyさん
02/07/06 10:20ID:???アナル → <*>
0654643
02/07/06 13:09ID:???ファイルの取得ができました。
さらに、この配列を、最終更新日時順にソートする、、なんてことはできますか？
よろしくお願いします。。
0656Saru
02/07/06 13:21ID:CFBQ9es6どのようにかいたらいいんでしょうか？
今は
s/[0-9]{2}//g;と書いてます。
１桁の数字は残しておきたいんですが…。
どなたかヒントでもよいので教えてください。お願いします。
0657nobodyさん
02/07/06 14:01ID:???0658Saru
02/07/06 14:16ID:CFBQ9es6困っていたのでとても助かりました。
どうもありがとうございます！
0659nobodyさん
02/07/06 14:32ID:???0660nobodyさん
02/07/06 14:54ID:???今クリック数をカウントするCGIを作ってるのですが、
クライアントから送られてくるデータが
id=1&url=http://www.***.com/
だったばあい、
$idの中身を1に
$urlの中身をhttp://www.***.com/
にしたいのですが、今は
$data = $ENV{'QUERY_STRING'};
@data = split(/\&/,$data);
$id = $data[0];
$url = $data[1];
%id = split(/\=/,$id);
%url = split(/\=/,$url);
となんとも効率が悪いやり方なのですが自分の知識ではこのようにしか
やり方が分からないのですがもっといいやり方は無いでしょうか？
それともし$dataに「&と=」が無かった場合はexitで終了させたいのですが
どのように調べればいいのでしょうか？
よろしくお願いします。
0661nobodyさん
02/07/06 15:02ID:???$buffer = $ENV{'QUERY_STRING'};
if (($buffer !~/&/ )&&($buffer !~/=/){exit;}
local(@pairs) = split(/&/,$buffer);
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}
0662nobodyさん
02/07/06 15:03ID:???0663nobodyさん
02/07/06 15:12ID:???$FORM{$name} = $value;
これは%FORMというハッシュの中にkeyが$nameでvalueが$valueというのを
代入してる処理なんでしょうか？
0664nobodyさん
02/07/06 15:17ID:???この処理で、
id=1&url=http://www.***.com/ を
id=1 url=http://www.***.com/ に分割し（@pairsに）
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}
で それらをさらに分ける。
$FORM{$name} = $value;
は
$FORM{id} = 1;
$FORM{url} = http://www.***.com/;
になるから%FORMに入れられる。あとはこれらを自由に処理するだけ。
0665nobodyさん
02/07/06 15:20ID:???なるほど。理解できました。ありがとうございます。
ちなみにローカル変数はサブルーチン内で使うものでわなかったでしょうか？
サブルーチン化したほうがいいのでしょうか？
0666Saru
02/07/06 15:21ID:CFBQ9es6こちらは２桁ともに削除できるんですね。
勉強になります…！ありがとうございます。
0667nobodyさん
02/07/06 15:22ID:???split(/=/,$pair);
これは
=の前に\を入れてエスケープするんですよね？
0668nobodyさん
02/07/06 15:31ID:???たいていはサブルーチン化して、GETもPOSTも対応してる。
local($pair,$buffer);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
local(@pairs) = split(/&/,$buffer);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}
0669nobodyさん
02/07/06 16:42ID:up0NZwlmこれを 600 で生成されるようにするにはどうすればよいでしょうか？
CGIはユーザー権限で動いています。
おながいします。
0670nobodyさん
02/07/06 16:45ID:???0672nobodyさん
02/07/06 16:51ID:up0NZwlmumask関数ですね。検索して調べてみます。
0674nobodyさん
02/07/06 17:42ID:stglrVc7openよりはセキュアかもだしな。
0677nobodyさん
02/07/06 21:50ID:pjFxin79どのようにすればよいでしょうか？
0678nobodyさん
02/07/06 21:53ID:???`C:\Program Files\Internet Explorer\IEXPLORE.EXE`
0679nobodyさん
02/07/06 23:30ID:Jm7Ff5yb0680nobodyさん
02/07/06 23:31ID:???0681nobodyさん
02/07/07 01:52ID:iHDNP1fk★の部分の書き方がわかりません。（ぺこり）
他も間違いありましたら教えて下さい。
-------------------------------------
functuon myfun{
P=document.F.E1.value+document.F.E2.value+document.F.E3.value;
T=0;
for(i=0;i<P.length;i++){T=T+eval(P.charAt(i))}
if((T==11)||(T==22)){document.F.E4.value=hoge[T]}
else{while(T>=10){T=T-9;}
document.write(hoge[T])
}
-----------------------------------------
foreach $data ( @buf ){
( $name , $value ) = split( /=/ , $data );
$FORM{$name} = $value;
@list = values %FORM
};
$P = $list[0]+$list[1]+$list[2];
$T = 0;
for($i=0; $i<★; $i++){$T=$T+★($i)};
if(($T==11) || ($T==22)){$list[4]=hoge[$T];}
else{while($T>=10){$T=$T-9;}}
print "hoge[$T]";
0683681
02/07/07 02:18ID:iHDNP1fk整数
document.F.E1.value
document.F.E2.value
document.F.E3.value
計算をするための作業用の変数
P
T
Pのlengthを取得するためのカウンター用の変数
i
他のはformに入力された値を取得するための変数です
0684nobodyさん
02/07/07 02:32ID:???for($i=0; $i<★; $i++){$T=$T+★($i)};
↓
for($i=0;$i<length($P);$i++){$T=$T+substr($P,$i,1)}
0686nobodyさん
02/07/07 12:56ID:xpVArwn6データの受け渡しをするプログラムを作っているんですが、
他のURLへジャンプさせるときに、
<A HREF="http://***/CGIスクリプト名?ジャンプ先URL">ジャンプ</A>
としたいんですが、ジャンプ先URLをフルパスで出せるようにするには
どうしたらいいですか?以下がつくった内容です。
my($encoding) = @_;
my($method) = $ENV{'REQUEST_METHOD'};
if ($method eq 'GET') { $query = $ENV{'QUERY_STRING'}; }
elsif ($method eq 'POST') { read(STDIN, $query,
$ENV{'CONTENT_LENGTH'}); }
local(@query) = split(/&/, $query);
foreach (@query) {
tr/+/ /;
($key, $val) = split(/=/);
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/\r\n/\n/g;
$in{$key} = $val;
}
my $req = new HTTP::Request POST => $val;
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
my $res = $ua->request($req);
if ($res->is_success) {
$myd = $res->content;
$myd =~ s/(\<A HREF=\")/$1test.cgi?/g;
print $myd;
} else {
print "No!";
}
今の状態ですと、
$myd =~ s/(\<A HREF=\")/$1test.cgi?/g;
をやると、
<A HREF=test.cgi?test/index.html> というような感じになって
<A HREF=test.cgi?http://www.***.co.jp/test/index.html>;
というような形になりません。
■ このスレッドは過去ログ倉庫に格納されています