【Perl】初心者コーナーPart9
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさん＠お腹いっぱい。
01/12/28 23:21ID:SPLRvqQi1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ、良い回答は良い質問から。
一緒に勉強しましょう。
参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://pc.2ch.net/test/read.cgi/php/988809842/
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part5】
http://pc.2ch.net/test/read.cgi/php/1009331505/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
過去ログ、その他の役立ち情報は>>2-10を見よう。
0237名無しさん＠お腹いっぱい。
02/01/19 00:07ID:???Zellerの公式で検索してみて
ここに、日付け絡みのサンプルが色々出てるから必読
他にも役に立つしね
http://www.din.or.jp/~ohzaki/perl.htm
0238名無しさん＠お腹いっぱい。
02/01/19 01:59ID:tDZ3djB8win98に、間違ってwinNTのPerlをインストールしてしまったんですが、
アンインストールはどうすればいいのでしょうか？？？
C:を「Perl」とか「NT」で探したら、Temporaryフォルダにしか
ないみたいなんで大丈夫かな？と思ったんですが、
インストーラーをもう一回起動させたら、
『指定されたサービスはすでに存在します』
ってエラーメッセージが！！！！
『アプリケーションの追加と削除』には、何もできてません。
どなたかお助けーーーー！
0239agege
02/01/19 05:21ID:???Ｃ：がダメならＤ：があるさ
0240Tupple3d
02/01/19 05:30ID:tSYJ2BTR$a = 1;
$a = $a++;
Perlで$aの値はどうなりますか？
0241agege
02/01/19 06:00ID:???「すんまそん」って、出だしから寒すぎて手がかじかんでうまく答えがかけないよー。
どうしよー。
0243名無しさん＠お腹いっぱい。
02/01/19 06:34ID:???$a = $a++; # $aは 1
$a = ++$a; # $aは 2
0244名無しさん＠お腹いっぱい。
02/01/19 07:06ID:tDZ3djB80245名無しさん＠お腹いっぱい。
02/01/19 07:21ID:???おめでとう
0246名無しさん＠お腹いっぱい。
02/01/19 15:46ID:b2nTXpDvFlashからデータをPOSTで送信しようとすると、
データが渡ってないようです。
GETだとちゃんとわたってます。
cgiはこんな感じです。(一部ですが）
#フォームデータの取得
if($ENV{'REQUEST_METHOD'} eq 'POST'){
read(STDIN,$query,$ENV{'CONTENT_LENGTH'});
}
else{
$query=$ENV{'QUERY_STRING'};
}
0247初心者
02/01/20 06:05ID:+Bzlb+s3サブルーチンの定義のところで
sub FormThList($;$)
{
処理･･･
}
という部分をいくつも見かけます
引数にある" $;$ " という部分は何をあらわしているのでしょうか？
自分で書籍やWebを調べてみたりしたのですが、引数なのか、リフ
ァレンスなのか、それとも他のものなのか、さっぱりわかりませんでした。
どなたかお分かりの方ご教授ください。宜しくお願いいたします。
0248名無しさん＠お腹いっぱい。
02/01/20 15:18ID:GAoGOGYW0249
02/01/20 17:22ID:xUMdAd4Xほら、あれもってきて。って、よく、彼女とかにいってるでしょ。
そのあれ。だよ。
0250名無しさん＠お腹いっぱい。
02/01/20 17:58ID:???引数の形式を指定してる。
$はスカラー。;以降は省略可。 ほかにもいろいろ指定できる。
詳しくはperldoc perlsubか，プログラミングPerl改訂版133Pを参照のこと。
0251名無し
02/01/20 21:19ID:Nggbj65w$dir = ''; # 指定ディレクトリ
$file = '.html'; # 検索対象ファイルの拡張子
$key = ''; # キーワード
opendir(DIR,$dir);
@files = readdir(DIR);
closedir(DIR);
foreach (@files){
if(/$file$/){
open(FILE,"$dir/$_");
@data = <FILE>;
close(FILE);
foreach (@data){
$seach = $seach . $_;
}
if($seach =~ /$key/i){
push(@list,$_);
}
}
}
foreach (@list){
print;
print "\n";
}
0252名無しさん＠お腹いっぱい。
02/01/20 21:26ID:???URLデコードをしてないとか。
「ー」が含まれてるとか。
余談だけど無駄が多いからもうちょっとシェイプアップした方がいい。
grep使うとか。
0253名無しさん＠お腹いっぱい。
02/01/20 23:36ID:9LP6jm+wEUCの場合
$EUC_JP = '(?:[\x00-\x7F]|[\xA1-\xFE][\xA1-\xFE]|\x8E[\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])';
if $seach =~ /^$EUC_JP*$key/i {
...
perlメモだかに、詳しく載ってた気がする。
0254agege
02/01/21 03:26ID:???それにしてもサブルーチンに引数の形式を指定するメリットがわかんないんだけど、
どういうことYO!
単に引数形式を明確にするだけのこと？
うーん！こんやも眠れない。
0255名無しさん＠お腹いっぱい。
02/01/21 03:31ID:???眠れないんだったらperlsub読みなよ。
どういうときに使うのか書いてある。
0256名無しさん＠お腹いっぱい。
02/01/21 03:39ID:???逝っちゃってますねもう
0257agege
02/01/21 03:47ID:???なるほど、漏れが異常なのか。チョットだけ安心しました。
255さんの提案でperlsub読んでだいたいはわかりました。
それにしても今までラクダ本しか読んでなっかったからバージョンアップに伴う追加・更新部分は
未知な部分が多いネー。
0258あうあうあう
02/01/21 07:42ID:???日本語部分は（メッセージなど）EUCで書くのが正解と聞きました。
ところが、DOSプロンプトだとEUCは文字化けします。
Shift-JISで書けば、DOS上では問題ないですが・・・。
どうしたらよいですか？
print "日本語いーゆーしーだ！";
とかでやると
ﾆ・ﾜｸ・､｡ｼ､譯ｼ､ｷ｡ｼ､ﾀ｡ｪ
になります。
0259名無しさん＠お腹いっぱい。
02/01/21 09:52ID:yXZYknLAS-JISで全然問題ない。
0260名無しさん＠お腹いっぱい。
02/01/21 12:43ID:O1LRho5n以降のデータが受取れません。
流れとしては、HTMLフォームから入力して送信ボタン→確認画面で送信ボタン→メール送信
というもので、確認画面ではスペースはちゃんと入ってて、例えば「山田 まさし」
と入るのですが、その確認画面から「送信」ボタンを押して再度同じCGIを呼びだして
データを受取ると「山田」で切れてしまうです。
$value =~ tr/+/ /;この行で送られてきたスペースコード（+）をスペースに変えて
いるのですが、再送信するときには変換されたスペースをまた（+）のようなコードに
戻してあげないとダメなんでしょうか？
試しに普通の＋に戻してみたらそのまま＋が出てきてしまいました。。
わかりづらくてｺﾞﾒﾅｻｲ、アドバイス貰えればありがたいです。
0261aaa
02/01/21 13:36ID:7eJzqhDPありませんでした。(elements programming with Perlです。)
5.5?やってから5.6本やってもおそくないですか？
あと、支障とかないですか？
0262茶文字 ◆xELvisFU
02/01/21 15:57ID:0ovwchs4open FILE,"xxx.dat";
@page = split(/\n/,<FILE>);
print <<"EOH";
<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>$page[0]</h1>
<h2>$page[1]</h2>
EOH
$count = 0;
foreach $i(@page){
if ($count > 1){
print $page[$i];
}
}
print "</body></html>";
close FILE;
２行目を$page[1]として<h2>に、３行目以降をforeachで順に出力するつもりで
以上のように書いたのですが、$page[2]以降を取得できないようです。
どこで勘違いしているのでしょうか？
0263名無しさん＠お腹いっぱい。
02/01/21 16:08ID:???＞foreach $i(@page){
ここに問題がある。
この場合、$iには何が入るのかな？
俺は数字じゃないように思えるんだが。
＞foreach $i(1 .. $#page){
との違いはわかるかな？
0264名無しさん＠お腹いっぱい。
02/01/21 16:09ID:???こっちが正しいな。
修正する前に書き込んじまった、スマソ。
あともう一つ質問。
$countはずっと0のままでいいのかな？
数字が全然増えてないから、if文の中に入れないようにも見えるぞ。
0266251
02/01/21 16:17ID:???逝ってきます。
0267茶文字 ◆xELvisFU
02/01/21 16:21ID:???をっとｽﾏｿ
うまくいかないので別の方法で無理やり辻褄あわせてて、もとのスクリプトと
違うこと書いちゃいました。
$count++をforeachの最後に入れて、print $page[$count];にしてたはず・・・
うがー なんでこんなところにひっかかってんだ私；
0268名無しさん＠お腹いっぱい。
02/01/21 16:25ID:yxhIL91Y俺ならこんな感じ。チェックしてない。
open (FILE,"xxx.dat"); @page = (<FILE>); close (FILE);
$page[0] =~ s/\n//g;
$page[1] =~ s/\n//g;
print <<"EOH";
Content-type: text/html; charset=Shift_JIS
<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>$page[0]</h1>
<h2>$page[1]</h2>
EOH
$count = @page;
for($i = 2;$i <= $count; ++$i) {
$$page[$i] =~ s/\n/<BR>\n/g;
print $page[$i];
}
print "</body></html>";
0269名無しさん＠お腹いっぱい。
02/01/21 16:26ID:yxhIL91Yミス
＞$$page[$i] =~ s/\n/<BR>\n/g;
$一個おおいっすｽﾏｿ
0270名無しさん＠お腹いっぱい。
02/01/21 16:28ID:???print "Content-Type: text/plain\n\n";
print $ENV{QUERY_STRING}
とかやってデータを確認したら？
確認後のエンコード周りがあやしい。
>>261
5.6触ったこと無いが，
Perl5.6は仕様を足しただけみたいだから
Perl5やってからでも特に支障無いと思う。
0272
02/01/21 16:30ID:VXT1KPc/foreach (@page){
print $_;
}
じゃいけんの？
$countってどこでインクリメントするの？
0273
02/01/21 16:36ID:rALZtRCfContent-type: text/html; charset=Shift_JIS
<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>shift(@page)</h1>
<h2>shift(@page)</h2>
EOH
foreach (@page){
print $_;
}
具体的にはこうか？
0274
02/01/21 16:38ID:pTKsFCnA0275傍観者
02/01/21 16:40ID:bIKApu3O0276ほげ
02/01/21 16:41ID:bIKApu3O0278名無しさん＠お腹いっぱい。
02/01/21 16:52ID:???名前変えてもID出てるぞ。
0279名無しさん＠お腹いっぱい。
02/01/21 16:53ID:???TMTOWTDIってことで、色々出てくるのはいいんじゃねーの。
0280名無しさん＠お腹いっぱい。
02/01/21 16:55ID:???おしい。
ヒアドキュメントの中では @{[shift @hoge]} のように使うと吉。
0281名無しさん＠お腹いっぱい。
02/01/21 17:00ID:yxhIL91Yでも、せっかく作ってきたので書いちゃう。
どうしてもforeach使うんだったらこんな感じ。
やっぱしチェックしてない。
open (FILE,"xxx.dat"); @page = (<FILE>); close (FILE);
$page[0] =~ s/\n//g;
$page[1] =~ s/\n//g;
print <<"EOH";
Content-type: text/html; charset=Shift_JIS
<html>
<head>
<title>$page[0]</title>
</head>
<body>
<h1>$page[0]</h1>
<h2>$page[1]</h2>
EOH
$i = 0;
foreach (@page){
if ($i ne "0" && $i ne "1"){
$_ =~ s/\n/<BR>\n/g; print $_;
}
++$i;
}
print "</body></html>";
0282名無しさん＠お腹いっぱい。
02/01/21 17:01ID:yxhIL91Yお、おれ？
おれかよ！(笑)
@page = (<FILE>);
close (FILE);
$title = shift(@page);
$h2 = shift(@page);
print <<"EOH";
Content-type: text/html; charset=Shift_JIS
<html>
<head>
<title>$title</title>
</head>
<body>
<h1>$title</h1>
<h2>$h2</h2>
@page;
</body></html>
EOH
0284茶文字 ◆xELvisFU
02/01/21 17:11ID:???それぞれのサンプルもきちんと見て勉強させてもらうです。
WebProg板ｻｲｺｰ(・∀・)ｲｲ!
0285名無しさん＠お腹いっぱい。
02/01/21 17:14ID:???ということで>>275-276はｷﾞｬﾌﾝと言え
0286名無しさん＠お腹いっぱい。
02/01/21 17:19ID:???@page = map {$_ . <BR>} @page;
だね。
0288名無しさん＠お腹いっぱい。
02/01/21 17:36ID:???このスレの回答者は （笑）
0290aaa
02/01/21 17:42ID:7eJzqhDP0291名無しさん＠お腹いっぱい。
02/01/21 19:00ID:6X0/37gMちんぷんかんぷんです。しかもスレ違いの予感もしてます。ごめんなさい。
プログラムはグレー色のウィンドウで表すこと。
しかもユーザーに赤、青、緑から好きな色を選ばせられるようにすること。
なおかつ１度ではなく何度もユーザーにその色を何度も変える事ができるようにすること。
誰か教えてください。
0292名無しさん＠お腹いっぱい。
02/01/21 19:06ID:???0293名無しさん＠お腹いっぱい。
02/01/21 19:12ID:6X0/37gMプラットフォームとは何ですか・・・？
0294名無しさん＠お腹いっぱい。
02/01/21 19:13ID:???それと、言語はPerlなの？
0295名無しさん＠お腹いっぱい。
02/01/21 19:19ID:???君の開発環境を書くのだ。
しかし、宿題をスレに投げる という安直さがｺﾞﾙｧ！だ。
0296名無しさん＠お腹いっぱい。
02/01/21 19:27ID:6X0/37gMYour name? Lucy
Occupation/Job Title? Comedian
Nice to meet you Lucy, Comedian!
名前を入れればそのままその名前が文章につかわれる
ってなのを前回説明されました。
これはPerlなのでしょうか？
0297名無しさん＠お腹いっぱい。
02/01/21 19:34ID:???うーん・・・・・ 他になんかないの？
全部英語で書かれてて、一行目が「#!/usr/local/bin/perl」です、とか。
0298名無しさん＠お腹いっぱい。
02/01/21 19:36ID:???取りあえず、環境を書いてくれ。
UNIX系なのか、Windowsなのかぐらいは判別できるだろ？
0299名無しさん＠お腹いっぱい。
02/01/21 19:40ID:6X0/37gMとりあえず次の授業にきっぱりと出来ませんでしたって胸はって言います。
一緒に考えて下さってありがとうございました。
ところで、授業のレジュメにAlgorithmも学ぼうって書いてあります。
このAlgorithmもなにかの言語なのでしょうか？
0300名無しさん＠お腹いっぱい。
02/01/21 19:49ID:???PerlでGUIのプログラムなんて出来ないよね？
ただ、適切なスレに誘導するために情報聞き出してるんだよね？
まさかPerlで書けるから聞いてるんじゃないよね？
ビクビク…。
0301名無しさん＠お腹いっぱい。
02/01/21 19:51ID:???0302名無しさん＠お腹いっぱい。
02/01/21 19:52ID:???ていうか授業出てなかったろ…。
出てれば絶対こんな質問しないぞ…。
0303名無しさん＠お腹いっぱい。
02/01/21 19:56ID:???0304名無しさん＠お腹いっぱい。
02/01/21 19:56ID:6X0/37gMやっぱりどうも難しいのでもっと初心者用のスレから出直してきます
ありがとうございました。。。
0305名無しさん＠お腹いっぱい。
02/01/21 19:58ID:???>301は>300向けであって、あんたに言ってるんじゃないと思うぞ。
0306名無しさん＠お腹いっぱい。
02/01/21 20:01ID:hWcQ0KB7どう見てもこれはＣの課題だよな。
0307名無しさん＠お腹いっぱい。
02/01/21 20:02ID:hWcQ0KB7VBかVCの課題だろ？
0308
02/01/21 20:07ID:OlNKxLTkパチマガで池上蓮から「旧友の自殺狂言騒動に抑えきれない嫌悪感」
で晒された本人（謎の人物）が池上に対して怒りまくってるぞ！！
謎の人物ホームページ↓
http://www.geocities.co.jp/Bookend-Hemingway/4715/
関連スレッド
謎の人物公式スレッド↓
http://kaba.2ch.net/test/read.cgi/pachi/1009686980/l50
0311茶文字 ◆d38VidMY
02/01/21 20:15ID:???ってことは、ここで聞いたコーディングがコンパイルされる可能性が
あったわけですね？（ｗ
>>308
マルチポストｳｻﾞｲYo!
0312名無しさん＠お腹いっぱい。
02/01/21 20:18ID:???何を聞きたいの?
もうちょっと分かりやすく書いてみて
0313300
02/01/21 20:19ID:???PerlでWindowsアプリケーションは作れないよね？
なんつーか、
> プログラムはグレー色のウィンドウで表すこと。
とか。。
それと同様にX Window のアプリケーションも作れないよね？
ってことはGUIのプログラムって作れないんでは？
んー。どこの考え方が間違ってるんだろう。。
「GUI」を勘違いしてるのかな…。
0314名無しさん＠お腹いっぱい。
02/01/21 20:26ID:???一例。
http://freshmeat.net/img/screenshots/19044.jpg
(freshmeatで"Perl Gtk"とか"Perl Tk"で検索してみ。併せて100以上でてくるから)
検索エンジンなどでGtk-Perlとか、Perl/Tk, Perl/Qt. PythonならPyUI, PyQtとかを調べるよろし。
0315名無しさん＠お腹いっぱい。
02/01/21 20:27ID:???(ｗ とか言わずに一緒に勉強しようよ
>>313
Perlでは出来ないけど、TkとかGtk使えばperlの文法で出来るんだから
全然間違えて無いよ。
もし無くてもPerlが叩けるライブラリ書けば良いでしょ？
0316名無しさん＠お腹いっぱい。
02/01/21 20:30ID:???0317名無しさん＠お腹いっぱい。
02/01/21 20:35ID:hWcQ0KB7TkとかGtkを課題に出す情報処理系の宿題かこれ？
というそもそも論に帰ってしまった私です。
0318300
02/01/21 20:35ID:???なるほど。ありがとうございます。
>>316
初心者だけどなんか役に立つこと出てくるかなぁと思って
かちゅ〜しゃのお気に入りに入れて巡回してますが。。
0319名無しさん＠お腹いっぱい。
02/01/21 20:50ID:???0320茶文字 ◆d38VidMY
02/01/21 21:01ID:???聞き流してくだされ>all
で、話は変わりますが。
Webサーバ上の特定のディレクトリにあるファイルをリストアップして、
ファイル一覧を表示するスクリプトを作りました。
せっかくだから各ファイルの更新日時を自動的に表示させたいのですが、
これはPerlでは無理なのでしょうか？
.cgiでSSIを許可するのはなんか怖いし、JavaScriptは自分自身あまり
ONにしないので、できたら避けたい今日この頃なんですが。
0321名無しさん＠お腹いっぱい。
02/01/21 21:15ID:???基本的にそのディレクトリに有るファイルが、CGIのみから更新されるなら
SSIでincludeする(execは殺す)為のファイルを書き出すだけで良い。
もし、CGIが感知しない部分でダイナミックに更新されるなら
素直にCGIで表示するか、呼び出し元のHTMLを書き換えるしか無いんじゃ
無いかな
0322茶文字 ◆d38VidMY
02/01/21 21:32ID:???早レスさんくす。
実はファイルリスト表示も各ファイルの内容閲覧も同じスクリプトでまかなっています（リストされるファイルはすべてHTMLのbody部分です）。
例）
hoge.cgi
→引数がない場合はファイルリストを表示
hoge.cgi?page=020121
→ファイル名が020121のファイルをbody部に取り込んで表示
なので、更新日時を表示するときの拡張子が.cgiなわけです。
SSIを使うには、.cgiからSSIを使えるようにしなければならないわけで、
これは320に書いたように避けたいのです。
てことは、ファイルリスト表示は.shtmlで出力してやるのが無難っぽいですね。
短いスクリプトなので、頭の体操だと思って最初から組み直してみます。
ありがとうございました。
0323茶文字 ◆d38VidMY
02/01/21 21:34ID:???組み直さなくてもHTML出力部分だけ付け足して、
そのあとリダイレクトすればいいのか？
0324名無しさん＠お腹いっぱい。
02/01/21 23:26ID:???> hoge.cgi?page=020121
Taint check をしっかりとやるようにね。
0325名無しさん＠お腹いっぱい。
02/01/21 23:34ID:???$abcd = "AAAA";
open(CF, "./a.txt") || die "Can't open Header File $!";
while (<CF>){
chop;
print;
}
close;
と記述しました。
a.txtには
$abcd
と書きました。ですが、どうしても上記プログラムを実行したら
$abcdと表示されるだけでAAAAと表示されません。どうにかして
$abcdを変数としてファイルより読みだすことはできないでしょうか？
0326名無しさん＠お腹いっぱい。
02/01/21 23:40ID:???かな？
0327名無しさん＠お腹いっぱい。
02/01/21 23:40ID:???0329名無しさん＠お腹いっぱい。
02/01/22 01:09ID:???細かいことだけど、自分がたずねる質問に「ご」をつけるのは
ちょっと変だと思うよ。
0330名無しさん＠お腹いっぱい。
02/01/22 10:12ID:efarCwHc日記帳のように画像アップして1行コメントを入れるスクリプトを書いてるんですが
うまくいきません。
どこかによいサンプルはないでしょうか？
0331名無しさん＠お腹いっぱい。
02/01/22 10:36ID:???http://pc.2ch.net/test/read.cgi/php/1003132904/l50
0332名無しさん＠お腹いっぱい。
02/01/23 04:57ID:sT5Qn28Rhtmlファイル内の&を%44になおすプログラムを作っていて
以下のとおりやってはみたもののうまくいきません。
#!/usr/local/bib/perl
while(<stdin>){
s/&;/%44;/;
print;
}
どうしても置き換えてくれません。
教えてください。
0333名無しさん＠お腹いっぱい。
02/01/23 05:16ID:???Perlへのパス
stdinからデータが読み込まれているか
検索・置換する文字列
を確認してみてわ
0334332
02/01/23 07:16ID:sT5Qn28R遅れてすみません
３３３さんがおっしゃられるところは確認しました。
自分で気になっているところは
test→test1みたいな普通の文字の置き換えはできるのですが
＆とか％がはいっているとまったく駄目なのです。
どうしたら解決できるかわからなくて。。。
0335名無しさん＠お腹いっぱい。
02/01/23 09:25ID:fLlnsoLj#!/usr/local/bin/perl
while(<stdin>){
s/&/%44/g;
print;
}
0336名無しさん＠お腹いっぱい。
02/01/23 19:47ID:SS/bYptOCGIファイルと同ディレクトリに「mimew.pl」
http://www.cc.rim.or.jp/~ikuta/mime_pls/index.html を設置して、
CGI内のメールのヘッダ情報記述部分で
$mimew = './mimew.pl';
require $mimew;
$subject = "[カタログ請求]";
$subject2 = &mimeencode($subject);
open (SENDMAIL, "| $nkf | $sendmail -t -n") || die;
print SENDMAIL "To: $recieve\n";
print SENDMAIL "Bcc: $bcc\n";
print SENDMAIL "From: $mail\n";
print SENDMAIL "Reply-To: $mail\n";
print SENDMAIL "Subject: $subject2\n";
print SENDMAIL "Content-Type: text/plain; charset=\"iso-2022-jp\"\n";
print SENDMAIL "Content-Transfer-Encoding: 7bit\n\n";
上記のようにしたのですが、エンコードされません。
お助け。。。
0337名無しさん＠お腹いっぱい。
02/01/23 20:15ID:???$nkf = '/usr/local/bin/nkf';
$sendmail = '/usr/sbin/sendmail';
$mimew = '/フルパス書いてちょ〜/mimew.pl';
でどうよ。
■ このスレッドは過去ログ倉庫に格納されています