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
0554nobodyさん
03/04/03 17:38ID:???foreach (sort {$POINT{$b} <=> $POINT{$a}} keys %POINT)
でポイントの大きい順にソートできるのはわかるのですが
$name順にソートするにはどうしたらいいでしょうか？
05554
03/04/03 17:43ID:addlh6ntuse Benchmark;として得られたベンチマーク結果、
no1: 5 wallclock secs ( 4.40 usr + 0.01 sys = 4.41 CPU) @ 22727.27/s (n=100000)
このときの、usr と sysってなんすか?
0556457
03/04/03 17:49ID:???open(FILE,"ip.txt");
@data = <FILE>;
close(FILE);
if(@data = "/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/"){
&connection;
}else{
&unconnection;
}
こうですね。でも、なぜif(@data = "/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/")が代入演算子でするのでしょうか。
テキストのデータが*.*.*.*だった場合の処理だから比較演算子ではないんでしょうか？
0557nobodyさん
03/04/03 17:51ID:???#!/usr/bin/perl
open(FILE, "ip.txt");
$data = <FILE>;
close FILE;
if($data =~ /close/){
$dotti='非公開';
}else{
$dotti='公開';
}
print "content-type: text/html\n\n";
print "<html><head><title>$dotti</title></head>\n";
print "<body><h1>$dotti</h1></body>\n";
print "</html>\n";
exit;
05584
03/04/03 17:52ID:addlh6ntopen(FILE,"test.dat");
chomp($text =<FILE>);
close(FILE);
print qq/i="$text"\ndocument.form.txt.value=i/;
こんな感じにしたらどうだろうか?
0560457
03/04/03 17:56ID:???http://www.kent-web.com/perl/chap6.html
ここに@*という配列変数にセットするって書いていたので。。。
0561bloom
03/04/03 18:00ID:iUh0kMHD0562531 CGIでwww上のhtmlソースを取得
03/04/03 18:01ID:507cBmxsまた自力で頑張ろうと思います。m(__)m
0563nobodyさん
03/04/03 18:02ID:???配列ってのは複数のデータを格納するもの。
IPアドレスかcloseという語のどっちかなんでしょ？
それならスカラ変数でいいの。
0564457
03/04/03 18:03ID:???すいません。あと２つだけお願いします。
$data =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/
これですが、「~ 」はどういった意味なんでしょうか？これがないとできなかったんですが、重要なものですか？
それと、なんで「==」ではだめなんでしょうか？
0570553
03/04/03 18:08ID:os6gOz9aすいません。それで試しても結果は変わりません。
ファイルから読み込まずにやるとうまくいくのですが・・・
0572531 CGIでwww上のhtmlソースを取得
03/04/03 18:10ID:507cBmxsおっしゃる通り説明不足でした、申し訳無い..
勉強して出直してきます。m(__;)m
0573nobodyさん
03/04/03 18:12ID:addlh6ntttp://hex51.darktech.org/cgi-bin/ubbs/bbs.pl?frame=2&base=44&no=44
0574nobodyさん
03/04/03 18:23ID:???めちゃくちゃにも程がある
配列も知らん香具師に何ができるんだ？
それにパターンマッチ云々知らなかったとしても
＞これですが、「~ 」はどういった意味なんでしょうか？これがないとできなかったんですが、重要なものですか？
↑この発言はないだろ。
それぞれ一文字一文字にちゃんと意味があるに決まってるだろ？
聞く前にネットなり本なりで少しは調べろ
特に配列なんてのは大概一番最初の方ででてくることだ
0575その認識は改めたほうがいいよ。
03/04/03 18:44ID:???0576馬糞はんばーぐJr.
03/04/03 18:52ID:???誰に言ってるんだおみゃーは
0577531 CGIでwww上のhtmlソースを取得
03/04/03 18:58ID:507cBmxsわ.. そのCGIをローカルサーバと無料レンタルサーバで
試してみたところどちらでもちゃんと動きました。（汗
ソースもシンプルなのでとても参考になります。
このCGIを参考に自分のプログラムが動かなかった原因も
調べてみます、感謝っす！m(_ _;)m
0578nobodyさん
03/04/03 19:04ID:???553のスクリプトをWinXP＋ActivePerlの環境で実行したら
i="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
となったので、そのスクリプトで問題ないのでは？
0579nobodyさん
03/04/03 19:06ID:???何だろ、俺も知りたい
UN*X の time(1) なら
user ... 実行に要した時間
sys ... システムのオーバーヘッドに要した時間
だけども。同じかな？
0581nobodyさん
03/04/03 22:00ID:???おたくなぁ、同じこと何回もかいてるんじゃねぇよ
現在使える分は5.8
6は使うならば自分でperlをコンパイルせねばならんのだからおたくのレベルにはかんけーねーよ
0583nobodyさん
03/04/03 23:31ID:LZizHVyk全角カナに強制的に変換されたりします。どうやって表示させればよいのでしょうか？
0584nobodyさん
03/04/03 23:38ID:???0586nobodyさん
03/04/04 00:43ID:MGOn1k3AここのUP掲示板です。
http://www.big.or.jp/~talk/t-club/soft/index.html
0587nobodyさん
03/04/04 00:48ID:???【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
0589nobodyさん
03/04/04 01:21ID:???0592nobodyさん
03/04/04 01:52ID:CT5BhxQdできればGETにしたくないのですが。
0593nobodyさん
03/04/04 01:59ID:???完全な方法はない。
保存データとの比較が最も安全ではあるが、間に別のデータが挟まれば結局無意味。
無難な方法はLocation。
0594nobodyさん
03/04/04 01:59ID:???0598nobodyさん
03/04/04 02:01ID:CT5BhxQdありがとう。locationで飛ばしてみます。
0599nobodyさん
03/04/04 02:04ID:CT5BhxQd0600brain
03/04/04 02:28ID:???掲載するにあたって必要なサーバースペースを有料レンタルしています。
お客様に快適なサーバーを提供するためにさまざまなホームページの目的に応じて、
単なるホームページスペースだけではなく、動画やゲームまたは個人放送はもちろん、
そのツールとしてCGI、PHP、SSI、SQLデータベースなどあらゆるサーバースペースを提供しております。
http://www.ebrain21.com/
[email protected]
0601nobodyさん
03/04/04 04:54ID:i3RHe7j/ｱﾊﾟｯﾁの1.3.27でActivePerlを使っていて、OSはXPです。
自宅ｻｰﾊﾞを使って、HPを作っているのですがｶｳﾝﾀが動かないんです。
掲示板は動いているので、CGIはちゃんと使えていると思ったのですが
なぜかｶｳﾝﾀだけ「×」がでたまま動いてないんです。
KENT WEBさんの夢ｶｳﾝﾀを使用していて、設定や記述は何度も見直した
のですが、ﾁｪｯｸﾓｰﾄﾞでCGIまでのURLを打ち込んでみてもCGIﾌｧｲﾙがその
まま開いてしまうのです。
すみませんが、何か心あたりがあえば教えてください。
ちなみに、前もHPを作ったことがあるのですが（同じﾊﾟｿｺﾝで）その時
はちゃんと動きました。そのときは、知り合いに同じ質問をしてﾌｫﾙﾀﾞ
ｵﾌﾟｼｮﾝから関連付けをしたら動いたような記憶があるのですが、OSを
再ｾｯﾄｱｯﾌﾟしたのでまた同じ症状になってしまっています。前聞いた
人間は「忘れた」とだけ言って相手にしてくれません（涙
検索しているのですが、なかなか見つかりません。すみませんが、
よろしくお願いしますです。
0603601
03/04/04 07:20ID:i3RHe7j/0605601
03/04/04 07:36ID:i3RHe7j/初心者なので、perlと関係があると思ってました。
別板行きます。
0606nobodyさん
03/04/04 08:12ID:jZjztjzXuse Win32::API;
と、書かれているのですが、これを読み込んだ瞬間にperl.exeのウインドウが閉じてしまいます
どう対処したらよいでしょうか？
0609nobodyさん
03/04/04 09:12ID:fwRQKvSx0610bloom
03/04/04 09:46ID:ZGDQypNs0611nobodyさん
03/04/04 09:48ID:???そろそろ赤字でIP晒して欲しいな。
0612nobodyさん
03/04/04 11:02ID:lpjcObWVで、CSV形式つっても、アプリによって微妙に差があるじゃないですか？
そこで、自分はエクセル用のCSVにしたいと思ってるんですが、
その際の仕様はどーすればいいんでしょうか？
●値は,で区切る
●値の中に"があるときは""と入力
●改行はそのまま改行を入れる。
●数字以外はセルの値を""でくくる
・・・でＯＫ？
0613nobodyさん
03/04/04 11:07ID:???0614nobodyさん
03/04/04 11:37ID:T4cPGriSkeys関数は、ハッシュ変数のすべてのキーをリスト値として返します。
@key = keys( %hash );
キーの格納には乱数を使った手法が使われるため､ハッシュ全体を出力する場合､その順番は保証されません｡ですから、@key には %hash のキーが順序を無視して格納されます。
順番通りに格納すればいいのに、どうしてこういう仕様になってるんですか？
perl作ってる人は何を考えてるんですか？
0615nobodyさん
03/04/04 11:37ID:???>>2
> [お薦め]
> ・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm ★読んどけ
0620nobodyさん
03/04/04 13:12ID:???0621nobodyさん
03/04/04 13:16ID:???0623nobodyさん
03/04/04 13:29ID:Oo/SV5Mjのパスを指定することができない(みたい)ので、テストで非常に難儀します。
サンプルのpasswd,groupファイルを読ませる方法はないのでしょうか。仕方なく
Unix::ConfigFileを使っているのですが、重いです。非常に便利で、なおかつどこで
も使える組みこみ関数なだけに惜しい。
0624251
03/04/04 13:49ID:???Win32::APIが入ってないんじゃないの？
>>612
http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values
http://www.din.or.jp/~ohzaki/perl.htm#CSVfromValues
>>614
配列みたいに、キーにはa>bみたいな上下関係無いもん・・・
何をもっての順番なのか意味不明・・・
0625nobodyさん
03/04/04 13:59ID:???>キーの格納には乱数を使った手法が使われるため､
って笑われぞ。ちゃんと順番には出てくる。
メモリーの格納順であって、キーの順番になっとらんだけだつーの(w
0629nobodyさん
03/04/04 14:47ID:???0630nobodyさん
03/04/04 14:48ID:n4Opp+jHヤフーのログイン・ログオンはどういう仕組みなのかな？
0634nobodyさん
03/04/04 18:42ID:???Win板のXPスレで聞いてこい。
0635nobodyさん
03/04/04 18:47ID:jyfKo/rmｽﾙｰでつが？それが何か？
0636606
03/04/04 19:09ID:???試しにperl.exeを起動して、最初の一行目に
use Win32::API;
と、入力してリターンを押すとウインドウが閉じてしまってエラーメッセージすらも見れません
win32::apiが入ってない場合はどのようにすればいいのでしょうか？
よろしくお願いします(´Д⊂)
0637nobodyさん
03/04/04 19:16ID:???>ウインドウが
この時点で俺はお手上げだなぁ。
とりあえず、その perl.exe とやらはどこから入手したのさ？
0640nobodyさん
03/04/04 20:50ID:???perl.exeを*ダブルクリックで*起動して、perlがstdin待ちになったところへ
use Win32::API;と入れて、すく終了してウィンドウが閉じたと。漏れはUNIX派なので
ここらへんよく分からんが、WindowsだとCtrl-d押さなくても終了になるんかな。
コマンドプロンプトを知らん人が、Win32::APIなど使えるわけありません。あきらめ
た方が時間の節約になりますYO。
0643606
03/04/04 21:22ID:???一種類だけ動かないんで聞いてみました
0644nobodyさん
03/04/04 21:28ID:OlDxyviA例えばあるページで使用した$test1=10を次のページでも
form変数やurl変数で送らずに使用したいです。
可能でしょうか？教えてくださいまし。
0646nobodyさん
03/04/04 21:30ID:???ファイルに保存しる。
0651nobodyさん
03/04/04 21:47ID:???レベルはそんな所であろうな・・・
一応Un？xで動かないとか訳解らん事言ってるんじゃないのな・・・
ppm install win32-api
とコマンドプロンプトに打ち込めばモジュールはインスコ出来るけど
ttp://member.nifty.ne.jp/hippo2000/perltips/module_install.htm
>606はココ読んで勉強しなさい
0652606
03/04/04 22:05ID:???解決しました
time-hiresとhttp-liteは入れたんですが、一つ足りなかったようですね
なんか勉強不足で訳分からない事言ってたと思いますが
ありがとうございます
0653nobodyさん
03/04/05 01:50ID:???■ このスレッドは過去ログ倉庫に格納されています