Perl 初心者コーナー Part21
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/03/18 18:47ID:Dujz7IUF【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 9
http://pc.2ch.net/test/read.cgi/php/1041530204/
参考書籍の話題は、【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0176座敷荒氏
03/03/26 18:51ID:SqsuYLcB一般ユーザー権限で試しています(言い方あってますか？)
>ファイルの先頭に./（ドットスラッシュ）つけてる？
つけていません。参考書に記載がないので。
これはどこに記述すればいいのですか？
#! /usr/bin/perl の先頭に記載して
./#! /usr/bin/perl
とすればよいのでしょうか？
0177nobodyさん
03/03/26 18:52ID:???$ ./calc
ってことだな。
つまり、Perl より先に Linux の勉強をしる、ということだ。
0178座敷荒氏
03/03/26 18:56ID:SqsuYLcBありがとうございます。
言い訳になりますがRedHatも
こないだPerlのために用意したばかりで
勉強不足でした。
なぜこれでOKなのかは自分で勉強したいと思います。
本当にありがとうございました。精進致します。
0180nobodyさん
03/03/26 19:27ID:???少なくてもwebprogでifが重いとかいってるやつは、
短絡的で思い込みが激しくて相対的な思考ができない馬鹿。たいていA型
0181nobodyさん
03/03/26 20:29ID:???やっていられないよな。それにPerlならユーザの知らないところでたくさんの分岐を行っているはずだ。
0182nobodyさん
03/03/26 21:09ID:???アホには妙な先入観があるんでしょう。困った。
0183nobodyさん
03/03/26 21:15ID:???mapは戻り値を捨ててはいけないぞう。ぷぅ。
構造は、map BLOCK LIST、返り値は、LISTの各要素についての、
BLOCKの結果のリスト。
0184nobodyさん
03/03/27 00:54ID:8Ff5snZVから初めていいかよく分からなくなってきてしまいました。
MacOSXを仕事の関係で自宅でも使用しているのでperlは使え
る状態まで設定が終わり、Perlの解説本（とほほＷＷＷ入門）
を買ってきたのですが、理解が浅く、自分のやってみたい事
はあたまには浮かぶが、実際にperlで書けない状態です。
慣れるにはどのようにしていったらよいのでしょうか？
本当に困ってます。
馬鹿ですみません。
0185nobodyさん
03/03/27 01:02ID:aF0pcOGYとほほＷＷＷ入門がどんなのか知らないけど
初めから読む。
本に書いてあるプログラムを実行する。
分からなかったらそれを書き換えて自分が納得するまで
いじる。ってのをしてます。
独習Perl読んでる。
0186nobodyさん
03/03/27 01:17ID:???そうなんですよね。
どうしても仕事で使うので、いろいろ必要な所をかいつまんで
いるのですが、時間が足りなくもうなんかダメダメになりそう
です。マジで泣きながらキーボード打ち込んでます。
今は使えそうなフリーの素材を使って少し命令をいじって自分
のマシンでテストしています。
俺には向いてないのかなぁ。このままじゃあ、ｸﾋﾞになるかもし
れない、でも、ここの皆さんはできている人が多いみたいだし。
生き残るなんてできないのかなぁ。
愚痴になってごめんなさい。
もうちょっと頑張ってみます。
0187nobodyさん
03/03/27 01:23ID:???要するにその「いい勉強法」にたどり着けるかどうかが分かれ目なんだろうなと思う。。
0188鯖仙人 ◆HwSabaHQjA
03/03/27 01:36ID:???ある程度のレベルに達してないとセキュリティ面で穴が空きそうだのう。
もしもの事があればおおごとじゃから諦めなされ。
だからと言ってフリーのものを少々b改造して著作権表示を
すり替えたりせんようにな。社会人としてのルールじゃ。
ここの板が過疎化している通り、webprogを自在に操れる人々は
ネット人口に対してはごく一部じゃ！まだ遅くはないぞ！
何事にも近道は無い。じっくり、まったり勉強なされ。
0189鯖仙人 ◆HwSabaHQjA
03/03/27 01:42ID:???技術評論社の「プログラミングによるセキュリティ強化ガイド」がまあまあいいぞえ。
自分の能力を向上させる為なら金は惜しむな。先人の偉大なる著作物を手に入れるのじゃ。
0190nobodyさん
03/03/27 02:53ID:???とほほな人がイタタな人だから心情的にはお薦め出来ないってのはある。
それに、perlの参考書を買うのもいいのだけどその参考書は二次生成物だから
本の駄目なレベルまでわかるレベルになればマスターした事になると思われ
そいうことで、本としてお薦めは駱駝本になるのだけどね。
別に本を買わなくてもウェブ上で転がってる資料でも問題無いし、
別に本を買ったからといって覚えれる物でもない。
0192173
03/03/27 18:19ID:???条件分岐させるのがいい場合もあるだろうけど、
最初から「これ！」て定義したいものには、if文とかより
もっと効率のいいやり方があるんじゃないかって思っただけだよ！
僕はO型でつ。
バカだけど、バカにされると一応悲しむだけの感情はあるんだぞ！
>>184
戻り値とか返り血とか何でつか
簡単な式でも略して書かれるとわからないレベルでつ
ひもとけないのでつ
ていうか、僕の所有する5冊のPERL本では簡略化されたものは出てこないので
順をおって書かれてないとわからない。わからないー
ほんとにお願いします。
いっこづつ解説してください。心からお願いします
0195nobodyさん
03/03/27 19:04ID:???0196nobodyさん
03/03/27 20:16ID:???Perl流の省略の仕方が理解できない分際で、
if文が重いとかほざくな。
足し算ができない奴に掛け算ができるわけがない。
自分が理解できてることだけでスクリプト組んでろ。
0197nobodyさん
03/03/27 20:43ID:???いいこというなぁ。
漏れも頑張るか･･･。
0198nobodyさん
03/03/27 21:58ID:???map使うのが一番メモリー食うらしいですけどね・・・
>>192
まぁ、順序追ってその時その時で覚えた関数がどう使えるかというのを理解しつつ
やっていくとよいと思うけどね。
いっぺんに効率の良い処理を書こうと思ってもそれは無理だから一度ソース書いて
それがどうやれば見やすくなるかって考え方で逝くほうがいいと思う
0199名無しさん＠Ｍｅａｄｏｗ
03/03/27 22:06ID:???いいこと言うなぁ。
これで決まりや。
0200nobodyさん
03/03/27 23:06ID:AfQiNFrt挿入する事ができるんでしょうか？
0202nobodyさん
03/03/27 23:18ID:???でいーじゃん
0203nobodyさん
03/03/27 23:25ID:???うーんと、ちょっと違うかもしれません。
要は今見ているページのテキストエリアにperlのgetもしくは
postで任意の文字を入れる事がperlが動作するマシンから実行
できるのかなという事なんですが、説明がうまくできなくてご
めんなさい。
0204nobodyさん
03/03/27 23:31ID:???0205nobodyさん
03/03/27 23:35ID:???うまく説明ができない・・・。
ブラウザからgetやpostで情報を受け取る事ができるなら、
ブラウザのテキストエリアに送る事もできるのでしょうか？
0206nobodyさん
03/03/27 23:35ID:???アホですか？
0208nobodyさん
03/03/27 23:41ID:???全然わかんない
0209nobodyさん
03/03/28 00:07ID:???0211nobodyさん
03/03/28 00:13ID:???は、基本的なHTTPプロトコルを学ぶべき。
HTML文書のフォームから送ると言うことは、FORMタグのアクションに指定されたページに飛ぶのと同じ。
0212nobodyさん
03/03/28 00:16ID:???うまく説明できないなら、まず
言いたいことを整理するか、
やりたいことの具体例を示しなさい。
別にあせらんでもこのスレは逃げません。
0213nobodyさん
03/03/28 00:21ID:???とりあえず思いついた例として
掲示板に書き込みをする際にブラウザを使った書き込みではなく
自分のマシンからperlにて書き込みができないのかなと。
こういう感じでよろしいのでしょうか？
0215nobodyさん
03/03/28 00:36ID:OXxoJAYfありがとうございます。
見よう見まねですが自分で作った掲示板に、自分で作った
perlで書き込みができるのかテストしてみます。
もしよろしければそのhttpをしゃべるスクリプトの例とい
うのがどのように探せばあるのか、教えていただけません
か？
よろしくお願いします。
02164
03/03/28 00:40ID:JsShpJ/5できます。
HTTPとSocketモジュールの使い方勉強したらすぐできる。
0217nobodyさん
03/03/28 00:42ID:td6NGscT02184
03/03/28 00:43ID:JsShpJ/5http://www.scenecritique.com/museum/home/guess/gesuds9/perlduke.htm
0219nobodyさん
03/03/28 00:50ID:???どうもありがとうございます。
長々と説明を続けてしまって申し訳ありません。
アホなので、許してください。
早く皆さんのように質問に答えられるようにスキル
を身につけてみます。
もしその前に挫折して聞きに来る事があるかと思い
ますが、よろしくお願いします。
0220nobodyさん
03/03/28 00:51ID:???荒らしにつかわれることを懸念してか、
POST のサンプルスクリプトは、あまり見つからない。
# まあ、これは俺の検索が甘いだけかもしれんが
書き込むだけなら GET でも可能だし、これなら
Perl Socket HTTP あたりをキーワードにして検索すれば
いくらでも見つかる。
GET で HTTP での会話を知ってしまえば、POST だって簡単。
tcpdump に類するツールを所有しているなら、
それでWWWブラウザとHTTPサーバとの会話の様子を
覗いてみるのもお薦め。
>>218
oioi
0222211
03/03/28 01:10ID:???s/214/215/
02234
03/03/28 01:30ID:JsShpJ/5HTTPは比較的簡単プロトコルだと思うのでネットワーク関係の
プログラム作りたいならHTTP ClientやHTTP Serverを書いてみる
といいかも。
まじめに答えると、
http://x68000.startshop.co.jp/~68user/net/
とか、いいかも。GETはあります。
POSTは上に書いてあるとおりContent-Lengthつけて、ヘッダと
ひとつ空行あけて送るデータを書けばいいだけです。
02244
03/03/28 01:32ID:JsShpJ/5HTTP プロトコル
と書くのは、
Perl言語
と書くのと同じだと思う。
0226nobodyさん
03/03/28 01:43ID:???0227nobodyさん
03/03/28 02:00ID:OFR1eFyuネット上のページを取得するのに、LWP::Simpleとwgetを使う方法があるとのことで、
それぞれで実際に取得するところまで漕ぎ着けました。
対象ファイルのサイズは20〜50kb程で、それぞれの実行時間はほぼ同じでした。
このスクリプトは共用鯖でCGIとして実行するので、負荷が気になります。
負荷の上ではどちらが良いのか、もしくは他の方法があるのか、お教えください。
0228nobodyさん
03/03/28 02:05ID:???Perl言語
と書くのは、
チゲ鍋
と書くのと同じだと思う。
0231nobodyさん
03/03/28 03:55ID:???Perl言語
と書くのは、
POP言語
と書くのと同じだと思う。
0232nobodyさん
03/03/28 06:06ID:???0233nobodyさん
03/03/28 09:23ID:???Perl５以上で記述された、「ＵＲＬ通知システム」どこにあるか知りませんか？
たとえば、あるページを見ている人が自分の携帯電話に、そこで指定されているＵＲＬをメールしたい。
そんなのなんですが、よく広告ページの携帯用出会い系サイトなんかで使われているやつです。
もし。公開しているところがあったら教えてください。
ほんとすんません・・・・・・・
0234nobodyさん
03/03/28 09:30ID:CxnPNSFmこういうんじゃないのか。
http://r.gnavi.co.jp/Waiting/?id=g852000
0235bloom
03/03/28 09:35ID:Mi9Fl0u+0236初心者
03/03/28 09:54ID:???クッキーを書き込みたいのです。
で、色々調べて回って、何とかこんな感じでできました。
#1 #!/usr/bin/perl
#2 use strict;&main;exit;
#3 sub main{
#4my $id = "abc";
#5my $value = "";
#6print "Set-Cookie: ".setcookie($id,\$value);
#7print "Content-Type: text/plain\n\n";
#8print "SetCookie!!";}
#9 sub setcookie{
#10my ($id,$cookie) = @_;
#11my $expires = "";
#12my $day = 1;
#13$$cookie =~ s/([^\w ])/'%'.unpack('H2',$1)/eg;
#14$$cookie =~ tr/ /+/;
#15if ($day > 0){
#16my ($mday,$month,$year,$youbi) = (localtime(time + ($day * 86400)))[3..6];
#17$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$youbi];
#18$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$month];
#19$year += 1900;
#20$mday = sprintf("%02d",$mday);
#21$expires = " expires=$youbi, $mday-$month-$year 00:00:00 GMT";}
#22return "$id=$$cookie;$expires\n";
#23 }
書き込めるのですが、ブラウザを閉じたら消えるようにしたいのです。
#12行目のmy $day = 1;の数字をゼロにしたけど、うまくいきませんでした。
同じく数字を消してもみましたが、うまくいきませんでした。
どこをどういじれば良いのか分からないので、どうか教えては頂けないでしょうか。
0238236
03/03/28 10:12ID:???Cookieの有無を調べて、abcというクッキーがなければよそに飛ばしたいのです。
#1 #!/usr/bin/perl
#2 use strict;&main;exit;
#3 sub main{
#4 my $id = "abc";
#5 my %cook = ();
#6 getcookie("abc",\%cook);
#7 print "Content-Type: text/plain\n\n";
#8 print "a:$cook{'a'}\n";
#9 print "b:$cook{'b'}\n";}
#10 sub getcookie{
#11 my ($id,$cook) = @_;
#12 my %cook = ();
#13 my $cookie = $ENV{"HTTP_COOKIE"};
#14 $cookie =~ tr/+/ /;
#15 $cookie =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2',$1)/eg;
#16 foreach my $x (split ";",$cookie){ my ($key,$value) = split "=",$x,2;
#17 $key =~ tr/ //d;
#18 $cook{$key} = $value;}
#19 foreach my $x (split ",",$cook{$id}){ my ($key,$value) = split ":",$x,2;
#20 $$cook{$key} = $value;}
#21 }
#13行目に my $cookie = if($ENV{'HTTP_COOKIE'},'abc' ) < 0 ){
print "Location:http://www.hoge.com/\n"; }
とでも書けば良いのでしょうか？ それとも全然違う行に全然違う事を書けば良いのでしょうか？
何にしても初心者の私にはこれ以上は難しいでとても困っています。
どうか救いの手をお願いできないでしょうか？
0239236
03/03/28 10:15ID:???0240nobodyさん
03/03/28 10:18ID:???CGI側ではブラウザを閉じたことを判別できないので、無理です。
JavaScriptを併用すれば可能かもしれない。が、これ以上はスレ違い。
0241nobodyさん
03/03/28 10:18ID:???ありがとう御座います。
いいですねえ、こんなの。もっとシンプルに１っ子だけしか送れないやつでも良いんですけどね・
ええっと・・・・・そのですねえ・・・プログラムが置いてあるところが知りたいんですけど・・・・
すみませんが・・・・よろしくおねがいします・・・・・・
0243nobodyさん
03/03/28 10:30ID:???0244227
03/03/28 11:40ID:???お邪魔しました。m(_ _)m
0245236
03/03/28 11:42ID:???#8 print "a:$cook{'a'}\n";
#9 print "b:$cook{'b'}\n";}は
#8 print "abc$cook{'abc'}\n";でした。<(_ _)>
0246nobodyさん
03/03/28 16:44ID:I24HmqWVこれは一体なんの意味があるんでしょうか。
0247kyo
03/03/28 17:25ID:b4ccXG3wどこか分かりやすい解説が載っているサイト知りませんか?
0248nobodyさん
03/03/28 17:29ID:???ログファイルに「スレ文」か「レス文」かを分けるなんらかの目印を入れる。
読み出しの時はその目印でレスかスレかの処理を分ける。以上。
他には書きようがない。
他人のBBSでも眺めれば？
0249nobodyさん
03/03/28 18:02ID:???apple,青森,40
orange,愛媛,20
strawberry,茨城,30
↑これがそれぞれ
@fluit = ('appe','orange','strawberry');
@from = ('青森','愛媛','茨城');
@price = (40,20,30);
こんな感じに配列に入ってるとき、たとえば下のようにすると、、、、
foreach (sort { ($price[$b] <=> $price[$a]) || ($a cmp $b) } 0 .. $#price) {
print "$fluit[$_],$from[$_],$price[$_]\n";
}
apple,青森,40
strawberry,茨城,30
orange,愛媛,20
↑こうなると思うんですが、
ソートする条件をフォームから指定させたいんです。
たとえば、($FORM{'jyouken'} eq "fluit")ならfluitでソートって感じに・・・
どのようにすればいいでしょうか？（説明へたですいません）
0250nobodyさん
03/03/28 18:03ID:???0251nobodyさん
03/03/28 18:45ID:???構造がだめっぽ 自分ならこうする
@data= (
{fluit=>'apple',from=>'青森',price=>40},
{fluit=>'orenge',from=>'愛媛',price=>20},
{fluit=>'strawberry',from=>'茨城',price=>30}
);
@data = @data[sort{$data[$a]->{$FORM{select}} cmp $data[$b]->{$FORM{select}] } 0 ..$#data];
for (0 .. $#data) {
print "$data[$_]->{fluit},$data[$_]->{from},$data[$_]->{price}\n";
}
0252nobodyさん
03/03/28 18:52ID:???えっと、恥ずかしながら
@data= (
{fluit=>'apple',from=>'青森',price=>40},
{fluit=>'orenge',from=>'愛媛',price=>20},
{fluit=>'strawberry',from=>'茨城',price=>30}
);
これははじめて見たんで、何をしてるのか・・・調べてきます。
できれば弄るところが多くなると思うんで、そのままの構造でいきたいんですが、、、
02534
03/03/28 19:08ID:JsShpJ/5扱っているのだと思います。違ってたらｽﾏｿ。
俺もこういうのちょっとｶﾞﾝﾊﾞﾛ･･
0254249
03/03/28 19:19ID:???↓
}} } 0 ..$#data];
こうですね。動作確認できました。
しかし、なにをやってるか調べてもわからないので、
どう組み込んだらいいのか・・・
この解説ページないですかねぇ
02554 ◆oIfBpVov3.
03/03/28 19:32ID:JsShpJ/5これ
0257nobodyさん
03/03/28 20:35ID:???テンプレートファイルに特定の変数値を流し込むための目印みたいなもん。
s/%%HOGE%%/$hoge_value/;
で、変換しているとか。
0258lanble
03/03/28 20:38ID:iBaRMkHHtext:<head><title>タイトルン</title></head>
があるばあい「タイトルン」だけに変更して表現するときはどうすれば
いいですか？あと
text:<head><title>titlen</title></head>
のtitlenにもマッチさせたいのですが、これらを正規表記一行で表現すると
どうゆうふうになるのですか？
0260nobodyさん
03/03/28 21:25ID:???http://www.din.or.jp/~ohzaki/regex.htm
これ読んでそれでもわからなかったら、
今度は正規表現のスレに行け。
0261nobodyさん
03/03/29 00:45ID:fHpTV+Jc初歩的な質問かもしれないですが・・・・・・・
パスワード制限するページで、
IDとパスワードでアクセス制限
（Basic認証でなく、<form>タグ内と<input tyle= text と passworsで）
して、ページを、
Apacheとperl5の環境でやりたいのですが、
どういう方法があるのでしょうか？
●<input type=hidden>で変数をやりとりする
●クッキーを使う
は知っているのですが、
これしか方法はないのでしょうか？
0262nobodyさん
03/03/29 01:01ID:8vJPU8locgiで以下のを実行させるとフレームが５個くらいできるのだけど
なぜですか？
#! /usr/bin/perl
test();
sub test{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html>
<head><title>testdesu</title></head>
<frameset cols="50%, 50%">
<frame name="t2"
src="$ENV{'SCRIPT_NAME'}?frame=test2">
<frame name="t3"
src="$ENV{'SCRIPT_NAME'}?frame=test3">
<noframes>
<p>このページはフレームをサポートしているブラウザで利用する必要があります</p>
</noframes>
</frameset>
</html>
END
}
0265nobodyさん
03/03/29 01:48ID:8vJPU8loなぜ6個でどういう動作しているのでしょうか？
#! /usr/bin/perl
if($FORM{'frame'} eq 'test2'){hidari();}
elsif($FORM{'frame'} eq 'test3'){migi();}
else{test();}
exit;
sub test{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html><head><title>test</title></head>
<frameset cols="50%, 50%">
<frame name="t2" src="$ENV{'SCRIPT_NAME'}?frame=test2">
<frame name="t3" src="$ENV{'SCRIPT_NAME'}?frame=test3">
</frameset></html>
END}
sub hidari{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>test2</title></head><body>test hidari</body></html>
END}
sub migi{
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>test3</title></head><body>test migi</body></html>
END}
0266bloom
03/03/29 01:55ID:i2vNq3FD0268nobodyさん
03/03/29 02:43ID:wFiuyLe9よく考えてから質問してくれ
0270nobodyさん
03/03/29 09:39ID:???0271nobodyさん
03/03/29 13:11ID:???後のことは知らんが。
0272nobodyさん
03/03/29 13:35ID:???通信がセキュアであることを判定するようなメソッドが欲しいと思い、
いろいろ環境変数などを探してみたのですが、ぜんぜん見付かりません。
どうやったら確実に判別できるのでしょうか。
もしかして、「https://から始まっていたらセキュア通信!」みたいにすればOKですか?
0273nobodyさん
03/03/29 14:06ID:???isSecua() メソッドとは何をもって通信がセキュアであると判断するんだ？
あと、どこまでのセキュリティレベルを必要としてるんだ？自分で理解してるのか？
それに環境変数ごときで判断して良いなら SSL_* 変数をチェックすりゃ十分だろうし、
https:// から、なんてレベルなら SERVER_PORT でも見りゃいーじゃん。
Perl と関係ねーじゃん。よそ逝け。
0274nobodyさん
03/03/29 15:06ID:GyYYsUNOそげなこといわんと、実装方法教えてくんろ。
■ このスレッドは過去ログ倉庫に格納されています