【Perl】初心者コーナー Part15
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
02/08/08 23:19ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【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あたりを見よう。
0656nobodyさん
02/09/06 00:48ID:???$ua=$ENV{'HTTP_USER_AGENT'};
if($ua=~/UP.Browser|DoCoMo|J-PHONE|ASTEL|PDXGW|L-mode/i){
あとはお好きに
ttp://specters.net/cgipon/labo/c_dist.html
ここの内容を要約して見たつもり。
0663Ｔ女の竹田
02/09/06 01:16ID:???うん、セキュリティから言うとJavaScriptじゃ何もしてないのと同じだしね。
この場合みたいにおまけみたいな機能ならいいかなと思った。
>>660,661だ
0667nobodyさん
02/09/06 03:28ID:???ぶっちゃけスクリプトのどこに置くのが一番効率いいんでしょうか。
とにかく先頭の方でしょうか
はたまた最下部でしょうか
それとも呼び出す直前でしょうか
どこでもいっしょでしょうか
というかなるべく使わないほうがいいんでしょうか
自分では調べられないので教えてくださいまし。
0668nobodyさん
02/09/06 03:50ID:???0669667
02/09/06 03:51ID:???0670名無しさん＠Ｍｅａｄｏｗ
02/09/06 05:32ID:dZ6p0GwtIE5.5ではできんかった。というよりINPUT TYPEとかも書いてほしい。
>>649 よく理解できんです。
サーバーのデータベースに直接アクセスするとかソースを見られて
はいけないものは、CGIだけど、それ以外は、なるべくサーバーに
負荷がかからないクライアントサイドのJavaScriptで処理した方が
いいのでは。
まあ、JavaScriptをOnにしてくださいと書くのは面倒というのはある。
テキストブラウザとかだとJavaScriptできないし。あとJSのバー
ジョンとかNSとIEの違いによるサポート状況の違いとか面倒。
>>627 もう来ないか。textareaだかで受け取ったデータの中の
全角<->半角変換スクリプト：
$input = "0123４４５６7899０１２";
@zenkaku=('０', '１','２','３','４','５','６','７','８','９');
@hankaku=('0','1','2','3','4','5','6','7','8','9');
$sw = 1;
if ($sw == 1) {
&zen_han(\@zenkaku,\@hankaku);
} else {
&zen_han(\@hankaku, \@zenkaku);
}
sub zen_han {
my ($A, $B) = @_;
for $i (0 .. 9) {
$input =~ s/@$A[$i]/@$B[$i]/g;
}
}
print $input, "\n";
0671nobodyさん
02/09/06 06:55ID:HPly/0Dw0672nobodyさん
02/09/06 06:59ID:???http://www.google.co.jp/search?q=%83A%83N%83Z%83X%90%A7%8C%C0%82%CC%8Ed%95%FB
0673nobodyさん
02/09/06 07:04ID:???regist.cgiの中の
unlink("$logdir$in{'no'}\.cgi");
unlink("$logdir$in{'no'}\.dat");
なのですが、unlinkでエラーを返してきます。
和鳥だとunlinkは使えないのでしょうか？
0674nobodyさん
02/09/06 07:14ID:???早くどうにかしてください。
0675nobodyさん
02/09/06 07:20ID:???板違いかな
http://pc.2ch.net/perl/
こっちちゃう
0676nobodyさん
02/09/06 07:23ID:???板違いかな
http://natto.2ch.net/denpa/
こっちちゃう
0678nobodyさん
02/09/06 15:15ID:???0680ぱぴぷぺ
02/09/06 17:41ID:UnlQ9r36と考えてるんだけど、モジュールとか使わない場合、
XBMつーーのがあるのを知ったのですが、
これはモノクロのみカラーは絶対ダメ？
0681nobodyさん
02/09/06 18:28ID:???>動的に画像をブラウザに表示
なら、Location、binmodeで吐く
「動的に作成した画像をブラウザに表示」
なら、GDが無難か？ファイルにもよるか…
0682nobodyさん
02/09/06 18:31ID:???xbm,xpmはIEで表示できたっけ。
0683名無しさん＠Ｍｅａｄｏｗ
02/09/06 20:35ID:???perlによる日本語の扱いはeucにするのが常識。
0686nobodyさん
02/09/06 23:31ID:???0689nobodyさん
02/09/06 23:42ID:Aw2qBvZ4例えば$aaaが4876で$bbbが124だった場合、$aaaを487、$bbbを6124にしたいのです。
「$bbb = chop($aaa).$bbb」 と書いてみたら、結果は$aaaが空白で$bbbが4876124になってしまいました。
どう書けばよいでしょうか。
0690nobodyさん
02/09/06 23:57ID:1kVQvMrN1件につき最大10.000円の高額収入。月収100万円以上も可能。
■画期的なビジネス！
インターネットを利用したこれまでにない斬新で画期的なビジネスです。
■誰でも出来ます！
インターネットができる環境の方なら誰でも参加可能です。
インターネットを利用したビジネスですので、自宅や会社で好きなときにで
きるビジネスです。
■専門的な知識は一切不要！
ビジネスに必要なツールは全て当社で用意いたします。
また、サポートも万全です。
■詳細は今すぐこちらから
http://www.bea.hi-ho.ne.jp/paisen/
0692685
02/09/07 00:01ID:???$ccc=$aaa$bbb;
$cco=$ccc =~ s/\d/\d/g;
$cco=$cco-1;
$ccc=~ s/(\d{1,$cco})([^\n])/$2/g;
$ccc=$ccc$bbb;
0693685
02/09/07 00:02ID:???$ccc=~ s/(\d{1,$cco})([^\n]*)*/$2/g;
こふだった。
0694685
02/09/07 00:05ID:???0695685
02/09/07 00:12ID:???$bbb='22222';
$cc0="$aaa$bbb";
$cco=$cc0 =~ s/\d/\d/g;
$cco=$cco-1;
$ccc =~ s/(\d{1,$cco})([^\n]*)/$2/g;
$ccc="$ccc$bbb";
0697nobodyさん
02/09/07 00:18ID:???$bbb = '124';
$aaa =~ s/(.)$//;$bbb = $1.$bbb;
0699Ｔ女の竹田
02/09/07 00:23ID:???そのスクリプトを理解する必要はないし、そのスクリプトから
何かを学ぼうと思わない方がいいと思うよ。
>>689
そのまま
$bbb = chop($aaa).$bbb;
で動くと思うけど。
0701685
02/09/07 00:24ID:???$bbb='22222';
$cc0=$aaa;
$cco=$cc0 =~ s/\d/\d/g;
$cco=$cco-1;
$cc1=$aaa;
$cc1 =~ s/(\d{$cco})([^\n]*)/$2/g;
$ccc="$cc1$bbb";
0702685
02/09/07 00:39ID:???きさまは以前にも突然現れ消えたことがあった。]
689[オラには聞き逃げができる。]
685[そいつはやっかいな技だ。ﾊﾞｼｯ!私も聞き逃げは自身があるんだ。]
0703685
02/09/07 00:43ID:???685[689とまではいかないがね。]
0704689
02/09/07 01:15ID:mL5CsCc5わたしもなぜ$bbb = chop($aaa).$bbb; で$bbbの値全部が$aaaの頭にくっついて
しまうのか、わからないんです。
>>685
$aaa $bbb の値は dat.txtを参照しているので、固定値ではありません。
0705689
02/09/07 01:34ID:mL5CsCc5わたしもなぜ$bbb = chop($aaa).$bbb; で$aaaの値全部が$bbbの頭にくっついて
しまうのか、わからないんです。 ○
わたしもなぜ$bbb = chop($aaa).$bbb; で$bbbの値全部が$aaaの頭にくっついて
しまうのか、わからないんです。×
0706nobodyさん
02/09/07 01:42ID:???#例
while($aaa){
$bbb = chop($aaa).$bbb;
}
これなら$aaaが空になって全部$bbbの頭に付く。
0708689
02/09/07 01:55ID:mL5CsCc5きっとその通りです(><)
でも、置換条件があるので､
if($aaa ne $hoge){
$bbb = chop(aaa).$bbb;
}
というように、{}内に書かなきゃいけないかなと思っているのです。
発想自体間違っているのかな...
>>707
文字列扱いにする方法はありますでしょうか。。
0710nobodyさん
02/09/07 02:03ID:???chopの時点で文字列コンテキストに変換されるわけだが。。
>>708
適当なとこ言うな。
>>689
普通にやりたいことやるなら
$bbb = substr($aaa, -1) . $bbb;
だけど、chopでも$bbbの値は希望のものになるはず。
ならないなら他に原因がある。
前後のコード晒してみると吉。
0711nobodyさん
02/09/07 02:04ID:???if($flag != 1 && $aaa ne $hoge){
$bbb = chop($aaa).$bbb;$flag=1;
}
とか。
0712nobodyさん
02/09/07 02:10ID:???0713689
02/09/07 02:10ID:mL5CsCc5とりあえずchopはあきらめてsubstrで試してみます。
（やりたい事は同じはずだから）
ありがとうございました。
0714nobodyさん
02/09/07 02:12ID:???その外側にwhile(){〜}とかfor(){〜}とかforeach(){〜}とかの
ループがあるんじゃないのか。
substrじゃ$aaaの値は減らないけど良いの？話違わない？
>>712
スレタイ嫁
0715nobodyさん
02/09/07 02:33ID:???$bbb = (chop($aaa)).$bbb;
0717名無しさん＠Ｍｅａｄｏｗ
02/09/07 04:24ID:???私は、jperl使ってるので別に文字化けしないけど。
じゃtr使えばいいじゃんという問には答えません。
0718nobodyさん
02/09/07 12:21ID:???0719nobodyさん
02/09/07 14:35ID:???0720nobodyさん
02/09/07 16:12ID:???0721CGIゲームつくりたい人
02/09/07 18:06ID:BCsa1yWW目標が自分でCGIゲームを作ることで
そのために参考書を買って勉強したいのですが
オススメの本ありますか？
本屋いってもゲーム作りの本がどれだかわからなくて・・・
よろしくおねがいします。
0722nobodyさん
02/09/07 18:40ID:???作りたいゲームにもよるけど
Perl は君の求めるものに向いてないと思うよ。
JavaScript とかの方が良いんじゃない？
0724nobodyさん
02/09/07 19:11ID:???まてまて、Flash+CGIという素晴らしいコンビネィションがあるだろうが
0726nobodyさん
02/09/07 20:02ID:6TBf75EAヤッタ？マン コーヒー ライター
という3つがスペースで区切られてあった時、
aa=ヤッタ？マン
bb=コーヒー
cc=ライター
というふうにするにはどうすればよいのでしょうか？
0727nobodyさん
02/09/07 20:05ID:???>>721 はわざわざこのスレを選んだんだ。
http://www.webgame.co.jp/
でも Perl のゲームはわりとあるし。
てゆうか検索してオレがびっくりしたよ。
しりとりゲームくらいならココで。
http://www.geocities.co.jp/SiliconValley-Oakland/1680/xperl/
0730CGIゲームつくりたい人
02/09/07 20:58ID:BCsa1yWWレスありがとうございます。
作りたいゲームは・・・罪と罰++やFFAみたいなゲームです
普通のPerlの本をきちんと読めば作れますか？
それともゲーム作成向けの本とかあるんですか？
0732nobodyさん
02/09/07 21:08ID:???だいたいゲーム作りたいならCやれ。
Perlは馬鹿でも使える言語だが、ゲームが作りやすい言語でない。
習得期間は
Perlは3カ月で
Cは1年
C++は３年だ。
Perlの本はオライリーの奴買っとけ。
0733nobodyさん
02/09/07 21:13ID:???複雑さがCとは比べものにならないでしょ(^_^;)
0734nobodyさん
02/09/07 21:17ID:???両方覚えたけどPerlの方が楽。
Cは基本的な部分を覚えるまでに挫ける人が出そう。
プログラムのいろはを知らない人間ならPerlからの方が断然楽だと思う。
サンプルソースが山のように転がってるし。
なにをもって習得とするかの問題だけど、出力をＨＴＭＬでできる分、
ＰｅｒｌでＣＧＩスクリプト作った方が楽だと思うよ。
0735nobodyさん
02/09/07 22:28ID:???perlは「ゲームを作るための言語」ではないので
「ゲームの作り方の本」なるものはないと思われ。
応用すればゲームにもなるというだけの話
0736nobodyさん
02/09/08 01:41ID:GXmEPtQHと
foreach(@xx){〜}
の違いを教えてください
0737nobodyさん
02/09/08 01:46ID:???perl -MO=Deparse,-x7 -e 'foreach(qw/a b c/){ print }'
というわけで、for(@配列)の場合、ただのforeachと同等。
0738nobodyさん
02/09/08 01:53ID:GXmEPtQH0739nobodyさん
02/09/08 06:17ID:nOl8KoRoperlでゲームは作れるが、perlでゲームを作る本などない
perlで掲示板が作れるようになれば、まあゲームも作れるだろう
0741nobodyさん
02/09/08 06:47ID:gqIGmvuoアクション系列のゲームならそうでしょうが、ウェブ上でのゲームならPerlベースで幾らでもありますよ。
表現はHTMLが精々ですけどね（ｗ
で、質問です。
AnyDBMで1000人前後のデータ（名前、成績、等大小50パラメータぐらい）を管理しようと考えています。
それでファイルロックをどうしようか悩んでいるのですが、
sub LOCK {open (LOCK, "lockfile.lock");flock(LOCK,2);}
sub UNLOCK {flock(LOCK,8);close(LOCK);}
こんなのってありなんでしょうか？
それともやはりrename等で制御したほうが良いですか？
0742名無し二丁拳銃 ◆0s6WDHa6
02/09/08 11:30ID:HukZlCsp以下のソースだと，カウンタの値が永遠に１のままなんです。
#!/usr/local/bin/perl
#値を保存するファイル名
$file = "count.dat";
#−−処理開始−−
#ファイルを読み込み
open FH,$file;
$count= <FH>;
#カウントアップ処理
$count++;
#書き出し処理
print "Content-Type: text/html\n\n";
print "Total : <a href=cgi-bin/acces/replist.cgi>$count</a>";
#値を保存
open FH,>$file;
close FH;
exit;
0744nobodyさん
02/09/08 11:41ID:???html形式で送ろうと思うんですが、
ヘッダーの部分の
Content-Type: text/plain; charset=ISO-20220JP
ここのtext/plainを
text/html
に変えればいいだけですか？
ローカルだと実行できないので教えてください。
0746nobodyさん
02/09/08 12:14ID:Y8OpaJeI掲示板のプログラムを作成しています。
『投稿確認』をしたいのですが、そこでどうにもこうにも困ってるキングオブＤＱＮなんです。
まず、htmlファイルからsubmitで送られたデータを表示することはできるのですが
そこから先、どうすればいいのか分かりません。
どうすれば
[投稿確認画面表示]⇒[logファイルへの書き込み]の二段構えにすることができるのでしょう？
0747nobodyさん
02/09/08 12:21ID:???<input type="hidden" name="***" value="*********">
hidden
0749746
02/09/08 12:31ID:Y8OpaJeIありがとうございます。さっそく作ってみます。
0751nobodyさん
02/09/08 13:02ID:???0752746
02/09/08 13:16ID:Y8OpaJeI確認画面でsubmitで送られた文字を表示して
<form action = "./data.cgi" mehtod = post>
<input type = "hidden" name = "confirm" value = "OK">
<input type= "submit" value = "投稿する">
で最初にsubmitで送られた文字を表示するのと同じＣＧＩを呼び出して
if ($confirm eq 'OK' ) {
……
}
で分岐させたのだけれど、うまくいかない。
確認画面が表示されるだけです。しかも、nameとかemailとかのデータが全部消えてる。
0754747
02/09/08 13:21ID:???１から勉強しなおせ。
>751
gotoなどと言ってみるテスト。
■ このスレッドは過去ログ倉庫に格納されています