トップページ⇒php
1001コメント304KB

【Perl】初心者コーナー Part14

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/07/18 16:34ID:jemWJhH3
いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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あたりを見よう。
0313nobodyさん02/07/24 18:17ID:???
>>312
信用できません。
0314nobodyさん02/07/24 18:19ID:???
ヘッダーの部分見せてみろ。
0315初心者02/07/24 18:21ID:???
>>313
本当です。

Perl内は
print "Content-Type : text/html\n\n";
　　　　　　　　・
　　　　　　　　・
print "<HTML><HEAD><TITLE>投票結果</TITLE><META HTTP-EQUIV=\"PRAGMA\" CONTENT=\"NO-CACHE\">\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=Shift_JIS'></HEAD>\n";
print "<BODY BGCOLOR=#000000 TEXT=#FFFFFF>\n";
　　　　　　　　・
　　　　　　　　・
print int($count) ;
print "</table></div></BODY></HTML>";

となっています。
0316nobodyさん02/07/24 18:22ID:???
>>315
lintにかける。
0317nobodyさん02/07/24 18:29ID:???
>>312
サーバはどこ？
逆なら考えられるんだけどな・・・トクトクとかで。
0318nobodyさん02/07/24 18:31ID:???
>315
自分で初心者を名乗る奴は基本的に信用できん。

print "Content-Type: text/html\r\n\r\n";

にしてみろ。
0319初心者02/07/24 18:31ID:???
>>316
lintかけてみました。
ドキュメント宣言やHTML lang="ja"を入れてみたんですけど
やっぱりダメです。
ネスケでHTMLソースがダラダラと表示されてしまいます。
0320nobodyさん02/07/24 18:32ID:???
>>319
そもそもスクリプト中にHTMLまるまる入れるのは何とかできんのかと。

編集、デバッグ、保守

すべてが大変だが。
0321初心者02/07/24 18:33ID:???
>>318
オオオオ！！！
バッチリ逝きました！！！
ありがとうございます！！！

ローカルでは\n\nでうまく行ってたのに
ミクストメディアではこんなの必要なのか・・・・・
0322初心者02/07/24 18:34ID:???
>>320
HTML外部にしたら動作重くなるから。
0323nobodyさん02/07/24 18:42ID:???
>>318
それってWindows以外で受け取っても大丈夫？
0324nobodyさん02/07/24 18:45ID:???
>>323
>>318が正しいから問題ない。
IEが悪い。
0325nobodyさん02/07/24 18:50ID:???
>>323
HTTP敵にはそっちが大正解。
0326nobodyさん02/07/24 19:28ID:???
Perlについての質問箱
http://pc3.2ch.net/test/read.cgi/tech/1017736187/
： ◆JAPH9PWA はもうそこからでんな！
みてて悲しくなったぜ。
0327nobodyさん02/07/24 19:39ID:???
Perlで日本語を使うときはEUC-jp。
0328nobodyさん02/07/24 19:41ID:???
>>327
偏見？
0329nobodyさん02/07/24 19:48ID:???
表\示
0330nobodyさん02/07/24 20:07ID:???
>>328
普通だろ。
日本語マッチとかするときに。
0331nobodyさん02/07/24 20:13ID:???
確かにEUC-JPの方がいい。
漏れはShift-Jisで使い続けてしまったせいでとても変更してられないと思い変えてないが。
これから始める人はEUC-JPにしておいた方がいいぞ。
0332nobodyさん02/07/24 20:16ID:???
正しくは　Shift_JIS　と言ってみるテスト。
0333nobodyさん02/07/24 20:21ID:???
>332
ｽﾏﾇ
0334nobodyさん02/07/24 20:40ID:???
>>282-284
ありがとうございます
いろいろと参考にさせてもらいます
0335nobodyさん02/07/24 20:51ID:???
>>326 いい加減やめろ。
0336nobodyさん02/07/24 21:35ID:???
今掲示板をつくっていてログを読みこんで表示させるところまでは出来たのですが
よくある設定されている件数を超えると自動で「次の10件」などというアンカーを出すには
どういった処理をすればよいのでしょうか？
0337nobodyさん02/07/24 21:36ID:???
>>336
//ボタンを表示するか決定
//引数：ページ
//返値：無し
function checkbuttonvisible($page)
{
//ファイル開く
if(file_exists($this->config->datafile))
{
$fdat = file($this->config->datafile);
$count = count($fdat);
}

//戻るボタンの制御
if($page <= 0)
$this->beforebuttonvisible = false;

//進むボタンの制御
if($count - ($page * $this->config->rescount) <= $this->config->rescount)
$this->nextbuttonvisible = false;
}


PHPだがね。
0338nobodyさん02/07/24 21:51ID:OQVd1xfT
KENTさんのYY-BBSで半角カナが使えるようにするには
どこをどうすればよいのでしょうか？お願いします。
0339nobodyさん02/07/24 21:53ID:???
>>338
スクリプト言語の一つもまともに使えないくせによくほざく。
0340nobodyさん02/07/24 22:03ID:???
質問するみんな。
>>1は読んでるか？
0341nobodyさん02/07/24 22:04ID:???
>>340
マルチポストするなと言うのも入れてほしい・・・。
0342nobodyさん02/07/25 00:20ID:???
>>340
コテハンは荒れる元なので自粛ってのもいれてほしぃ。
0343nobodyさん02/07/25 01:08ID:???
まさに、コテハン叩きの思うつぼだな。
0344nobodyさん02/07/25 01:29ID:EsugPjEd
>>338
デコードのとこで
jcode.pl使ってる箇所をコメントアウトしてみ
0345nobodyさん02/07/25 02:08ID:/52BoRCi
perlで質問です。実行すると例えばユーザー名、パスワードを入力し、送信してくれる
ﾌﾟﾛｸﾞﾗﾑが作りたいんですけど、どんなライブラリ、関数を使えばよいでしょうか？
キーワードだけでも教えていただけないでしょうか？お願いします。
0346nobodyさん02/07/25 02:17ID:???
>>345
頭の中で言いたいこと整理してからもう一度来い。
＞ユーザー名、パスワードを入力し、送信してくれる
意味がわからん。何のユーザー名、パスワード。何処に送信？
0347nobodyさん02/07/25 03:03ID:???
scrachって何の事なんでしょうか？マジレスおなぎします。
0348nobodyさん02/07/25 03:06ID:GntP6rBS
from scratch＝ゼロから，　初めから．
0349nobodyさん02/07/25 03:14ID:???
サンスコ。
0350nobodyさん02/07/25 03:14ID:???
http://pc.2ch.net/test/read.cgi/php/1014096840/161
0351http://www.geocities.co.jp02/07/25 06:29ID:1xMT6UXy
どなたか、Geocitiesの広告のはずし方をご存じませんか？
0352nobodyさん02/07/25 06:50ID:???
>>351 >>1を読め。

それにしても、このスレッドも堕ちたな...。
0353nobodyさん02/07/25 07:35ID:???
>>337

perlしかわからないのですが・・

0354nobodyさん02/07/25 07:45ID:???
>>353
そんなに大きな違いがあるのか？
0355nobodyさん02/07/25 08:33ID:???
>>351

if $351 == aho {
$351 = itteyoshi;
}
0356nobodyさん02/07/25 08:35ID:???
>>355
動かんぞ？それ。
0357nobodyさん02/07/25 12:08ID:???
if ($_351 == "aho") {
$_351 = "itteyoshi";
}
035835702/07/25 12:09ID:???
if ($_351 eq "aho") {
$_351 = "itteyoshi";
}
0359nobodyさん02/07/25 12:26ID:???
>>354

関数が違うので分かりません
0360nobodyさん02/07/25 13:19ID:???
renameとunlinkを使いたいのですがうまくいきません。
rename (aaa.txt, bbb.txt);
でやると実行権限がないとエラーが出ます。念のためaaa.txtのパーミッションを777に
したんですけどダメでした。
unlinkは　unlink aaa.txt;　とやるのですがファイルが無いとエラーが出ますなんででしょう。
0361nobodyさん02/07/25 13:32ID:???
>>360
パーミッション777のファイルがリネームもアンリンクもできないということは、
ファイルシステムが壊れています。ＯＳを再インストールしましょう。
0362nobodyさん02/07/25 13:34ID:???
OSというのは、サーバーのOSが壊れてるって事ですか？
たぶんそれはないと思うんですけど。
0363nobodyさん02/07/25 13:34ID:???
ディレクトリのオーナー、パーミッションはどうなってんのよ
0364nobodyさん02/07/25 13:35ID:???
>>362
起こっている現象から推測すればそういうことになります。
0365nobodyさん02/07/25 13:57ID:???
http://cgi.tripod.co.jp/hello_baby/cgi-bin/aiueo.cgi
中身
#!/usr/bin/perl
require 'jcode.pl';
rename aaa.txt bbb.txt;
print "Content-type: text/html\n\n";# HTML文出力宣言
print "エラー：$!";

何がダメなのかさっぱりわからないです。ちなみにここはパーミッションとかは関係ないみたいです。
0366nobodyさん02/07/25 13:59ID:???
http://members.tripod.co.jp/hello_baby/aaa.txt
0367nobodyさん02/07/25 14:07ID:av9ITDXM
aaa.txt, bbb.txt
じゃないの？
0368nobodyさん02/07/25 14:17ID:???
すいません、出来ました。
でも今度はファイルが無いとエラーが出ます。
ファイルはちゃんとありますよね・・？
0369nobodyさん02/07/25 14:22ID:???
まだやってたんか。。。$ENV{'PATH'}を出力してみ。
0370nobodyさん02/07/25 14:22ID:v0Zz+Fi9
rename ("../aaa.txt","../bbb.txt");
こうしているんですが。
0371nobodyさん02/07/25 14:24ID:av9ITDXM
Tripodの特殊事情じゃないの。別鯖とか。よくしらんけど
0372nobodyさん02/07/25 14:24ID:???
>>370
そんなこと書かれてもそっちのディレクトリ構造知らんし。
0373nobodyさん02/07/25 14:25ID:v0Zz+Fi9
#!/usr/bin/perl
require 'jcode.pl';
# rename ("../aaa.txt","../bbb.txt");
print "Content-type: text/html\n\n";# HTML文出力宣言
print "$ENV{'PATH'}<br>";
print "エラー：$!";

何も出ないですね。。
0374nobodyさん02/07/25 14:26ID:v0Zz+Fi9
/cgi-bin/aiueo.cgi
/aaa.txt

こういう感じです。
0375nobodyさん02/07/25 14:29ID:???
>>374
ほんとにそうか？ホスト名が分かれているからＣＧＩ専用のサーバが分かれて
いるんじゃない？実際のディレクトリ構造とマウントポイント・エイリアス・
リンクなどもあるからニンともカンとも。
0376nobodyさん02/07/25 14:39ID:???
サーバのFAQ位読めよ
つーかローカルでテストやれや
外でするならKENTの設定変える以外触るな
0377nobodyさん02/07/25 15:00ID:???
renameとかってOSによって動くか動かないかわからないみたいだから
サーバー上でやらないと意味ないじゃん。
0378nobodyさん02/07/25 15:14ID:???
るせんだよ　ﾁﾝｶｽ夏厨
FAQ読めっつってんだろ　ああ？？
おまえ日本語の不自由な方か？
0379nobodyさん02/07/25 15:24ID:???
>>378
FAQ読んだけどrenameという単語は出てこなかったです。
そんなにカッカしないでヒントになるところ教えてください。
0380nobodyさん02/07/25 15:29ID:???
tripod.co.jpはCGIはcgi.tripod.co.jpサーバ
普通のファイルがmembers.tripod.co.jpサーバ
0381nobodyさん02/07/25 15:46ID:v0Zz+Fi9
#!/usr/bin/perl
require 'jcode.pl';
rename ("http://members.tripod.co.jp/hello_baby/aaa.txt","http://members.tripod.co.jp/hello_baby/bbb.txt");
print "Content-type: text/html\n\n";# HTML文出力宣言
print "$ENV{'PATH'}<br>";
print "エラー：$!";

こうやったけどダメでした。
0382nobodyさん02/07/25 15:48ID:???
>>381
痛いな。
0383 02/07/25 16:00ID:???
>>381
それだけでrenameできると勘違いしている新種の厨房(推定:中学校1年生 オナニーの覚えたて。)
0384nobodyさん02/07/25 16:02ID:???
痛いのはわかったんで何が違うのか教えてください。
0385nobodyさん02/07/25 16:03ID:???
別サーバのファイルにはLWPとか使わないとアクセスできません。
おとなしくcgi-bin/以下にファイルを置きましょう。
0386nobodyさん02/07/25 16:09ID:???
どうして、別サーバーなのに、一回のftpで両方つながるんでしょうか。
というか、一つのサーバーにつないでいるのにあたかも他のサーバーのディレクトリも見えるなんて不思議です。
0387nobodyさん02/07/25 16:13ID:???
#!/usr/bin/perl
require 'jcode.pl';
rename ("aaa.txt","bbb.txt");
print "Content-type: text/html\n\n";# HTML文出力宣言
print "$ENV{'PATH'}<br>";
print "エラー：$!";

aiueo.cgi と aaa.txt　を同じディレクトリに置きました。
エラー：No such file or directory　と出ました。
今度は何がいけないんですか？
そんなファイル無いと言われても確かに同じディレクトリにあります。
どうしてこんなに分からず屋なんでしょうか。
0388nobodyさん02/07/25 16:14ID:???
ftpでつながるのはftpサーバ（ftp.tripod.co.jp）です
members,cgi,ftpそれぞれ別なんです。
0389nobodyさん02/07/25 16:15ID:???
>>387
errorでてもファイル名は書き換わってないですか。
0390nobodyさん02/07/25 16:19ID:???
はれ！？
ほんとだ！
変わってる！！
なんでだ！？
0391nobodyさん02/07/25 16:49ID:???
そろそろ場違いだと気付いて欲しいんだけど？
0392nobodyさん02/07/25 17:02ID:???
じゃどこで聞けばいいんですか？
0393nobodyさん02/07/25 17:06ID:???
>>378
>>382
>>383
お前ら、見ていて不快だからくるな。
0394nobodyさん02/07/25 17:10ID:???
>392
tripodのサポート。
0395礼儀厨房02/07/25 17:10ID:???
①レンタルCGIでチャットをおきたいです
②Periへのパスの指定とディレクトリをいじってみたけど
③わかりませんでした。パスの指定とは基本的にどういうことなのでしょうか？
借りたサーバーのQAにいってもよくわかりませんでした。もっとも外国鯖なので
翻訳したのが少々わかりづらかったかなと・・・
借りた鯖はPROHOSTINGです　パスの指定、ディレクトリの仕方をご教授ください
お願いします
0396nobodyさん02/07/25 17:11ID:???
>>395
Peri -> Perl
0397nobodyさん02/07/25 17:12ID:???
>395
惜しいな。
＞いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。
「コーディング」のスレなんだ。
設置は別のところで聞いて。
0398礼儀厨房02/07/25 17:14ID:???
>>397
あ・・・そうですね＾＾；
すいませんでした。ご親切にどうもです＾＾では
0399nobodyさん02/07/25 17:17ID:???
http://www.google.com/search?sourceid=navclient&q=PROHOSTING+FAQ

ここから探せばすぐ分かるよ
0400礼儀厨房02/07/25 17:20ID:???
>>399
スレ違いの意見に答えてくれてありがとうです＞＜
0401XSについて再び102/07/26 02:39ID:???
俺は前スレでXSネタであらしたヤシだ（dat落ち中）
ここで適当に受け答えしてる奴らほんと全員シネヨ。（特にコテ）
今日ひさしぶりにperlxstut.txtみてやっとわかったよ。
手順言うからメモしろチンカスども。
環境はWin ActivePerlな
ftp://ftp.microsoft.com/Softlib/MSLFILES/nmake15.exe
でnmake ダウソ ファイル名はnmakeとかに直しとけ
0402XSについて再び２02/07/26 02:40ID:???
h2xs -A -n Xstest でXS用のモジュールスクリプトフォルダができる
cd Xstestして　Xstest.xsに
void
hello()
CODE:
printf("Hello. Tinkasu Boy!\n");
とかく。チンカスはそうお前の事だ。
んでperl Makefile.PL
nmake
nmake install
0403XSについて再び３02/07/26 02:41ID:???
で確認だ。
#!/usr/bin/perl(まぁDOSならいらんがな）
use Xstest;
Xstest::hello();
でそれ実行できればOKだ。ＯＫ？糞Perler。
お前らが２０代とかだったら俺は泣くね。
0404nobodyさん02/07/26 02:47ID:???
シーン。。。
0405nobodyさん02/07/26 05:42ID:???
XSチュートも読まずに(読めずに？)スレ一本分も悩んでたのかあ
前に５．７絡みでgunzipが講釈してた様なきがするけど
やっぱり●●は想像を絶する位●●なのかなあ
0406nobodyさん02/07/26 06:08ID:???
CGI実行ユーザー名を獲得する事って可能でしょうか？
0407nobody02/07/26 06:20ID:???
whoami
040840602/07/26 07:35ID:???
有難う御座いました。
0409nobodyさん02/07/26 07:51ID:???
>>408
use User::pwent;
my $pw = getpwuid($$);
print $pw->name;
0410 ◆JAPH9PWA 02/07/26 08:58ID:???
とりあえずnmake15.exeってのはnmakeインストーラ、
というか圧縮されたプログラムなんで、実行するとnmake.exeとnmake.errってファイルが出来る（だったかな）
だからrenameの必要はないはずなんだけどなぁ。彼は実際にやってみたんだろうか。
0411nobodyさん02/07/26 09:19ID:???
>>401-403
低脳にして粘着とは救いようがないな。
0412nobodyさん02/07/26 09:29ID:???
>>411
煽りはスピードが命。
■ このスレッドは過去ログ倉庫に格納されています