Perl コーディング初心者質問コーナー Part27
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/08/14 06:06ID:xOc/6R60【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
1： 自分はこう言う事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍 第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/
過去ログやお勧めサイトは >>2-10
0109nobodyさん
03/08/16 17:41ID:???0110あぼーん
NGNG0111あぼーん
NGNG0112あぼーん
NGNG0113あぼーん
NGNG0114あぼーん
NGNG0115nobodyさん
03/08/16 18:09ID:???0116nobodyさん
03/08/16 18:41ID:???011784
03/08/16 18:57ID:mdqCqsMrそれはさておき、「Can't locate Date/Manip.pm in @INC〜」なんてエラーが出てきました。
CPANで「Install1 Date」はしたのですが、他になにかしなければならないことがあるのでしょうか？
重ね重ねで申し訳ありませんが、よろしくお願いします。
0118nobodyさん
03/08/16 21:02ID:???一々作らんでも @INC に入ってない? UNIX系OS以外は知らんけど。
作るなら h2ph で。
見つからんって言われてるんだから、入れればいいじゃん。:-)
http://search.cpan.org/author/SBECK/DateManip-5.42a/
0119nobodyさん
03/08/16 21:19ID:???十進数の数字があり、それを出力する時16進数にしたいのですが、
どのように変換すれば良いのでしょうか？
すみません、かなり初歩的な質問ですがお願いします。
0120nobodyさん
03/08/16 21:20ID:???0121nobodyさん
03/08/16 21:33ID:???012284
03/08/16 22:43ID:mdqCqsMrDate::Manipは入りました。……単純に「install Date::Manip」でOKなんですね。
厨でごめんなさい(T_T)
0123あぼーん
NGNG0125119
03/08/17 01:30ID:???アホな質問に答えてもらって、とってもありがとうございました。
m(__)m
0126nobodyさん
03/08/17 01:59ID:okMBcaWDmkdir("mydir",0700);
のようにパーミッション指定できるが、
open(fp,">output.txt");
ってやって書き込むとパーミッションが自動的に644になります。
これを600にするにはどうしたらいいでしょう？？？
っつってもあとでchmodすればすむことなんだが、
open時に600にするようにできればしたい、
0128nobodyさん
03/08/17 02:29ID:???いったんファイルを削除します。それからディレクトリで呼び出すを選ぶと
復元できるので、その設定でパーミッションを設定すると固定できます。
0129あぼーん
NGNG0130あぼーん
NGNG0131あぼーん
NGNG0132あぼーん
NGNG0133あぼーん
NGNG0134あぼーん
NGNG0135あぼーん
NGNG0136nobodyさん
03/08/17 02:38ID:???IO::Fileモジュール使うとパーミッションを指定しながらオープンできます。
(sysopen互換のO_XXX指定を使うとファイルロックしながらオープンできたり便利。)
0137126
03/08/17 02:42ID:???おめーらに感謝。
0138あぼーん
NGNG0139nobodyさん
03/08/17 05:55ID:EjdzKOi8書きたいのですが、これをsocketモジュールを使わない
で行うことは可能でしょうか。
初心者ですみませんが教えてください。
0140nobodyさん
03/08/17 06:21ID:1qkkfnQMNet::POP3
0141nobodyさん
03/08/17 06:22ID:???0142あぼーん
NGNG0143あぼーん
NGNG0144あぼーん
NGNG0145あぼーん
NGNG0146あぼーん
NGNG0147あぼーん
NGNG0148あぼーん
NGNG0149nobodyさん
03/08/17 13:11ID:8iaOJK9HX.cgiの中身はこんなです
1,データＡ,データＢ,データＣ,
2,データＡ,データＢ,データＣ,
3,データＡ,データＢ,データＣ,
この中の、最後のデータの数字「3」を変数に入れたいのです。
open(IN,"X.cgi") ;
while (<IN>) {
$num = split(/,/);
}
close(IN);
print $num;
これ全然違いますが、$numに「3」が入ってくるようにしたいんです。
よろしくおねがいします。
0150nobodyさん
03/08/17 13:23ID:???splitの使い方がまちがっとる
$num = split(/,/); のすぐ下に print $num; を入れてみ。
その後で、splitの説明を読むとグー
0151nobodyさん
03/08/17 14:12ID:???$num = split(/,/); の２つ下に print $num; を入れる。
それからwhile (<IN>) { をwhile($IN1 > 0)｛
に変える。
その後で、スクリプトを３の入るようにすればＯＫ。
上はどっかの馬鹿だから無視しろ。
0152あぼーん
NGNG0153あぼーん
NGNG0154あぼーん
NGNG0155あぼーん
NGNG0156nobodyさん
03/08/17 14:16ID:???おまえの脳みその程度もよくわかりました。
もう、二度と来ないでくださいね。すっごいむかつく！！
くだらん質問する暇あったら自分で調べろ！死ね！！
0157あぼーん
NGNG0158あぼーん
NGNG0159あぼーん
NGNG0162nobodyさん
03/08/17 15:22ID:???運用情報のほうへ回そう
荒らしとしてアク禁しますっていうことなんじゃないか？
0164nobodyさん
03/08/17 17:34ID:FkUVLAYOwhile(<STDIN>) {
print;
}
のようなフィルター（そのまま出力するだけですが（；´Д｀））を作った後、
DOSの場合、どうやって実行するんですか？
すごい初歩的な質問でスイマセン
0165nobodyさん
03/08/17 17:36ID:???0166nobodyさん
03/08/17 18:11ID:???perlにパスが通っており、
それがtest.plというファイルなら、
test.plのあるフォルダにcdコマンドで移動し、
perl test.pl
と打ってEnterを押す。
とか、普通に答えてみる。
コーディングの質問じゃねー。
0168nobodyさん
03/08/17 18:23ID:FkUVLAYO出来ました。ありがとうございます。
というかスレ違いでしたか、スイマセン。今から気をつけます。
0169nobodyさん
03/08/17 18:24ID:???>Perlでﾊﾞｲﾅﾘﾌｧｲﾙに保存したいんだけど、なにか(いいバイナリファイル)あります？
画像ファイルがバイナリファイルだろうね。
0170あぼーん
NGNG0171nobodyさん
03/08/17 18:44ID:ycQ+dswyフレームを使っている性で全部リファラがindexになってしまいます。
使っている鯖はSSIは使えませんし、.htaccessも使えません。
どうすればリファラが取れるんですか？教えてください。御願いします。
すれ違いだったらすいません。
0172nobodyさん
03/08/17 18:53ID:???CGIスレ向き。
0173あぼーん
NGNG0175あぼーん
NGNG0176149
03/08/17 19:40ID:8iaOJK9Hありがとうございました。
ちょっとうまくいかないんですが（ＴＴ）
なんか根本的に判ってないかもしれないので出直します。
splitの勉強を・・・
0179nobodyさん
03/08/17 20:35ID:???・17歳童貞
・高校生だが、成績が追いつかず、学校でも苛められて現在引き篭もり中。近々退学予定。
・自己管理が出来ず、体系は肥満気味。お風呂に入らないので臭い。
・家族構成は共働き両親２人とペットのハムスター20匹（名前付き）
・起きている間は、ほぼインターネットを利用している。
・最近KENT-WEBからASKAを借りてきて、初めてPerlを知った。
・日ごろから、書き込む度に叩かれている某掲示板には恨みを抱いているようだ。
・もう2ヶ月ほど家族意外と顔を合わせた事は無い。
0181nobodyさん
03/08/17 20:53ID:???http://x68000.startshop.co.jp/~68user/net/
ここのサンプルはSocketモジュールを使ってるけど、
「サンプルがperl5専用なワケ」を読めば、すぐperl4対応
（->モジュール不使用）にできるはず。
しかし、なんでモジュールを使わずに？
0182nobodyさん
03/08/17 20:58ID:qWovZd+9まぁまぁ、そう自己紹介しなさんな。
0184nobodyさん
03/08/17 23:06ID:???require './cgi-lib.pl';
%form = &read_input('euc');
$name = $form{'name'};
print "Content-type: text/html\n\n";
print "<html><head><title>結果</title></head><body>\n";
print "<p>名前：$name</p>\n";
print "</body></html>\n";
↑のようなスクリプト作ってANHTTPDを起動し、
実行しようとしても「サーバーがみつかりません」が表示されます。
何がいけないんでしょうか？
0185nobodyさん
03/08/17 23:06ID:???日本語で解説してある際とがぜんぜんないもんで。
use IO::File;
my $fh = new IO::File('log.dat','r'); #読み込み
my $fh = new IO::File('log.dat','w'); #書き込み
my $fh = new IO::File('log.dat','r+w'); #両方
などでオープンできるとこまではわかったんだが、
このファイルから全部読み込む場合にはどうしたらいい？
my @array = $fh->read; ← こんな感じでよいのかい？
あと、書き込むときは
$fh->print('文字列');
で、可能みたいなんだが、英語が四面からわからん。
0186nobodyさん
03/08/17 23:18ID:???perlコーディングとは「全く」関係無いですね。そのエラーから「推測」すると、
あなたのクライアントからサーバーが見れていないようです
0187nobodyさん
03/08/17 23:20ID:???こんな事言う様じゃ解答する気になれないな。
これを機会に読めるように辞書片手に必死こいて読んで見たら？
解答者の中にはそうやってスキルとか知識身につけてる人もいるんだから
0190139
03/08/18 00:10ID:???仕事でパッケージ化するかもしれないといわれたので、
完全オリジナルでなかったら何かと問題が出るかと思い、
質問させていただきました。
もともとは趣味で作ってたものなので。
標準モジュールは使っても問題ないのでしょうかねぇ、、、
0194nobodyさん
03/08/18 01:32ID:???できねーっていってんだろ！馬鹿！！
おまえみたいなよく読まない奴は、うざいからさ。とっととどっか行ってくれない？
まじに迷惑なの、わかんない？？
0195あぼーん
NGNG0196あぼーん
NGNG0197あぼーん
NGNG0198あぼーん
NGNG0199あぼーん
NGNG0200あぼーん
NGNG0201あぼーん
NGNG0202あぼーん
NGNG0204nobodyさん
03/08/18 05:42ID:???0205nobodyさん
03/08/18 06:19ID:???日付のチェックを行う便利なライブラリがあったので
インストールしたんですが、なぜか使えません。
my $date = new Date::Simple(1999,12,31);
を実行すると
Undefined subroutine
というエラーが出ます。new関数が定義されてないとか言われ増す。ためしに
print $Date::Simple::VERSION;
とやってみたら、ただしく 1.03 と表示されたので、
ライブラリのパスが間違っているとかそういうことはないと思うんですが、
どうやったら使えます？
■ このスレッドは過去ログ倉庫に格納されています