Perlコーディング初心者質問スレ Part 44

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

過去ログやお勧めサイトは >>2-10

関連スレ
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

【Perl,CGI】参考書籍 第三版
http://pc8.2ch.net/test/read.cgi/php/1030209573/

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

★負荷軽減対策委員会（Perl、PHP)★
http://pc8.2ch.net/test/read.cgi/php/1034645635/

Perlモジュールについて
http://pc8.2ch.net/test/read.cgi/php/997829243/

CGIに依存しないPerlの話題一般/Part2
http://pc8.2ch.net/test/read.cgi/php/1030548610/

★三　【 スクリプト改造工房 PART 8 】　★三
http://pc8.2ch.net/test/read.cgi/php/1077525387/

【 スクリプト改造依頼スレ 】(丸投げ) part4
http://pc8.2ch.net/test/read.cgi/php/1127916965/

［過去ログ] 1 of 4

Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521　参照不能
　DAT: http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156　参照不能
　DAT: http://tako.2ch.net/perl/dat/979894521.dat
Part5　http://pc.2ch.net/php/kako/988/988728069.html
Part6　http://pc.2ch.net/php/kako/996/996075607.html
Part7　http://pc.2ch.net/php/kako/1000/10002/1000267444.html
Part8　http://pc.2ch.net/php/kako/1003/10039/1003900311.html
Part9　http://pc.2ch.net/php/kako/1009/10095/1009549309.html
Part10 http://pc.2ch.net/php/kako/1014/10145/1014556702.html

［過去ログ] 2 of 4

Part11 http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12 http://pc.2ch.net/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html
Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc2.2ch.net/php/kako/1044/10447/1044717887.html (タイトルに19と誤記)

［過去ログ] 3 of 4

part21 http://pc2.2ch.net/php/kako/1047/10479/1047980851.html
part22 http://pc2.2ch.net/php/kako/1050/10503/1050369328.html
part23 http://pc2.2ch.net/php/kako/1053/10530/1053051519.html
part24 http://pc2.2ch.net/php/kako/1054/10549/1054992610.html
part25 http://pc2.2ch.net/php/kako/1056/10567/1056730690.html
part26 http://pc5.2ch.net/php/kako/1059/10590/1059043704.html
part27 http://pc5.2ch.net/php/kako/1060/10608/1060808783.html
part28 http://pc5.2ch.net/php/kako/1063/10635/1063562491.html
part29 http://pc5.2ch.net/php/kako/1066/10662/1066286828.html
part30 http://pc5.2ch.net/test/read.cgi/php/1069846177/

［過去ログ] 4 of 4
part31 http://pc5.2ch.net/test/read.cgi/php/1072896288/
part32 http://pc5.2ch.net/test/read.cgi/php/1075545279/ (タイトルに31と誤記)
part33 http://pc5.2ch.net/test/read.cgi/php/1078076768/
part34 http://pc5.2ch.net/test/read.cgi/php/1081148490/
part35 http://pc5.2ch.net/test/read.cgi/php/1085557731/
part36 http://pc5.2ch.net/test/read.cgi/php/1089779036/
part37 http://pc5.2ch.net/test/read.cgi/php/1093106507/
part38 http://pc5.2ch.net/test/read.cgi/php/1097158988/
part39 http://pc5.2ch.net/test/read.cgi/php/1101522903/
part40 http://pc5.2ch.net/test/read.cgi/php/1106816922/

part41 http://pc8.2ch.net/test/read.cgi/php/1110383236/
part42 http://pc8.2ch.net/test/read.cgi/php/1116970588/
part43 http://pc8.2ch.net/test/read.cgi/php/1123777607/ (前スレ)

ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: http://www.site-cooler.com/kwl/perl/

[本]
リャマ: http://www.oreilly.co.jp/books/4873111269/
駱駝: http://www.oreilly.co.jp/books/4873110963/
Effective Perl: http://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: http://www.oreilly.co.jp/books/4873110378/

[オンラインマニュアル] (追加)
最新のドキュメント: http://search.cpan.org/~nwclark/perl-5.8.7/
perl5.8.xのドキュメント(一部): http://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: http://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: http://search.cpan.jp/
perldoc.jp: http://www.perldoc.jp/
Perldoc.com: http://www.perldoc.com/

ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: http://search.cpan.org/
河馬屋二千年堂: http://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: http://homepage1.nifty.com/nomenclator/perl/
Perlの小技: http://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
http://www.pure.ne.jp/~learner/program/Perl_unicode.html
http://www.namazu.org/~tsuchiya/perl/perl-5.8.html
http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

関連スレ

正規表現道場@2ch Part4
http://pc8.2ch.net/test/read.cgi/php/1105930285/

>>997
すいません。。ほんとに。おいらが悪いんです。ごめんなさいです。

前スレ999ﾜﾗﾀ

全然勉強してないうえ仕事でわかんなくて悩むんだったら、
誰か (ちゃんとしたスクリプトを書いてくれるとこ) に依頼した方が会社もお前もいい判断だろうに。
1〜2週間やそこら悩んでできないくらいだったらそのほうがはるかにコストパフォーマンスがよいハズ。
つかそんなことで雇ってもらえてるのが、何ていうか、うらやましい。

同じく、前スレ999ﾜﾗﾀ

>>11

おっしゃるとおりです。おいらもできるってゆっちゃったのがいけなかったんです。ほんとに前スレの999ですね。。。情けないです。

色々調べて何回もいろんなソース試したりしてここまでやったんですが、、もうだめぽ。。泣

今回だけマジで助けてほしい。。お願いします。

めずらしくこのスレ盛り上がってるじゃん。 うれしいよ。。

まだ766はいるのかな？
まだ出来てないなら要点まとめて頂戴。

まずは、送信したフォームの情報が正しく所得できているのか。
↓
POSTでなく、GETで値をみられるようにする。

データを保存する方法はわかっているのか。
↓
変数に入れた文字が保存できたのか調べる。

すみません、教えていただきたいのですが。
買い物などのWEBで、検索や完了まで時間がかかるとき、「ただいま検索（登録）中です」のような一時的画面を表示させたいのですが、
perlではどのような方法があるでしょうか？
一定時間（例えば１分とか）は、特定の一時ページを表示して、
完了した時に完了ページを表示するものをイメージしています。
javaなどでは時々このようなページを使っているとこがあるのですが。。。。

一応、小枝とかその他有名なサイトは見たんですが、
こういう点での会報がわからなくて。。。。

>>16

すいません。ありがとうございますです。

・送信したフォームの情報はexcelで開いたとき、名前が文字化け（EUCでやってるからだと思いますが、解決策わからず。。）

・変数にいれた文字（回答番号　1とか2とか）はcsvに数字で保存できています。

【お手上げ】

・前スレ　>>981 に書いたような並びでexcelに保存ができなし。。
・名前をいれてなかったらエラー（送信できない）ようにしたい。

です。何卒ご指導お願いいたします。。まじですいません。

まず、先にこれだけいっておきます。
「エクセルは関係ない」。
エクセルで読める表示形式で保存したいって言うのは最後の手段で、今はそこまでいってないので頭から忘れてください。

送信する
↓
データを受け取る
↓
ファイルに保存する

第一段階でHTMLのメソッドをgetに・・・

って現段階のコード、どっかにアップしてもらったほうが早そうね。
もうちょっと常駐しとく。

納期遅れのいいわけ考えながら寝ちゃったのかな？

>>19
現段階のコードは前スレに。
参考にやり取りを列挙すると
前スレ http://pc8.2ch.net/test/read.cgi/php/1123777607/ の
Q >>922-925
A >>931,932
Q >>936-938
A >>950
Q >>954-956
A >>958
Q >>981,982-986 (現状の全ソース)

その要件を実装するのはすぐにできるけれど、
完成物を渡してしまっても766のためにはならないしな…

というかまず766は出来ないことは「できない」と言う事を学ぶべきだと思う
じゃないとまた同じ事繰り返す羽目になる

暇でネタもないので、とりあえず作ってみてる。

>>23
おまい、いいやつだな

>>21

レス有難うございます。
ヒントだけでも結構です。。後はもちろん自分でなんとか完成させるつもりです。

何卒宜しくお願いいたします。

>>17
それ、perlとは関係ないだろう。
meta refresh か JavaScript 使いなされ。

現状のソースをアップしますた。

http://www.nextftp.com/sentobeat/

皆さんに頼りっぱなしなのもわかっております。
ヒントだけでもいただければもちろん自分でもなんとかするようにします。

なんとか宜しくお願いいたします。。マジ泣

最初のファイルを編集してるので。
希望動作は最初のとおりでいいのよね？

アプロダの指定よろ

>>28

まじですか　ほんとに有難うございます。。

はい。希望動作は >>18 に書いたものです。

今なんとか自分でもとりあえずエラー機能をつけようと思って
#入力チェック
if ($in{name} eq '') { &error('名前を入力してください',''); }

を頭につけてみたんですが、動きませんでした。。orz

何卒宜しくお願いいたします。

>>29

ありがとうございます。

http://other.free-uploader.com/up/　

でお願いしますです。

とりあえずあぷ
ソース汚いままだけど保存はちゃんとされるはず。
読みにくかったfont　size=2はスタイルに勝手に変えちゃったままですが。

やばっ、フォントの閉じたぐ全部消しちゃってるｗ

Lintで怒られまくったので、最低限もとのHTMLになるように戻しておきますた。

>>16

有難うございますです。マジで感謝です。

今試してみたんでうが、動かない。。泣
パーミッションもなおしますた。

はじめのはquestion_1.inc っていうふぁいると連動してたんですが、
作っていただいたものは関係ありますか？

question_1.cgiにいきなりアクセスですよね？

あ、1行目戻してないです。
usestrictでエラー追いやすいように一つにまとめました。

>>16

！！！！

でけてるー！！！　感謝です！

こんな朝方まで付き合ってくださって本当にありがとうございます。大泣
ソースみたらやっぱり全然違いますた。。


これは質問をquestion_1.tsvから読み込まなくても、index.html →　post でquestion.cgiでももしかしていけますか？

質問を表示したソースをHTMLとして保存すれば出来ます。
perlの中の変数はかなり弄ったけど、フォームの部分は触ってません。

>>16

わかりましたです！やってみますです。
本当に有難うございます。

あと名前をcsvに書き出したいんですが、$in{name}で書き出せるのでしょうか？（配列は自力でやりますです。）

あとその名前が入っていなかったら、エラーにしたいんですが、さっき入れた if ($in{name} eq '') { &error('名前を入力してください',''); } じゃだめでしょうか？

これで最後の質問です。。ご指導おねがいできませんでしょうか？

>>16

すませんです。。せっかく作っていただいたのですが、

１人目の名前: name１
その人の1〜3問目の回答番号: hoge1, hoge2, hoge3,
1〜3問目の正解番号: anser1,anser2,anser3

2人目の名前: name2
・
とすると

name１、hoge1, hoge2, hoge3,(改行)
”空欄”,anser1,anser2,anser3(改行)
name2、hoge1, hoge2, hoge3,(改行)
”空欄”,anser1,anser2,anser3(改行)
・
になってませんでした。。。泣

hoge1,anser1(改行)
hoge2,anser2(改行)
・

になってました。。もう一度みてもらえませんでしょうか、、再度大泣

40をみてないときの39への回答
いつのまにか名前入力とか増えてたのね。

＞あと名前をcsvに書き出したいんですが、$in{name}で書き出せるのでしょうか？（配列は自力でやりますです。）
フォームで<input type="text"　name="name"　value="">としていれば$in{name}に入る。

＞あとその名前が入っていなかったら、エラーにしたいんですが、さっき入れた if ($in{name} eq '') { &error('名前を入力してください',''); } じゃだめでしょうか？
cgi-lib.plでのエラー表示用はCgiDie。CgiErrorでもいいけどどっちがいいとかは忘れた。
unless　($in{name})　{　&CgiDie('名前を入力してください');}

とりあえず、ヒキなおいらに頼るような仕事は今後受けないようしましょうね。
昔、友達に頼まれたCGIが、これによく似てたから作ってみただけですので。
↑これも、ただ働きだったけど。

>>16さん

レス有難うございます。やってみますです。
はいです。今後出来ない仕事は請けないです。（絶対）

>>40 の内容をいただいたソースもとにいじってみたんですけど
やぱりエラーでした。。

# CSVへの書き出し
open (CSV , '>>file.csv');
flock (CSV,2);
print CSV join(',', $in{name}, $in{'Q'.$i}), "\n";
print CSV join(',', '', $array[1]), "\n";
flock (CSV,8);
close (CSV);

>>40
こゆこと？

my$data;
my@q1;
my@q2;
for (my$i = 1; $i <= @question; $i ++) {
my@array = split("\t", $question[$i - 1]);
push(@q1, $in{'Q'.$i});
push(@q2, $array[1]);
}
$data = $in{name}.','.join(',', @q1)."\n".','.join(',', @q2)."\n";

正解を保存する理由もよく分からないままなんですが。

あと、選択する問題が4つ目とか増えるなら36行めを
for (my$s = 1; $s <= (@array - 2); $s ++) {
にしないとだめです。

>>43

はっ！！　できてる！
有難うございますー！！　（泣きっぱなし）

名前は今EUCなので、excel開けたときに文字化けすてるんですが、
こいつをcsvに書き出すときに直すソースってありますでしょうか？
（ほんとにこれで最後でございます。。）

unless ($in{name}) { &CgiDie('名前を入力してください');}

をrequire "cgi-lib.pl";の後に挿入したら、名前しれているのに
でっかく　名前を入力してください　て出ます。。

いれるとこ間違ってるのかな？

CSV　【カンマ区切り】
読み方 ： シーエスブイ
フルスペル ： Comma Separated Values
別名 ： コンマ区切り

データの保存形式のこと。文字コードの指定はない。
エクセルはShift_jis限定だっけ？
メモ帳じゃないテキストエディターで変換保存すれば読めるはず。
保存時からShift_jisにしたいのならコード変換の処理が必要。

というか、ラジオボタンで値が数字だけだからいらなかったのに、テキストフォームつけるなら、Jcodeとか必要よ？

>>45
&ReadParse;の後

>>46

jcode.pl 入れますた。

下のコードをどっかにいれたりしたらokだったりしますか？


# jcode.plを用いたコード変換
require 'jcode.pl';

open READ, '<sjis.txt';
open WRITE, '>euc.txt';
while(my $data = <READ>){
jcode::convert(*data, 'euc');
print WRITE $data; }
close WRITE; close READ; exit;

なんかもう設計とかあってないようなので、
先頭で
require 'jcode.pl';

さっき変えたところで
$data = $in{name}.','.join(',', @q1)."\n".','.join(',', @q2)."\n";
jcode::convert(\$data、'sjis');
# CSVへの書き出し

というかエクセルは文字コード固定なの？
OOoしか使ってないからエクセルのことは知らないよ。

なんていうか…
2ch外でやってもらえません？

>>16さん

長い間ほんとにお手数おかけしました。
無事完成いたしましたです。

本当に感謝です。たすけていただいて本当にうれしくて泣きそうでした。

有難うございました。

これから教えていただいたことを無駄にしないように自分で勉強かさねていきますです。



>>49

すいませんでしたです。

めずらしくスレ進行が速いから、荒らしかと思いきや、、、、ある意味荒らしだった。。

お疲れさん。

次の質問どぞー
↓

766と16のおんぱれ･･･初めてこんな個人スレ見ました。

結局766って仕事がどーとか言うより何一つ知らない上に検索すら出来ない池沼じゃねぇか

次の仕事がきたらまた愛の交換日記がはじまるんだろうか...

丸投げスレかと思った。

>>16は乙だが、正直放置して欲しかった
今後766みたいなのが増えると思うとウンザリする

>766だけでなく>16もウザ。
二度と来ないでくれ。

戦いは終わった……だが…それは勝利ではなかった……

「仕事請負スレ」でも作って、766みたいなのは
そこに誘導（隔離？）するのがいいかもね。

■こんなCGI作ってください■
http://pc8.2ch.net/test/read.cgi/php/1102980903/

ここに誘導しとけばよかったね

質問です。現在FreeBSD上で、マニュアルページをHTMLに変換するCGIを書いていて、文字化けに困っています。
プログラム名は test.cgi です。手元で、% ./test.cgi > log として、出力されたログを見ると、きちんと
EUC-JPで出力されているのですが、ブラウザでアクセスしたり、fetch コマンドでアクセスしたり、telnet で
直接WebServerと話したり、とにかくApache を通すと、日本語の部分が、＆xxx; と、文字実体参照の形に
なってしまいます。どうすれば文字化けを無くせるでしょうか。

(余計な部分を切り詰めた)プログラムを貼ります。

#! /usr/local/bin/perl -w
binmode(STDOUT, ":encoding(euc-jp)");
$filename= "/usr/local/man/ja/man3/strlen.3.gz";
$command = "gzcat $filename | /usr/local/bin/groff -man -Thtml -dlang=ja_JP.eucJP";
open(PIPE, "-|:encoding(euc-jp)", "$command") or die;
@html = <PIPE>;
close(PIPE);
print "Content-type: text/html; charset=euc-jp\n\n";
for $text (@html) {
　　print $text;
}

>>62 の続き。

コマンドライン上で ./test.cgi > log とした時の、ファイル log の中の一部分。
<a href="#名称">名称</a><br>

WebServer にCGIを起動させて結果を得た場合の、上と同じ部分。(アンド記号はわざと全角にした。)
<a href="#＆Igrave;＆frac34;＆frac34;＆Icirc;">＆Igrave;＆frac34;＆frac34;＆Icirc;</a><br>

環境。
OS: FreeBSD 5.4-RELEASE i386
WebServer: Server version: Apache/1.3.33 (Unix)
Perl: This is perl, v5.8.7 built for i386-freebsd-64int

http://www.jp.freebsd.org/QandA/HTML/1544.html

>>64
HTMLにするのはあきらめて、Plain text で我慢しろ、っていう意味ですか？

>>65
ちゃんと読めよ。

>>62
いちいちCGIで出力するより、htmlで吐いてアップした方が良いとは思うが・・・。

コマンドラインとApacheで動作が異なる場合はまず環境変数を疑う。
とりあえず2行目あたりに

$ENV{'LANG'} = 'ja_JP.eucJP';

を挿入。これで大丈夫だと思う。確かめてないけど。

>>65の件は今回の場合関係ない。
groffが吐いてる時点で実態参照になってると思われ。

PealでCGIのちょっとした掲示板を作っているんですが、
フォルダの中身を全て消す処理というのはどうすれば良いのでしょうか？
ファイルの場合は　@Test=''; これだけで消せますが、
フォルダの中身全てを消去する方法が判らず製作が滞っています。
何方かお知恵をお貸し下さい。お願いします。

Pealで掲示板は作れまい

>>69
フォルダにあるファイル一覧を取得して消すとか、
シェルコマンド使うとかいろいろあるお。

> ファイルの場合は　@Test=''; これだけで消せますが、

ここにツッコミを入れる奴はおらんのか?(笑)

フォルダを消すときは
@Test = `del c:\*.*`;
とするんじゃなかったっけ？

うーん・・・・・　　何からﾂｯｺﾝでいいのかわからん

質問の内容からして、>>69が掲示板スクリプトを作れるとは思えん。
また>>16が降臨して、>>69の掲示板スクリプトを全部作ってやればいい。
但し、↓のスレでやってほしい。

■こんなCGI作ってください■
http://pc8.2ch.net/test/read.cgi/php/1102980903/

とりあえず rm -rf / でもしとけ。

Web サーバの権限だと初手からコケそうだが。

>>67 さん。
> とりあえず2行目あたりに
> $ENV{'LANG'} = 'ja_JP.eucJP';
> を挿入。

で、うまく行きました。

%gzcat /usr/local/man/ja/man3/strlen.3.gz \
　　| env -i /usr/local/bin/groff -man -Thtml -dlang=ja_JP.eucJP

と、環境変数無しで実行すると、groff が実体参照を吐くことも確認できました。
ありがとうございました。

レンタル鯖がaaacafeでmySQLは使えるのですが、鯖にDBIがないようなのです。
レンタル鯖のCGIで接続したい場合、どういった方法を取ればいいのでしょうか。
CGI自体はローカル起動、ローカルのMySQL、ローカル起動、レンタル鯖のMySQLで正しく動くので、スクリプト上のエラーではないと思います。

PerlのCGIで、非常に簡単なコメント保存CGIをつくろうとしてます。

htmlの方で、

<form method="post" action="****.cgi">
コメント<Input Type="text" Name="com" Size="**" Maxlength="**">
<INPUT TYPE="image" SRC="img/send.jpg" align=right>
<form>

としておいてテキストを書込み、SENDボタンを押すと、CGIが動作しコメントがログに書込される、というものです。

でperlのCGIの方で（既存のCGIを自分で修正）

#!/usr/bin/perl -w
use CGI;
変数宣言
$form = new CGI;
$com = $form->param('com');
open (TEXTFILE,">>./log.txt")
print TEXTFILE $com;
print TEXTFILE "\n";
close (TEXTFILE);

としてるのですが、どうにもうまくいきません。
どうすればうまくいくかヒントでもいただけませんでしょうか？

>>80
「変数宣言」がコメントになってないとか
あと、何がうまくいかないのか不明。
500エラーなのかファイルに保存されないのか、詳しく書くように。

>81
すみません。
インターナルサーバエラーを起こして動かないという状況です。

ちなみに変数宣言は
my ($form,　$com);
としています。

>80
ヒント：Content-type（たぶん）

すいません、ム板のほうがよさげなので移動します。

>>84
早速マルチポストかよ。

来ないで下さい。

マルチポストの意味ちげーよ

>>80
use CGI::Carp qw(fatalsToBrowser);
おまじないで二行目に貼って。

>>69

unlink(glob("dir/*"));

多分ね。

それより「ちょっとした掲示板」で「フォルダの中全消し」という仕様が
何に使われるのかが非常に気になるのだが・・・

>>89
スレまたはレス別にログファイルが分かれていて、ログのリセットとかじゃなかろうか

先生質問です。
指定したディレクトリ内にある、ファイルとディレクトリの名前、
そしてそれらのパーミッションを取得して表示させるCGIを作成してます。
stat でファイルのパーミッションは上手く取得できるのですが、
ディレクトリのパーミッションは 000 が返ってきます。
どうやったらディレクトリのパーミッションも取得できますか？

該当部分の今のソースはこんな感じです。
$dir ="cgi-bin";

opendir(DIR, $dir);
while (defined($uhaha = readdir(DIR))) {
if ($uhaha ne '.' && $uhaha ne '..') {
@st = stat "$permis";
$per = substr((sprintf "%03o", $st[2]), -3);
print "$uha：$per<br>\n";
}
}
closedir(DIR);

う、ソース訂正です。

opendir(DIR, $dir);
while (defined($uhaha = readdir(DIR))) {
if ($uhaha ne '.' && $uhaha ne '..') {
@st = stat "$uhaha";
$per = substr((sprintf "%03o", $st[2]), -3);
print "$uhaha：$per<br>\n";
}
}
closedir(DIR);

>>91-92
こちらの環境ではちゃんと表示されるよ
問題は他のところにあると思う

関係ないけれど、
> $per = substr((sprintf "%03o", $st[2]), -3);
ここは
$per = sprintf "%03o", $st[2]　& 0700;
の方が良いんじゃないかと思ったり

うわ、全角スペースとマスクの値の二重ミスした・・・ｽﾏｿ。正しくは
$per = sprintf "%03o", $st[2] & 0777;

>>91
パーミッションを000にすることは普通ないだろうから、
statに失敗している可能性があるな。

opendir(DIR, $dir);
while (defined($uhaha = readdir(DIR))) {
if ($uhaha ne '.' && $uhaha ne '..') {
@st = stat "$uhaha";
if (@st > 0) {
$per = substr((sprintf "%03o", $st[2]), -3);
print "$uhaha：$per<br>\n";
} else {
print "$uhaha:stat失敗($!)\n";
}
}
}
closedir(DIR);

とでもして試してみたらどうだろうか。

あれ、よく読んだらreaddirで返ってくるのはパスじゃなくてファイル名だから・・・
stat "$dir$uhaha"
じゃなかろうかカレントディレクトリでテストしちゃったから気づかなかった

>>93-94
ありがとうございます。
後述しますが、こちらの環境のせいかもしれません.....
あと、$per = sprintf "%03o", $st[2] & 0777; の方が何故良いのか、
パッと見てまだわからないので、後で調べてみます。

>>95
やってみました。
全部「stat失敗(No such file or directory)」でした。

そして、なんらかの原因でうまく情報を取得できていないみたいだったんで、
情報を取得したいディレクトリの中に、このスクリプトを放り込んで実行した所、
完璧に表示されました。
上位でも下位でも、階層が違うディレクトリを指定すると、
上手く情報が取得出来ないようです。
なんでだ...

>>96
全て謎がとけましたw
その通りですね。
テンパってるとダメですね.....ありがとうございました！

# ID,NAME,ADDRESS,TEL
0,yamada,A32,333
1,tanaka,B22,555

上記のようなCSVファイルから1行ずつ読み込んでハッシュに入れたいのですがどのように
すればいいのでしょうか。問題点がCSVの一行目をカンマごとにばらしたのをハッシュのキー名
にして2行目からをそれぞれの値として入れなくてはいけないのです。
モジュールも使えないのでよりどうしたらいいのかわかりません。
$filename="test.csv";
%arr2 = &COUNT($filename);
foreach $value (values %arr2) {
print "$value\n";
}
sub COUNT{
open (IN, $filename)or die "$!";
while(<IN>){
$buff = $_;
chomp($buff);
@buff = split(/,/, $buff);
%arr2 =();
$arr2[] = @buff[];
$arr2[] = @buff[];
$arr2[] = @buff[];
close IN;
return %arr2;
}
}
whileの前に先に一行だけ読み込んでキーを作ってしまうべき何でしょうか。
ずっと堂々巡りで悩んでしまいました。

>>99
＞whileの前に先に一行だけ読み込んでキーを作ってしまうべき何でしょうか。

それが一番ラクだと思うけど。むしろ何故ソレを実行しないのかわからん。

俺は

@buff = split(/,/, $buff);
%arr2 =();
$arr2[] = @buff[];
$arr2[] = @buff[];
$arr2[] = @buff[];

の意味が分からん。俺の知識不足。つまり

@buff = split(/,/, $buff);
%arr2 =();
$arr2[0] = @buff[0];
$arr2[1] = @buff[1];
$arr2[2] = @buff[2];

ってことなの？

いや、普通は

$arr2[0] = shift(@buff);
$arr2[1] = shift(@buff);
...

だろうな。そもそもハッシュ使いたいっぽいからこれでも違うけど。
てか今はどうしていいかわからなくなってる状態だと思われ。

>>99
これでいいのか分からんが。

count('test.csv' => \%data) or die 'Failed to count';
print "$_: ", join(' / ', @{$data{$_}}), "\n" for sort keys %data;

sub count {
　　-f (my $file = shift) or warn('No such file'), return;
　　open IN, '<' . $file or warn($!), return;

　　my $hash = shift;
　　my @key = <IN> =~ /\w+/g;

　　while (<IN>) {
　　　　chomp;
　　　　my $i = 0;
　　　　push @{ $hash->{$key[$i++]} }, $_ for split /,/;
　　}

　　close IN;
}

一行だけ先に読み込む案は書いてる途中で思いついたからです。
この次の段階としてCSVファイルの任意の部分だけを読み込み、書き換えよう
にしなくてはいけないので、できるだけ汎用性を持たせた関数を作るよう心がけるように
との事なので、悩んでいました。

配列のところはそのようにするつもりです。whileでまわして配列をハッシュに移すのに
途惑っていて流れが整理できなくなっていました。

家の環境ではすぐに試せないのですが皆さんいろいろアドバイスありがとうございます。

>>104
そんな時にはActivePerl+AnHTTPDのPerlCGI再現セットがお勧め。

ぐぐって試してみます。情報どうもです。

>>99
my @data;

open(IN, $file) or die $!;

(my $key = <IN>) =~ s/^#\s*|\n//g;
my @keys = split(/,/, $key);

for (<IN>) {
　　chomp;
　　local %_;
　　@_{@keys} = split(/,/);
　　push( @data, { %_ } );
}

close(IN);

---
結果、以下のように代入される。

@data = (
　　{ 'ID' => '0', 'NAME' => 'yamada', 'TEL' => '333', 'ADDRESS' => 'A32' },
　　{ 'ID' => '1', 'NAME' => 'tanaka', 'TEL' => '555', 'ADDRESS' => 'B22' }
);

アクセスは、
print $data[0]{NAME}; # yamada
print $data[1]{TEL}; # 555

> モジュールも使えないのでよりどうしたらいいのかわかりません。
と書いてあるのは分かってるが、あえてCPAN モジュール版を。CSVって、
カンマで区切ってるだけと思ってる人も多いけど、泥くさいフォーマットだよ。

use strict;
use warnings;

use IO::File;
use Text::CSV;

my $parser = Text::CSV->new();

my $in = IO::File->new('test.csv', 'r')
or die('test.csv: ' . $!);

(my $field_names_line = <$in>) =~ s/^#\s*//;
$parser->parse($field_names_line)
or die('field keys are not found');
my @field_names = $parser->fields();

my @list = ();

while (1) {
my $row = $parser->getline($in);
last unless 0 < @$row;

my %hash = ();
@hash{@field_names} = @$row;

push(@list, \%hash);
}
@list = (...>>107 と同じ内容...);

質問です。
linuxサーバでパスワードの変更の際(passwdコマンド)に、
推測されやすいと判断をした場合、再入力を求めるようにするプログラムをperlで作る事は可能でしょうか？
可能な場合はどのような設置をすればよいのでしょうか？

>>109
単なる興味で聞くが、推測されやすいかどうかという判断を、どんな内容にする予定なの？

>>109
passwdコマンドにそのチェックをする機能を追加した
ようなものをperlで書いてもとのpasswdコマンドを
置き換えてしまうのが一番楽じゃないかと思われ。

>>111
そのようなものを >>109 が書けるか甚だ疑問な件。

>>109
可能。だが、その質問をしている時点で現在の>>109には敷居が高いだろう。

また、いくらシステム側で対処しても、
その手の脆弱性の根本部分はユーザーのセキュリティー意識にある。
「推測されにくいパスワードを使う」ことと教えてあげる方がよい。

>>110
例えば、４桁未満は駄目とか、数字のみは駄目等です

>>112
それはpasswdコマンドを書き換えるのはどこを操作すればよいのでしょうか？
また、perlで無くてもっと簡単にかける方法は無いものでしょうか
（どのファイルをどのように書き換えたらよいか等）

>>113
全くその通りなんですけど、自分の今後の為にと思いまして。

>>114
> 例えば、４桁未満は駄目とか、数字のみは駄目等です

これって既に、生の passwd コマンドが実装している機能では？
同じ機能を Perl で再実装したいって思うのは自由だけどね。

とりあえず、passwd のマニュアルページとソースコードを読んでみることをお勧めします。

関係ないけど、 getpass() が欲しいことがよくある。

>>114
その質問レベルを見る限りではpasswdコマンドをどうこうしようとか
思う前に基本を勉強した方がよさそうだな...

>>117
同感
rootで動くためにはパーミッションに細工した上で実行時にIDを変えてやる必要があるが、
この方法を知らないようなレベルで作ろうとしてもセキュリティホールを作ってしまう危険の方が高いと思う…

質問なのですが>>107さんのソースを実行してみたところ
4つめのキーの部分が出てこないのはどうしてでしょうか？
少しソースを変えていますが、
スカラーで確かめてみるとハッシュのキーは4つ確保されているのにADDRESSの項目だけが
表示されません。よろしくお願いします。

>>119
＞ハッシュのキーは4つ確保されているのに
じゃあそのキー名出してみ

表示は
print $data[3]->{ID};
print $data[3]->{NAME};
print $data[3]->{TEL};
print $data[3]->{ADDRESS};
のようにやっています。

4つ目のキーがうまくついていないのでしょうか。

>>121
たぶん改行コード。shift_jisで書いてない？

>>116
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq8.html#How_do_I_ask_the_user_for_a_pass

>>119-122
改行コードが原因なら

- (my $key = <IN>) =~ s/^#\s*|\n//g;
+ (my $key = <IN>) =~ s/^#\s*|\s*\z//g;

ASCII 互換なら文字コードは関係無い。

>>107のコードは>>99には難し過ぎやしないか？
結果を出すことよりも動作を理解するほうが先だと思うのだが。

いろいろありがとうございます。
改行コードかも知れません。最初の読み込みではずしてしまっているみたいなので。
いろいろ試してみます。
これとは別なcsvなのですがこちらの値は"yamada"　のように"とタブでで区切っていていてこれを
=~ s/" //g;
ではずそうといろいろいじてるうちになってしまったみたいです。
こちらは今何とか自分で試行錯誤しています。
ありがとうございました。

>>123
修正サンクス。

あと、細かいけどこっちの方がよかった。展開が減るので。

-　　push( @data, { %_ } );
+　　push( @data, \%_ );

>>125
改行の取り扱い不足でした。sorry。

> これとは別なcsvなのですがこちらの値は"yamada"　のように"とタブでで区切っていていてこれを
> =~ s/" //g;

tab 文字も \s でマッチするので

s/"\s*//g;

がおすすめ。

>>126
\%_ にするんだったら local %_; じゃないほうがよいのでわ。
Excelなら、クオーテーションは Perlメモ の CSV の項を読むといいと思う。

>>127
local $_ は単に global な %_ を壊さないようにしている
のだけど（このコードだと不要だけど）、
それ以外にデメリットってあります？

正：local %_ は

というか、>>107 の場合、local をつけないと、以前 push した
値を上書きしまいますね。


まぎらわしいので my 変数の方がいいのでは、ってことですね。

sousou

local %_ って名前を考えるのが面倒だっただけだろ？

しつもんです。
アンケイートをつくっているのですが、

【hoge.html1】
<FORM ACTION="hoge1.cgi" METHOD="post">→送信→log1
【hoge.html2】
<FORM ACTION="hoge2.cgi" METHOD="post">→送信→log2

↓
【hoge.html１】
<FORM ACTION="hoge.cgi" METHOD="post">→次へ→この分をまずlog3へ
【hoge.html2】
<FORM ACTION="hoge.cgi" METHOD="post">→送信→log3→おわり

てしたいんだけど、（2つのフォームの内容繋げて一気に送ってlog残したい）
どんなソース書けばいいですか？

そこはかとなくスレ違いのような気がするがいかがか？

javascript でも勉強したら？

>>133
一意のIDをcookieか何かで発行する、いわゆる「セッション」を使うのが普通だが、
htmlで、と言われると困る。mod_rewriteでも使って誤魔化すか。
で、言語は何よ？

ああ、ここにいるからperlに決まってるのかorz 最後の一文はスルーしておいて

=~s/\Eアンケ(イ|ー)ト\Q/アンケ$1ト/g;

QとE逆だろｗ

それ以前にマッチしないじゃんｗ

>>133
元のhoge1.cgiとhoge2.cgiはコピーして２つにしただけでしょ？
１のクエリはすぐに処理せず
２のフォームのhiddenにでも入れておいたら？

たしか JSスレの最近の過去スレにあったぞ

フォームで入力後、ＷＥＢに以下のような感じでフィルに書き出すんですが


if(open(FILE,">>hogehoge.log")) {

$record .= $in{'name'}."\t";
$record .= $in{'kana'}."\t";

　　　　　　　　　　　　　　　　　　　　　jcode::convert(\$record,'sjis');

print OFILE $record;
close(OFILE);

　

　name　が空白でないかを書き込み前にチェックしたいのですが、うまく動きません。

以下の記述を入れるかと思いますが、どの行に入れたら動作するでしょう？

if ($FORM{'name'} eq "") { &errexit("お名前は必ず入力してください"); }

以下のエラーが出ます。

Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, [no address given] and inform them of the time the error occurred, and anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

よろしくお願いします。<(_ _)>

>>141
>>87

OFILE なのか FILE なのかはっきりさせよう。

>>142

エラー行が表示されました。ありがとうございます。<(_ _)>

>>143

OFILE と FILE　の違いがよくわかっておりません。　ご教授下さい　<(_ _)>

>>142

Undefined subroutine &main::errexit called at /virtual/hogehoge.cgi line 18.


追記した↓この行があかんみたいです　
if ($FORM{'name'} eq "") { &errexit("お名前は必ず入力してください"); }

perlによるプログラミングを始めたところです。
知識レベルとしては、Cで普通にプログラムは書けますが、
perlは本当に始めたばかりです。

<質問事項>
基本の基本ということで以下のコードを書いたのですが
画面上に何も表示されません。(エラー等も表示されません)
printは画面(標準出力)に文字列を表示させると思っています。
コードもしくは認識に誤りがあるのでしょうか？

<コード>
■test.cgi
#!/usr/bin/perl

print "Program start\n";
print "Program end\n";

■実行方法
./test.cgi
■ファイルの属性
-rwxrwxrwx 1 root www 129 10月 22 15:37 test.cgi
■whichの結果
which perl
/usr/bin/perl

> 知識レベルとしては、Cで普通にプログラムは書けますが、
・・・

>>145
3行目に以下を追加。

sub errexit { print "\n", @_; exit; }

>>146
CGIでの Hello World レベルくらい調べろよ。

>>146
2行目に以下を追加。

print "\n";

>>146
/usr/bin/perl ←これがすぐに終了して何も返さないスクリプトに入れ替えられてる

>>148

ご指導ありがとうございます。

文字列が入ってても以下のメッセージが表示されます。

「お名前は必ず入力してください。」

>>152
問題が再現する最短のコードを載せるべし。

>>153　すいません。

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
sub errexit { print "\n", @_; exit; }

require "cgi-lib.pl";
require "jcode.pl";

if ($FORM{'name'} eq "") { &errexit("お名前は必ず入力してください。"); }

if(open(OFILE,">>hogehoge.log")) {

$record .= $in{'name'}."\t";
print OFILE $record;
close(OFILE);

#フォームの表示

print "Content-type: text/html\n\n";
print qq!
<HTML>
<HEAD>

perlで質問です、よろしくお願いします。

「AAA AAAA」と「BBBBBBB」というデータを保存する際にスペースで区切ったために
「AAA\ AAAA BBBBBBB」のようにデータ上のスペースの前には\を置いて保存されています、
またデータ上の\は\\で保存されています。
これを読み出すための簡約化された手順がありましたら教えてください。
とりあえずデータ上で９文字目が区切りであることを検出できればいいです。

それとも、フォーマットについてもっとこうするべきだというものありましたら
いまからでも変更の余地がありますので提案お願いします。

>>153

if ($FORM{'name'} eq "") { &errexit("お名前は必ず入力してください。"); }

↑この行を省くと動作するのですが、空白でも　post　してしまいますので。

＞９文字目が区切りである

固定長なら \ でエスケープする必要ないんじゃ？

>>154
$in{"name"}
$FORM{"name"}
これはどこで取得してるんだ？

>>158　すいません。

<HTML>以下のフォームにて取得してます。

<FORM ACTION="hogehoge1.cgi" METHOD="post" name="FORM" id="FORM">



<td colspan="2" nowrap><font size="3">ご氏名</font></td>
<td height="25"><input type="text" name="name" style="ime-mode: auto;" size="30">
</td> </tr>

>>159
それは渡す方だろ。
受け取る方の話。

>>160　すいません。

FORM ACTION　で　name に入力された文字が代入されて

$record .= $in{'name'}."\t";

のところで　タブ入りで　record に渡されて

hogehoge.log ファイルに書き込むのと違うのですか？

>>157
９文字の固定長ではありません。
サンプルに対して取得したいデータが９であるという、あくまでも例です。

やはり自分で１文字ずつ検証して作るしかないでしょうか？

>>161
えーっとだ。
>>152でHTMLから送信してもエラーが出ちゃうと言う問題だろ？
書き込むとかどうでもよい。
受け取りができてないのよ。
cgi-lib.pl使ってるみたいだから↓読んで。
http://www.futomi.com/lecture/form/cgilib.html

>>162
区切り文字変えるのが早い。

>>163　参照URL迄、すいません。

以下の感じでよろしいんでしょうか？


my %input;
&ReadParse(\%input);

$YourName = $input{'name'};

if ($FORM{'YourName'} eq "") { &errexit("お名前は必ず入力してください。"); }

>>154 の頭の中では $FORM{'name'} と $in{'name'}. が同じなのかな。

>>165
こいつすげえ・・・。

>>165
違う。

my %input;
&ReadParse(\%input);
if ($input{'name'} eq "") { &errexit("お名前は必ず入力してください。"); }
--以下保存処理

あと、試してから聞きなさい。

そろそろ釣り宣言

>>168　ありがとうございます。

入力文字があっても　以下のメッセが表示されます。(・_・、)

"お名前は必ず入力してください。"

>>170
変数に何が入ってるかわからんのなら、printしてみようね。
あと、めんどいからどっかにCGIプログラムとHTMLのソースうｐしる。

一度ReadParseしないで書いてみては。勉強になるし。

>>171　すいません、よろしくお願いします。

http://other.free-uploader.com/up/

hoge_1.cgi　です。

>>173
Passがかかってて落とせません。

>>174

たびたび、すいません。

0123

&ReadParse;
if (!$in{'name'}) { &errexit("お名前は必ず入力してください。"); }

&ReadParse 呼ぶのは１度だけ

これftpソフトで落としたいんですけど、user名とpassのところには何を入力すればいいんですか？
http://allabout.co.jp/career/cgiperl/closeup/CU20040805A/index4.htm

>>178
anonymous と きみのメルアド

>>177 解析ありがとうございます。

ひとつを消したんですが、結果は

>>170 と同じです。　（×_×）

http://lavender.system.nitech.ac.jp/comp/pea/pea-004.htm見ていくらやってもうまくいかなかったんですが、
うまくいきました
ありがとうございました

member_1.cgi と hoge_1.cgi は別もの？おなじもの？
hoge.tmpl も見当たらないし。

in っていう名前の hash と input っていう名前の hash が存在してるようだけど、
タイプミスかな？意味があって別な変数名にしてるのかな？

>>180

my %input;
&ReadParse(\%input);
if ($input{'name'} eq "") { &errexit("お名前は必ず入力してください。!"); }

↓

if ($in{'name'} eq "") { &errexit("お名前は必ず入力してください。!"); }

つか 最初の &ReadParse; の後に↑を書け。
open FILE の中だと、ファイルが開いたまま終わることになるぞ。今はいいとしても。

あと
print qq!
　ソース
!;

じゃなくてヒアドキュメントを使え。

print <<__EOT__;
　ソース中に ! をひとつでも書いたらそこで終了しちゃうだろ危うすぎ。
__EOT__

>>183
おいおい

>>186

すいません、レスが遅れまして

うまくいったと思って、　名前以外に電話番号とメールもチェックをして・・・
って　やったら、
お名前は必ず入力してください。!

になりました。(･_･、)

そうですか。

釣り相手にいくつのレスを使うつもりだおまいら

>>188　　ほんとうにすいません。

結局うまく、行きません。

別ファイルでもいいので、他に良い方法ないでしょうか？

> 他に良い方法
いちからべんきょうしなおす

>>191 今まで、レスして頂いた　神様、

解決いたしました。

&ReadParse;
のすぐ下ではなくて、if(open(OFILE,"　の前の行に
貼り付けたら、いけました。

スレ汚し、すんませんでした。　<(_ _)>

たとえば大文字と小文字が混雑している･･･
---test<DIR>----
AfIlE
bFiLe
----------------
というファイルがあるディレクトリがあるとき、
$file = "afile";
open(IN,$file);
〜〜略〜〜
というような形で、大文字小文字関係なくファイルを指定したいのですがどのような方法を使えばよいでしょうか？

readdir とか glob とかでファイル読んでから正規表現でマッチさせて正しいファイル名を出すとか。

%files = map {lc($_) => $_} glob '*';
open(IN,$files{'afile'});
ハッシュを使ってこんな感じとか。

>>193
ファイル名が case sensitive なシステムでは AfIlE と aFiLe が
混在可能なので、afile と指定した時にどちらを指すのか判別
できない。よって正しく AfIlE と指定するか、実際のファイル名の
方を小文字に正規化した方が余計なハマり処を減らす事ができる。

ファイル名が case insensitive なシステムでは AfIlE と afile が
同じファイルを指すので、AfIlE を open する時でも afile と指定
できる。よってプログラム側では正確なファイル名を気にせず
全部小文字で指定してもよい。

それでも尚「大文字小文字関係なくファイルを指定したい」なら、
>>195 のように実際のファイル名と正規化したファイル名の
対応表を作る事になる。

>>194-196
了解しました。ファイル名のシステムはよく分かっていないため、>>195さんのような方法をとることにします。
ありがとうございました。

Perl初心者です。
Perlでファイルを読み込む場合は open を使うと思うのですが
外部のファイルを読み込む(http経由）ときはどうすればよいですか？

例えばlinuxでいうと wget なんかは、外部ファイル（実行結果）を取得するのには最適ですよね。

perlだと 内部のindex.cgiをopenするとプログラム内容までもってきちゃいます。あたりまえですがね。

index.cgiの実行結果のみ持ってきたいので、http経由でopenできればとか思っているのですが。

wget http://www.yahoo.co.jp/

と同じようなことが出来るコマンドありませんか。
わかりにくい説明で申し訳ないんですが、要は実行結果部分のみ読み込みたいです。
ちなみにsystemコマンドでwgetという方法はなしで。

>>198
LWPでググって見れ

>>198
おれの勘ではモジュールを使うとできる。

>>198
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq9.html#How_do_I_fetch_an_HTML_file_

>>198
wgetを使って、そのまま内容を得ることもできる。

↑みすった。wget使わないでね。
socketでやるとモジュール無しでもいける。ヒント↓
socket(S, 2, 1, 0);
connect(S, $name);
binmode(S);
select(S); $| = 1;
select(STDOUT); $| = 1;
print S "GET $dir HTTP/1.0\r\n";
print S "Host: $host\r\n";
print S "\r\n";
while(<S>){}
close(S);

LWP使えよ...

>>202-203
こういう奴らが糞みたいな CGI を量産するんですね。

>>205
おまいもマシなコードを量産しろ。

（HTMLを取得するときにUAをLWPやらなんちゃらUSERAGENTモジュールを使って指定したくても何故かエラーがでて方法が分からない俺。）

たまに、>>203みたいにエラーチェックを全くしない人がいるんだけど、
どういう理由でエラーチェックしないの？

サンプルコードで、エラーチェックを入れるとポイントがわかりづらくなるときとか。

かなり悩んでいます。どうかご教授くださいm(__)m 当方、CGIで掲示板を組んでおりまして

◎ファイル構造
・main.cgi(掲示板のトップページ、フォームあり)
・confirm.cgi(書き込み内容確認)
・regist.cgi(書き込み専用 HTMLによる出力はなし)
・finish.cgi(書き込み完了ページ)
・value.pl(独自に作成した変数、サブルーチンのセット)
・jcode.pl
・cgi-lib.pl
・log.cgi(ログファイル)

�@main.cgi→ main.cgiのフォームに入力した後、送信ボタン(submit)でPOST送信
�Aconfirm.cgi→ main.cgiから$ENV{'CONTENT_LENGTH'}で値を受け取ってsplitで各変数にばらし、
　[この内容で書き込みボタン]が押されたら、それをまたPOST送信でhiddenで１つずつ送信。
�Bregist.cgi→ confirmからきた値を�Aと同じように$ENV{'CONTENT_LENGTH'}で受け取って
　splitでばらし、各変数に値を格納、時刻の取得、トリップ処理、フィルタリング処理(\n\r→<br>など)をした後、
　ログファイルからデータを読みこんで(それまでのデータを読み込んで、すべてを上書きする形を
とっていますので・・)ログファイル書き込み。そのあと、すぐにfinish.cgiへロケーションヘッダで飛ばす。
�Cfinish.cgi→ 書き込み完了しました画面が出るので、掲示板へ戻るリンクをクリック。
�Dmain.cgi 最初の掲示板に戻ってきます。

という流れなのですが、不明な点が２つありまして、

続く

まず1つ目は
例えば、�@で改行を含む、本文を

あいうえお
かきくけこ

と、フォームに入力して送信した場合に、
confirm.cgiの内容確認で同様に

あいうえお
かきくけこ

と、改行して表示してほしいのですが、うまくいきません。confirm.cgiで画面出力する前に、&data_filter($message); などとすると
書き込むリンクのとなりへ

　　かきくけこ
>

などと出力されてしまうのです。そしてそれを書き込んでmain,cgiで見た結果は

無題 　New!
名前: 名無し 投稿日: 2005/10/24 (月) 16:15:11

あいうえお<br

です。もちろん改行はされていませんorz

つづく

データの受け渡しに問題があると思うのですが、うまく改行する方法をご教授ください；

2つ目は、トリップ機能を使って

名前欄に モナー#1234と入力した場合に、 名前: モナー｢｡tr.t4dJfuU のように文字化けを起こしてしまうのです。
トリップ部分はきちんと10桁 表示されているので、#の部分で不具合が起きているのだとは思いますが・・。

ちなみに、mona-#1234 などと、アルファベットで入力すると、きちんとmona-◆tr.t4dJfuU のように
出力されます。でもひらがな、カタカナ、アルファベット、どの場合の入力でも
◆を◇には置換してくれません。。この機能、ちゃんと動いたんですが…(１つのCGIで入力＆出力してたときは)
なので、この#の文字化け＆◆→◇の処理がうまくいかない理由を、教えてくださいorz

以下､ソースです。

main.cgi
ttp://imbbs1.net4u.org/1/sr3_bbss/4874isimin/65_1.txt
confirm.cgi
ttp://imbbs1.net4u.org/1/sr3_bbss/4874isimin/66_1.txt
regist.cgi
ttp://imbbs1.net4u.org/1/sr3_bbss/4874isimin/67_1.txt
finish.cgi
ttp://imbbs1.net4u.org/1/sr3_bbss/4874isimin/68_1.txt
value.pl
ttp://imbbs1.net4u.org/1/sr3_bbss/4874isimin/69_1.txt

>>208
長くなるんで必要なところだけ出したんですけど・・・

>>205
では、socket使ったまともなコードを要約して教えて下せー。

>>212
ソースを見たところ、日本語を扱うにあたって、注意を払っている
形跡が何も見当たらない。ここでも読んで、勉強してください。その上で
解らないことを質問するといいでしょう。

http://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html

>>215

ありがとうございます。

ちょっと勉強しますorz

mona さんへ。

form から post されてくるデータを、＆で split するとか、
それをさらに = でsplit するという処理を自分で書いてるけど、
それをやってもらうために cgi-lib.pl を require してるんじゃないのかい？

あ、ReadParse を使ってるところもあるね。。うーん、混乱してる。w

>>213-214
エラーチェックも「必要なところ」だという意識の欠落を
指摘されているんだと思うよ。

LWP を使わず自前で HTTP を喋るにしても、最低でも
Socket.pm を使って定数のハードコーディングを避けるべきだろう。
それ以上は趣味の世界で人に勧めるものじゃないよ。
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlipc.html#Internet_TCP_Clients_and_Servers

Socket.pm すら用意されていないような環境に対応する必要は無い。
それは管理者がやってほしくなくて故意に削除してあるのだから。

>>217
>>55

ハードコーディングな方が多いこと・・・もっとファジーに生きましょう。

すいませんどなたか助けて下さい
ダイス機能のついてるＣＧＩとして
ＫＥＮＴＷＥＢさんのPONNY CHATを再配布されてるサイトさんから
ＤＬさせてもらって、ちょっとチャットを作りたいのですが

↓スクリプトをいただいてきたところ
『http://www.big.or.jp/~t-shun/trpg/trpg_cgi/dicechat/dchat03.html』

↓自分で作りかけのチャット
『http://firemind.maxs.jp/reidai/index.html』

↓dicechat.cgiの中身（メモ帳にコピーしたもの）
『http://firemind.maxs.jp/reidai/1.txt』

よくメールアドレス欄を改造してＰＢＣとかだとキャラクターのプロフィールを入れたり
普通のチャットだと今日の気分とかを入力したりするようにしたいのですが
初心者系のネット講座を見てもいまいち理解できませんでした
似たようなスクリプトを配布しているところがあったので応用できないかと思ったのですが
やはりエラーが出てしまいました
もしよろしければアドバイスをお願いします、
そうでなければ良いアドバイスのサイト、もしくは書籍を教えて下さい
素人の書き込みですいません

[ ]で囲まれた単語をURLエンコードするには
どう書けばよいでしょうか。初歩的ですいません

>>221

use CGI::Enurl;

$string =~ s/\[((.)+?)\]/[enurl($1)]/eg;

これでどう？
確認してないけど。

>>221
ごめん間違えた。

use CGI::Enurl;

$string =~ s/\[((.)+?)\]/"[".enurl($1)."]"/eg;


print $string;

すいません、スクリプト改造スレを見つけました
板違な事を書き込みまして申し訳ありませんでしたスルーして下さい（平伏）

たびたびで申し訳ないですが、以前教えていただいたCSVからのハッシュへの読み出しですが、
ハッシュに入れたものを指定した値を書き換えて別なCSVに出力するにはどうしたらいいのでしょうか。

CSVの中身
ID,NAME,ADDRESS,TEL
0,yamada,A32,333
1,tanaka,B22,555

sub write{
@arr;
open (IN, "+<$file")or die "$!";
#キー作成
(my $key = <IN>) =~ s/^\s*|\s*\z//g;
my @keys = split(/\t/,$key);
#ハッシュ代入
for(my %hash = <IN>){
chomp %hash;
chop;
@hash{@keys} = split(/\t/);
push( @arr, {%hash});
}
でprint $arr[13]->{ID};　　print $arr[1]->{NAME};
のように関連付けて扱えるようになったのですが
$arr[2]->{ID} =~ s/$arr[2]->{ID}/5/;
で置き換えをしたものをCSVに入れることが出来ません。
foreach my $buff(@arr){
　　print OUT "$buff\t";
}
では無理でこんがらがってしまいました。
アドバイスをお願いします。

> たびたびで申し訳ないですが、
そう思うんだったらちょっとは自分で考えろよ。
基本的なアルゴリズムも分からないんだったら出直してこい。

Perlコーティングは無関係ですが無償でexe化する方法（コンパイラ）は存在しますか？

>>227
perlcc

>>225
前から思ってたんだけど、それ宿題か何か？

>>217

そうです、今まではすべて、cgi-libのReadParseで事を、済ませていたのですが
ReadParse使わなくてもできるようにしておいたほうがいいかなということで
処理を自分で書いています。まだ残ってるReadParseは、その名残です。。
書き換え忘れというか・・・orz

にしても、いまだ正常に動きません…。

はいそうです。課題なんですが、どんどん機能を追加していくので。
ロジックが詰まってどうしたら良いのか進まなくなってしまいます。
発想の転換がうまくできないもので。
すいません

>>231
答えを聞いてばかりでは勉強にならないよ。
テキスト読むなり、自分で調べるべし。

会員認証ごとの認証をおこなった後にその認証情報に基づいたページを作る場合、クッキーを利用する方法と、都度HIDDENで情報をひっぱる方法のどちらが良いのでしょうか？
ちなみに、携帯でもアクセスする可能性が大なサイトを作ろうと思っています。
やっぱりHIDDENの方が無難なのでしょうか？

>>233
携帯だとそもそもクッキーをサポートしてない方が多かったと思う。

>>231
課題は自分でやれ。
ここ自助努力をサポートする場所であって、お前の家庭教師じゃないよ。

>>233
携帯は Cookie 使えん機種が多いので NG。セッション管理を Web アプリ側で
行なって、セッション ID を Cookie ではなく type="hidden" で引っ張るのが吉。

すみません。引数でhtmlのファイル名を指定し、そのhtmlを読み込んで表示する、
というCGIを作ろうとして、下記のようなものを作ってみました。

#!/usr/bin/perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my ($form, $ht, $datafile, $data_line, $dir);
$dir = './test';
$form = new CGI;
print "Content-Type: text/plain; charset = shift_jis\n\n";
$ht = $form->param('ht');
$datafile = $dir."/".$ht."html";
open(FH, $datafile);
@list = <FH>;
foreach $data_line( @list ) {
print $data_line;
}
close (FH);

これを実行してhtmlを表示しようとしたのですが、うまく表示されません。
できましたら修正のヒントを教えてもらえますでしょうか？

>>236
>>1

>>236
せっかく fatalsToBrowser 使ってるんだから、せめて
openのエラーはチェックしろよ。

open(FH, $datafile) or die "cannot open $datafile: $!";

ぐらいでいいからさ。

>>238
openのエラーチェックしたら、見事にミスってました。

$datafile = $dir."/".$ht."html";

のところで拡張子のピリオド付け忘れてました＿|￣|○

修正したら無事表示されました。

ありがとうございました。

>>239
http://www.ipa.go.jp/security/awareness/vendor/programming/a04_01.html

以下は、プログラムの内容をcat して、プログラムに読ませるデータファイルをhexdump して、
実際にプログラム test.pl を実行している様子です。
なぜ、ファイル data の最後の行が表示されてしまうのでしょうか。
最後の行の末尾には改行文字がないので、最後の行(内容は一文字のゼロ)を $line に読み込んだ直後に、
while を抜けるはずだと予測したのですが。

%cat test.pl
#! /usr/local/bin/perl
while ($line = <>) {
print $line;
}
%hexdump -C data
00000000 33 0a 32 0a 31 0a 30 |3.2.1.0|
00000007
%./test.pl < data
3
2
1
0

# 最後の行に改行文字を持たないファイルは、truncate コマンドを使って作成しました。

>>241
perldoc perlop を見るとわかると思うけど、
while ($line = <>) { } は while (defined($line = <>)) { } と等価なので。

画像掲示板を作ろうとしているのですが、
一度アップした画像を、最大記事件数を超えた時点で削除する
プログラムを書いていたのですが、どうしてもうまくいきません。

一個一個の記事に、画像のアドレスが$file_nameとして入っていて、
if($file_name ne ''){ push (@img_dels , "./img/$file_name"); }
で、最大記事件数を超えた分の記事に付いている画像のアドレスを配列に入れて、
unlink @img_dels;
としても、きちんと画像が削除されません。

if(-e )を使って調べてみると、
./img/$file_nameでは、存在しないことになっており、
一方、./img/2005001.jpgというように、具体的な値をプログラム内に入れれば
問題なく削除できるのです。

つまり、変数$file_nameを使っているとうまく作動せず、
その変数の部分を、何か具体的なファイル名を入れてみると、
きちんと動作するのです。

なので、パーミッションの問題ではないかと思うのですが、
他にどういった点が怪しいのでしょうか？

以上、よろしくお願いいたします。

導入法がわからんとです
どなたかお力添えくださればうれしいとです
まずなにをインストールすればいいとですか？？

>>243
$file_name にファイル名以外の文字が入ってたりとか足り無かったりとかくらいしか思いつかないな。

どうせ改行コードとか入ってるんだろ？

>>244
>>7
http://www.site-cooler.com/kwl/perl/environment.htm

>>243
おかしいと思う部分の変数をprintしてみる。
基本でしょ。

元データは
1<>あああ<>
2<>いいい<>
3<>ううう<>

@testに上記データの読込
$hikakuに比較する変数
$bbb_newは$aaaが合致した場合に入れる

foreach (@test) {
　　　　($aaa,$bbb) = split(/<>/);
　　　　if ($hikaku eq $aaa){
　　　　　　　　push(@test_new,"$aaa,$bbb_new");
　　　　} else {
　　　　　　　　push(@test_new,"$aaa,$bbb");
　　　　}
}

全上書きで@test_newをデータ書き込み

こんな感じで、要はデータ修正用のものを組んでみたのですがなぜかこれを走らせる都度先頭に半角スペースが入ってしまいます。

1<>あああ<>
　2<>いいい<>
　3<>ううう<>

なぜなんでしょうか？

>>249
もしかして出力処理で
print "@test_new"
とかダブルクォーテーションで括ったりしてない？

改行コード間違えてんじゃね？
走らせるって@test_newをprintするとってことか？

そもそも

push(@test_new,"$aaa,$bbb_new");

は

push(@test_new,"$aaa<>$bbb_new");

にしたいんじゃないかと

>>250
>>251
すいません。カキコ時ミスでした。
そうです。
push(@test_new,"$aaa<>$bbb_new<>\n");
です。

保存時は
&Memory2($dataname,"@test_new");

…とし、保存時流用のため、サブに飛ばしています。
そのサブは以下のようにしています。

sub Memory2 {
　　　　local ($param) = @_[0];
　　　　local (@param2) = @_[1];

　　　　open(OUT, "> $param");
　　　　print(OUT @param2);
　　　　close(OUT);
　　　　chmod(0666,$param);
}

…お前何の本見ながら勉強してんの？

>>252
> &Memory2($dataname,"@test_new");
　　　　　　　　　　　　　　　 ~~~~~~~~~~~~~
しっかり括ってるじゃないか・・・原因はこれ
ダブルクォーテーションで括った場合の配列変数の展開は以下と同等
join(@array, $")
$"のデフォルト値は半角スペースだからこういうことになる。

&Memory2($dataname,@test_new);
とすればよい

うへ、joinの引数順間違えた
join($", @array)
が正解

>>254
&Memory2($dataname,@test_new);
…とすると１行目の変数しか書き込まなかったので、ダブルクォーテーションを付けていました。

サブに飛ばさず、
open(OUT, "> $dataname");
print(OUT @test_new);
close(OUT);
…とすれば、半角スペース問題が解決しました。

本当にありがとうございました！！

>>256
ああ、ｽﾏｿサブルーチンのほうをよく読んでなかった。こっちも間違ってるな
local ($param) = shift @_;
local (@param2) = @_;
とか
local ($param) = @_[0];
local (@param2) = @_[1..$#_];
とかにしないと。
でも、いまさらlocalは古いと思うが・・・
Perl4にも対応しなくてはならないということでなければmyを使うのがお勧め
my $param = shift;
my @param2 = @_;

>>257
ほんと、重ね重ねありがとうございます。
無事、サブルーチンに渡してもうまくいくようになりました！！

ファイルから探さずに、ディレクトリ読めばいいだけじゃないの？

すいません。
@flagの中に一つでも1があったら
1を返したいのですがよい方法があったら教えていただけないでしょうか？
今の所
if(@flag == 1 && $flag[0] == 1){
return 1;
}elsif(@flag == 2 && $flag[0] == 1&& $flag[1] == 1){
return 1;
}elsif(@flag == 3 && $flag[0] == 1&& $flag[1] == 1&& $flag[2] == 1){
return 1;
}elsif(@flag == 4 && $flag[0] == 1&& $flag[1] == 1&& $flag[2] == 1&& $flag[3] == 1){
return 1;
}elsif(@flag == 5 && $flag[0] == 1&& $flag[1] == 1&& $flag[2] == 1&& $flag[3] == 1&& $flag[4] == 1){
return 1;
}else{
return 0;
}
とやっているのですが不恰好なので。

あ、、、すいません。
＞@flagの中に一つでも1があったら
じゃなくて@flagの中全部1だったらです。

>>260-261
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq4.html#How_can_I_tell_whether_an_list_o

sub check {
　　$_ == 1 || return 0 for @_;
　　1;
}

print check(@flag) ? 'OK' : 'NG';

return @flag == grep($_ == 1, @flag) ? 1 : 0;

>>263
それも思い付いたけど、@flag が (1, 1, 1, ..., 1) とかだと遅い。

foreach (@flag) {
　/(^0^)/;
　/(f^_^)/;
}

orz=3;

>>260
foreach (@flag){
　if($_ == 1){ return 1; }
}
じゃ駄目？

>>257
my($param, @param2) = @_;
ってやっちゃ駄目ですか？
自分のスクリプトではこうやって渡しちゃってるんですが・・・

>261
sub flagcheck{
　　my(@flag) = @_;
　　foreach (@flag){ if(!$_){ return 0; }}
　　return 1;
}

sub flagcheck{
　　foreach (@_){ if(!$_){ return 0; }}
　　return 1;
}
これでよかったか

超好みの問題だけども
if(!$_){ return 0;
より
return 0 unless $_;
の方が……どうでもいいか。
それより、0と1しか入っていないことは保障されてる？

>>270
書きながらそれは思ったけど、質問の段階で 0 と 1 しか出てこなかったので ＾＾；
1 以外が入ってれば … も考えるなら
if($_ != 1){ return $_; }
かな？

unless ($_) { return 0; }　または　return 0 unless $_;
次の行に return $_;
個人的にだけど、否定だけで分岐する場合にはunlessが見やすいと思う。

use strictを使うように心がけようと思い、ここ最近ののソースには書いているのですが、
requireしたファイルの中でグローバルを宣言するにはどうしたらいいのでしょうか？
requireしたソース中でmy宣言したらその中でしか見えず、エラーが出てしまいました

＞requireしたファイルの中でグローバルを宣言するにはどうしたらいいのでしょうか？
kentのように、１つの変数をずっと使うような設計は止めたほうがいい。

＞requireしたソース中でmy宣言したらその中でしか見えず、エラーが出てしまいました
ソースのmyというか、スコープをもう一度勉強して。

むりやりstrictでエラーを出させないようにするなら、qw($hoge);

>>273
274の言うように可能なら変数を見せなくてすむように設計を見直した方が
いい場合が多いが、どうしてもやりたいのならモジュールにしてimport/export
するのがいいんじゃないかね。

レスありがとです。
requireした先でのグローバル確保したいってのは止めた方がいいというのは分かってはいるのですが・・・

やっぱ面倒くさがりはじめるとエラーが多くなるんでしょうかね。
出来る限り引数、戻り値を設定して呼ぶようソース見直します。

ありがとうございました。

悪い癖を覚えないうちにアドバイス。
コーディングはファイルサイズ増えても、半角スペースとタブをうまく使うようにするといいよ。
あと、コメントも適度にあるといいね。

>>273
参照/設定専用のサブルーチンを作ってそれでアクセスするようにすればいい。
オブジェクト指向で言うところのアクセサってやつ。

my(@flag) = @_;
といったカッコをつけたコードはどういう意味があるのでしょうか？

>>279
リスト。

http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldata.html#List_value_constructors

多分こういうことを聞きたかったのかとエスパーしてみた。

myをまとめて指定する場合()でくくる必要がある。
別にmy @flag = @_;でも可
my ($hoge,@flag) = @_;　としていて、$hogeを消した名残かもしれない。

my (@flag) = @_;
my ($foo, $bar);
my (@age, @sage);　と連続して書く場合、見た目の為？に括弧くくりしてあるのも見かける。

my($a, $b);
ってする時に括弧をつけるので、見た目統一のために１つのみの宣言でも括弧を付けてます。

すみません281さんの通りです。
右辺のコンテキストを変えた、もしくはmyの適用範囲を指定したコーディングでもないのに
カッコを付けるのが紛らわしく感じたのです。

>>267
> my($param, @param2) = @_;
> ってやっちゃ駄目ですか？
もちろん構わない
shiftを使って引数を取り出すかリストコンテキストで一気に代入するかは好みが現れる所だろうな

しかし、自分でも書いた後、説明とはいえ
> local ($param) = @_[0];
> local (@param2) = @_[1..$#_];
こんな回りくどいやり方は無いなと思った…しかも上間違えてるし$_[0]

>>277
それ激しく同感。上手くタブとスペースを使い分けて書かれてるソースってめったに見られないよな

よくあるのがこういうインデントだけど、タブ幅が変わると悲惨なことになる
if (expression) {
____for (range) {
[_TAB__]{ #Some blocks
[_TAB__]____function(multiline,
[_TAB__][_TAB__]_____arguments)
[_TAB__]}
____}
}

漏れの思う理想形はこんな感じ。これならタブ幅がいくら変わっても適切なインデントで見られる
if (expression) {
[TAB]for (range) {
[TAB][TAB]{ #Some blocks
[TAB][TAB][TAB]function(multiline,
[TAB][TAB][TAB]_________arguments)
[TAB][TAB]}
[TAB]}
}

>>285
上の例、ひどすぎないか？
tab size を 8 にして、indent size を 4 にしているということ？

> よくあるのがこういうインデントだけど、

よくあるのか・・・？

>>286
そういうこと
Perlの標準モジュールとか見てみれ　大半がこんなだよつд｀)
CGI.pmとかMemoize.pmとか

>>286
同じソースを複数人で弄っていて、コーディング規約も何もない場合
tab と space が混在してもっとひどいことに・・・。

>>286
Emacs のデフォルトがそんなんだったような。
漏れの思う理想形は、タブは一切使わず SPACE のみでインデント。
Emacs なら (setq-default indent-tabs-mode nil) しると。

>>289
スペースのみか、それも良いな
でも、漏れが読むときは全部タブに置換することが度々
スペースで固定しちゃうと、その人の好みのインデント幅に合わせて
読めないというのがあるんだよなぁ…
# 個人的に、使い慣れてるエディタ上でのタブを表す→を、
# インデントとしてみるように目が慣れちゃってるのもあるのかも

まあ好みは人それぞれ分かれるから、他人のソースを読むときは
PerlTidyを通すのを習慣付けろってことか、これは

インデントはタブ、関数など括弧の前後は半角スペースで統一してます。

>>287
CGI.pm見たけどタブは使わずスペースのみだった。

>>292
何かの間違いじゃ・・・
ttp://search.cpan.org/src/LDS/CGI.pm-3.11/CGI.pm
こことか。133行目付近
unless ($OS) {
unless ($OS = $^O) {
require Config;
$OS = $Config::Config{'osname'};
}
}

お願いします。
ファイルハンドルを局所化することは可能でしょうか。
再帰したサブルーチンの中で毎回違うファイルを扱いたいのです。

すみません、何も考えずに質問したわけではないのですが、書いた後に
ファイルハンドルへのリファレンスだか型グロブだか(よく理解していない)を
局所化した変数に入れておけば解決できるのではと思いつきました。
その方向で調べてみますが、方向性が間違っていましたら教えてください。

オープン、処理、クローズまで一連の動作をするサブルーチンなら、難しいこと考えなくてもいいのでは。
引数にファイルを指定するぐらいかな？

ちょっと込み入ったことになってまして、
オープン、処理、クローズの、処理の部分でもう一度再帰的に自分自身を呼び出しているので、
クローズする前に同じハンドルで別ファイルをオープンしてしまってるんです。

>>297
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlfaq5.html#How_can_I_make_a_filehandle_loca

>>298
ありがとうございます！！そのままずばりの質問でしかもFAQということで
まことに恐縮です。おかげさまで解決しました。

>>299
FAQに書いて無いようなので補足
モジュールが使える環境ならIO::Fileを使うことをお勧めする

初心者です。
意味を教えて、と言うものです。ごめんなさい。
既存のソースを使って勉強中に、フォームをデコードしたい部分で

read(*******略*******);
undef(%in);

というものが出てきました。
undef とはどういう関数なのでしょうか。
リファレンスで探してみたのですが、名前付き単項演算子として列記されているだけで、
解説が載っていませんでした（初心者向けだから？）
ぐぐってみたものの、他の項目の解説用のソースばかり出てきてしまい、
undef の解説が見つけられず、困っています。よろしくお願いします。

見つからないわけねーだろ。
どういう調べ方してんだ。

pear undef
で検索してみたのですが…
何か手がかりがあれば教えていただきたいのですが。お願いします。

>>302
まあまあ

>>301
Perlの組み込み関数は
perldoc -f 関数名
でマニュアルが見られる。ただし英語だけど。
日本語訳は
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod
http://www.att.or.jp/perl/man/perlfunc.1.html
このへん

で、undefがどういうものかというと、その変数の値を未定義にする関数。
まあ、その例ならば%inを空にすると考えてもらっても良いと思うよ

>>303
ってpearじゃなくてper「l」だヾ(ﾟДﾟ#)ﾉﾞｺﾞﾙｧ

ありがとうございます。
（つづりまちがいは、ここに書いたときだけでした；）

ソースに undef(%in); と出てくるものの、 %in は後にも先にもここ一つなのですが…、
どこにも出てこない変数をクリアすることに意味はあるんでしょうか？
（もしかして、悪いモノを見本にしてしまったのでしょうか）
（呼び出しているプログラムは jcode.plのみです）

>>306
多分、%in は使っていないけど、$in{.......}
は使っているというオチだろうな。

>>306
%inじゃなくて$in{...}の形ででてきてるかもね。

しかし%inをundefして使いまわそうとしている
あたりあまり筋がよさそうではないので、手本に
はしないほうがいいんじゃないかなー。

>>306
> （もしかして、悪いモノを見本にしてしまったのでしょうか）
模範的といえるような綺麗なPerlスクリプトって正直なかなか無いからねぇ。
現状良い見本を見て育った人のほうが少ない気もする

駱駝本買っとけ

>>308
myで宣言してスコープアウトで自動で破棄させるべき、かな

本屋で買った、初心者用CGIの本を頼りにやっていたので
載っていないことが多かったのですが、
教えていただいたリファレンスとかも読んで、わかってきました。

これまでに、COBOLしかやったことがなかったので、
勘違いしていることもありました（汗

ありがとうございました。

%inはcgi-lib.plからreadparseしてる予感！

[TAB]ってなんですか？

正規表現で使う「\t」の代替文字のことかな？
phpとかrubyでは良くみるけどperlで使えたっけ？

>>313
cgi-lib.plは使ってないんです。

コボラーとしては、宣言もなしに変数がイキナリ使われていることに慣れません…

>>316
use strict;してないのはそんなのばっかりですよ。
大手よりも細々とやってるとこの方が、意外としっかりしたコードかいてることが多いです。
kentのはジンマシン出るかもしれないので注意してください。

>>316
英語アレルギーじゃないならCPANにあるソースでも読んでみると良いかもよ
http://www.cpan.org/scripts/index.html

use strict ってなんですか？
てか、[安全ではないコンストラクトを制限]と言われても
具体的にピンと来ないのですが・・・

自分で全部ソース書くよりも、
便利なモジュール使ったほうが間違いがない…ってことですかね。

Kent-webのCGIは、そのまま（改造とかナシで）使ったことがあります。
見た感じでは、ダラダラ〜っと大きいルーチンが書いてあって
読みづらいと思ったのですが（だからあんまり見てない）
見本にするには不向きってことですか？＜ジンマシン

>>319
use strictは一言で言えば安全にプログラミングするためのプラグマだが…
とりあえず、一番のご利益は宣言の強制かな
my宣言をせずにいきなり変数を使おうとすると
エラーにするなどの機能を有効にする。というようなのがuse strict 'vars';
my $hoge = 'hogehoge';
print $hage; # use strict;すれば$hageは宣言されて無いのでエラー
見たいなミスを予防したりできる。

Kentは・・・まあ見本にはお勧めしないとだけ言っておこうか

KENTは悪い見本。最悪レベル。
いい見本は、コアモジュールのコードを読めばいいと思う。あと高いけど駱駝本

駱駝本は長い目で見れば高くはないさ。

>>321
良いにくいことをはっきり言うね…まあ同感なわけだけど

ラクダ本見辛いって思うのは私だけ？

>>302
ありがとうございます。
VBで言うところの、Option Explicit みたいな役割ってことでしょうか。

またまた質問なんですが、グローバル変数の宣言は、
$hensu;
だけでOKなんですか？
my とか local に相当する言葉はナシで良いのでしょうか。
（my と localについての解説しか見当たらないので）
検索していて our というのも見つかりましたが…

>>324
見るんじゃない、感じるんだ。

>>325
文法を 1 から 10 まで習うつもりか？
入門書か、perlsyn と strict.pm の perldoc ぐらい読んでから来いよ。

>>323
ま、ああいう言いにくいことは、自分のblogで書けないからね
ここでなら言っちゃってもいいかなーって思ってぶっちゃけたｗ

かと言って初心者がC-Board見ても仕方無いだろうなあ

文字列中の、<div id="aaa">から、それに対応する</div>までを消すにはどのように表せばいいんでしょうか？
<div id="aaa">から</div>までの間には、<div id="bbb">〜</div>とか<div id="cc">〜</div>とかがいっぱい入ってるんですが。。。

divの数を数えればいいじゃん。
開きが見つかれば+1
閉じが見つかれば-1
0の時点で閉じがあれば、そこで終了。

use strict;
use warnings;

use HTML::TreeBuilder;


my $doc = HTML::TreeBuilder->new_from_file('test.html');

map { $_->delete() } $doc->look_down('_tag' => 'div', 'id' => 'aaa');

print $doc->as_HTML();

こんでいいかね。

>>331
<q cite="http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlstyle.html">
戻り値をただ単に捨ててしまうような void 文脈で、grep() や map()、
`backticks` (訳注: `ls`のようにバッククォートで括った実行文のこと) を
使うことは避けましょう。そういった関数はすべて戻り値を持っているの
ですから、それを使うべきです。戻り値に用がないのであれば、代わりに
foreach() を使ったループか system() 関数を使いましょう。
</q>

>>332
あぁ、そうね。スマンカッタ。

$_->delete() for $doc->look_down('_tag' => 'div', 'id' => 'aaa');

if($test == $sample){
print"OK!!\n";
}
$test =1, $sample =1,
の時変数が数字なのか文字列なのかそれとも両方混じっているのか分からない時の
演算子はどうしたら言いのでしょうか。
eqで事足りると思うのですが、文字列と数字は分けなくて演算子をつかわなくてはいけないそうなのです。

すごく初心者的な質問ですいません。

>>334
たぶん宿題かなんかなんだろうが、お前はperlの前に
まず日本語を勉強しろ。何が言いたいのかさっぱり
わからん。

>>334
使わなくてはいけない、ではなくて自分がその中身をどう扱いたいか。
数値として扱いたいなら==を使えば良いし、文字列として扱いたいならeqを使えば良い。
数値として扱うというのは、"1.0"と"001"みたいなのも同じ1とする。
文字列として扱うというのは、これらを別のものとして扱うということだ。

>>334 質問にちゃんと答えてなかったかな。補足。
数値として扱えない文字が入っているのに数値として扱おうとする場合、
それ以降は無視される(1q3 => 1)
数値が入っているか文字列が入っているかわからないときに比較したいということは、
1q3と1axが同じ、と判断されちゃまずいということだよな。なら文字列として扱えば良い

レスありがとうございます。
演算子で数字と文字列同じように使えるeqの方が便利だからと言う理由でeqを多く使っていたのですが、
計算するわけでもないので、無理して＝＝を使う必要がなく、「いけないではなくどう扱いたいか」で
凄く納得がいきました。
解りやすく説明していただきありがとうございます。

>>334
$hoge = "abc";
$hoge++;

一応こんなのも学んでおくといいかも

いろいろもう一度最初から見なおして見ます。
基礎的過ぎて詳しく説明しているところがあまりなかったので。
ありがとうございました。

２台のサーバーにCSVテキストデータとCGIを別々において
CGIからCSVを読み込むにはどのようにすればよいでしょうか？
お願いします。

２台のサーバを統合する。
Socketモジュール系を使う
ftp.plライブラリを使う

>>341
nfs, ssh, http, ftp あたりでデータのやりとりすればOK。

>>342-343
返信ありがとうございます。
ftp.plライブラリはどのようにして使うんでしょうか？
また、テキストファイルを定期的に更新したいんですが
どのようにすればよいでしょうか？
お願いします。

>>344
定期的な更新はcronコマンド。
ftp.plの使い方はググルのが吉。

↑我ながら「グルル」は良くないとおもた。
「ぐぐる」か「ググる」方が的確かｌ。

さすがにグルルはだめでしょう
グルルは

>>344
も少し詳しく書かないと分からないよ。

> また、テキストファイルを定期的に更新したいんですが
> どのようにすればよいでしょうか？

環境は？　win? unix?
また、CGIスクリプトから更新したいの？　他のプログラムから？

CGI.pmを使って,スクリプトの状態をファイルに書き出しています.

if($cgi -> param(save)){
open(OUT,"> ./test.dat") || die;
$cgi -> save(OUT);
close(OUT);
}

このように,テキストエリアとチェックボックスのフォームデータを保存して,
別のcgiファイルで,読み込みをしています.

#フォームデータの読み込み
$file = "./test.dat";
open(IN,$file) if (-f $file);
$cgi = new CGI(IN);
close(IN);

テキストエリアはきちんと保存値が表示されたのですが,
チェックボックスが全て未チェックの状態になってしまいます.

なにかチェックボックスでは処理が必要なのでしょうか？

>>349
<input type="checkbox" name="hoge" value="hage" checked>

>>349
チェックボックスをチェックOn状態にするにはchecked属性が必要というのは理解してる？HTMLの話。
CGI側はvalueを複数受け取るけどね。

分かんないかも知れないから書き換え

pirnt $保存値 eq '保存値'
　　? qq|<input type="checkbox" name="hoge" value="hage" checked>
　　: qq|<input type="checkbox" name="hoge" value="hage">|
　;|

>>352
事故ﾚｽorz

pirnt $保存値 eq '保存値'
　　? qq|<input type="checkbox" name="hoge" value="hage" checked>|
　　: qq|<input type="checkbox" name="hoge" value="hage">|
　;

ファイルのオープンエラーをdieで終わらすのか・・

チェックボックスのチェックをいれるには,checkedが必要だということは認識しています.
そうやって,デフォルト値を操作して,チェックを入れた状態で表示するのではなく,

$cgi = new CGI (IN);

こうやって,ファイルを渡してあげて,保存値を反映したいのです.
テキストエリアではこの方法が上手く使えたのですが,
チェックボックスでは保存値が反映されなかったのです.
どうにかして,チェックボックスに保存値を反映したいのですが,どうすれば良いのでしょうか？
という趣旨でした.混乱させてもうしわけありませんでした.

>>355
ドキュメントを熟読して問題を切り分けよう。
http://perldoc.jp/docs/modules/CGI.pm-2.89/CGI.pod

1. フォームから送られてくるデータはプログラムに渡される時点で
コントロールの種別に関係なく name=value の形になっているので、
テキストエリアなら受け取れるがチェックボックスでは受け取れない
という事が起こるならそれはフォームの書き方かブラウザがおかしい。

2. save メソッドはドキュメントにあるように human readable な形で
書き出してくれるので、まず全てのデータが正常に受け取れ、且つ
書き出せているかを確認。更にファイルハンドルを渡して生成した
CGI オブジェクトが全ての保存値を読み込めているかを Vars メソッド
等で確認。ちなみに >>349 の読み込みコードはファイルの読込権限
が無いと open に失敗するのでエラーチェックになっていない。

3. 読み込んだデータは 1. と同じく名前と値のペアの集合でしかない
ので、保存値を反映したフォームを出力したいなら、それらを適切な
要素に当てはめ直す作業が必要。→ >>350-353

詳細なアドバイスありがとうございます.
順を追って確認してみます.
特にVarsの使い方を教えていただき感謝いたします.

解決しました！
保存値はちゃんと渡せていましたが,チェックボックスの生成方法がオブジェクトを介さずに
CGI::checkbox と行っていたためでした.

みなさんほんとうに有り難うございました.

use utf8で文字列内やヒアドキュメント内で変数展開をすると
変数の後ろの文字列も含めて変数と解釈されてしまいます。

"${str}文字列"
"$str\文字列"
$str . "文字列"

などのようにエスケープなり逐一処理するしかないのでしょうか？

>>359
そりゃそうだ。

個人的にはソースに直接マルチバイトな文字リテラルを入れるのがそもそも
イカンと思うがね。

勉強厨房でサーバー駆動に挑戦してますが
CPAN のエラーが出てモジュールを入れられなくてコマってます。

--01:20:02-- ftp://ftp.perl.org/pub/CPAN/authors/id/M/MS/MSCHWERN/CHECKSUMS.gz
(試行:18) => `-'
ftp.perl.org[163.143.1.21]:21 に接続しています... 接続しました。
anonymous としてログインしています...
サーバの応答にエラーがあるので、接続を終了します。
再試行しています。

こんなのがでて、ずっと先へ勧めません。
いった移動してよいやらこまってます。
FTPへ手動での接続はできているんですけど・・・
　　Convert::UUlib
　　Convert::TNEF
あたりも、みんな ftp/perl.org への接続で失敗してるようです。
どなたかお知恵を拝借できればと思います。
よろしくおねがいします。

>>361
http://www.ss.iij4u.or.jp/~somali/web/_ppm.html

すいません、質問です。

文字列$commentがあって、
while($comment=~m//g){}を使って<tag>または</tag>を順々にマッチさせたいのです。

んでマッチしてから<tag>と</tag>のどちらがマッチ…

あ、わかった…$&で判定できるんですね…
鬱だ死のう

(ﾟдﾟ)ﾎﾟｶｰﾝ

$&使うもよし、()でキャプチャして$1で読むもよし
foreach( $comment =~ /<.*?>/g ){ print "tag = $_\n"; }
みたいに先にリストに展開するもよし

たびたびの質問をお許し下さい.CGI.pmを使ってCGIを作成しています.

#保存ボタンが押されたらデータをファイルに保存する
if(($cgi -> param(add)) && ($cgi -> param(yomi)) && ($cgi -> param(kanji))){
open(OUT,">> $file") or die;
$kanji = $cgi -> param(kanji);
$yomi = $cgi -> param(yomi);
$data = "$kanji\t$yomi\n";
$cgi -> delete_all();
print OUT $data;
close(OUT);
}

param(add)には,submitボタンの値,yomiとkanjiにはテキストフィールドの値が入っています.
保存ボタンが押されるとちゃんと,ファイルにデータが追加されるのですが,
保存ボタンを押して,リロード(F5を押す)を行うと,データが繰り返し追加されてしまいます.
delete_all()して,Varsでもパラメータは消去されているのを確かめたのですが,
リロードすると,やはり値が繰り返し追加されてしまいます.

途中で送信してしまいました,申し訳ありません.

続き…

delete_allを行ったにもかかわらず,値が追加されるということは,どこかに値が保存されている
ということだと思いますが,それはどこにあるのでしょうか？

よろしくお願いします.

ブラウザが覚えてるからリロードするとそうなる
解決策はググルとたぶん見つかる
どっかで見た

うん、二重投稿をｴﾗｰにすればいい

コメントからタグだけを削除したいのですが

$comment =~ s/<.*?>//gs;

これだけでは何か穴がありますか？

>>370
モジュール使えば？

ブラウザの機能だったんですね.てっきり自分のコードにミスがあるかと思っていました.
以前のログを参照して,同じ投稿がないかチェックするようにして,二重投稿を防ぐようにして解決しました.

みなさんありがとうございました.

DBI初心者なのですが、Perl+PostgreSQLでWebアプリを作っています。
DBI::Pg使用し、1度の接続で下記要件を満たすSQL文を教えて下さい。
SQLではなく、Perl+DBIのプログラミング方法で可能であれば、その方法を教えて下さい。

顧客テーブルと購入履歴テーブルがあります。
顧客一覧を出力する時に、顧客ごとに購入件数も表示したいです。

顧客一覧をwhile($hash= $sth->fetchrow_hashref){}で取得し、
whileの中でさらに、$hash->{hoge_no}から購入履歴をSELECTしたのですが、
うまくいきません。お願いします。

>>373
>>1

Perl::DBI
http://pc8.2ch.net/test/read.cgi/php/1015943725/

http://pc8.2ch.net/db/

それよりこっちでしょ。SQL文一つでできるし。

SQLでコケてるのか、ハッシュを見る段階でコケてるのか、切り分けができてない。
Data::Dumperモジュールなどを使ってハッシュ内容をダンプしてみれ。

1：
画像の「横幅」を判別して設定値以上なら縮小
設定値以下ならそのまま表示というのをしたいです。

2：
if文で何とかなると思い、扱えるように勉強しましたが、
「画像の横幅を判別する」というのはどうやってやったらいいのか・・・。

ヒントだけでも構いません。宜しくおながいします。

>>377
>>1

>>378
即レスどうも
と言うことはできるんですね。
勉強してきます。

ImageMagic ってすごいよね？

鯖負担すごいね

GIFは先頭から7,8バイト目が横幅。BMPなら19〜22バイト目。PNGなら17〜20バイト目。JPGはちょいと面倒だから割愛。
横幅取得くらいなら自前コーディングで十分。

GDに比べてGIFが遅すぎ

>>383
GIF てｗ

>>377
サイズだけ取得するのならImage::Sizeでも。

>>384
DoCoMo用にGIFで吐かなきゃならんのだ。

質問です。
すごい久し振りにCGIをうPしたら、まったく忘れていたらしくエラーが出てしまいます。
しょうがないので、初心に返ってhello perlを出力しようとしたら、これもエラーです。
むかついたので、別に契約してあるプロバイダにCGIチェッカがついてるので
うPして何がおかしいか調べたら、

ファイルの先頭が

#!/bin/perl
#!/usr/bin/perl
#!/usr/local/bin/perl
でないか、CGI プログラムが ASCII モードで転送されていません

だそうです。？？？？

ちなみにソースは
#!/usr/bin/perl
# HTML表示
print "Content-Type: text/html\n\n";
print "<HTML><HEAD>\n";
print "<BODY>\n";
print "Hello Perl World!\n";
print "</BODY>\n";
print "</HTML>\n";

ASCII モードになってないんですかね？
秀丸でファイル名：hoge.cgi ファイルの種類：その他 文字コード：自動選択
で保存したものです。何年ぶりかなので何か忘れてるのかもしれません。
ど素人で済みませんがお願いします。

ああ、sageてました。ageときます。

>>387
文字コードを euc にしてみ。

EUCで改行LFでもCR+LFでもダメでした。

とおもったら、>>389で元のロリポではできました。
wakwakの解析が逝かれてるのですかね？

ひとのせいにする前に勉強しろ

@imglist=grep *.jpg, readdir DIR;
がエラーです。
多分正規表現の指定がおかしいと思います。

>>393
正規表現なら
@imglist = grep /\.jpg$/, readdir DIR;

ワイルドカード使おうとしてるところを見るとこのへんと混同してるのかも
@imglist = glob("*.jpg");
@imglist = <*.jpg>;

>>387
ちゃんとASCIIモードで転送しているのか？
ファイルの先頭に変なバイナリが付いていないかバイナリエディタ等で確認したのか？(UTF-8保存とかね)

>>387
> ファイルの先頭が
> #!/bin/perl
> #!/usr/bin/perl
> #!/usr/local/bin/perl
> でないか、

このメッセージは、列挙された３つの行のうち好きなものを書けば
いい、という意味ではなく、サーバに対して指定された、何れか一つの行を
書かなきゃだめ、ということだと思うが。
#!/usr/bin/perl
は本当に正しいのかな？

ちゃんと確認しようよ。
ttp://www.wakwak.com/info/connection-setup/ftp/custom-cgi.html

>>387
ASCIIモードかどうかは、文字コードとかの問題じゃなくて
FTP転送の問題ジャマイカ？

ていうかここまで来るともはやスレ違い。

どうでもいいのだけど >>387 に一言言いたい。
ヒアドキュメント使え。

niku.2ch.netみたいなDNSBLに登録されているか調べるモジュールは何ですか？
PHPでNet_DNSBLを使っていて、PerlでもDNSBLチェックをしたいです。

調べてみた。
こんなんとか。

http://search.cpan.org/~tjmather/Net-DNSBLLookup-0.03/lib/Net/DNSBLLookup.pm

ありがとうございます！
入れました

おお、まんまり反応ないし>>392もあるんであきらめてたけど
色々ありがとう。

とりあえず
>>389で、ロリポは動きました。
で、>>395御指摘のutf-8でwakwakも逝けました。
解決できました。

>>396
>サーバに対して指定された、何れか一つの行を
>書かなきゃだめ、ということだと思うが。
そうみたいですね。
#!/usr/bin/perlはダメで、#!/usr/local/bin/perlはいけました。
>>397のリンクで
>スクリプト先頭行には #!/usr/local/bin/perl と記述して下さい。
と書いてありました。
でもあの書き方ではわかんないですよ。僕だけですかね・・・
>FTP転送の問題
でなくてよかったです。

とにかく、supecial thnxです。

>>403
＞でもあの書き方ではわかんないですよ。僕だけですかね・・・

おまいだけ。あと「supecial thnx」は恥ずかしいからやめておけ。

>>403
真性ですね。

釣られるなよ

perlの開発ソフトってないですか？
ビルダーとかみたいな

>>407
Perl書くのにどんなエディタ使ってる？
http://pc8.2ch.net/test/read.cgi/php/1014357485/

質問です。
現在フォームメールを作っているのですが、どうもうまくいきません。
スクリプトの流れとしては、

（サブルーチンＡ）フォームデータの取り込み、デコード、データをハッシュ（%FORM）に代入。
　　　　　　　　　　　ハッシュのデータをソートしてメールボディー用の変数（$body。もちろんグローバル変数）へ代入。
↓
（メインルーチン）送信ボタンが押されたかチェック。
　　　　　　　　　　　押されたら送信用のサブルーチンへ。
↓
（サブルーチンＢ）確認ページの表示。ハッシュのデータをソートして表示。

なのですが、確認ページで送信ボタン（キー名はsubmit）を押すとハッシュの中身はsubmitだけになってしまうし、$bodyはどこかへ消えてしまうし、どうにもさっぱりです。
どなたか導いてください。宜しくお願いします。

とりあえずソースを全部、どこかのアップローダに上げろ

>>409
送信ボタンが押されたかのチェックなんてPerlの範疇じゃないと思うが

cgi.pm使ってdumpしてみりゃ

そもそもやりたいことがよくわからんのだが。
サブルーチンとか言ってるけど、ページの遷移はないってこと？

>>409-413
>>61

フリーのできるだけシンプルなフォームメール見て勉強するといいよ

質問です。

Perlでテキストファイルから１行ずつ読み込んで処理する時には
while(<>){}
で済みますが、
既に変数に入っているテキストを１行ずつ処理する場合、どうしたらよいのでしょうか？

改行をsplitでもすればぁ

Perl の標準で一行ずつ巡回する方法 (メソッド) って無いんだっけ？

テキストの内容がでかいとでかい配列ができちゃうのがイヤだけど、

foreach my $line (split(/^/, $txt)) {
# $line に何かする
}

>>417,418
レスありがとうございます。

>>418
すいません。splitの/^/というのは？？
この場合の^は行頭を表す^ですか？

>>419
そうです。

>>420
それで改行で切れるんですね。知りませんでした。
ありがとうございます。

while (/^(.*)$/smg) { 処理($1) }

とかでも

>>422
うお、そっちの方が無駄な配列生成しない分スマートじゃんね。吊ってくるわ・・・

>>422
ありがとうございます。
だいたいどんな事をやっているのか理解するのに
しばらくかかりました。^^;

オプションを使いこなせると便利になりそうですね。

WindowsXP、Perl5.8.7でPPMからDBD-SQLiteをインストールしましたが、connectやdisconnectは出来る(ファイルも生成される)ものの、prepareやdoメソッドを呼ぶとPerlインタープリタが強制終了してしまいます。
原因は何でしょうか？

よくある

$ua->credentials($netloc, $realm, $uname, $pass):
これを使ってBasic認証通過させたいんですが
鯖側の$realmが日本語になってるせい？なのか失敗します
アドバイスお願いします。。

>>427
文字コード合わせればええやん

>>427
文字コードがわからなければLWP::UserAgentのget_basic_credentialsを再定義して
$realmになに渡ってきてるのか調べてあわせてやればいいと思うよ。

>>428-429
通過出来ました。ありがとうございました。

ReadParse()を使用してフォームから取得した変数を
open関数を使用して、UTF-8でテキストファイルに出力したいのですが
その方法がよくわからず困っています。

フォームから取得した変数はSHIFT_JISなので、
そのままopen関数で出力すると、テキストファイルの文字コードは
SHIFT_JISになってしまいます。

どなたか知っておられる方がいましたら、よろしくお願いします。

>>431
UTF-8だから
Jcode.pmを使えばいいのかなーとか思ったけど

PHPでいうところのshuffleにあたる関数ってありますか？
つまり、やりたいことは、配列をランダムに並び替えることです。

>>433
http://boobar.hp.infoseek.co.jp/bench/randlist.txt

List::Util::shuffle がいいと思う。
パフォーマンスなんて問題になってから考えれば良い。
気になるならそもそも Perl なんか使わんし。

ttp://other.free-uploader.com/up/download/1131960567298904.t6lFKb
DLPass：1234

windowsでActivePerl5.8を使っています。

IO::Socketを使い、コンソールでのチャットを作ろうと思っています。
現在は、サーバー側はechoserverのプログラムを、
クライアント側にはプロセスを受信・送信に分けたものを使おうと思っています。

実行すると文字は入力できるのですが、うまくserver側にデータが行かないようです。
たぶん原因はclient側なんですが・・。

煮詰まってしまいました。。ヒントお願いします(つд⊂)

>>436
■こんなCGI作ってください■
http://pc8.2ch.net/test/read.cgi/php/1102980903/

ActivePerlでIO::Socketやプロセスについて勉強するには
どんな本やwebページがオススメですか？

>>438
とりあえずIO::Socketでググれ

perldoc

>>438
>>7-8

もしかしてTCP/IPつかったconsoleチャットって難しい？＾＾；

ラクダもドキュメントも読んだけどよくわかんね＾＾；

神はー神はいないのかー＞ｗ＜；

とんでもねぇ、あたしゃ神様だよ

神様がだめなら妖精さんでもいいから降臨たのむ・・・

>>442
ラクダもドキュメントも読んだのに分からないのなら、Socket や
ターミナルを扱う為の基本的な知識が君には欠けている。
そしてその解説はこのスレの範疇ではない。

初心者質問という言葉に甘えすぎました。
出直してきます。

つか何がわかんねーのかわからん状態の奴に何を答えりゃいいんだ

お前を、殺す！

通報、しますた！

ソケットを使うならこの辺りかしらん。

Programming UNIX Socket FAQ in Japanese
http://www.kt.rim.or.jp/~ksk/sock-faq/indexj.html

UNIXネットワークプログラミング〈Vol.1〉ネットワークAPI:ソケットとXTI
http://www.amazon.co.jp/exec/obidos/ASIN/4894712059/

どちらもCを読めること。

WEBページのアクセス数が多くなってきたため、ロードバランサを用いて負荷を分散しようと思います。

現行
インターネット--------WEBサーバ(DBなど含む)

現行↑の単純な構成を
↓の構成（WEBサーバ３台、DBサーバとにしたいのですが、

イメージ
　　　　　　　　　　　　　　　　　　　　　　　WEBサーバ１
インターネット--------ロードバランサ----WEBサーバ２--------Perlプログラム＆DBサーバ
　　　　　　　　　　　　　　　　　　　　　　　WEBサーバ３


この時にPerlのプログラム等に関して注意事項、不具合予測等はありますか？

>>451
Perlが関わる部分なんて無いよ
大丈夫かおいｗ

WEBページのアクセス数が多くなってきたため、ロードバランサを用いて負荷を分散しようと思います。

現行
インターネット--------WEBサーバ(DBなど含む)

現行↑の単純な構成をロードバランサーを加えて
↓の構成（WEBサーバ３台、Perlプログラム＆DBサーバ）にしたいのですが、

イメージ
　　　　　　　　　　　　　　　　　　　　　　　　　　WEBサーバ１
インターネット--------ロードバランサ----WEBサーバ２--------Perlプログラム＆DBサーバ
　　　　　　　　　　　　　　　　　　　　　　　　　　WEBサーバ３

>>451>>453
板違い。使ってるOSがなにか知らんがUNIX板かLinux板逝け

失礼つかまった。
退散します

ひろゆきさん、おめっとー

手軽にワイルドカードＤＮＳにしとけ

すみません、誘導されて来ました。

画像掲示板をCGI-Perlで作ったんですが、
アドレス先に画像が存在しているかどうかを判別する事は可能でしょうか？

>>458
アドレス先って何のこと？
ローカル？ リモート？

ﾛｰｶﾙだったら訊いてこねえだろｗ

いや、わからんぞｗ

>458
マルチすんな

>>462
誘導されて来た、ってんだからマルチじゃないんじゃないの？そゆことじゃなくて？

>>458
リモートのサーバにある画像なら、HTTP でアクセスして存在確認する必要があるかと。
LWP とか使って HTTP で HEAD とか GET することになると思うけど、
具体的なやり方はまずぐぐって調べてみれ。

DBI::Pgを使用してPostgreSQL7.3を使用しています。
ページャー機能(ページ送り)を加えたいんどえすが、
DBI::Pagerがレンタルサーバに入っていないため、
簡単は方法はないかと探してます。何か方法はありませんか？
pure perlなモジュールがあれば一番良いのですが。

簡単なデータベースのようなCGIを作ろうとしています。
更新記録CGIと検索CGIを別々に見つけてそれを合わせて実現させようとしています。

この中で「○円以内のもの」を抽出するというのをしたいんです。
ドロップダウンリストに
〜100円
101円〜200円
201円〜300円
〜〜
1,000円〜
という設定をしておいて、リストからその価格帯だけを表示させるという物です。

ドロップダウンリストに
<option value="1">〜100円</option>
<option value="2">101円〜200円</option>
<option value="3">201円〜300円</option>
として、普通にif文で

if($FORM{'data'} eq '1'){
if($data =< 100){ ; } else { next; }
}
elseif($FORM{'data'} eq '2'){
if($data => 101 && $data =< 200 ){ ; } else { next; }
}
〜〜
とすればOKなのでしょうか?(データには桁区切りのカンマが入ると思います。)
ほかによい方法がありますか?または、参考となるCGIがあれば同時に教えてもらえるとありがたいです。

>>465
>>1
>>7-8

【CGI】こんなCGI探してますver.18
http://pc8.2ch.net/test/read.cgi/hp/1123833110/

■こんなCGI作ってください■
http://pc8.2ch.net/test/read.cgi/php/1102980903/

>>466
回答ありがとうございます。

自分で改造を考えているので、他のCGIを利用するとかすべてを作ってもらうわけでもないのですが、
ここじゃだめなんでしょうか?

>>467
>>1 を読めと。未来の話をせず、実際に躓いてから >>7-8 で
調べた上で質問しろと。

> 更新記録CGIと検索CGIを別々に見つけて
については >>466 。

> 自分で改造を考えている
については

★三　【 スクリプト改造工房 PART 8 】　★三
http://pc8.2ch.net/test/read.cgi/php/1077525387/

自作の部分に関してはココ。

>>465 >>467

データを array か hash に入れておき、grep 等で取り出せば OK。

ex.

my @data = (
　　{ name => 'a', price => 100, },
　　{ name => 'b', price => 200, },
　　...
};

...

my $lower = 100;　　# 実際は form から入力された値を検査し、代入。
my $upper = 200;

my @out = @data;
@out = grep { $_{price} >= $lower } @out if $lower;
@out = grep { $_{price} <= $upper } @out if $upper;

...

for (@out) {
　　print "$_{name}: $_{price}\n";
}

>>469
スレ違いに構わないように。

NFSでは使用できないflockの代わりに、lockfという関数があるみたいだけど、
lockfって実際どれくらいの実績があるのでしょう？
バージョンはいくつから使えるのでしょうか？

>>471
lockf という組込関数は perl に存在しない。
http://search.cpan.org/~nwclark/perl-5.8.7/pod/perlfunc.pod

perl の組込関数である処の flock() は標準 C ライブラリに用意
されている flock(2) か fcntl(2) か lockf(3) で実装されていて、
これらの関数が環境によっては NFS 越しのロック処理に対応
していない。なのでどんな環境で走らせるか決め打ちできない
場合は、システムコールレベルではなくスクリプトレベルでの
排他処理機構を用意する必要がある。

http://search.cpan.org/modlist/File_Name_System_Locking
http://www.din.or.jp/~ohzaki/perl.htm#File_Lock

【Perl】ファイルロック(排他処理)について語ろう
http://pc8.2ch.net/test/read.cgi/php/1024795138/

すみません。失礼します。行き詰ったので質問させていただきます。
PHPの「setcookie($cookie,$setword,$expire);」で発行したCookieは、
CGI等で読み込めないのでしょうか？

>>473
ここは CGI スレではなく Perl のスレです。

△▲　WebProg 初心者の質問 Part12　▼▽
http://pc8.2ch.net/test/read.cgi/php/1125215604/

CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

>>472
ありがと

http://perl.toshinari.net/cgi/bbs/new2ch/
この2ｃｈ型掲示板に表示されるIDを環境変数REMOTE_USERに一致させたいのですが
どうしたらよいでしょうか

sub id {
my($id,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$month,$date,$identify);
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$identify = substr($ENV{'REMOTE_ADDR'},-2).substr(crypt($ENV{'REMOTE_ADDR'},$year-$mon*100),2);
$id = crypt($identify,$mday."L");
$id = substr($id,-10);
return $id;

を
$id = $ENV{'REMOTE_USER'};
if ($id eq '') { $id = ":"; }

にしてみたりしたのですがよくわかりません。。

>>476
質問がよく分からん。
また、

> にしてみたりしたのですがよくわかりません。。

の、何がよくわからんのかよく分からん。

>>476
★三　【 スクリプト改造工房 PART 8 】　★三
http://pc8.2ch.net/test/read.cgi/php/1077525387/

こんばんは。
携帯用のフォームを作ってるんですけど
フォームから送信したデータって
当然、携帯のメモリ内にあるわけですよね？
あるフォームから送信、その先にもフォームがあり
そこからさらに今受け取ったデータも含めて新たなデータ送信と
要はどんどん送信するデータ増えていくわけですが
こういうのは問題ないのでしょうか？
どなたか教えてください。
よろしくお願いします。

>>479
△▲　WebProg 初心者の質問 Part12　▼▽
http://pc8.2ch.net/test/read.cgi/php/1125215604/

ありがとう。移動します。

スレ違いのカスどもが多すぎるｗｗｗｗｗ

連想配列に

%hash = (
　　'audio' => "オーディオ",
　　'video' => "ビデオ",
　　'cd' => "CD-ROM",
　　'dvd' => "DVD",
　　'bench' => "ベンチマーク",
　　'text' => "テキスト",
　　'bin' => "バイナリ"
);
の様に値をセットして
　　while(($k, $v) = each(%hash)){ print "$k = $v\n"; }
とか
　　foreach (keys(%hash)){ print "$_ = $hash{$_}\n"; }
ってやっても
　　'audio', 'video', 'cd', 'dvd' => "DVD", 'bench', 'text', 'bin'
の順番 (代入した順番) で出力してくれないんですけど、代入順での出力を
希望するなら
　　@list = ('audio', 'video', 'cd', 'dvd' => "DVD", 'bench', 'text', 'bin');
の様に“順番”を別で保持しておくしか無いんでしょか？

ちなみに上記のコードだと
audio
cd
bin
dvd
video
text
bench
の順番で出力されます。

>>483
そういうモジュールがある。
名前は忘れた。

>>483
標準モジュールじゃないからサーバで使えるかは疑問だけどFAQにこういうのがある
http://www.kt.rim.or.jp/~kbk/perl-5.8/perlfaq4.html#how_can_i_make_my_hash_remember_the_order_i_put_elements_into_it

これが使えないならデータ構造の工夫次第だろうな。
まあ、キーの順番を覚えておくのが一番簡単かと思う。
もしハッシュである必要性が無いなら…つまり$hash{$key}の形で使うことが無いなら、
こういう構造が考えられるね。
@list = (
['audio' => "DVD"],
['video' => "ビデオ"],
...
);

>>483
補足
確認してみたらTie::IxHashはPure Perlだった。
そのままディレクトリ下にTie/IxHash.pmとして配置すれば動くよ

http://search.cpan.org/~gsar/Tie-IxHash-1.21/lib/Tie/IxHash.pm
ここのSourceからダウンロードね

>>483
tie を使って自分でそういう hash を作ることも可能。

%hash = (
　　'audio' => {index=>0, value=>"オーディオ",},
　　'video' => {index=>1, value=>"ビデオ",},
　　'cd' => {index=>2, value=>"CD-ROM",},
);

オレはこれでやってる。。

eachの戻り値をキーと値のリストで受け取ってる奴が多いが、
キーだけ受け取って値はハッシュから取った方が効率がいい。

>>489
普通に考えるとeachがせっかく返す値を捨てて値をハッシュから
とったらハッシュをひく手間がかかる分損しそうなものだが...
foreach (keys ...)でまわせって意味かな? それならわかる。

とりあえず論よりベンチ。

use Benchmark;
my %h = (1..2000);

timethese(undef, {
foreach => sub {
foreach my $k (keys %h) {
my $v = $h{$k};
}
},
each => sub {
while(my($k, $v) = each %h) {
}
},
each_key => sub {
while(my($k) = each %h) {
my $v = $h{$k};
}
},
});

Benchmark: running each, each_key, foreach for at least 3 CPU seconds...
each: 3 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 594.34/s (n=1890)
each_key: 3 wallclock secs ( 3.24 usr + 0.00 sys = 3.24 CPU) @ 470.68/s (n=1525)
foreach: 3 wallclock secs ( 3.21 usr + 0.00 sys = 3.21 CPU) @ 686.60/s (n=2204)

ベンチとるときは、できるだけ同じ条件でやらないと

timethese(undef, {
foreach => sub {
foreach $k (keys %h) {
$h{$k};
}},
each => sub {
while(($k, $v) = each %h) {
$v;
}},
each_key => sub {
while(($k) = each %h) {
$h{$k};
}},
undef => sub {
while(($k,undef) = each %h) {
$h{$k};
}},
});

>>490-491
http://perldoc.jp/docs/perl/5.6.1/perlfunc.pod#item_each_HASH

my($k) = each %h も ($k) = each %h もリストコンテキスト。
my $k = each %h なり $k = each %h として計らないと意味無し。

面白い結果が出た
OS : Windows XP
Ver: Active Perl 5.8.7 build 815
CPU: Athlon 1.6GHz -> 1.0GHzにクロックダウン
Mem: 256MB

ベンチマーク部>>491のものに>>492の修正を加えて使用
my %h = (1 .. $data_count*2);

データ数 2^2
Benchmark: running each, each_key, foreach, undef for at least 3 CPU seconds...
each: 4 wallclock secs ( 3.01 usr + 0.00 sys = 3.01 CPU) @ 142105.46/s(n=427169)
each_key: 2 wallclock secs ( 3.11 usr + 0.02 sys = 3.13 CPU) @ 138342.29/s(n=432458)
foreach: 2 wallclock secs ( 3.17 usr + 0.00 sys = 3.17 CPU) @ 118013.55/s(n=374575)
undef: 4 wallclock secs ( 3.13 usr + 0.01 sys = 3.14 CPU) @ 124147.58/s(n=390320)

データ数 2^4
Benchmark: running each, each_key, foreach, undef for at least 3 CPU seconds...
each: 2 wallclock secs ( 3.18 usr + 0.00 sys = 3.18 CPU) @ 42106.14/s (n=133687)
each_key: 3 wallclock secs ( 3.00 usr + 0.01 sys = 3.01 CPU) @ 40220.63/s (n=120863)
foreach: 4 wallclock secs ( 3.30 usr + 0.00 sys = 3.30 CPU) @ 48033.28/s (n=158750)
undef: 3 wallclock secs ( 3.10 usr + 0.00 sys = 3.10 CPU) @ 35960.05/s (n=111620)

データがごく少ない場合においてはeachでまわしたほうが若干速い。
でも2^3個程度までの話だしkeysをforeachで回したほうが良さそうだな

うちじゃ逆だな。キー数が少ないうちはforeach+keysが速いが、
多くなるに連れて遅くなり7000個あたりでeach系に抜かれた。
list eachとscalar eachでは微妙にscalar eachのが速いが、
ループ内で値をたくさん使うならlist eachのがよさそう。

>>489-494
追試とまとめ。
http://boobar.hp.infoseek.co.jp/bench/hash.txt

>>494
データ数1024よりも多くして実験してなかった・・・こちらでは2050付近で抜かれた

>>495
詳しい検証乙

データ数が増えるとkeysの戻り値の配列の大きさがネックになるわけか

>>495
乙。勉強になりますた。

CGI::Liteも5.8x系の標準モジュールにしてほしいんだけど、
こういうのはどこで言えばいいんだろ(´･ω･`)

>>485
@list = (['key' => 'val'], ...);
これで値をセットしたときってどうやって取り出すんでしょうか？
for(my($i) = 0; $i < $#list; $i += 2){
　　my($key, $val)= ($list[$i], $list[$i + 1]);
　　〜処理〜
}
って感じですか？


>>485, 486
ちょっと使い方を覚えてみようかな


>>488
そうやって値をセットしたときの取り出しはどうやるんでしょか？

>>498
その要求が通るとは到底思えないが、弾の人にでもメールしてみたらぁ?

>>499
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldsc.html

にゃるほろ２次元配列ってゆう考え方でしたか。
慣れるまでに時間かかりそうですが、ありがとうございました m(_ _)m

教えてもらった事を比較的自分に分かり易い様にしようと弄ってたらこんな感じになりました。

@list2 = (
{'audio' => "オーディオ"},
{'video' => "ビデオ"},
{'cd' => "CD-ROM"},
{'dvd' => "DVD"},
{'bench' => "ベンチマーク"},
{'text' => "テキスト"},
{'bin' => "バイナリ"}
);

foreach (@list2){
　　my($key, $val) = each(%$_);
　　print "$key => $val\n";
}

順番を保持しなくちゃならないときはこんな感じでいこうかなって思います。

>>502

ちなみに
>>485 みたいに配列使うなら
foreach my $elem (@list) {
　my($key, $val) = @$elem;
}
で行ける。

>>502 のやり方だと要素が１つだけのハッシュがいくつか出来てしまうので
少しだけ空間効率が悪い。
まぁ、小さいから気にならないだろうけど。

>>503
おぉ〜、そのやり方のほうがスマートな気がする。

いやはや勉強になります。

>>499
「ハッシュはリストである」ということを知っていれば、簡単にわかる。

@foo = (1,10,2,20,3,30);
%bar = @foo;
print "$_ -> $bar{$_}\n" foreach keys %bar;

これ↓はどういう意味でしょうか？

【5.1登場】PHP時代到来 他言語終了【Perl即死】
http://pc8.2ch.net/test/read.cgi/php/1129715894/842

842 名前：nobodyさん[sage] 投稿日：2005/11/18(金) 18:05:46 ID:???
PerlはKE★Tの糞コードのせいで全てが終わった

>>506
続きはこっちでやって
http://pc8.2ch.net/test/read.cgi/php/1078991985/l50

いちいち解説してられないから

>>506
要約すれば「保守性の高い、美しいコードを書く術を学び、書きましょう」ということです。

Perl版の新月(P2Pを用いた掲示板)をデバッグしたいのですがPerlでP2Pアプリを作成するチュートリアルのようなものをご存じの方いらっしゃいませんか？
ぐぐっても九行で書かれたP2Pしか出てこなくてorz

>>509
デバッグに必要なのは「P2Pアプリを作成するチュートリアル」ではなくて
Perl のマニュアルではないのか? >>7-8

>>510
すいません。やりたいことの整理が出来てませんでした。
新月作者がPerl版の開発を放棄してるので、余分な機能を付与しない掲示板だけのP2Pソフトを作りたいんです。
ただP2Pアプリを弄ったことがないものでどうしたものかなと。
ソース読んで改造するのがてっとりばやいにしても概念が分からないので･･

ｎｙの技術
ｐｄｆで流れてる

>>512
ソースコード載ってないぞあれｗ

>>511
概念や基本的な設計に関してはスレ違いだし、Google さんにでも
尋ねた方が早そう。具体的に Perl でのやり方となると改造ベース
が転がってるんだからソース読みながら学んだ方が効率いいわな。
コレだよね?
http://prdownloads.sourceforge.net/shingetsu/shingetsu-0.5b5.tar.gz

あと CPAN にはこういうのがあるね。
http://search.cpan.org/~klimkin/P2P-pDonkey-0.05/

>>507
>>508
サンクス。

丸一日質問がない

そう言う時はageて見ようぜ

すみません、パールインストールしたんですけれど、動かないです
インストール成功したかの確認方法ってありますか？

>>518
コマンドプロンプトから「perl -v」

ていうか情報が何もかも足り無ぇ出直して来い

>>517が上げるから変なのが沸いたんだろ

この流れほのぼのしててイイ

WebProg板らしくていい

ああん？

（・∀・）ﾆﾔﾆﾔ

すみません、postのチェックボックスのステータスを大量に変数に格納したいのですが、
変数名をループで作り出すにはどうすればいいのでしょうか？

my $chk0 = param('chk0');
↑の数字をforループでインクリメントして宣言するにはどうしたらいいでしょうか？

>>525
配列を使えといいたいが

foreach(0 .. 9){
${'chk'.$_} = 適当;
}

名前1->得点1　名前2->得点2　っていうような配列があり、得点でソートする事までは出来た。
で、得点順に順位をつけるんだが、同点の場合同じ順位にし、次の順位は飛ばすって事ができなくて詰まっている。
現在は配列をforﾙｰﾌﾟし、$iをｲﾝｸﾘﾒﾝﾄして順位としている。
何かいい方法は無いだろうか。

>>527
>>1

>>528
素直にわかりませんって言えないんですか？

>>529
既に回答を用意してる漏れがはっきり言ってやろう
> 名前1->得点1　名前2->得点2　っていうような配列があり
ここが意味不明。
以下に漏れが適していると考えたデータ構造とそのソースを貼ったるから
これで満足できないならちゃんと伝わるように説明汁

my %name2score = (hoge => 100, fuga => 90, hage => 100);

my %score2name;
foreach my $name (keys(%name2score)) {
push @{$score2name{ $name2score{$name} }}, $name;
}
my $rank = 1;
foreach my $score (sort {$b <=> $a} keys(%score2name)) {
foreach my $name (@{$score2name{$score}}) {
printf "%2d: %s(%3dpt)\n", $rank, $name, $score;
}
$rank += @{$score2name{$score}};
}

最近質問者の態度が悪過ぎ

>>530
thx
考え方さえわかれば後は自分で弄れると思いましたので、データ構造を適当に書いてしまいました。
申し訳ありませんでした。

あ、>>529は自分ではありませんので、念のため。

だな
>>527←こんな口の聞き方も知らない奴に教えなくていいよ
小学校高学年ぐらいの子供だろけど。

>>532
ｸ、ｸﾏｰ 釣られたか。すまんかった
いつの間にか煽り耐性なくなってしまっとるな・・・気をつけなければ

>>531 >>533
気に食わないならこんなボランティアさっさとやめな

（ ´,_ゝ`）ﾌﾟｯ

WebProg板らしいじゃないか

ほんと厨房が多いな
さっさと強制ＩＤにしろよこの板

質問者は age ればいいんでないか

スレの雰囲気悪くすると自分の首を締める事になるよ　＞厨房

>>535
嫌だ。
私はお前みたいなガキを眺めてるのが好きなのだ。

レン鯖板も、インターネット板も、WebProg板も…

ああまた騙りかｳｾﾞｪな。トリップ付けるから。

レン鯖とネットは元からだろｗ
それよりム板も・・

厨房ｽﾚage

>>545
IDがSQLにorzなんて素晴らしいですね

SUGEEEEEEEEEE!

次スレのテンプレには「質問者はトリップ推奨」といれよう。

釣られた人も必死だなー

ぷ

>>527
純粋に順位を加えていく変数($i)と、状況に応じて順位を加えていく変数($j)の２つをつくる。
$iはループ中でひたすらインクリメントのみ。
$jは直前の人の点数と異なれば$iを採用する。 同じであれば$jをそのまま採用。

で出来ないかな？

はじめまして。
質問があります。

perlで$ENV{'PATH_INFO'}を取得しようとしていますが、
なぜか取得してくれません。

これはサーバー側の設定が影響しているのでしょうか。
ちなみに、他の環境変数については、正常に取得しています。

よろしくお願いします。

>>552
それだけじゃ分からん。
取得する辺りのコードと、設置する鯖晒す。

お返事ありがとうございます。
今やりたいことは、稼動中の掲示板の改造です。
$ENV{'QUERY_STRING'}からGETで取得している値を、
$ENV{'PATH_INFO'}から取得したいと思っています。

◆サーバー：ロリポップです。
◆コード
値を確かめるために、下のようなコードだけを記述したファイルを
アップし、適当な引数を付けてテストしていました。

print"Content-type: text/html\n\n";
print qq(
<HTML><HEAD><meta http-equiv=Content-Type content=text/html; charset=shift-jis>
</HEAD>
<BODY>
$ENV{'PATH_INFO'}
</BODY>
</HTML>
);
exit;

よろしくお願いいたします。

>>554
PATH_INFOを勘違いしてるって事は無いよね
テストに使ったURLはどういう形式？実在じゃなくていいから

早速ありがとうございます。

このような形式です。
http://ドメイン/bbs/index.cgi?room=1

よろしくお願いいたします。

path_infoって、文字のままでpath情報だけでは？
getメソッドの取得はquery_stringのままでいいと思うけど、変更しないといけない理由は？

>>556
それ、PATH_INFO 含まれてないし。とりあえず CGI.pm のドキュメント嫁。

OBTAINING THE SCRIPT'S URL と FETCHING ENVIRONMENT VARIABLES の path_info() のところ。
多分探せば日本語訳もある。

ありがとうございます。

何か私が勘違いをしているのでしょうかね。
ドキュメントを読んで見ます。

@abc=split(/\,/,@aaa[0]);
if(@abc[1] eq $name){&error}

@abc=split(/\,/,@aaa[1]);
if(@abc[1] eq $name){&error}

@abc=split(/\,/,@aaa[2]);if(@abc[1] eq $name){&error}

これを一行にしたくて@abc=split(/\,/,@aaa[0,1,2]);
if(@abc[1] eq $name){&error}
にしたんですけど機能しません
どこを直したらよいのでしょうか？

>>560
splitは配列を受けられない
見たところその処理はチェックのみで代入は不要？
(split(/\,/, $_))[1] eq $name && &error foreach @aaa[0,1,2];
こんな感じでどうだろ

>>561
レスありがとうございます
実際にはサブルーチンで代入します
すみません

使用目的は連続投稿を防ぐためで、ログファイルに同一内容があるのかチェックをしたいのです

>>562
@abc=split(/\,/,@aaa[0,1,2]);
のsplit(/\,/,@aaa[0,1,2]);の部分がサブルーチンの戻り値ということかな
期待する内容は(0の名前, 1の名前, 2の名前)という配列ということでOK？
それなら
map { +(split /,/, $_)[1] } @aaa[0,1,2];
とか。
でも、それは構造を考え直したほうが良いかも・・・

>>563
もう一度考え直してみます
ありがとうございました

>>564
この辺参考にどぞー
http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perldsc.html

掲示板のログ検索を導入したのですが、検索対象文字に\を入れるとエラーが出ます。

$ascii = '[\x00-\x7F]';
$twoBytes = '[\x8E\xA1-\xFE][\xA1-\xFE]';
$threeBytes = '\x8F[\xA1-\xFE][\xA1-\xFE]';
open (DATA, "<$log");
flock (DATA, 1);
@line = <DATA>;
close (DATA);
# $wordはフォームから受け取った検索対象文字列です
# 検索対象文字列はスペース区切りで複数設定可能にしてあります
$word =~ s/　| /\t/g;
&jcode::convert (\$word, "euc", "sjis");
@words = split (/\t/, $word);
　　foreach (@line) {
　　　　&jcode::convert (\$_, "euc", "sjis");
　　　　　　# ログはタブ区切りです
　　　　　　@data = split (/\t/, $_);
　　　　　　foreach (0 .. $#words) {
# &error ($words[$_]);　　　# ※1
　　　　　　　　# $data[6]が記事の本文です
　　　　　　　　if ($data[6] =~ /^(?:$ascii|$twoBytes|$threeBytes)*?(?:$words[$_])/) {
# &error ($words[$_]);　　　# ※2

検索文字に\を入れて※1の部分でエラーを出そうとすると正常にエラー画面に\が表示されるのですが、
※2で出そうとしても、その前にCGIエラーで落ちてしまいます。
下から2行目のif文内の$words[$_]に\が入った時点で落ちると思うのですが、
どのようにしたら正常に検索処理を行なえるでしょうか。

quotemeta とか \Q\E とかでエスケープしてないの？
最低限そうしないと、いろいろ死ぬぜ？

>>567
レスありがとうございます。
以下のように修正することで解決できました。
- @words = split (/\t/, $word);
+ @words = split (/\t/, quotemeta ($word));

Win+Apacheのローカルサーバで,Perlスクリプトを組んでから,
オンラインのレンタルスペースにアップロードして稼動させようとしています.

ローカルできちんと動くスクリプトを組むまではOKだったのですが,
レンタルスペースで動かそうとすると,様々なエラーがでてしまいます.

レンタルスペースの仕様書を見て,使えないモジュールのチェックなどはもちろんですが,
ファイル名の大文字や小文字の判定など,他に気をつけることはありますでしょうか？

レンタルスペースの仕様書通りの、shebangが書かれていない。

1行目！

さすがに !#/usr/bin/perl はちゃんと記述してあります.
質問が少し漠然すぎたかもしれませんので,具体的な質問に変更します.

$year=2005,$month=11;
@allfiles=(haman200511,Amuro200511);
@persons=(Amuro,Quess,Char);

#指定された年月かつ,存在する人物のファイル名を取得
for my $file (@allfiles) {
for my $person (@persons) {
if($file eq "$person$year$month.dat"){
push(@files,$file);
}
}
}

これ↓のＰｅｒｌ版サンプルがＸＲＥＡで動かないのですが、どこを修正すればいいのでしょうか？

SAJAX
http://www.modernmethod.com/sajax/

結果
ローカル @files=(Amuro200511.dat);
レンタル @files=();

この箇所の挙動がレンタルとローカルで異なっています.
ローカルのPerlのVerは5.8で,レンタルのほうは5.6なのですが,
Verによる挙動の違いというようなものがあるのでしょうか？

訂正
@allfiles=(haman200511.dat,Amuro200511.dat);

>>574
@allfilesの要素をクォートで括ってないからじゃないの？

>>574
「use warnings」を有効にしてから「きちんと動く」と言ってくれ。

>>573
ＣＧＩ設置について質問　【Part2】
http://pc8.2ch.net/test/read.cgi/php/1104624784/

>>577
サンクス

$year=2005,$month=11;
@allfiles=(haman200511,Amuro200511);
@persons=(Amuro,Quess,Char);
↓
my($year, $month) = (2005, 11);
my(@allfiles) = ("haman200511", "Amuro200511");
my(@persons) = ("Amuro", "Quess", "Char");

>>579
qw 使えよ。

TMTOWTDI ：-P

タイミング系のデバッグはどうやってやってますか？

タイミング系って何のこと言ってますか？

まったく同じタイミングのアクセスを意図的にやるにはどうやったらいいでしょうか？

>>576
use warningしてみましたが,状況は進展しませんでした.

>>579
実際のスクリプトではクォートしています.
抄写するにあたり,変数の中身を示しておこうと思い,
記述したときの手抜かりで,クオートし忘れました,申し訳ありません.

>>585
で、クォートしたらウチでは動くんだけど、そっちでは動かないの？

> さすがに !#/usr/bin/perl はちゃんと記述してあります.
なんで誰も突っ込まないｗ

>>586
WInXp&Apacheのローカル環境だと大丈夫なのですが,レンタルスペースだとダメなんです.
ローカルとサーバの違いというものがよく判らなくて,デバッグに四苦八苦という状態です.

>>587
#!/usr/bin/perl ですね.すみません.


もう少し自分で頑張ってみてダメなようでしたら,また質問するかもしれませんが,
そのときはよろしくお願いします.

>>588
ローカルがWinってのは先に言おうな。話が全然違ってくるからな。
で、俺が言ってるのは>>572にクォート入れても動かないのか、なんだが。

もういいや。

>>569
無駄なやりとりが増えるから落ち着いてから出直してきなさい。

OSが異なれば改行の扱いが変わったりもするし、
スクリプトやデータファイルの文字コードに起因しているかもしれんし、
マルチバイトなファイル名/ディレクトリ名なんて脱力ものな原因かもしれんし、
FTP転送がまずいだけかもしれん。

　typo
　様々なエラーがでてしまいます。
　挙動がレンタルとローカルで異なっています。
・・・神かエスパーじゃなきゃわからんよ。

デバッグに関するテンプレ欲しいな。

>>569
"Hello World"を表示するような単純なスクリプトを動かしてみれ。
まずはそこから。

借りている鯖がFreeBSDだって事は知っていたんだけど
文字コードなんか気にせずに秀丸で文字コードをshift_jisに設定して書いて
ﾏｽﾀ、所が全角英数字を半角英数字にしようとしたら、プログラム自体は
jcode::tr(\$arg_[$i], '０-９Ａ-Ｚａ-ｚ', '0-9A-Za-z');
たったのこれっぽっちなんだけど、これって文字コードがEUC-JPじゃないと
正確に変換出来ないんだよね、やっぱり皆さんもperlのプログラム書くときの
文字コードはEUC-JPﾃﾞﾂｶ？

どこの誤爆？

974ﾃﾞﾂ誤爆ｽﾏｿ

はじめまして
本のサンプルコードで理解できないところがあるんで教えてください。
$Value =~ /(\w+)\.(\w+)$/;
なんて書くときの、最後の、
$/
って何を表すんですか？
ファイル名を取り出すようなところで使われてるんだけど…。

これなに？
下の例だと$っていらない気がするんだが…。
こんな感じ
例:
if($FileName =~ /(\w+)\.(\w+)$/){
$FileName = "$1\.$2";
}

>>596
http://x-web.pobox.ne.jp/fcgi/fcgi_20.html

>>597
ネ申！！
ありがとうございます。
ちゅーか、大喜びするほどじゃない…。基礎ネタ？
修行していつか還元します…。

File::Spec や File::Basename を使ってないスクリプトは例外なく糞。

んなこたーない

File::Spec や File::Basename を使わないとスクリプトを書けない奴は例外なく糞。

>>601
あぁ、ここ WebProg 板だったね(わらい

File::SpecやFile::BasenameはFile::SpecやFile::Basenameを使って
書かれているんだろうか?

目的の処理ができるかどうか。。　　ただそれだけだ。
コストが折り合えば使えるものはなんでも柔軟に使い、使えないものは使わない。
これを使わなきゃダメなんて・・・　やり方がいくらでもある以上、口が裂けても言えん

そうやって、カスみたいなCGIが量産されていくのですね。

ここまで何も作れないｶｽの妬みﾚｽでした＾＾

>>599=>>602=>>605
異常な執念深さだな。 File::Spec と File::Basename に何かコンプレックスでもあるのか？

>>607
>>599と>>602は俺じゃないけど。
標準で付いてくるモジュールぐらい、ちゃんと使ったらどうよ。
(不完全な)車輪の再発明を見てると馬鹿かと思う。

>>608
ほほう。
元質問が「本のサンプルコード」に関する質問だっていうのに、
File::Spec や File::Basename を持ち出すのが適切だとでも？

　半角カタカナを化けずに表示させたかったので、jcodeg.plというものがあると知り、それを使ってみたのですが、
やはり化けてしまいます。原因として何が考えられるでしょうか？

半角カタカナだと、文字コード判別(getcode)で誤判別をしてしまう。

>>610
Shift-Jisをやめればいいと思います

モジュールは確かに便利なんだけど、infoseekで使うときに困るんだよな。

>>610
どうやって使ったのか言うてみい。

>>609
糞な本が糞なプログラマを養う。

泥の中に蓮の花を開く

kent見本にしたコードはひどいよな。

>>617
はいはいKENTを超えてから言ってね

それはギャグて言っているのか？（ＡＡ略

妬み乙

ちょっと調べものをするのに設置したのですが
良かったらどうぞです

http://user.ftth100.com/mirrorhenkan/perl/

>>608
俺様専用スクリプトだって、Unix環境専用スクリプトだってアリなんだし、
必ず使えってことも無いでしょ。

必要要件を満たさないものを自作するよりは、
素直に使った方がいいけどさ。

質問させて下さい。
windowsXPSP2
ActivePerl-5.8.7.813-MSWin32-x86-148120.msi

を使っています。
plファイル自体の文字コード EUC
内部で扱う文字コード EUC
標準出力 Shift-JIS
標準入力 EUC

POSTデータ等で受け取ったデータはshift-jisであれば内部処理用にEUCに変換する。

という構成でプログラムを書きたく、検索した結果、下記の他いろいろ試してみた
のですがうまくいきません。
文字化けで出力されたり、
"\x{fffd}" does not map to shiftjis at〜〜
と出力されたりします。
↓
#STDIN と STDOUT を別々にコード変換する
use encoding 'euc-jp', STDOUT=>'shift_jis';

どうかお力添えをして頂けないでしょうか。
よろしくお願い致します。

>>623
いろいろやったんなら試したこと全部書かないと
レスしても　「それはやってみましたがダメでしたとかいわれて」殴ってやりたくなるからな〜
レスつきにくいぞ

とりあえず　jcode.pl　でも使っとけ

utf8フラグ

標準出力をEUCにすればええがな。
携帯？

>>623
>>8 の [Perl5.8Unicodeメモ] のページを読むべし。

>>624
>>625
>>626
>>627
みなさんアドバイスありがとうございます。

携帯からの入出力を想定しているためこのような仕様で書きたいと思いました。
Perl5.8Unicodeメモのページを読み、記載されてあった
簡単なところから
まず、
use encoding "euc-jp";
print "こんにちわ\n";
としてDOSで実行してみたのですが
「､ｳ､ﾋ､ﾁ､・」
と表示されてしまいます。

自分なりに
use encoding "euc-jp";
use Encode qw/ encode decode /;
use Encode qw(from_to);

print from_to("あああ", "shift_jis", "euc-jp");
ともしてみたのですが、
Wide character in subroutine entry at C:/Perl/lib/Encode.pm line 186.
と出てしまいます。
おそらくこれはutf8フラグを切り落としていないからだと
思いますが、euc-jpでソースを書いて出力する際には
一つ一つ文字コードを変換していかないといけないのでしょうか？

>>628
> 「､ｳ､ﾋ､ﾁ､・」 と表示されてしまいます。
君が自分で EUC-JP の文字列を Shift_JIS のコンソールへ
出力しているのだから化けて当然。
http://www.kt.rim.or.jp/~kbk/perl-5.8/encoding.html

> 自分なりに(略)ともしてみたのですが、
from_to() の使い方を間違えている。
http://www.kt.rim.or.jp/~kbk/perl-5.8/encode.html

>>628
>>623に書かれている
> use encoding 'euc-jp', STDOUT=>'shift_jis';
これでだめなん？

$hogeを加工;
&sub1;
sub sub1{$hogeをさらに加工;&sub2;return}
sub sub2{$hogeをさらにさらに加工;return}

というようなことをしたいんですが、sub2になるとせっかく加工した$hogeが初期化されてしまってるようなんですが、どう対処すればいいでしょうか？

>>631
my宣言でもしてない限り、その書き方なら$hogeは初期化されないけど。
何か間違ってない？ つかuse strictやれと小一時間(ry

ありがとうございます。
よく見てみたら意味もわからずmy宣言してました。
これをとったらうまくうごきました。
これからも御鞭撻のほど宜しくお願いします。

>>633
グローバルの$hogeをそのまま複数のサブルーチンからいじるのは一般的にいうとあまり行儀のいい
プログラムではないな。変な癖をつけると大きいプログラム書くようになると苦労するよ。

要するに値を渡したり戻したりが全然わかってないと。

今期のテーマ：脱KENT"2005"冬の陣

変数のアドレスを渡すのら

戻り値を受け取るのら！

$hoge = ¥$hoge;

sendmail串万歳

use strict;
my %data = check('hoge');
if(%data) {print "OK";} else {print "NG";}
exit;
sub check
{
　my ($text)=@_;
　if($text ne 'hoge') {my %data={'text'=>$text}; return %data;}
　return undef;
}
２行目の位置で正常なハッシュ返ってくればエラーが出ないのですが、
undefが返ってくると「Odd number of elements in hash assignment」と
出てしまいます。
こういう、正常ならハッシュ値、異常ならundefみたいな事をしたい
場合には、どういう感じでコーディングすれば良いのでしょうか？

>>641
my %data = check('hoge') or ();

>>642
ありがとうございます。
それでやってみたのですが、やはり
「Odd number of elements in hash assignment」と
出てしまいます。

「return undef;」の所を「my %data; return %data」にしたら
エラーが出なくなったのですが、なんか書き方が
すっきりしないような気もします…。

「my %data = check('hoge') || ();」で解決しました。
'or'と'||'で違うんですね。勉強になりました。

>>644
あ、ほんとだ。|| でなければダメだった。
or だと評価が遅すぎたね。

…と思ったら、「my %data = check('hoge') || ();」だと
正常なハッシュ値が返ってきた時に
「Odd number of elements in hash assignment」と
出てしまいます。

もう、何が何だかわからなくなってきました…onz

先に結論だけ書いておくけど、入門書か何かでリストやハッシュについて
理解を深めた方がいいかもしれない。

my %data={'text'=>$text};
↓ こう
my %data=('text'=>$text);

return undef;
↓ こう
return ();

>>647
>return undef;
>↓ こう
>return ();
これで解決しました。

>my %data={'text'=>$text};
>↓ こう
>my %data=('text'=>$text);
これについては、最初は（）の方で書いていたのですが
http://pc8.2ch.net/test/read.cgi/tech/1131286411/223
ここで、正しくは{}と掲示されたのですが…。
どちらにしても、リストやハッシュについて、理解を深めようと思います。
ありがとうございました。

>>648
http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html

>>648
それはスカラ変数に無名ハッシュとしてリファレンスを代入する時だけ

よろしくオナガイシマス
半角英数字、英字は大文字、小文字も含めて
10桁の乱数を生成しようと思い以下のプログラムを書いてみたのですが
数字の乱数しか生成出来ません、どこを直したらいいでしょうか、ご指摘お願いします。@array = (0..9,'A'..'Z','a'..'z');
foreach (1..10) {
my $bar = (rand scalar(@array));
print qq|"$bar"\n|;
}

651です改行を間違えてました
@array = (0..9,'A'..'Z','a'..'z');
foreach (1..10) {
my $bar = (rand scalar(@array));
print qq|"$bar"\n|;
}
ご勘弁です

my $bar = (rand scalar(@array));
　　　　　　　　↑　　↑

scalar(@array)の戻り値は@arrayの要素数
randの引数にそれを渡してるんだから、当然数値しか戻ってこない罠

- my $bar = (rand scalar(@array));
+ my $bar = $array[rand scalar(@array)];

↑分かっててintを略してる？

質問、Encode 使ってUTF8→EUCにすると
「〜」が「?」になるんですが何とかならないでしょうか

あなたが無知なだけですね

>>655
略してるも何も、必要ないじゃん。わざわざ int() しろと？

654
652です
ﾃﾞｷﾏｽﾀ、ありがとう

>>656
この辺の絡みなので個別対処。
http://www.opengroup.or.jp/jvc/cde/ucs-conv.html

>>658
じゃあ scalar も外せよ、半端君。

>>660
そのまま $array[] 足しただけだろ。
なんでそんなに必死なんだ。

>>660
有難うございますー
これを参考になんとかやってみますです。

>>641
>>647

＞return undef;
＞↓ こう
＞return ();

つまり return; だよね

search.cpan.org: Perl::Critic::Policy::Subroutines::ProhibitExplicitReturnUndef
http://search.cpan.org/~thaljef/Perl-Critic-0.13/lib/Perl/Critic/Policy/Subroutines/ProhibitExplicitReturnUndef.pm

use strictのメリットって何ですか？
スクリプトが速くなったりするんでしょうか

すいません
asciiファイルに\r\nが含まれることはあっても
バイナリファイルに\rのない\nが含まれていることはありえない、
と考えてバイナリファイルを選別していくやり方は問題ありますか？

>>665
バイナリーファイルは何でもありだからだめだよ

>>664
http://perldoc.jp/docs/perl/5.8.0/strict.pod
http://perldoc.jp/docs/perl/5.8.0/perlstyle.pod

>>665
> バイナリファイルに\rのない\nが含まれていることはありえない、

扱うバイナリファイルがその前提なら、
その方法でもいいと思うよ。

バイナリかアスキーかなんて、拡張子で判断すればいいんでないの

なぜファイルテスト演算子を使わないのかと

(´･д･)ｴｰ

ファイルテスト演算子って\0が含まれてるかどうかだけじゃなかったっけ？

すまん、違ったようだ。

x0D x0Aで改行ってのはWindows限定だから他のOSじゃ通用しないよ。
自前でチェックするならx00のあり／なしだな。手抜きの場合は。

>>664
使用者感想

use strictで肩こりが解消しました。（茨城県　I.・Y様）
もうuse strict無しではコーヒーは飲めません。（北海道 H・N様）
use strictのお陰で宝くじが当り、彼女もできました。（東京都　A・J様）

>>664
>>675みたいなおちゃらけじゃなくﾏｼﾞﾚｽ

use strictでkentの呪縛から逃れることが出来ますた。(京都府　M・N)

問い）xxxのCGIを改造したいのですが。
答え）use strict;の一文を削除してからどうぞ。

>>664
残尿感もなく、スッキリです！（東京都 W・C）

ヒント：グローバル変数

ヒント：グローバル経済

バイナリかどうかのチェックとはちょっと違うかも知れないけど File::MMagic とか。

>>664
use strictを使う理由は、use strict 'vars';が一番大きいかな。
完全に修飾されてない、宣言の無い変数を使うとエラーになる。
つまり、タイプミスなどで間違った変数名を使うとエラーで教えてくれる。

でも use strict; 使っておいて、一番上に my $変数; をずら〜って書いてるひともいるけど、それは文法上 strict だけど、本質的に strict じゃないんじゃないかなー、って思う。

strictって名前だけど、機能を若干制限するだけで、
スタイルを強制するわけじゃないからね。

>>683
いるいる
その人おっさんじゃない？

でも、解って使っていればＯＫかなと思う。
例えば、上のほうに設定系の変数をわかりやすくまとめておいて、ここまでが
設定ですよ〜、、、みたいな。。

極力そんな変数は減らすべきだよ

print "Location: mailto:〜でメーラーを開いて、本文に改行交じりの文字を入れることが出来ません。なぜでしょうか？　
print "Location: mailto:aaa\@aaa.com?subject=件名\&body=1行目%0D%0A2行目\n\n";
「%0D%0A」を入れてみましたがだめでした。文字コードや、URLエンコード関係が原因なんでしょうか？？？
ちなみにPERLのスクリプト自体はShift-jisで書いています。

もっとスマートなやり方でできないのか？
bodyなんてメーラー依存度が高いわけだし。。

メルマガを一斉配信する前に、一旦Outlook Expressでプレビューしたいわけなんですが、他にいい方法ご存知ですか？

>>690
一度、自分だけに同じ内容のメールを送ってみる。

>>691
それも、最終手段としては考えていますが、
ユーザのひと手間が増えますので、なるべく他の方法を使いたいと思っているのですが...

>>692
Outlook を使ってない人、プレビューしたく無い人もいるわけだけど、
そういう人の手間が増えたり、ウザいと感じるのはいいわけ？

>>688
”%”の前に”\”がいるとか

>>693
今回は、1人のクライアント専用に作っていまして、こちらの要望なんです。

>>694
print "Location: mailto:aaa\@aaa.com?subject=件名\&body=1行目\%0D\%0A2行目\n\n";
としてみましたが、だめでした。

<head>
<meta http-equiv="refresh" content="0; url=mailto:[email protected]?subject=件名&body=1行目%0d%0a21行目">
</head>

HTMLタグで飛ばしてやるのはだめなの？

Perlコーディング

>>697
完璧です！！!(^^)!
上手くいきました！ありがとうございましたm(_ _)m。
とても丁寧にアドバイス頂きまして、本当にありがとうございました。
おかげさまでクライアントにも顔がたちます。感謝!感謝!感謝!感謝!感謝!

perl5.8、FreeBSDの環境です。
連想配列をファイルやDBのカラムに保存したいのですが、
可能でしょうか？
可能であれば方法をご教授お願いいたします。

>>700
もちろん可能だけどどのあたりがわからないの？
連想配列にどんなキーがあるのか知る方法がわからないとか→keys, each
ファイルへの記録方法がわからないとか→open, print, close
PerlからDBを使う方法がわからないとか→http://search.cpan.org/modlist/Database_Interfaces
それを連想配列に戻す方法がわからないとか→それぞれのキーに対して値を代入

そういうモジュールを探してるって事じゃない蟹

シリアライズして放り込めば…と思ったけど、
ハッシュをそのままDBのテーブルにマッピングしたいってこと？

ああ、一つのカラムの中に連想配列を丸ごと押し込みたい、とも取れるのか…
それならStorableだよな

>>703
>>704
そういう事です。説明足りなくてすいません。
普通に連想配列をファイルやカラムにinsertしても
読み取りにに失敗したので(当然)。
Storableとはなんでしょうか？ググってみます。

Javaのプロパティファイルと同じことをperlでもやりたいのですが、できますか？
２ｃｈのSETTING.TXTみたいなのです。
２ｃｈってどうやってるんだろう・・・。

出来ます
と言うか物凄く初歩です

現在CGI経由で画像を表示させる簡単なCGIスクリプトをテストしています。
こんな感じで・・・

open IMAGE, "<:raw", "img.gif";
print "Content-type: image/gif\n\n";
print <IMAGE>;
close IMAGE;

しかしこれを実際にテストしてみると、ブラウザには
画像がシュレッダかけられたみたいなへんてこりんな
画像で、しかも縦の長さが押しつぶされてしまった
感じの画像が表示されます。要は、正しく表示されません。
jpeg画像にしてやってみると、今度はバッテンのアイコンが
でてしまいます。

なぜうまく表示できないのでしょうか？

binmode

>709
:rawだから違うんじゃね？

何アホなこと言ってんだオレ…
STDOUTに対してbinmodeか

>>708
まぁ、違うと思うけど
ASCIIモードでFTPうｐしたとか

レスどうもです。
一応raw指定でbinmodeのつもりです。
あと自鯖でやってます。Apache2です。

あ、たしかにbinmode STDOUTでうまくいきました。
逆にIMAGEに対してはbinmodeにしなくてもいいようですね。
ありがとうございました。

>>713
binmodeは2箇所ってこと

>707
そんじゃおしえてください

ex.

open(FH, 'SETTING.TXT');
while (<FH>) {
chomp;
my($key, $val) = split(/=/, $_, 2);
$set{$key} = $val;
}
close(FH);

print $set{'BBS_TITLE'};

>>706
この程度のテキスト処理はどんな Perl の本でも最初の方でやるじゃんよ。
勉強不足なんじゃね？

>>715
それがですね、読み出し元ファイル（IMAGE）に対してはbinmodeにしなくても
いいようなんです。書き出し先ファイル（STDOUT）に対してはやらねば
ならないようです。
それと、１つサンプルコードを見つけたのですが、これは読み出し元ファイルに
しかbinmodeやってないですね。
http://www.aimix.jp/cgi/syohoimgview.html
この辺があやふやというか・・・。

Windowsの特徴

いろいろやってみましたが、原因わからずじまいです。
>>720ということで、結論付けてしまいたい気分です。
やってられんです。
ようはI/O両方バイナリにしとけば確実ってことですね。

"<:raw" ってしてるから binmode になってんじゃなくて？

"ということ"っていうかそういう仕様なんだけど

ttp://www.sixnine.net/cygwin/translation/cygwin-ug-net/using-textbinary.html

>>719
・テキストモード入力時の変換：0D 0A → 0A
・テキストモード出力時の変換：0A → 0D 0A
・たまたま画像に0D 0Aが無かった
・サイトが間違ってる # コピペして試してみな

なるへそ。
画像ファイルに<CR><LF>がなければ、読み込みでは変換されず
しかし<LF>があれば、書き出しで変換されるという寸法ですかね。

すいません、質問させてください。


unless($codeflag){ &error("不正投稿の可能＼性があります。リロードして再投稿して下さい。");}
if ($allow_submit && !$letout_ip) {
if (($cc_time - $last_ctime) { &error("アクセスしてから投稿するまでは$noprx_stime秒以上開けて下さい。");}
}
elsif (($cc_time - $last_ctime) { &error("アクセスしてから投稿するまでは$submit_time秒以上開けて下さい。");}


で構文エラーがでます。

Perlのエラー出力は

syntax error at tmp.pl line 749, near ";}"
syntax error at tmp.pl line 751, near "elsif"
tmp.pl had compilation errors.

でした。

ちょっと原因がわからないんで、おしえてください。

　　, ‐､ 　　　　, ─‐ ､ , ‐ ､　,r─── ､ r───‐ ､　, ───‐､
　　| 　 |（_）（_）l 　　　.l | 　 | ,' 　 　 　 　|│ 　　　　　| |　　　　　　│
　　l 　└─‐､ `ー─ ' l　　ﾚ 　 ,'=ｺ 　　|└─‐┐ 　 ! `ー─┐ 　 !
　　|　　　　　ﾉ 　　　　/　　ｌゝ-'ゝ､　　　l 　　　　l 　　| 　 　　/ 　 〈
　　l 　 l￣￣ 　ｒ─‐ ´　　/ r─‐´ 　　/ ┌─‐┘ 　 ! ｒ─‐´　　　ヽ
　　| 　 ! 　　　│ 　 　 , r'　 l 　 　　, r' 　 |　　　　　　|│ 　 　 ,r､ 　,!
　 └‐┘　　　└─ ' ´ 　　└─ ''´　　　└───‐' └─ ' ´　｀ｰ'
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 /＼＿＿_／ヽ
　　　 (.｀ヽ(｀＞ 、　　　　　　　　　　　　　　　　　　　　　　／''''''　　　'''''':::::＼
　　 　 `'＜｀ゝr'ﾌ＼　　　　　　　　　　　　　　　　　＋　　|（●）,　　　､（●）､.:|　＋
　 ⊂ｺ二Lﾌ^´　 ノ, ／⌒)　　　　　　　　　　　　　　　　　|　　,,,ﾉ(､_, )ヽ､,,　.::::|
　　⊂l二L7_　/　-ゝ-')´　　　　　　　　 　　　　　　　.+　|　　 ｀-=ﾆ=- '　.::::::|　+　.
　　　　　　 ＼_　　､__,.ｲ＼　　　　　　　　　　　＋　　　　 ＼　　 ｀ﾆﾆ´　 .:::／　　　　+
　　　　　　　　(T＿_ノ　　 Tヽ　　　　　　　 , -r'⌒!￣ `":::7ヽ.｀- ､　　　./|　　.
　　　　　　　　　ヽ¬.　　　/　ﾉ`ｰ-､ﾍ<ｰ1´|　 ヽ　| :::::::::::::ﾄ、 ＼　(　　./ヽ
　　　　　　　　　　＼l__,.／　　 　 　 i　l.ヽ!　|　　　.| ::::::::::::::l ヽ 　 ｀７ｰ.､‐'´ |＼-､
　　　　　＿,∩＿　　　　　　　　　＿,∩＿　　　　　　　　 　 ＿,∩＿
　　　　（＿＿＿__)ゝ、　　　　　（＿＿＿__)　 　 y　　　　 （＿＿＿__)
　　　　/　::　::　:: ヽ　〉　　　　　/-‐::　::‐-ヽ　／　　 　 　 /　::　::　:: ヽ
　　 _./ （・ ）ll（・ ） ∨　　　　 _/　 0) i! 0)　∨　　　　　 _/ （ ・）i!（・ ） ﾞ､_
　／/ ::　:: ∈ゝ ::　::ヽ　　 ／/　::　 ‐-‐　::　ヽ　　　 ／/　 ::　ｰ一　::　ヽ＼

どこが 749 行目だ？
こちとらエスパーじゃねぇんだ

if (($cc_time - $last_ctime) { &e 〜 以下略
elsif (($cc_time - $last_ctime) { &e 〜 以下略

とりあえず文法を学んでみよか？

対応するカッコの数くらい数えられんものだろうか

まぁなんだ、茶でも飲んで一服するこった。

>>726
$cc_timeの左の ( が余分、２箇所

いくらなんでもネタだろ

初歩的な質問で申し訳ないのですが、よろしくお願いします。

print "Content-type: text/html; charset=Shift_JIS\n";
print "set-Cookie: $COOKIE_NAME=$value; expires=$date\n\n";

と書いてクッキーを出力しているのですが、画面に

　　Content-type: text/html; charset=Shift_JIS

の１行が表示されてしまいます。どうしてですか？一応クッキーは作成されています。

print "Content-type: text/html; charset=Shift_JIS\n";
print "set-Cookie: $COOKIE_NAME=$value; expires=$date\n\n";

この２行のあとにさらに Content-type〜 をprintしてるからでしょ。

>>734
実行環境を書け。話はそれからだ。

>>734
「画面」とは？　標準出力？　ブラウザ？

>>737
cookieのこと言ってんなら>>734はブラウザのことなんじゃねーの？

松島
秩父
hogehoge 癒し系
松本

↓上のテキストを処理後、下のようにしたい↓

松島
秩父→hogehoge 癒し系
松本

処理の１つ先回りをして、対象の１つ前の行の先頭に「hogehoge」がある場合、対象の列とhogehogeが先頭に存在する列に対して指定の処理するようにしたいのですが、

for my $ii (0..$#text) {
if("hogehoge" eq substr($text[$tn+1],0,8)){
$text1 .= "$text[$ii]→$textall[$ii+1]\n";
$ii++;
}else{$text1 .= "$textall[$ii]\n";}
}
↑のように組んで実行したところ

松島
秩父→hogehoge 癒し系
hogehoge 癒し系
松本

のようになってしまいます。
ループのたびにmyで初期化してしまうため$ii++が無駄になってしまうために起こってると思うのですが、$ii++を生かすようにするには、どのように変えたらよいですか？

>>739
こっちのforループ。
for(my $ii = 0; $ii < @text; $ii++) {

どうでもいいかも知れないけど、
substr()よりindex()使ったほうがスマートに思う。

>>739
その場合、行を無視すると単純になる(sオプションを使う)

松島\n秩父\nhogehoge 癒し系\n松本　が
松島\n秩父→hogehoge 癒し系\n松本　に置換できればいい。

あとn行先読みするときはpush,shiftを一時配列に対して使うのが楽かも。

>>740-741
ありがとうございましたっ。

配列じゃなくてテキストだったらこんなのでも。

my $test =<<"EOT";
松島
秩父
hogehoge 癒し系
松本
EOT

$test =~ s/\n(?=hogehoge)/→/g;

>>743 == >>741

本当だ、質問レスしか見てなかったので気づかなかった。

「(sオプションを使う)」のところは必要なかった。訂正。

perl使いを目指しています、最近CGI.pmライブラリなるものを
知り使うようになりました、今までPOSTやGETメッソッドによる
変数の受け渡しなんか、フォームのデコード処理とか、その逆とか
ゴリゴリ書いていましたが、これを使うようになって
なんとなく、あまりにあっけなくて
（ ゜д゜）ポカーン状態なのですが
こんなヌル湯に漬かって漏れは一人前のperl使いに成れるでしょうか？
それと、CGI.pmの弊害とかってありますか？

そんなもんです
わざわざ内部までさぐるのは時間の無駄ですので
その調子でモジュールを使いまくりましょう

その勢いでphpを知ると更にポカーン、な予感

perl使いの諸兄ども、どうもです
ライブラリ使うと確かに内部で何をやってるのか、全く分からないが
良い点としては、コードが少ない！見やすい！読みやすい！ですね
ゴリゴリ時代は自分でプログラム組んでいても3日もすればハァ？ってな
事がたまにありましたが今は逆なのらー、
ライブラリにおまかせする部分はおまかせして
簡単に正規表現による、文字処理とかハッシュによる構造体の変数の受け渡しや
参照の仕方等がスラスラできるように禿げみます。

おれは未だに自作のＵＲＬデコードや文字コード変換だな。
使うモジュールは strict, vars, lib ぐらいかな。

弊害というか、標準モジュール付いてない古いPerlの入っているサーバで動かないくらいかな。

既存モジュールの再利用のうまさも実力の内。

CGI.pmは要らないメソッド大杉。
無駄にコンパイルする時間を食ってる。

>>754
ほかに lightweight なおすすめがあればおしえてぷりーず。

CGI::Lite（笑）

（笑）

ｗ

CGI::Liteはデフォでついてくる？

ノンノン

ちわ。
テキストエリア(<TEXTAREA></TEXTAREA>)から送信されたテキスト内容を受け取って、
ファイルに書き出す処理を書いてます。

各行に、例えば、<BR>なんてタグをつけて出力しなおしたくて書いているんですが、どうも
意図しない改行がきてしまいます。

こいつはどこからやってきているのか。
あるいは、ここコードこうだろなんて教えていただけないでしょうか。
($buffの取得の時点でおかしい？)

コード:
#$buff取得したマルチラインのテキスト
@s_text = split(/(\r\n|r\|\n)/, $buff, 20);
open(FN, ">new.htm");
foreach $mod_line (@s_text){
$mod_line = "$mod_line" . "<BR>\n";
print FN "$mod_line";
}

元データ:
1行目
2行目
3行目

結果:
1行目<BR>

2行目<BR>

3行目<BR>
↑改行が一個多い。

761の書き込みの結果嘘ついた。
出来たファイルの中身をコピペすると、以下のようになります。
コピペするとなんか改行増えてる？とにかく欲しいのは3行のデータなんです。
1行目<BR>


<BR>
2行目<BR>


<BR>
3行目<BR>

>>761
- @s_text = split(/(\r\n|r\|\n)/, $buff, 20);
+ @s_text = split(/\r\n|r\|\n/, $buff, 20);

ではどう？

>>761-762
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_Unify
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_2BR

見てみ
http://www.neet-ch.net/home3.html

>>763
>>764
ありがとう！
>>763
一発で動きました。ただし理解できんかったです…。
括弧のあるなしっていったい…？
良かったらどう違うのか教えていただけたら幸いです。

>>764
勉強になります。
http://www.din.or.jp/~ohzaki/perl.htm#CRLF_2BR
<BR>変換のコードは使えたら使いたいですね。
(自分のコードは
元のテキストの前後に修飾処理する用途で使いますので、
すぐに構文書けません…。)
>ちゅーか、s///の基本の利用方法ですね。
>>こんな書き方あり？
s/\x0A/後方修飾\x0A前方修飾/g;
↓こんなんなっちゃうよな…。
1行目後方修飾
前方修飾2行目後方修飾
前方修飾3行目後方修飾
前方修飾

ちゅーか、いずれにせよ、ありがとう！

>>763
r\ になってる

>>766
() があれば、マッチしたものが 返されるリストに含まれるのよ。

If the PATTERN contains parentheses, additional list elements
are created from each matching substring in the delimiter.

split(/([,-])/, "1-10,20", 3);

produces the list value

(1, '-', 10, ',', 20)

>>768
761じゃないけれど勉強になりました。splitはcapturingに意味があったのか・・・

>>767
細かいとこまでみてもらってありがとう

>>768
な、なにょー！？
そうだったんですか…。
なんかのときに、splitに関する質問をするところでした…。
ちゅーか、split勉強しなおせって言う感じですか。
あるいは、正規表現の項目に書いてありそうですね。

ありがとうございました。

>>769
突っ込みすぎかもしれませんが、
capturingって、
どんなことに使うつもりになったんですか？

また、しばらくperlから離れちゃいそうなので教えてもらいたいのですが。

>>771
どんなことに使うつもりになったって言うと…
splitの中でグルーピングする必要性が出た場合は、
?:をつけてclusteringにするのを忘れないようにしないとな、という話です。

>>772
やっべえ、なんとなくしかわからんです。
修行が足りん、出直してきます。
サンクスです。