トップページ⇒php
981コメント390KB

くだすれPerl（超初心者用）2

レス数が900を超えています。1000を超えると表示できなくなるよ。
0001nobodyさん2008/03/03(月) 05:07:32ID:???
このスレッドは、他のスレッドでは書き込めない超低レベル、
もしくは質問者自身何が何だが分からない質問を勇気を持って書き込むスレッドです。
Perl使いが優しくコメントを返しますが、
お礼はPerlの布教と初心者の救済をお願いします。
0808nobodyさん2008/11/16(日) 06:04:08ID:???
Perlなんて所詮はテキスト処理をちょこっとするだけのスクリプト言語
それがたまたまUNIX系サーバに載ってるって事でCGIを作るのに丁度良かっただけ

この痛い奴はどんな幻想持ってたんだ？
Perl云々でなく自分が無能だって事を理解しようね
0809nobodyさん2008/11/16(日) 10:21:26ID:???
今時、Perlを始めるなんて信じられない
0810nobodyさん2008/11/16(日) 15:07:50ID:???
>>809
おれは主食をPerlとする者だが、その意見には賛成する。
0811nobodyさん2008/11/16(日) 15:43:33ID:???
787です
CGIがPerlで書かれてるから勉強したいだけなんです。
ちょっといじって改造とかしたいんです。
0812nobodyさん2008/11/17(月) 09:13:31ID:???
ダメだ! こっちへ来てはダメだ!! おれたちはもうダメだがおまえだけでも逃げろ!!

こうですか?
0813nobodyさん2008/11/17(月) 10:09:20ID:???
>>811
ネットで解説してるサイトで十分じゃね？
08147872008/11/17(月) 12:15:30ID:???
>>813
お勧めのサイトありますか？
0815nobodyさん2008/11/18(火) 09:18:08ID:???
プログラミングの基礎がわかってるなら
Googleだけでなんとかなりそうだけど、
そうじゃないならどうなんでしょうか？
0816nobodyさん2008/11/18(火) 09:41:28ID:???
ちょっといじって改造ならその都度検索掛けながら出来ると思うよ。
ローカル環境で動作テストすれば試行錯誤しても誰にも迷惑かけないしね。
0817nobodyさん2008/11/18(火) 22:42:46ID:???
$a=getc;
chomp($a);
$b=int($a);
$b%=0xFF;
printf("%0x",$b);

getcで受け取った1文字のアスキーコードを表示したいのですが
上のコードを実行しても"0"しか表示されません。
どうしたらいいでしょうか？
0818nobodyさん2008/11/18(火) 22:49:27ID:???
・getcのファイルハンドルは<STDIN>
・getcの行で「a(リターンキー)」を押したら「61」と16進数で表示される

これがやりたいことです。
0819nobodyさん2008/11/18(火) 23:25:03ID:???
unpack('H2', getc);
0820nobodyさん2008/11/18(火) 23:47:43ID:???
>>819
ありがとうございます
0821nobodyさん2008/11/19(水) 08:25:12ID:Fi86N1yA
kentwebさんの画像アップ掲示板をDLしてアップロードしたのですが
掲示板が出ません、
clip.cgi?mode=check にアクセスしても４０４になりますし
ドメインのアドレスをクリックしても、アップロードしたファイルがそのまま出てくるだけで
1週間悩んでもわかりません＞＜

アドバイス頂けませんか？　サーバーはさくらのレンタルでライトプランです

0822nobodyさん2008/11/19(水) 09:11:55ID:???
ＦＴＰができてるなら
/home/アカウント名/www/　にＣＧＩをアップロードして実行権限与えるだけのようだが
一週間の悩んでたのならまず落ち着け
0823８２１2008/11/19(水) 11:48:01ID:Fi86N1yA
>>822 レスありがとうございます、

先ほど掲示板は出ました、
しかし、掲示板から画像投稿しても画像が出ません＞＜
imgデェレクトリには、投稿した画像はあるのですが、画像がでません
$ImgUrlはサーバーの説明ページを見てやったので間違いないと思うのですが…
0824nobodyさん2008/11/19(水) 12:14:18ID:???
そのimgディレクトリを直接URLで指定したら出る？
0825８２１2008/11/19(水) 12:33:43ID:Fi86N1yA
>>824 ああ出ました！
ありがとうございます！　おかげでできました！
0826８２１2008/11/21(金) 11:44:39ID:+lsYQ29g
また質問させて頂きたいのですが、

kentwebさんの画像アップ掲示板（clipboard)にカウンターをつけたいのですが
調べても、解説しているサイトが無くて
どなたかヒントでいいので教えて頂けませんか？
0827nobodyさん2008/11/21(金) 11:57:00ID:???
改造スレいけって
0828nobodyさん2008/11/22(土) 14:19:29ID:???
ActivePerl5.8.8のppm(GUI)からDBD::mysqlをインストールしようと思ったのですが見つかりません
OSはWin2k SP4です
どうすればインストール出来るのでしょうか？
0829nobodyさん2008/11/22(土) 18:38:31ID:???
>>828
つ VC2008(2005)Express + nmake + mysqlclient.lib(libmysql.dll)
つ http://theoryx5.uwinnipeg.ca/ppms/

お好きな方を
0830nobodyさん2008/11/22(土) 18:47:52ID:???
>>829
ありがとうございます。試してみます
0831nobodyさん2008/11/29(土) 12:59:08ID:060X3luI
初心者です

あ　い　う　え　お　か　き　く　け　こ

と文字列があり、リロードする度に２回ずつ表示させるにはどう書いたら良いか教えてほしいです。

一回目　あ
二回目　あ
三回目　い

って感じです。宜しくお願いします。
0832nobodyさん2008/11/29(土) 13:40:07ID:???
ファイルに記録しとけば？
0833nobodyさん2008/11/29(土) 21:05:33ID:???
my @words = qw(あ い う え お か き く け こ);
my $num = 0;
for $num (0 .. 20) {
$num = $num/2;
print $words[ $num%@words ], "\n";
}
08348312008/11/30(日) 01:08:25ID:???
勉強になります
ありがとうございました。
0835nobodyさん2008/11/30(日) 18:06:10ID:???
こうだな

my @words = qw(あ い う え お か き く け こ);

{
my $call = 0;
sub _idx {
int($call++/2);
}
}

while (my $val = $words[_idx()]) {
print "$val\n";
}
0836nobodyさん2008/12/09(火) 19:35:05ID:???
<input type="text" name="Word">の「Word」の値をformからgetで渡す
ボタンを押して表示されるURLが「test.cgi?page=1?Word=○○」になるようにしたい

<form action="test.cgi?page=1">と書いても?以降は無視されちゃうんですが
何か方法ありますか？
0837nobodyさん2008/12/09(火) 19:48:00ID:???
<form method="get" ......
08388362008/12/09(火) 19:53:00ID:???
<form method="get" action="test.cgi?page=1">
とやると、URLが「test.cgi?Word=○○」になってしまいます。
「?page=1」を入れるにはどうしたらいいでしょう
0839nobodyさん2008/12/09(火) 21:57:27ID:???
<form action="test.cgi">
<input type="hidden" name="page" value="1">
<input type="text" name="Word">
08408362008/12/10(水) 07:22:57ID:???
>>839
すみません　それだと「test.cgi?page=1&Word=○○」になってしまいます
Wordの前を「?」にしたいので、hiddenではできないかなと思ってたんですが
できるのでしょうか
0841nobodyさん2008/12/10(水) 08:06:09ID:???
?を2つて事？それは無理でない？てかなんでそうする必要あるんだろ？
順番的な話だけなら記述する行を逆にすればいい話だけど
08428362008/12/10(水) 08:45:47ID:???
既存のCGIの改造なのですが、元のものは>>839の内容をpostで渡しています。
アクセス数の内訳を把握するためにURLを表示させたいのですが、
同じ内容を表示するにはURL内のpageとWordの前に
それぞれ?がないとだめなようなので。

formの記述でなんとかなるかなと思ったんですが、無理ですか…
他の方法を考えます。ありがとうございました。
0843nobodyさん2008/12/10(水) 11:15:13ID:???
初心者ユーザです
プログラムを頂いてActive perl5.6ではしっかり動作したのですが、
5.8.8環境下で一応動くものの、日本語が文字化けして意味不明になります。
ググッた所では日本語の処理方法が違う？見たいな事がチラホラ見えます。

日本語処理で5.6を5.8.8においてそのような違いが有るのでしょうか？
対処方法が有れば、ご教授お願いします；

パッチの置き場所が問題？ｗ
動作環境
5.6 XP ルート設定有り マイコン→ユーザ１→プログラム置き場
5.8.8 XP 設定なし　マイコン→Cドライブ→直置き
0844nobodyさん2008/12/10(水) 11:24:04ID:???
文字コードがかわった。
5.8対応するならUTF-8前提で書き直したほうがいいと思う。
0845nobodyさん2008/12/10(水) 11:26:49ID:???
>>843
いい機会だし、テンプレートでも勉強してみたら？
0846nobodyさん2008/12/10(水) 11:41:47ID:???
返信有難うございます
>>844
やはり文字コードが変更されていたんですね;;
書き直し･･･強引に動かす方法無いですかね？(有れば)
無理が有りすぎならプログラム書いた人に相談してきます。
>>845
テンプレート？練習用テンプレで書いてみるって事でいいですか？
急いで探してみます＞＜
0847nobodyさん2008/12/10(水) 12:17:15ID:???
まずはそのプログラム見せないとなんとも答えようがない
0848nobodyさん2008/12/10(水) 20:43:28ID:???
>>842
で、その既存のスクリプトって何なの？
0849nobodyさん2008/12/11(木) 01:27:32ID:???
>>842
明らかにどこかおかしい。
0850nobodyさん2008/12/14(日) 13:24:40ID:???
例えば掲示板スクリプトなどで、
一つのファイルで全部やるよりも、

書き込み.cgi
閲覧.cgi
管理人用.cgi
検索.cgi

などのように、処理の種類ごとに
ファイルを細かく分けた方が、体感軽いとかありますか？
0851nobodyさん2008/12/14(日) 13:32:50ID:???
体感じゃわからん程度
0852nobodyさん2008/12/14(日) 14:18:58ID:???
では、余り気にしなくても良いですね！
ありがとうございました！
0853nobodyさん2008/12/15(月) 17:24:02ID:???
無限ループを回避する方法ってありませんか？
ループごとにカウントしてlastだと管理しにくいので良い方法を探しています
0854nobodyさん2008/12/15(月) 19:30:03ID:V2NIPW0r
あらかじめ何回ループするか決めておいて
for(0..$num)とでもしとけば？
0855nobodyさん2008/12/15(月) 21:15:31ID:???
>>853
なにをしようとしてるのか晒せば良い解が得られるかも
0856nobodyさん2008/12/15(月) 21:46:41ID:???
>>853
終了条件を予め決めておく

>>855
人が何をしようが勝手だろ
こんなとこでネタ探しかよ氏ねくず
0857nobodyさん2008/12/15(月) 22:03:34ID:???
自己レスかよ…
0858nobodyさん2008/12/15(月) 22:05:31ID:???
煽る意味ねえしなあ。
0859nobodyさん2008/12/15(月) 22:08:55ID:???
自演じゃないのかもしれんが、無限ループがどういう状況なのか解らんのに、
レスしても混乱するだけだろ。
0860nobodyさん2008/12/16(火) 00:25:05ID:???
質問の意図を尋ねることもできないこんな世の中では
0861nobodyさん2008/12/16(火) 00:47:33ID:???
デッドロックの検知みたいに無限ループを自動的に発見してブレイクさせる機能が欲しい
0862nobodyさん2008/12/16(火) 01:51:39ID:???
>>861
alarm
0863nobodyさん2008/12/16(火) 03:01:44ID:???
>>856
そんな餌で釣れちゃう？
08648532008/12/16(火) 12:06:04ID:???
皆様ご返信ありがとうございます。
質問の仕方が悪くて申し訳ないです。

例えば配列の値を見るとき、
my $count=0;
for (@array) {
print $_;
$count++;
last if $count>1000;
}
等、終了条件を決めて抜ければいいんですが
ループの度にカウンターを設定してカウントって面倒ですよね？
意図としては>>861のように、何もせず、あるいはもう少し簡単にブレイクする方法があれば
教えて頂きたいというものでした。
PHPだとmax_execution_timeで実行時間を制限できます。
Perlだとそういったものは無いのでしょうか？
08658532008/12/16(火) 12:09:30ID:???
ミスりました
×for (@array) {
○foreach (@array) {
0866nobodyさん2008/12/16(火) 12:19:48ID:???
>>864
854氏が既に書いてるが、
for my $i ( 0 .. 999 ){
print $array[$i] ;
}
08678532008/12/16(火) 12:35:45ID:???
無駄なループを考慮すると
for my $i ( 0 .. $#array ){
print $array[$i] ;
}
こんな感じでしょうか。

あれれ？配列の場合、無限ループにはなり得ない？？
0868nobodyさん2008/12/16(火) 13:16:54ID:???
ならないです。
0869nobodyさん2008/12/16(火) 13:57:42ID:???
@array=(1,1);
$i=1;
foreach(@array){
print $_;
$array[$i+1]=$array[$i];
$i++;
}

こんな悪戯とかは。
0870nobodyさん2008/12/16(火) 14:41:21ID:???
>>865
それ、ミスじゃないよ
0871nobodyさん2008/12/16(火) 17:48:59ID:???
>>864
>>862
0872nobodyさん2008/12/17(水) 08:19:35ID:???
無限ループにうっかり陥ったことってある？
俺は意外と無いんだけど…
0873nobodyさん2008/12/17(水) 10:44:54ID:JyAZ5ywx
特定URLで与えられるページを定期的にキャッシュして保存するにはどうすればよいでしょうか?
0874nobodyさん2008/12/17(水) 10:53:59ID:???
無限ループ内でページ取りに行って
取得できたらファイル保存してスリープ
を繰り返す
0875nobodyさん2008/12/17(水) 11:28:15ID:JyAZ5ywx
スリープは処理に時間がかかっているとサーバに怒られたりしませんか?
cronとかそういうのがあると聞いたんですが
0876nobodyさん2008/12/17(水) 11:33:30ID:???
処理に時間がかかると怒られるサーバって書いてなかったのでとりあえずスリープって
書いた
cron使えるサーバならそれでいける
0877nobodyさん2008/12/17(水) 12:12:50ID:JyAZ5ywx
どこでも cron 使えるわけではないのですね。なるほど。
2つの場所にある cgi が、十分短い時間だけスリープして相手を呼び出すってどうでしょう?
0878nobodyさん2008/12/18(木) 11:45:09ID:???
共用でcron使えるのっていまどき普通なのか？

2つのCGIで呼び合うというのは作ったことがあるができるよ。
システム占有率が目立たなければ問題ないと思う。
cronが使えればそれに越したことはないと思うが
0879JyAZ5ywx2008/12/18(木) 11:54:13ID:pPcqWUbs
cron は使えないようでした。それではダブル cgi でやってみます (・ω・)ゝラジャ
0880nobodyさん2008/12/19(金) 19:42:45ID:???
ファイルへの書き込みについての質問です。
ファイルの先頭に追加書き込みをする処理を行いたいのですが、

読み書きモードで開いて、ファイルを全て配列に読み込み、
unshiftで先端に追加してファイルに書き込みをしなおし、
するやり方と、

上書きモードで新しいファイルに追加を書き込み、
それから読み込みモードで元ファイルを開いて中身を新しいファイルに書き込み、
unlinkとrenameをするやり方では、

どちらの方が良いのでしょうか？
また、この二つ以外にオススメのやり方があれば教えて下さい。
08818802008/12/19(金) 20:00:28ID:???
ファイルの中身は1万行とかそういう大量のものではなく、
通常の掲示板の書き込み保存ファイルなどだけを扱うつもりです。
0882nobodyさん2008/12/19(金) 20:13:08ID:???
その２つを比べると後者が圧倒的にいいと思うが、
できれば先頭に追加書き込みする仕様を変えるとかは選択肢にないの？
0883nobodyさん2008/12/19(金) 20:22:02ID:???
ファイルの末尾に>>で書き込みして、
読み込むときにreverseなどをした方が良いのでしょうか？
0884nobodyさん2008/12/19(金) 20:23:05ID:???
>>883の読み込むときとは、
ブラウザでファイルの中身を表示するときのことです。
掲示板でいうと記事一覧表示などです。
0885nobodyさん2008/12/19(金) 20:26:00ID:???
書き込みが頻繁にないのなら、最新分は静的な html でもいいんじゃね
0886nobodyさん2008/12/19(金) 20:38:36ID:???
書き込みは一番多いところでは大体1分に5〜15回程あります。
読み込みは一番多いところでは1秒に30〜100回程あります。
ただ、少ない時間（朝〜昼など）は読み込みも1分に1度程度になる時期もあります。

静的なhtmlというと、書き込みのたびにhtmlファイルの形に書き出す感じでしょうか。
確かにそうしている掲示板スクリプトなどは閲覧が早いですよね、
そういったことはやったことがないので調べてみます、
難しそうに感じますが試してみます。ありがとうございます。

ログファイルへの書き込み自体は、末尾に追加書き込みをし、
閲覧時にreverseするやり方が良いのですか？

サーバーは専用サーバーを借りております。
ただ私に知識が足りないので、基本的な運用は管理者の方に任せている状態です。
必要なモジュールなどはお願いして入れてもらっている形です。
0887nobodyさん2008/12/20(土) 00:27:59ID:???
>>886
CPAN の File::ReadBackwards を使うという手もあります。

何故住人が口を揃えてファイル先頭への追記を忌避するかというと、
必然的にいずれかのステップでファイル全体のコピーを必要とするため、
空間的にも時間的にも効率が悪いからです。

また、読出し負荷を下げるために静的ファイルを利用する際には、
投稿ログファイルのタイムスタンプとキャッシュのタイムスタンプを比較して、
キャッシュのほうが新しければキャッシュをただ投げ返すといった方法もとれるでしょう。

がんばってください。
0888nobodyさん2008/12/20(土) 00:56:27ID:???
うむ。Perlコミュは実際的で頼もしい。
0889nobodyさん2008/12/20(土) 22:09:13ID:???
Perlでzipを解凍するにはどうしますか？
win環境です。
パスワードセットして解凍するです。
よろしくお願いします。
0890nobodyさん2008/12/20(土) 22:46:36ID:???
>>889
今までに何をやったのか書け。
0891nobodyさん2008/12/20(土) 22:53:25ID:???
Perlインストールしたフォルダを”zip”で検索して出たモジュール使うか、
zip解凍ソフトの実行ファイルをオプション付きでPerlからたたく
これで解決
0892nobodyさん2008/12/20(土) 22:54:40ID:???
> Perlインストールしたフォルダを”zip”で検索して出たモジュール使うか、

ｗｗｗｗｗｗ

CPAN つかえよｗｗｗ
0893nobodyさん2008/12/21(日) 18:51:35ID:???
~$ find `perl -e "print qq(@INC)"` -iname *zip*
./movies/loli.zip
~$
0894nobodyさん2008/12/22(月) 12:53:17ID:???
パスワード付きは、多分、zipコマンド叩くのが早い。
0895nobodyさん2008/12/22(月) 20:16:30ID:Vaq4WjNP
今掲示板を作ってるんですが、htmlファイルを外部ディレクトリに用意して、読み込んで使いたいと思っています
そこで読み込んだhtmlファイルに変数を埋め込んでcgiから出力したいんです
簡単なデータ構造なら埋め込む方法は何個か思いつくんですが、記事とか記事のタイトルとか、配列やハッシュの配列などをどう処理しようか悩んでます
一般的にはどういう方法を取るもんなんでしょうか
0896nobodyさん2008/12/22(月) 20:26:01ID:???
Catalyst + DBIC + TT で完璧。
0897nobodyさん2008/12/22(月) 20:29:14ID:???
>>896
素早い回答ありがとうございます
早速ググってみたいと思います
0898nobodyさん2008/12/22(月) 20:57:44ID:???
Tenjinとかどうだろうか？

Tenjin - the fastest template engine in the world
http://www.kuwata-lab.com/tenjin/
0899nobodyさん2008/12/22(月) 21:01:36ID:???
MENTA とか使ってやれよ。
extlib にゴミが大量に入ってて当初のコンセプトはどこにあるのかさっぱりだけどｗｗｗ
0900nobodyさん2008/12/22(月) 23:07:11ID:TJyyzWEd
CPANでEncodeモジュールを1.83から2.26に上げようとしているのですがうまくいきません。

all skipped: Perl 5.8.1 or later required
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/enc_module.t 2 512 3 2 66.67% 2-3
3 tests and 6 subtests skipped.
Failed 1/24 test scripts, 95.83% okay. 2/5850 subtests failed, 99.97% okay.
make: *** [test_dynamic] エラー 29
/usr/bin/make test -- NOT OK
Running make install
make test had returned bad status, won't install without force

Perlのバージョンを今の5.8.0から5.8.1以上に上げないといけないのでしょうか？
0901nobodyさん2008/12/22(月) 23:09:31ID:???
5.8.0 (笑)
09028952008/12/23(火) 00:34:22ID:ZaYeCOkc
>>896-899
ありがとうございます
とりあえずのところ、一番わかりやすかったHTML::Templateを使ってみることにしました
できれば勉強のために自分で作ってみたかったんですが、ソースコード見て諦めましたw
0903nobodyさん2008/12/24(水) 03:27:20ID:DJKrSH/S
掲示板にトリップ機能を付けたいが折れの頭じゃわがんね
なんとか関数と暗号でググると コードとか詳しく説明してあるがイマイチ
0904nobodyさん2008/12/24(水) 23:13:25ID:???
それは残念だったね。再来年頑張れ。
0905nobodyさん2008/12/25(木) 00:07:36ID:???
>>903
トリップ機能とかwikipedia見ただけでつけれたぞ
0906nobodyさん2008/12/25(木) 00:45:10ID:eRkadvZc
ん〜ん素人なりに 勉強してみる 今日も掲示板訪問者からトリップ機能まだ〜ぁなんてメールが来ていた。コードをどこに書くのかが分からん
0907nobodyさん2008/12/25(木) 10:37:40ID:???
MENTAとか凄くわかるんだけど、でもspeedy_cgiで高速化とかってかなり無理なの？
おれはCatalystとか使える環境でやってるから、レンサバのかたの事情は
よく分からんのだけど、speedy_cgiレベルでもキツい？

speedy_cgiオケなら、初めはCGI::Application(Titanium)でやって
負荷が増えてきたたらspeedy_cgi化するってのがよさそうだけど。
レス数が900を超えています。1000を超えると表示できなくなるよ。