Perl 初心者コーナー Part23
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
03/05/16 11:18ID:zDRBc/j4【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 10
http://pc2.2ch.net/test/read.cgi/php/1048686475/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
CGIに依存しないPerlの話題一般/Part2
http://pc2.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0867nobodyさん
03/06/05 02:52ID:???プログラマ板のデスマーチ大作フラッシュを見て泣いてくれ。
スレに関係ないのでsage
0868nobodyさん
03/06/05 02:57ID:ECImrkCL全く同感。
俺も最初は他人の物に手加える方が楽かと思ってたが、
あるキッカケで丸ごと自作のを書いたら、そっちの方が
楽だったし、何よりも頭に入った。
おかげで、他人のスクリプト見ても理解する能力も格段に進歩したし。
他人のもんいじるって言うのは、工数自体は少ないから
楽に感じるかもしれないけど、実はあまり足しにならないし、
いつまでたっても初心者になり続ける罠。
0869868
03/06/05 03:00ID:ECImrkCL方が全然疲れるし難しいと思うよ。まーそりゃ予めいじられるのを
前提としたフラグとかある部分に関してはそんなことないけど。
それに単機能の掲示板作るのって全く難易度高くも何ともないと思うんだけど。
それすら酷って言う奴は…
初心者と認められるにはワンライナー限定っすか？
0870_
03/06/05 03:03ID:???0871nobodyさん
03/06/05 03:04ID:???がしかし、クラスやらインスタンス、淫ヘリ箪笥・・・ちーっとも理解できていません（つД｀）
movem.l d0-d7/a0-a6,-(sp)
の頃が懐かしい、、、
0872直リン
03/06/05 03:10ID:C/yWLjzO0873nobodyさん
03/06/05 03:10ID:???あぁ、わかります。
フォーム内容のデコードとか画像アップロードする際の
--------- ←こんなのの除去とか、
「プログラミング言語」とは直接関係の無いことかもしれないけど、
知ってると知ってないじゃ全然違うし知ってなきゃいけないことだし。
俺が初めて買った「Perl/CGI入門」系の本も、
ccgi-lib.plとjcode.plを使えと書いてあったけど、
アレを読んでも何が行われているのかは全くわからないな。
「動けばいい、内部構造など知らん」ってのは
プログラマの立場としてはあんまり良くない態度だわなぁ。
0874nobodyさん
03/06/05 07:30ID:UTEewkkCベクターなどで探してもコマンドラインを使って操作するようなアプリしかなかったのですが、
誰でも操作できるようにコマンドラインを使わないで
クライアントアプリを簡単に作る方法はないのでしょうか？
0875nobodyさん
03/06/05 07:52ID:l4KCIFT80876_
03/06/05 09:06ID:???0877動画直リン
03/06/05 09:10ID:C/yWLjzO0879_
03/06/05 12:06ID:???0881_
03/06/05 14:10ID:???0882nobodyさん
03/06/05 15:51ID:62PtIZ8T希望の暗号化文字を引っ張り出すような関数は
誰か作ってないのでしょうか？
0884nobodyさん
03/06/05 16:23ID:uDBKSvvR0885nobodyさん
03/06/05 18:36ID:???そもそも、アルゴリズムは公開されてるんだし…
そもそも、概出だし…
0886nobodyさん
03/06/05 19:03ID:y1a1B1oZ0888nobodyさん
03/06/05 19:21ID:???<input type="text" name="comment" size="30"> //←メッセージ（たんなる例です）
<input type="submit" name="submit" value="送信する">
これで、admin.cgiにデータ送って、
readparseして、
そして、パスワード認証を済まして、実際にログファイルに記述、というCGIをつくりたいのですが、
html→データに書き込み。すると大丈夫なんですが
html→パス認証→データに書き込み。だと
↑ここでフォームのデータが送られないんですが、どうすればいいでしょうか？
0889nobodyさん
03/06/05 19:25ID:???0890nobodyさん
03/06/05 19:34ID:???perlのことはPerlスレじゃないの？
0891nobodyさん
03/06/05 19:37ID:???0892nobodyさん
03/06/05 19:37ID:???そもそも>888はたまたまPerlを使ってるのかもしれないが、その質問自体は、
Perlに限られた話じゃないから、CGIスレ向けということ。
0893nobodyさん
03/06/05 19:37ID:???0894nobodyさん
03/06/05 19:40ID:???いかんだろう。
アルゴリズムまで許容するとなれば、>>888のような質問もアリでは。
0895nobodyさん
03/06/05 19:44ID:Dbz7wb1chttp://endou.kir.jp/betu/linkvp/linkvp.html
http://angelers.free-city.net/page003.html
0896nobodyさん
03/06/05 19:46ID:???えぇと、ソースといわれると、300行以上ありまして、
ファイルの作成、編集などのツールです。（ログファイルにというのは、簡単なたとえのつもりです。
要するにフォームのデータをパスワード画面を通して（1回余分な部分を通過して）送るにはどうすれば？ということが聞きたかったんです。）
できあがってるんですが、それにパスワードをつけないと危ないので、つけようとおもっているんです。
とりあえず、新規作成の時のhtmlのソースと、
作成のときのcgiのところをさらしますね。
パスワードとかはまったく手をつけてないじょうたいです。
0897nobodyさん
03/06/05 19:47ID:???<title>編集ツール</title></head>
<body>
<br>
<font size="3" color="#97cdee" face="富士ポップ">ファイルツール</font>
<br><br><font size="2">ファイルを新規作成します。</font>
<form method="post" action="admin.cgi">
<input type="hidden" name="s_mode" value="new">
<br><input type="hidden" name="s_type" value="file">
<table border="0"><tr><td>
<font size=2>名前</font></td>
<td><input type="text" name="name" rows="1" size="55"></td></tr> ///←ファイル名
<tr><td><font size="2">本文</font></td>
<td><textarea name="body" rows="22" cols="58"></textarea></td></tr></table> ///←本文
<input type="submit" name="submit" value="送信する" style="30px">
<input type="reset" name="reset" value="リセット" style="30px">
</body>
</html>
0898nobodyさん
03/06/05 19:48ID:???888を見ただけじゃ、readparseって文字見て
恐らくPerlかな、としか分からないだろ。
Rubyかもしれないじゃないか。
ところで、パス認証って、CGIの中でやるやつか？
それともサーバ自体の機能かな？
0900nobodyさん
03/06/05 19:50ID:???require "./cgi-lib.pl";
&ReadParse(*in);
$name = "$in{'name'}";
$parmission = "$in{'parmission'}";
$oldname = "$in{'old_name'}";
$mode = "$in{'s_mode'}";
$body = "$in{'body'}";
$type = "$in{'s_type'}";
if ($type eq "file"){ ///大元で、ファイルの操作か、ディレクトリの操作かを区別
if ($mode eq "new"){ ///新規作成の場合
if ($name eq""){¬_file;}
else{
if (-e $name){&uwagaki_file;}
else{
open(FILE,"> $name");
print(FILE $body);
close(FILE);
print "Content-Type: text/html\n\n";
print "<html><head>\n";
print "<title>ファイル作成完了</title>$style</head>\n";
print "<body>\n";
print "<br><br><center><font size=2>ファイル($name)作成完了しました。</font><br><br>\n";
}}}
0901nobodyさん
03/06/05 19:55ID:???&uwagai_fileは上書き時のメッセージです。
&uwagaki_fileには、open(FILE >$nameなども入っていて、上書きしし、「上書きしました」というメッセージを出す、サブルーチンです。
>>899
えぇと、htmlは省略してしまいましたが、
ファイル、ディレクトリのラジオボタン
新規作成、削除、編集、コピー、属性変更のラジオボタンがり、すべてできるようになっています。
（cgiでhtmlを出力していますが・・）
ですので、submitボタンを押した後に、パスワードの入力をもとめる、ってことがしたいのです。。。
0903nobodyさん
03/06/05 19:57ID:???なんでsubmitボタンを押してから入力させたいの？
一緒に入力させればいいのに・・・・
ちなみに最初の画面で入力したものをパスワード入力画面では隠しフィールドにでもすればOK
Perlとなんの関係もないね・・・
0904nobodyさん
03/06/05 20:00ID:???> submitボタンを押した後に、パスワードの入力をもとめる、ってことがしたいのです。。。
一度クライアントにフォームデータを全部hiddenで返して、再度passとともにｃｇｉに送るしかないのでは？
0905nobodyさん
03/06/05 20:01ID:???これって、入力画面では、>>897のが送られた場合、
&ReadParse(*in);
$name = "$in{'name'}";
$body = "$in{'body'}";
<input type="hidden" name="name" value="$name">
ってことでしょうか？
0906nobodyさん
03/06/05 20:01ID:???0907nobodyさん
03/06/05 20:02ID:???やっぱりhiddenで送るしかないんですね。。。
>>903さんのおっしゃるとおりパスワードを一緒に入力させればいい話でしたね。。。
0908nobodyさん
03/06/05 20:03ID:???俺フォームメールでこれやって挫折したような覚えがあります。。
ここの住人の方が言ってくれるからにはできるんでしょう。
がんばってみます。。。
でも、一緒に入力するほうが、使用する側としても気分がいいですよね・
0909nobodyさん
03/06/05 20:08ID:???0910nobodyさん
03/06/05 20:09ID:???0911nobodyさん
03/06/05 20:24ID:???0912nobodyさん
03/06/05 20:31ID:???0913nobodyさん
03/06/05 22:10ID:mI0dWPG1aとbという名前のティレクトリを子に持つディレクトリ内で
@dir = grep { -d } readdir( DIR );
とすると . と .. が入り
@dir = readdir( DIR );
とすると . と .. と a と b が入り、ディレクトリである a や b に
大して偽を返してしまうのですがなぜ a や bで-dは偽を返してくるのでしょうか？
0914nobodyさん
03/06/05 22:11ID:???0915_
03/06/05 22:17ID:???0917nobodyさん
03/06/06 05:22ID:???おそらく、readdir() で読み込んでるディレクトリと、-d した時点で参照してるディレクトリ
（カレントディレクトリ）が異なってるせいかと。
-d のときにフルパスでチェックするようにしてみては。
0918nobodyさん
03/06/06 16:56ID:???require "cgi-lib.pl";
&ReadParse(*in);
$name = "$in{'name'}";
$check = "$in{'check'}";
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n<title>文法チェッカー</title>\n</head>\n";
print "<body>\n";
print "<form method=post action=checker.cgi>
print "<input type=name name=>ファイル名<br>
print "<input type=submit name=submit value=チェック>
print "<input type=hidden name=check value=check>\n";
print "</body>\n</html>\n";
if($check eq "check"){
open(FILE ,"$name");
@data = <FILE>;
eval{
foreach(@data){print;} ///←ここは作成途中なのであしからず
};
0919918
03/06/06 17:00ID:???print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n<title>文法エラーです</title>\n</head>\n";
print "<body>\n";
print "@data\n";
print "</body>\n</html>\n";
}
else{
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n<title>文法OKです</title>\n</head>\n";
print "<body>\n";
print "OKです。\n";
print "</body>\n</html>\n";
}}
ってすると、ボックスにファイル名入れた後、
表示されるのがはじめのと、ifの分岐後のとが複合してしまうんです。
___________
| |
___________ ファイル名
チェック Content-type: text/html OKです。
↑雑ですいませんが、こういうことです。
if($check eq "check")の下全部をifでかこって、
はじめの文法チェッカーのところをelseですればできるんですが、こんなかっこ悪いことしてるのがみあたりません。
html出力の重複を避けるにはどうしたらいいですか？
0921nobodyさん
03/06/06 20:43ID:???file_check.htmlの内容。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>文法チェッカー</title>
</head>
<body>
<form method="post" action="checker.cgi">
<input type="text" name="">ファイル名<br>
<input type="submit" name="submit" value="チェック">
<input type="hidden" name="check" value="check">
</body>
</html>
とする。
0922nobodyさん
03/06/06 20:44ID:???#!/usr/bin/perl
require "cgi-lib.pl";
&ReadParse(*in);
$name = "$in{'name'}";
$check = "$in{'check'}";
if($check eq "check"){ open(FILE ,"$name"); @data = <FILE>;
eval{ foreach(@data){print;} } # ///←ここは作成途中なのであしからず
$html = <<"EOS";
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>%s</title>
</head>
<body>
%s
</body>
</html>
EOS
if($@){ print sprintf($html,'文法エラーです',@data); }
else { print sprintf($html,'文法OKです','OKです。'); }
}
exit;
0923nobodyさん
03/06/06 20:51ID:???method が GET のときは、921 を出力して終了。
method が POST のときは、922 を実行して終了。
になるように振り分ける。
・・・など。
0924nobodyさん
03/06/06 21:26ID:???うざいからCGIのｽﾚ逝けよ
0925nobodyさん
03/06/06 21:38ID:???0926nobodyさん
03/06/06 22:17ID:???・まず、ほとんど同じコードを二度も三度も書くのはばかばかしいと思うようになろう。
・まとめられる部分はまとめるようにしよう。
・printとprintの間に他のコードが入っても、一向に問題にならない。
・content-typeは、そのCGIが最初に吐き出す文章であることが重要。二度も吐き出す必要はない。
てかさ。Perlとか云々以前にプログラミングそのものがわかってないような。
0927nobodyさん
03/06/06 23:10ID:???テキストエリアにからのフォームデータ
$bodyを(もちろんReadParseして)
$body =~ s/(.*)\x0D\x0A$/(.*)\x0A$/g;
で、CR+LF→LFにならないんでしょうか？
実行するとこの行がエラーになるんですが・・・
0929nobodyさん
03/06/06 23:23ID:???「エラーになるんですが・・・」じゃねーよﾊﾞｶ
ｴﾗｰ出てるんなら貼れ&>>1を100回声に出して読め。
$body =~ s/(.*)\x0D\x0A$/(.*)\x0A$/g;
↓
$body =~ s/(.*)\x0D\x0A$/$1\x0A$/g;
↓
$body =~ s/\x0D\x0A$/\x0A$/g;
0930nobodyさん
03/06/06 23:24ID:???$body =~ s/\x0D\x0A$/\x0A$/;
0932nobodyさん
03/06/06 23:30ID:???500エラーです。
チェッカーを見ると
Final $ should be \$ or $name at file.cgi line 111, within string
syntax error at file.cgi line 111, near "=~ s/(.*)\x0D\x0A$/(.*)\x0A$/g"
file.cgi had compilation errors.
0933nobodyさん
03/06/06 23:34ID:???了解
>>932
>>929-930の回答間違ってた。
$body =~ s/(.*)\x0D\x0A$/(.*)\x0A$/g;
↓
$body =~ s/(.*)\x0D\x0A$/$1\x0A/g;
↓
$body =~ s/\x0D\x0A$/\x0A/g;
↓
$body =~ s/\x0D\x0A$/\x0A/;
0937936
03/06/06 23:55ID:???これですんなりできたけどこれっていいの？
0938nobodyさん
03/06/06 23:55ID:???お前報告の仕方悪い。
エラーが出なくなったことをまず報告してから、その上で期待する結果が得られなかったと言いなさい。
で、改行コードを変換して、どこに出力しようとしてるのかな？
まさかSTDOUTに出力して、IEでソース見てたりしないよな？
0940936
03/06/06 23:59ID:???\x0D\x0A=\r\n
\x0D=\r
\x0A=\n
だね。。。。
マッチさせるときも、置き換え後も、
16進数のほうがいいんでしょうか？
>>938
>で、改行コードを変換して、どこに出力しようとしてるのかな？
>まさかSTDOUTに出力して、IEでソース見てたりしないよな？
ファイルに保存するツールなんです。
改行コードを書き換えてファイルに保存する、というところでひっかかってました
0941936
03/06/07 00:00ID:???ファイルの行頭を抜き取って
if($file =~ /(.*)\x0D\x0A$/){$code = "CR+LF (Win)";}
elsif($file =~ /(.*)\x0A$/){$code = "LF (UNIX)";}
elsif($file =~ /(.*)\x0D$/){$code = "CR (Mac)";}
else{$code = "";}
とやってます。
0942nobodyさん
03/06/07 00:00ID:???あと「エラーがでます」「だめでした」などの曖昧な表現はやめよう。
「どういうエラーが出るのか」「どのようにだめだったのか」を必ず書くようにね。
0943nobodyさん
03/06/07 00:01ID:???> ごめん、普通に考えれば
> \x0D\x0A=\r\n
> \x0D=\r
> \x0A=\n
> だね。。。。
違う。\nはOSによって変わる。
\n = \x0D\x0A DOS,Win
\n = \x0D Mac
\n = \x0A etc.
0946nobodyさん
03/06/07 00:06ID:???#!/usr/bin/perl
open(IN,"hoge");
binmode(IN);
$file = <IN>;
close(IN);
&code_check;
$file =~ s/\x0D\x0A/\x0A/g;
&code_check;
sub code_check {
if($file =~ /(.*)\x0D\x0A$/){$code = "CR+LF (Win)";}
elsif($file =~ /(.*)\x0A$/){$code = "LF (UNIX)";}
elsif($file =~ /(.*)\x0D$/){$code = "CR (Mac)";}
else{$code = "none";}
print "$code\n";
}
\x0D\x0Aの2バイトのファイル読み込ませたら、ちゃんと
CR+LF (Win)
LF (UNIX)
になったぞ。
0947936
03/06/07 00:10ID:???わざわざつくっていただきありがとうございます。でも完成しました。。
ところで、友達も「改行コードはバイナリモードで解決した」
といってましたが、なぜバイナリモードで読むのでしょうか？
私が作ったのはバイナリにしないでも改行コード変換できましたよ？
0949936
03/06/07 00:12ID:???require "./cgi-lib.pl";
&ReadParse(*in);
$name = "$in{'name'}"; ///フォームから受取ったファイル名
$body = "$in{'body'}"; ///フォームから受取った本文
$r_code = "$in{'r_code'}"; ///ラジオボタンで改行コードを選択
open(FILE,"> $name");
# 改行コードの変換
if($r_code eq "lf"){$body =~ s/\x0D\x0A$/\x0A/;}
elsif($r_code eq "cr"){$body =~ s/\x0D\x0A$/\x0D/;}
print(FILE $body);
close(FILE);
これでできたんですが、、、どうなんでしょうか
0951nobodyさん
03/06/07 01:43ID:Y8iN/hYFrequire './data/data_1.cgi';
ひとつだけ呼び出すのは↑こんな感じになってました
data_1.cgiとdata_2.cgiのふたつを呼び出したいです
0952nobodyさん
03/06/07 01:45ID:???require './data/data_1.cgi';
require './data/data_2.cgi';
>>951の質問はこれにて終了しました。
↓次の方どうぞ
0953936
03/06/07 02:27ID:???ファイルの内容を
while( <FILE> ){print;}でテキストエリアに渡した場合は、Windows改行になるのでしょうか？
0954nobodyさん
03/06/07 02:34ID:???0957936
03/06/07 02:54ID:???そうですか。。。
Linuxの鯖なのに
if($r_code eq "lf"){$body =~ s/\x0D\x0A$/\x0A/;}
elsif($r_code eq "cr"){$body =~ s/\x0D\x0A$/\x0D/;}
で変換できているので、CR+LFで出力されていることになりますが、、、
UNIXはLFだと思ったんだけど、意外だ・・・・
0958nobodyさん
03/06/07 06:18ID:???そのファイルがどの環境で作られたのかによるんじゃない？
Windows環境で書いたファイルであれば、どこに持っていこうがCRLFのまま。
これをUNIX系環境で１行読み込んだ場合、LFの前のCRは「文字列の一部」として
そのまま読み込まれるだけだと思うんだが。
なんか、読み込んだ時点で自動的に変換されるとか、１行書き込むとUNIX環境では
自動的にLF改行になるとか、そんな感じに勘違いしてない？
それと、あなたの実行環境ってローカルで動かしてるサーバーだよね？
間違ってもレンタルサーバーとかプロバイダスペースじゃないよね？
なんか会話が噛みあってないから。
0959nobodyさん
03/06/07 11:48ID:???掲示板で(^-^)などの顔文字があればそれを画像にすりかえるために
IMGタグに置換しようとしていますが、あらかじめ配列に顔文字のリストを
入れて置換してもうまくいきません。
顔文字のリストは
@list = (
"(^-^)", "kao1.gif",
"(T-T)", "kao2.gif",
);
という感じで、実際に置換している部分は
for($i = 0; $i < @list + 0; $i+=2){
$msg =~ s/($list[$i])/<IMG src=\"$list[$i+1]\" 〜略〜 alt=\"$list[$i]\">/g;
}
としています。まったく置換してくれません。
試しに顔文字のリストの顔の部分をOKなどにしてみると置換されました。
特殊な文字だから置換がうまくいかないのでしょうか？
どうすれば解決できるか教えてください、お願いします。
0960936
03/06/07 12:00ID:???>なんか、読み込んだ時点で自動的に変換されるとか、１行書き込むとUNIX環境では
>自動的にLF改行になるとか、そんな感じに勘違いしてない？
へ？ぜんぜん思ってませんよ。。。
0961936
03/06/07 12:05ID:???えと、つまり
Windows環境で、テキストエリアに入力した文字をcgiに送って
$body =~ s/\x0D\x0A$/\x0A/;
こうしても、LFにならないってことでしょうか？
0962nobodyさん
03/06/07 12:36ID:???顔文字が正規表現のメタ文字として解釈されているんでない？
顔文字のメタ文字を\でエスケープするか、もし面倒ならquotemetaであらかじめ
変換しておくとか。（\Q \Eって使えたかな…どなたか助言求む）
できればソースを書きたいんだけど、いま手元に実行環境がないんで勘弁して。
0963nobodyさん
03/06/07 12:51ID:???いい加減うぜぇ。２ちゃんは学校じゃねぇ。
質問等はまとめて話せ。少しは自分で調べて話せ。
＞こうしても、LFにならないってことでしょうか？
やってみろﾊﾞｶ。プログラムに実験はつきものだ。
0964936
03/06/07 13:05ID:???やってみました。
if($file =~ /(.*)\x0D\x0A$/){$code = "CR+LF (Win)";}
elsif($file =~ /(.*)\x0A$/){$code = "LF (UNIX)";}
elsif($file =~ /(.*)\x0D$/){$code = "CR (Mac)";}
こいつで正確に改行コードがえられるのかだけ教えてくれませんか？
0966nobodyさん
03/06/07 13:12ID:???
レス数が950を超えています。1000を超えると書き込みができなくなります。