【Perl】初心者コーナー Part13

いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

CGIの質問は【CGIだけど、なんか質問ある？ part 6】
http://pc.2ch.net/test/read.cgi/php/1019561283/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/

過去ログ、その他の役立ち情報は>>2-10あたりを見よう。

[過去ログ]
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
Part11　http://pc.2ch.net/php/kako/1017/10172/1017201229.html
Part12　http://pc.2ch.net/test/read.cgi/php/1019917048/

[ひまぢん氏のミラー]
Part1　http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.html
Part2　http://www.angelfire.com/ak5/2ch-web-program/kako/971817087.html
Part3　http://www.angelfire.com/ak5/2ch-web-program/kako/979894521.html
Part4　http://www.angelfire.com/ak5/2ch-web-program/kako/984430156.html
Part5　http://www.angelfire.com/ak5/2ch-web-program/kako/988728069.html

[総合]
　・Perl Com: http://www.perl.com/pub/
　・CPAN.com: http://search.cpan.org/
　・ActivePerl: http://www.activestate.com/
　・CGI-ML:http://forest.ne.jp/cgi-ml/

[お薦め]
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ
　・Perl Recipes: http://www.effectiveperl.com/recipes/
　・Randal's WebTechniques columns: http://www.stonehenge.com/merlyn/WebTechniques/
　・Perlの部屋: http://www.cc.rim.or.jp/~midorin/mad-p/perl/index.html
　・Perl初心者の部屋：http://www.harukaze.net/~mishima/perl/
　・Perlリファレンス：http://www.big.or.jp/~mio/ga/pl/plref/pl_ref.htm
　・Perlのページ：http://homepage1.nifty.com/nomenclator/perl/

[Document&Tutorial]
　・Perl News: http://www.news.perl.org/
　・Perl Monks: http://www.perlmonks.org/
　・use Perl; : http://use.perl.org/
　・Learn Perl - Perl Education: http://www.devdaily.com/perl/edu/index.shtml
　・Perldoc.com: http://www.perldoc.com/
　・Using Perl5 in Web: http://docs.rinet.ru/Using_Perl5_in_Web/
　・Rex Swain's Home Page: http://www.rexswain.com/
　・Robert's Perl Tutorial: http://www.netcat.co.uk/rob/perl/win32perltut.html
　・Perl Tuts: http://savage.net.au/Perl-tutorials.html
　・Beginning Perl Tutorials: http://www.pageresource.com/cgirec/index2.htm
　・jcode.pl の私的な解説書: http://www.mikeneko.ne.jp/~lab/kcode/jcode.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/
　・Perl6 & Parrot VM についての情報: http://dev.perl.org/perl6/
　・use Object; : http://perl.infoware.ne.jp/

[Module]
　・Perl Module Reference: http://www.bekknet.ad.jp/~bero/docj/module_/
　・PPMPackages: http://www.activestate.com/PPMPackages/
　・河馬屋二千年堂's Page: http://member.nifty.ne.jp/hippo2000/index.htm

[Security]
　・安全なプログラミングのためのガイドライン：http://www.FreeBSD.org/ja/security/#spg
　・Perl security：http://www.perldoc.com/perl5.6/pod/perlsec.html
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・CGI and Security http://www.ansi.co.jp/tech/cgi/security/
　・The Unofficial Web Hack FAQ：http://www.nmrc.org/faqs/www/
　・How to Write Secure Code：http://www.shmoo.com/securecode/
　・Safe CGI Programming ：http://www.improving.org/paulp/cgi-security/safe-cgi.txt

[OS]
　・Linux日本語マニュアル：http://www.linux.or.jp/JM/
　・FreeBSD日本語マニュアル：http://www.jp.freebsd.org/man-jp/

いまさらながら、乙>>1
しかしホント人いねーな。前スレ996でとまってるよ・・・1000ゲッターすらおらんのか

>5
悩める初心者がいないのは喜ばしい事と思おうじゃないか。

>1
おつ。

http://cgi2.osk.3web.ne.jp/~xxx/C-TALK/BOARD/SYNC-THINK/index.html
これってどっからみても2ｃｈ型掲示板なんだけど「he-ch_BBS Ver 0.51 (C)shun-K」
ってなっています。この人の自作なのでしょうか？？

>>6
悩める初心者はいるが、それがperl(CGI/SSI)の分野とすら
判っていないという罠

すみません　duの出力をハッシュに格納する例で、
親ディレクトリ名キーに、子ディレクトリ名の配列のリファレンスを入れようとしています。
本中の例を見ていますが、どうしても一行解りません。

du hoge
1425 hoge/hoo
19 hoge/hoo/bee
58 hoge/raa

------プログラム途中より-------
($size, $name) = split;
$dirsize{$name} = $size;
($parent = $name) =~ s#/[^/]+$##; ←これ
push @{ $kids{$parent} }, $name;

矢印行は、どのような処理を行っているのでしょうか。
ヒントでも構いませんのでご指南いただけないでしょうか。
よろしくお願いいたします。

>>9
ヒント：

($parent = $name) =~ s#/[^/]+$##;

これは以下のコードとほぼ同じ

$parent = $name;
$patent =~ s/[^\/]+$//;

ActivePerlで、再帰的にすべてのフォルダにあるファイルを取り出す
ということをするために

use File::Find;

$dir = "C:\\windows";

find(\&print_dir, $dir);

sub print_dir {
　　print $File::Find::name, "\n";
}

というrecurse.jplを実行すると、

syntax error at C:\Perl\lib/File/Find.pm line 2, near "use 5.005_64"
BEGIN failed--compilation aborted at recurse.jpl line 1.

というエラーが出ます。これはどういうことなんでしょうか。
↓はFind.pmの1行めから4行めまでです。

package File::Find;
use 5.005_64;
require Exporter;
require Cwd;

モジュールを使うのは初めてです。
どうぞよろしくお願いします。

Perlのバージョンが古いってことだす。
新鮮なPerlをインストールしてけろ。

>>12
どうもありがとうございます！
JperlじゃなくてPerlでやったら動きました。（Jperlが古いってことですよね。）
ホント助かりました。

Accessで作成したデータベースファイルをLinuxサーバーに置いてWebからperlを使って操作ってことは可能でしょうか。
いろいろそういうモジュールがないかと探したんですけど見つけることができませんでした。何か方法があるんでしたら教えて下さい。

>>10
うをー　
速やかなﾚｽありがとうございました。感涙；；

最近Perlでプログラムを始めてみました。
引数に文字列を入れたら、それぞれの文字のASCIIコードを足して、
10で割ったあまりを返すサブルーチンを作ったんですが、

#呼び出し
$moji = "ABC";
$number = &getid($moji);
print $number;

#ルーチン
sub getid{
　local($tmp) = @_;
　$id = 0;
　@data = split //,$tmp;
　$num = grep //,@data;

　for($i=0;$i<$num;$i++){
　　$tmp = ord($data[$i]);
　　$id += $tmp;
　}
　return $id %= 10 ;
}

ってやると、返り値が0の時のみ正常に動いて
それ以外の値になる時はこのルーチンの中でプログラムが終わってるようです。
何かヘンなところあるでしょうか？

すいません、他のルーチンに問題があったようです…
これで得た数値を、jcode.plを用いてSJISに変換しようとしたところで止まってたようです。
板を汚してしまい、申し訳ないです。

@list 内の $i 番目の要素を抜いて、一番最初にいれたいです。
どうすればいいか教えてください。

例：
$i = 2

●,◆,★,■,▲,▼
　　↓
★,●,◆,■,▲,▼

>>18
$i = 2;
unshift(@list,splice(@list,$i,1));

>>19
どうもありがとうございます。

PerlのTipsがたくさんおいてある、有名なＨＰ教えてください。
よろしく

>21
>>3

foreach $line (@qq) {
($a,$b,$c) = split(/<>/, $line);
if($a eq "abc") { ？？？？？？？？？？？？ }
}
foreachで配列を処理します。$aが、abcだった場合、現在処理中の
配列のセット（$a,$b,$c）ごと削除したいんです。
説明わかりにくくてすみませんが、どうすればいいですか？

>14
これ使って自分でモジュールを作れ。
http://www.vector.co.jp/soft/win95/util/se032901.html

>>23
delete

>>25
赤らくだ本によると、それだと連想配列が対象になるんじゃ？

splice とかは？

連想配列…久しい名だ。
そもそも、23ってwhileの方が…
それか
foreach(@qq){
($a,$b,$c) = split(/<>/, $line{$_});
~~~

>>27連想配列なら keys は要らないの？

w2k + httpd + cgi_perl + DBI + posgre7.2 の質問です

DBIをどのように設定したらいいかわかりません

>>29
こんな投げ遣りな質問久しぶりだ。
君を第一級教えて君に認定しよう！

>>29
どのように答えたらいいかわかりません

>>30-31
まぁまぁ。それが win 厨の特徴だから（藁

自分でも把握してないので、やはり厨房ですｹﾃｰ

接続ID = pg_connect("","","DB名");
これはＰＨＰの中の記述です
この書き方は何に依存しているかは不明ですが
それでこの関数でエラーがでました

httpｄ　とポスグレの状態は起動しています
どのように起動していればいいかは不明です
テーブルも作りました

ほんとに質問の仕方もわかりません

仕組みがわからないのは、ＣＧＩとデータベースの間でのやりとりです
おそらくＰＥＲＬからＤＢ関数でカーソルを得てるとおもうのですが
ＤＢ関数はナニに依存しているのか、どこに組み込めばよいのか不明です
ＶＢはＯＣＸとＯＤＢＣドライバを記述すればよかったのですが

ＶＢでＡＤＯをさわったことはあるのですがカーソルは使えます

ＰＥＲＬがカーソル機能をもっているなら、関数を書けばいいだけなのか
不明です。

誰か>>33-34の翻訳ｷﾎﾞﾝ。このままじゃ読めん。

>>35
PHPだと>>33のようにすればできたけどPerlでDBとのやりとりを行うにはどうすればいいの
他の言語だと>>34のようにできたけど。
やるための準備はできているからPerlでの記述の仕方を教えて。

きっとこんな感じだろ。

use DBI; # DBIモジュールを読込む
この書き方でＤＢＩの関数を使える

これは正しいですか？

もし正しいなら、ＤＢＩモジュールはどこに組み込めばいいのかわかりません
ＤＢＩの概要は読みましたが、どこから入手してどこに組み込むのかわかりません

決してソースのｷﾎﾞﾝﾇではないです
でもＩＮＳＥＲＴ文のひとつが実行できたらミッション完了です

よろしくおねがいします

C compilerとmakeツールを用意してCPANへGO!
つーか「モジュールとはなにか」すら理解せずにDBIを使おうとするのは間違ってます。

全角文字を半角文字に変換したいのですが、過去ログを参考に
require 'jcode.pl';
jcode::convert(\$value, 'euc');
jcode::tr(\$value, '０-９Ａ-Ｚａ-ｚ', '0-9A-Za-z');
としてみたんですがsjisにしないと文字化けするため、上記のあとの行に
&jcode'convert(*value,'sjis');
をいれてみました。ですが全然変換されない状態です。
アドバイスあればお願いします。

ｔｒとsはどこが違うんでしょうか？

ファイル文字コードをEUCで保存したらうまく変換されました。。
EUC以外の方法はないんでしょうか？

質問です！！

リンクのCGIで入力項目を一つ増やしたのですが
ログに記録されません！
どこがおかしいのでしょうか？
http://nyanyanya.hoops.ne.jp/link.txt
増やした項目は　bun　ってゆーのです。
よろしくお願いします！！

>>39
だからウィンユーザにmakeは不要なのです

私はウィンソック担当だからCGIのインタフェースを理解して
テスト環境を構築してるのです

手順だけわかればOKですので誰かつついてくれませんか？

>>39
シフトJISだとこうかなあ。
$_ = 'ＴＢＣ個人情報３万件流出';
my @zenkaku = qw(
０ １ ２ ３ ４ ５ ６ ７ ８ ９
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ Ｌ Ｍ
Ｎ Ｏ Ｐ Ｑ Ｒ Ｓ Ｔ Ｕ Ｖ Ｗ Ｘ Ｙ Ｚ
ａ ｂ ｃ ｄ ｅ ｆ ｇ ｈ ｉ ｊ ｋ ｌ ｍ
ｎ ｏ ｐ ｑ ｒ ｓ ｔ ｕ ｖ ｗ ｘ ｙ ｚ);
my @hankaku = ("\x30".."\x39","\x41".."\x5A","\x61".."\x7A");
my %table;
@table{@zenkaku} = @hankaku;
s/(\x82[\x4F-\x9A])/$table{$1}/g;
print;

>>40
trは文字単位の置き換え。
$str1 = $str2 = 'abc abz';
$str1 =~ tr/abc/ABC/d;
$str2 =~ s/abc/ABC/g;
print "str1: ",$str1,"\n"; # ABC ABz
print "str2: ",$str2,"\n"; # ABC abz

>>43
帰れ。

>>44　ありがとうございます。感謝です！
しかしすごいですねー。

もじらのコミニュケーション能力すげーな。採用担当者を尊敬するぞ。

my @hankaku = (0..9,'A'..'Z','a'..'z');
こうでよかったね。>>44のは関係ないのと混ぜちゃった。

わかったつもりだったんですがダメだぁコードの意味がわからないです。
>>44のＴＢＣがRABに変換される仕組みを作ってるのは
s/(\x82[\x4F-\x9A])/$table{$1}/g; この一行だと思うんですが
どうしてこれだけで変な変換されるのかわからないです。
まともに変換するためにはどうすれば良いのでしょうか?
また、このコードはどうやって調べてるのでしょうか?

>>45
社会人やったらこんな質問氏ねーよ

なんてか、質問かえます、Perlにソケット関数備えてますか？

ヨロシコ

一番下のＣＧＩの部分が、うまく表示できません。
http://www.bh.wakwak.com/~min/cgi-bin/monoceros.cgi
何がいけないんでしょうか・・・
お教えいただければ幸いです。

もしかしてスレ違い・・・申し訳ありません。間違えますた。

>49
ttp://tohoho.wakusei.ne.jp/wwwperl2.htm#socket

>50
配布CGIは配布元で聞くべし。

フォームから数値を入れたPOST送信しました。
そのときのcgiが受け取った数値は文字列として受け取るの？

http://www.twin.ne.jp/~ackey/

>>48
うちだと上のままで動くから原因がわからん。
BCがABにずれるんなら、一文字ずれてるのかな。
コードは16進に変えてるだけ。検索すれ。

>>49
なんでさっきから一つズレてるの？

>>53
YES

http://pc.2ch.net/test/read.cgi/php/1019561283/444

ごめんね、マルチで

でもわかりやすいHP情報助かりました

>>55　何度もありがとうございます。ようやくできました(TДT)
>>44のをコピペしたときに　my @zenkaku = qw(のあとにつづく部分の
改行をとったんですが、そのときに半角スペースを削ってしまってました。
その影響でTBCがRABに変換されていたようで、うちの地元のTVニュース番組で
RABてのがあって、これはいったいどういうことだろう？と思い。。。
関係なくてすみません。とにかくありがとうございました。

なんにしろ解決したならいいさ。

perl5.6で、perlmodを参考にモジュール(Mymod)を作ってテストしてます。
それで、10000行の入力でdprofppを使ってプロファイルを取ってみると、
Mymod::BEGINが10000-20000回の間で呼び出されていて、
定義していないはずのmain::BEGINも10000回前後呼ばれています。
perlmodには「BEGINは1回だけ呼ばれる」と書いてあったと思うんですが。

みなさん、
タカラ（およびコナミ）との『聖戦』が始まりました！ これをコピペすれ！

コナミがタカラを買収！ 黒幕はコナミか？
http://www.mainichi.co.jp/life/hobby/game/news/news/past/200004/20000427_03.html

株式会社タカラが、「ギコ猫」を商標出願中。 (,,?Д?) 我らのギコ猫を救え！
http://www2.ipdl.jpo.go.jp/BE0/index.html の商標検索から「ギコ猫」入力
＝＝＝＝＝＝＝＝＝＝＝＝＝開始＝＝＝＝＝＝＝＝＝＝＝＝＝＝
・広報コピペ部隊 できる限り各地にのニュースを伝える 例）タカラの株式スレなど
・テンプレ部隊 関連スレ・抗議文などのテンプレを作る
・法律部隊 法的に議論、打開策を考える
・誘導部隊 各地で出てくるであろう新参にいろいろ教えてあげる
・不買運動部隊 不買運動を広めよ
・株主・IR対策部隊 株価・株主・企業活動としてのPRやIRに対する対策

Ｆ５や単なる中傷は控えめに。正々堂々と戦うのだ。

>>61
ソースみんとわからんけど。
BEGINブロックが複数あると、その数だけDProfはカウントするぞ。
あと「use Hoge;」は「BEGIN {require Hoge; import Hoge;}」に等しいから
useを使うごとにBEGINブロックが一個追加されることになる。
しかしカウント数が1万回にもなる理由はわからぬ。

log.datには5行データが書かれています。
cgiでデータを更新し、一番上（1行目）にデータを追加するのですが問題があります。
5行目のデータ（文字数）が長い場合、更新して新しいデータを追加したとき
古い五行目の余分なデータが新しい5行目のデータの最後に付いてしまっています。

open(FILE,"+<$filepath");
#処理は省略
pop @data;#6個目は削除
seek(FILE,0,0);
print FILE @data;
こんな感じでやってるのですが、最後のデータが大きいとデータが残ってしまいます。
どうやればいいのでしょうか。

>>64
seekする前にtruncate(FILE, 0);すれ。

ありがと！
できました。
そんな関数truncateがあったとは。

$ほが=~ s/�x/�x\/g;
この方法で文字化けを回避しようするとエラーがでます。
エラーをださないようにするにはどうすれば？

>67
最初からeucを使う。

>>67
消えろ。

>>68
消えなさい。

Perlで質問なんですが、
@letters 内の、重複した要素を削除する方法を教えてください。
よろしくお願いします。

>>71
perldoc -q "remove duplicate"
で定石が出てくる

＞72
すいません、よく意味が分かりません・・
もう少し詳しく教えていただけませんか？

>>71
%mita = ();
foreach $youso (@letters) {
push(@newletters, $youso) unless $mita{$youso}++;
}

perlはsjisで書けよ。これ鉄則。

>>73
perlに必ず付いてくるperldocコマンドつーのがあってな。
シェルとかDOS窓のコマンドラインから>>72みたいのを入力するわけ。
すると-qの後に指定したキーワードに関するFAQが出てくる。

ただしキーワードは英語のみ。だから「重複した要素を削除」の
方法を知りたいなら「remove duplicate elements」で検索する。

>>75
鉄則というより、なにかの罰則ですねソレ。

>>75
よく本を見ると、perlはeucで書けと書いてありますが、これはどういうことなのでしょうか。
私は秀丸で書いてるんですが、eucで保存すると、後で開いたときにすべて文字化けしてます。
「eucで書く」という行為自体がどうすることなのかよくわかりません。
みなさんｅｕｃで書かれてるんですか？

>>78
その他→動作環境→編集→文字コードの自動認識をする

サクラエディタでも使ってればぁ？(ﾟДﾟ)

>>65,66
seek前にtruncateすると、printする前に異常終了した場合データが
吹っ飛ぶんで、print後にtruncateした方が良いと思う。
Cookbookのサンプルもそうなってるし。
seek(FILE,0,0);
print FILE @data;
truncate (FILE, tell(FILE));
close(FILE);

質問です

ポスグレのDBIいれようとしたら
c:\>ppm install DBI
でインストできちゃった

なんで？
どんな仕組みになってるのかわかりません

ヨロシコ

http://www.google.co.jp/search?q=%70%70%6D%82%C6%82%CD&hl=ja&lr=
分からない事があったらとりあえず検索するクセつければぁ？(ﾟДﾟ)

>>82
すばらしい

ようやくPerlからポスグレ操作できるようになりました
あとはC言語から操作汁予定です

truncateってPerl4で使えないのかよっ！

奇怪な動作が起こってしまい、困っています。
Perlのバージョンは5.6.1です。
Text::Templateのバージョンは1.43です。

use Text::Template;
$NaviView = 'SHOW';
my $template = new Text::Template (
　　'type' => 'FILE',
　　'source' => 'test.html'
　　) or die;
print $template -> fill_in();

デスクトップでテストするとHTMLファイル内の{$NaviView}が展開されて表示されます。
しかし、cgi-bin/step8/フォルダ内だと、何故か{$NaviView}の部分が表示されません。
ソースは同じなので、原因がわからずに困っています。
どうか助けてください。

>>80
自分も調べてみたけど、そっちの方が安全性が高いみたいですね。
なんか、処理速度も速いみたいです。どうもです。

変数$Aの中に、$NO1.$NO2,$NO3・・・　という風に順番に数字を入れて処理を
繰り返したいのですがうまくいきません。どうか助けてください。変数の中に
変数というのは無理なんでしょうか？

for($m=1 ;$m <= 9 ; ++$m){
&print($m);
}
====================
sub print {
my ($i) = @_ ;
$A = "$NO$i";　　　#←この部分がやりたいことです
print = $A;
}

若輩者ですが、宜しくお願いします。

>>87
$A = "\$NO$i"; でいいのでは。って、こういうことじゃないのか?
ちなみにforの部分は、漏れはforeach(1..9)と書くのが好き。

>>87
ソフトリファレンスで $A = ${"NO$i"};
つーかハッシュ使えよ…

>>63
レスどうもでした。それと遅レスすいませんです。
tmon.outにはBEGINが数万回記録されていたのに、
BEGINにprint文を入れてみたら1回しか出力されなかったので、
DProfのバグということで落ちついてみます。
本当のところは知らないですが。

>>88さん >>89さん
どうも有難うございました。まだまだ勉強不足ですので頑張ります！

>88
過去スレで出たんだけど、foreachよりもforの方がいいらしい。
foreach(1..9)だと、@_ = (1,2.3,4,5,6,7,8,9);みたいな一時配列を作ってから処理をするからメモリを食うんだと。
まぁ、この程度の数値なら差はないだろうけど、
for($i=0;$i<10000;$i++)
foreach(0 .. 10000)
くらいになると差が出るんじゃないかな？

ちょっと追加。。。
#!/usr/bin/perl -w
use strict;
sub LIMIT { 10000 }
for (my $i = 0; $i < LIMIT; $i++) {
}
print "end\n";

このソースで下の測定結果になります。
Total Elapsed Time = 0.019991 Seconds
　User+System Time = 0.019991 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
150. 　0.030　0.025　10002 　0.0000 0.0000 main::BEGIN
0.00 　0.000 -0.000　　　1 　0.0000　　　- strict::import
0.00 　0.000 -0.000　　　1 　0.0000　　　- strict::bits

>>92
過去のバージョンでは確かにそうだったが、
5.005の時点で最適化されたため、今や foreach(n .. m) の方が早い。
あやふやな知識は試してみてから外に出そうな。

>>92
それはPerl4とかの話でしょ。
今はもう一時配列作っていないから心配ないよ。
ちなみに0 .. 10000のほうが速い。ってperlsynに書いてある。

10分も経っているのにかぶった。ｽﾏｿ。

>>93
すまんがわからん。さっぱりわからん。
俺も幾つか試してみたけど、まるで納得いかない結果になったよ。
多分どこかにバグがあるのは間違いないと思う。

>>93
5.6.0では

Total Elapsed Time = -0.85246 Seconds
User+System Time = 0 Seconds
Exclusive Times
%Time ExclSec CumulS #Calls sec/call Csec/c Name
0.00 0.575 0.105 10001 0.0001 0.0000 main::LIMIT
0.00 0.008 0.008 1 0.0077 0.0076 main::BEGIN
0.00 0.000 -0.000 1 0.0000 - strict::import
0.00 0.000 -0.000 1 0.0000 - strict::bits
Elapsed以外は正しく見えるが...

perltocにdprofpp(utility change)と書いてあるから古いの使ってるんじゃないのか?

>>98
俺のはPerl5.6.1(ActivePerl631) Devel::Dprof 20000000.00_00 だ。

このコードはどうだろう。
俺の環境では、なぜか use ...; をコメントアウトするとまともに動くのだが。

#!perl -w
use less; # strictとかでも同様。lessを選択したのは何の効果も無いプラグマだから

sub limit{ 100 }
sub LIMIT{ &limit }
for(my $i = 0; $i < LIMIT; $i++){}

>>97-98
レスどうもです。
ええと、perl -versionは5.6.1だったです。dprofppのバージョンは分かりませんでした。
SerioWare GNU/Linux 0.35A附属のものを使っています。

で、この環境では>>99と少し違って、
ちょうど>>94とかぶってたので、forとforeachを調べてみたら、
#!/usr/bin/perl -w
use strict;
for (my $i = 0; $i < 1000000; $i++) {
}
これだとBEGINは1回呼ばれるだけだったです。

>94-95
それは知らなかった、サンクス。

もっとも、漏れのプロバのスペースはいまだにPerl4なんだけどな。(涙ｯｼｭ

>>99
ActivePerl 5.6.1でやってみた。結果は異常。

>>98はFreeBSD上の5.6.0。こいつのdprofppにActivePerlで作ったtmon.outを
食わせてみると、ActivePerlと結果同じ。 Devel::DProfのバグっぽい。

文字コードがs-jisになっている掲示板はCGIもs-jisで書かれてるんですか？
出力だけs-jisに変換してるんですか？

http://www.wdic.org/?word=CGI+%3AWDIC

>>101 そんなISPやめてしまえ。きっとsuidperlの穴放置で特権取れる。

>>92
しかもfor(my $x; $x < $limit; $x++ ) は本当はwhileだという罠

perl -MO=Deparse,-x3 -e 'for(my $x; $x < 100; $x++){ print "barf\n" }'
my $x;
while( $x < 100 ) {
print "barf\n";
}
continue {
++$x;
}
-e syntax OK

おまけ。両方ともレキシカル$xを持つようにしてみました：

use Benchmark qw/ cmpthese /;

sub cstyle
{
my $a = 0;
for( my $x = 0; $x < 1000; $x++ ) {
$a++;
}
}

sub pstyle
{
my $a = 0;
for my $x ( 0..999 ) {
$a++;
}
}

cmpthese(
100000,
{
cstyle => \&cstyle,
pstyle => \&pstyle
}
);

Benchmark: timing 100000 iterations of cstyle, pstyle...
cstyle: 95 wallclock secs (94.13 usr + 0.01 sys = 94.14 CPU) @ 1062.25/s (n=100000)
pstyle: 72 wallclock secs (71.58 usr + 0.02 sys = 71.60 CPU) @ 1396.65/s (n=100000)
Rate cstyle pstyle
cstyle 1062/s -- -24%
pstyle 1397/s 31% --

自己解決しました。
myで宣言してたのがいけなかったようです。
use strictをコメントアウトしたらうまくいきました。

>>108
おい、どこが"ソースは同じ"だよ…
それじゃ誰もアドバイスできなくて当然だろ！

perlで、パスワードを入力してログイン、ログアウトする機能は作れますか？クッキー使うんですか？

>>110
当然作れる。クッキーは使用してもしなくても作れる。

>>111
ん、じゃあどうやって、その人がログインしているのかどうかを判定するんだろ。。。。
んーーーーーーーー。

>>112
HTTPベースの技術でログオン、ログアウトの概念って非常に難しいと思われ。

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数：105420人　発行日：2002/05/030
どもども、風薫る５月ワキガも香るひろゆきですー。

今日はどうしても報告したいことがあるですよー。
東京地裁の顔になりつつある今日この頃ですが、最近裁判官がおいらを露骨に馬鹿にするですよー。
裁判を傍聴している人は既にご存知でしょうが、ついこの前は、おいらのことを
「あなたは売春クラブの経営者みたいな言い訳をしますね」
なんて言いやがったですよー。
どうやら売春クラブの経営者は警察に捕まると必ず
「出会いの場を提供しただけだ」
と、見苦しい言い訳をするらしいですよー。。。
そんなセコイ奴等とおいらを並べて語るとは悔しいけど、ストライクですー。。。えぇえぇ、、、

確かにおいらは企業や公人の誹謗中傷を禁止していませんし、削除もしません。
その上、「発信元は判らない」を看板とし、悪質な書き込みをし易い環境を提供し、いやむしろそれを売りにしようと目論んでいますが、そんなことはおいらのｸﾁﾋﾞﾙの厚さとは関係ないですよー。。。

ところで、中央大卒のおいらの同級生達がおいらのことを「宅八郎みたいな奴」と罵っているって本当ですか？。。。うぅうぅ、、、

んじゃ！

jcode.plのコードをコピペして組み込んでもいいですか？

>>115
ダウンロードする奴の80％に失笑を買われると思うけどね。

>>112
中途半端な質問だから一般的な回答をもらったのに、脳内変換するなよ。
ユーザ個別にという前提で聞いてないじゃないだろ。
その場合はユニークなIDとセットで行うのが普通だし、判定なんて
簡単な話じゃないの。

あほな質問かもしれませんが、任意の名前でファイルを作成する
コマンドを教えてもらえないでしょうか？
私の調べた範囲ではわからなかったのでお願いします。

open

>>118
open関数

ahya.

ついでといってはなんですがidを？？？にする方法教えてください。

>>117
もっとわかりやすく言え！

>122
メール欄にsage

cgiのソ−スを見られないようにする方法は？

>>125
見られたの？どうやって？
あまり無駄な心配しないほうがいいですよ。

>>122 = >>125

このたび身の程もわきまえずNTサーバを立ち上げました。
内容は当方のデータベース内にある情報の中で、各人に必要なものを検索し、
見ていただくというものです。
データはCSVファイルになっております。

そこで質問なのですが、たとえばCSVファイルが
１列目はお店の名前
２列目は「とんこつ」または「しょうゆ」または「しお」
３列目はお店の所在地（都道府県）
という具合に記述されているとします。

このとき当サイトを見た人が、チェックボックスの「東京」「とんこつ」
にチェックを入れて検索をかければ該当するお店がHTMLファイルに出力
されるようにしたいのです。

私はまず何から手を付ければよいでしょう？
ちなみに恥ずかしながらプログラミングの知識はほとんどありません。
「そういうプログラムあるよ」とか「まずこの本買って勉強しなさい」とか
何でもいいですから情報をいただけるとありがたいです。

>>128
レスキューの簡易データベースでも使っちょれ
http://www.rescue.ne.jp/cgi/database/

http://pc.2ch.net/test/read.cgi/prog/1023283683/

から来ました。板違いという指摘があってコチラに誘導させてもらいました。
ここのスレで勉強させてください。
よろしくお願いします。

>>130
HPBにMe…
ｷﾀ━━━━(ﾟ∀ﾟ)━━━━ !!!
で、何を御所望?
まさか、この辺鄙な板の真っ当なｽﾚまでﾈﾀｽﾚに!?

>>131　ん・・・

>>131　ビルダーもＭｅでもないです。
あれは使いまわしなので古い内容ですね。

今はタグ打ち、ＸＰプロフェッショナル/２０００/ＮＴの３機の環境です。
あ、自宅はＭｅですが、、、、

ネタスレ、ネタスレと言いますがネタじゃないです。
まじめに勉強しようと思ってますよ。
今、スレ一覧とかみてよいＣＧＩサイトとか
お気に入りにいれました。参考にさせてもらいました。
ありがとうございます。
頑張って調べてそれでもわからなかったら力添えよろしくお願いします。
失礼します。

>>125
心配なら、ScriptAliasでdocumentrootの外に置くといいでしょう。

$a =~ /$b/
↑こんな時、$b をリテラルとして扱う方法ってある？

>>133
ネタスレと言われるのは、単発で立てたからだろ。
まじめに勉強したいならしばらくは2ch外でお勉強した方がいいと思う。

質問するなら>>1の内容を5回くらい声に出してからしてくれな

>>135
ﾊｧ？
まさか
$a =~ m'$b';
とか
$a =~ /\$b/;
とかしたいって意味じゃないよな。
そんなのどんなクソな参考書でも絶対載ってるもんな。
もっとちゃんと説明しねーとワケわかんねーよヴォケ、とだけ逝っておく。

>>136 ハッキリ言って、>>137 みたいな質の低い解答者の答えしか載っていない過去ログなんて価値ねぇよ

>>135=>>138

>>139 俺は >>135 じゃないけど？

俺が言いたかったのは、たまたま見た >>137 の様な人間がなってないような
解答者しかいねぇなって皮肉ったって事。

>>140
つまり貴方は
　　>>135の方が>>138より人として優れている
と、こういいたいわけだ。

まぁ、あれだ。井の中の蛙、五十歩百歩

と、収まったところで次の方どうぞ〜
以下の要点を抑えないとまともに答えてもらえないので注意ですよ。

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

めちゃめちゃアホくさい質問ですいませーん。

if ($a == 1) { &b }
if ($a == 2) { &b }
if ($a == 4) { &b }

これを短くするにはどうすればいいですか？？ｍ（＿＿）ｍ

>>144
悪いことは言わない、良書買って勉強しろ。

&b if ($a == 1 or $a == 2 or $a == 4);

>>145さんありがとう！
がんばって勉強しまーす。ｍ（＿＿）ｍ

あが

投稿内容に適度に改行が含まれているかどうか判定する
ｻﾌﾞﾙｰﾁﾝを作りたいんですが今の知識では書けませんです。
ちなみに仕様上、tableで囲うとかしたくないのです。
ちなみに改行は\rでやっております（どうでもいいですか）。

投稿内容のバイト数をチェックして
その中の\rの数を出して
何文字か毎に割ればいいように思うんですが…
もし良ければ教えてくらさい

>>148
＞適度に改行が含まれている
んなファジーに「適度」いわれてもわからんのじゃｺﾞﾙｱ。

tableで囲いたくないつーと、１行の文字数は不定つーことかな？
1行の文字数ってか横幅を固定せずに「適度な改行」を判定するなんてこた、
おそらく不可能だと思うが。もすこし詳しく条件を述べたまへ。

えと、想定してるｲﾒｰｼﾞなんだけど
改行符(\r)無しで○○文字以上文字が続いていたらエラー、という
式を書きたいわけです。

ちなみにたったいま

$comment =~ s/(.*)\r/$1\r/ig;
$oneline = $1;

return $oneline;

で、$onelineが>100だったらエラー、というのを書いてみたんだけど
上手く機能しませんでした

この100って数字は適当なんでどうでもいいです。
要はこの数字がtableで言うところのwidthの役割にはなるかなと
思ったんですが駄目かなぁ

以下の処理を見ていて論理演算子が分からなくなってしまったので教えて下さい。

前提：
4年に一度は閏年
でも100年毎は閏年ではない
ただし400年毎は閏年

@months = ("0", "31", "28", "31", "30", "31", "30", "31", "31", "30", "31", "30", "31");
if (($year%4) == "0" || ($year%100) != "0" && ($year%400) == "0") { $months[2] = "20"; }

三つの式が『||』と『&&』の二つの論理演算子でifの条件文が作られているわけ
ですが、『($year%4) == "0"』と『($year%100) != "0"』と『($year%400) == "0"』の関
係と、その中での『||』と『&&』の関係が知りたいです。

上述のif条件文だとうまく処理されないのに、条件文を
(($year%4) == "0" || ($year%100) != "0" and ($year%400) == "0")
もしくは
((($year%4) == "0" || ($year%100)) != "0" && ($year%400) == "0")

にするとうまくいくんです…。

参考書に書いてある優先順位の意味も分からないし…。

宜しくお願いします。

>>150
100文字ごとにbr要素ぶちこんで改行するとかでどうじゃろ？
それならPerlメモ(>>3見れ)にある
日本語を特定の長さで折り返す方法が参考になった記憶あり。

>>151
おなじアンド演算でも、
&& と || だったら、&&をに計算、次に||を計算する。
and と || だたら、||が先で、次にandを計算する。
こういうふうに、どっちが先に計算されるかってのが優先順位だよ。
わからなかったらカッコ使え。

言葉の使い方解らない質問者＆解答者多過ぎ。なんで、part13 建ったのか不思議だな。

>>150
>改行符(\r)無しで○○文字以上文字が続いていたらエラー
簡単に○○バイトで。
print "Error\n" if $comment =~ /[^\r]{10,}/;

嫌なら152の人の示したリンクに飛んでみるとか。

>>151
もし使えるのだったらDate::Calcを使うべし。もうすでに誰かが
書いてあるものならば素直にそれを使うべし。

使えないのだったらもう少しキレイに書けば問題も自然となくなります。

## 多分 $month, $yearをもってきてその月の日数を出したいのだろう
## と仮定・・・

our @MONTHS = qw/ 0 31 28 31 30 31 30 31 31 30 31 30 31 /;
sub get_max_days
{
my( $year, $month ) = @_;
if( $month == 2 && is_leap_year($year, $month) ) {
return 29;
} else {
return $MONTHS[ $month ];
}
}

sub is_leap_year
{
my( $year, $month ) = @_;

if( $month == 2 && $year % 4 == 0 ) {
if( $year % 100 == 0 ) {
return $year % 400 == 0;
}
return 1;
}
return 0;
}

>>154
まあ凝るならchasenを使って文節のきりのいいところで
改行するということで。

>>151
あと文字列と==を混ぜるのはやめとき。

print "equal!\n" if "a" == "0";

==は数値、eqは文字列。まぁ151のコードだととりあえず関係ないけど。

>>155
些細なことだが、"閏年かどうか"は
引数の月が二月であるかどうかとは無関係だろ？

ついでだからもっと単純に実装してみる

これは
"yearが4で割り切れる、かつ、$yearが100で割り切れない
　または、$yearが400で割り切れる場合、真を返す"
と読む

sub leap_year
{
my $year = shift;
return $year % 4 == 0 && $year % 100 != 0 || $year % 400 == 0;
}

>>158
ああ、そういえばそうだった（笑）

PerlMagickを使ってGIF画像のリサイズをしたいのですが、
コマンドプロンプトからは動作するのに、ブラウザからは
動作しません。

#### ソース ####
sub ImageProcessing {
local($infilename,$outfilename,$width,$height) = @_;

$image = Image::Magick->new;
$image->Read($infilename);
$image->Scale(width=>$width,height=>$height);
$image->Write($outfilename);
}
ソースに問題はないと思いますが、
$image->Read($infilename);
でファイルが読めてないようです。このcgiファイルと同じディレクトリに
読み込む画像があるのですが、エラーでは画像がないと返ってきます。
この問題が分かる方、是非ご教授お願いいたします。

//// 環境 ////
Windows2k
Apache1.3.24
ActivePerl
PerlMagick

質問なんですが。
フォームの内容を、フォームとsubmit ボタンを2つづつ使って、
別々のcgiに選んで渡すことはできるんでしょうか？

form1
form2
内容
submit 1
submit 2

みたいな感じで、できるとうれしいのですが。

>>161
できるでしょう

>>162
name 属性をそれぞれそろえても駄目ですよね？
具体的な方法を教えてもらえると、とてもうれしいです

あ、ネストしてるんですね。ごめんなさい、できないっす。

>161
JavaScript使え。

>>165
具体的な方法っていってんじゃんよ

>>166
何だ、その態度は。
JavaScript なら板違いだ。

>>167
いちお言っておきますが。166は私ではありません。念のため・・・。

>166
>163では>162に対するレスとしてその方法を聞いてるように見えたから>165では>161へのレスとしてああ書いた。
そして>167の言うように板違いだから詳細には触れなかった。

解答者は人間やり直せ。

いらっしゃーい、Perlの「コーディング」で困ってる人のスレです。

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

1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。

>>161 こんな感じ。
確かに板違いだが、今後同じ疑問をもつ人もいるだろうし
ぐちぐちいうぐらいなら、やり方教えてやったほうが早い。

<HTML LANG="ja">
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>

<FORM ACTION="" NAME="MyForm">
<INPUT TYPE="BUTTON" VALUE="送信１" onClick="MyForm.action='hoge.cgi';MyForm.submit();">
<INPUT TYPE="BUTTON" VALUE="送信２" onClick="MyForm.action='fuga.cgi';MyForm.submit();">
</FORM>

</BODY>
</HTML>

>>167
板の事忘れてたｽﾏｿ

でも、それなら質問自体がイタチ害でわ？

すべての1バイト文字と2バイト文字を配列にしたいんだけどどうすればいいの？

>173
「Perlでできますか？」と聞いてるから問題はない。
「JavaScriptならできるから、そっちで聞け」と答えているなら、それも間違いではない。
「Perlではできない」とだけ答えるよりむしろ親切。

>>172 無駄。どうせ、質問者は過去ログなんて見ない。

>>174

$EUC_JP_ = '[\x00-\x7F]|[\xA1-\xFE][\xA1-\xFE]|\x8E[\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE]';
@chars = ($str =~ /($EUC_JP_)/g);

よくわからんがこういうことかな？

>>174
質問が意味不明です。
だが、とりあえずここ逝け
http://www.din.or.jp/~ohzaki/perl.htm

perlのデバッグはどうすればいいんでしょうか・・・
Delphiのような総合開発環境がないので、どこが悪いのか探すのだけで直ぐ数時間ふっとびます・・・
効率のいい手法などあるのでしょうか？

>>179
古典的だがprintデバグ(wara
dieとか使えばデバグが楽になるらしいよ。

>>179
まずは
perldoc perldebug

当然-wスイッチとuse strictは必須

で、デバッグ機能としては…

perl -d script.pl # ビルトインCUIデバッガ
perl -d:ptkdb # GUIデバッガ Devel::ptkdbをインストールする必要あり
perl -d:Dprof script.pl ; dprofpp # Devel::Dprof プロファイラ
perl -MO=Deparse script.pl # オプティマイズの様子を見る　ただしかなり不完全


ざっと見てこんなもんかな。

>>179 emacs de perldb

open() or die の定番処理で、dieのところで複数の処理を入れた
かったんで実験したら、コンマで繋ぐと上手く行くことがわかった。
例：open() or print "エラーしますた\n", return;
このコンマの意味って、Perl的にどういう意味？

>>183
コンマ演算子は式を左から順に評価し、最も右の式の値を返す。
voidコンテキストだと単に左から順に式を評価するだけ。
print("a"), print("b")
これはprint("a")を実行した後、print("b")を実行せよ、ということ。

ただし>>183は少し違う。
この場合はprintを"エラーしますた\n"とreturnの返り値の二つの引数で呼び出している。
ただしreturnは値を返さず呼び出し元に戻るから、"上手く行く"はずはないんだが…

10ずつ上げるカウンターを作ってるんですが
$count++;
の時は1ずつ上がっていたのに
$count+10;
にすると10ずつ上がるどころか全くカウンターが変わりません、
何かやりかたあるのでしょうか？

>>184
即レスどうもです。ラクダ本のコンマ演算子は読んだんですが、
左から順に評価し、は、実行すると言う意味なのね。
ちなみに、昨日の事を記憶で書いたので、今見直したら return
じゃなくて print, redo LABEL;でした。return は実験したか
記憶に無い。鬱

>>185
$count += 10;

>>187
ありがとうございます！

掲示板スクリプトでリモートホストを取得したいのですが
何をやってもIPアドレスの方が取得されてしまいます。

$host = $ENV{'REMOTE_HOST};
これ一行だけにすると、何も取得出来ず･･･。

サーバがそういう設定にしているのか･･･。
どうすればいいのでしょうか？

>189
サーバーの設定によっては使えない。

>>190
返答ありがとうごさいます。

今使っているところは米tripod、あそこはダメか･･･

>>189
if ( $ENV{'REMOTE_HOST'} ne '' ) {
　$host = $ENV{'REMOTE_HOST'};
}
else {
　$host = $ENV{'REMOTE_ADDR'};
}

>>192
そのように設定して、自分のリモホを見たら
10.10.17.178とか表示されました･･･。
どこのIPだ。しかも表示させたいのはリモートホストだし。

tripod逝ってよし

KENTさんの掲示板で試してみても同じ結果だ。
これはサーバの設定だな。
tripodは諦めます。

iswebとかトクトクでもダメだった記憶が。。
XREAなら gethostbyaddr 関数でホストが取れたと思う。

掲示板の検索部分を改造しようと思い半角カナ−＞全角カナはjcode.plで出来たのですが
全角カナ−＞ひらがなへの変換は出来ないのでしょうか？だれか教えて下さい。

$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq "" || $host eq "$addr") {
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
}
if ($host eq "") { $host = $addr; }

>>196
jcode.plならtr関数が使えたと思う。
jcode::tr(\$str, 'ァ-ン', 'ぁ-ん');

もしかしてShift_JISには未対応だったかも。
だめだったら自分で変換用のハッシュでも定義して変換しる。

>>198
返答ありがとうございます。
jcode.plのソースには「Code must be JIS or EUC」とあったので
&jcode'sjis2euc(*ss);
&jcode'tr(*ss, 'ァ-ン','ぁ-ん');
&jcode'euc2sjis(*ss);
こう記述したのですが無理でした。
もしかしてとんちんかんな事を書いてますか？

>>199
'ァ-ン', ぁ-ん'の部分もEUC-JPであるとしたら、正直お手上げです。

>>196
199＋200の考えでいいと思いますよ。
'ァ-ン', 'ぁ-ん'をEUC-JPの文字コードで書けばいいんじゃない？
&jcode'tr(*s, "\xHH\xHH-\xHH\xHH", "\xHH\xHH-\xHH\xHH");
HHのとこは16進の文字コードで。

if (($sec eq "1")or($sec eq "2")or($sec eq "3")){

上の"1" "2" "3"を一つの()内にまとめる書き方ありますか？

>>202
簡単な方法は、無い。
1,2,3...が多い場合は、ハッシュを使えば若干パフォーマンスは上がるかもね。

use constant true => 1;
%tbl = (
1 => true,
2 => true,
3 => true,
);

if($tbl{$x}){ ... }

>>201
有り難うございます。早速やってみたところ
カタカナとひらがなを相互に変換してしまいます。
カタカナはひらがなへ、ひらがなはそのままにしたいのですが…

&jcode'sjis2euc(*ss);
&jcode'tr(*ss, "\xa5\xa1-\xa5\xf3", "\xa4\xa1-\xa4\xf3");
&jcode'euc2sjis(*ss);

月に２回定刻に起こる条件をifで表したいのですが
第２土曜７時、みたいな感じで・・・

$sec =~ m/^[123]$/

>>205
…月１回じゃん

なんであーんあーん逝ってるんですか？
悶えてるんですか？
ﾊｧﾊｧ・・・・

遅くなりました。

>>152
>>155
>>157
>>158
ありがとうございました。

モジュールなどは使用しないで、ファイルをアップロード出来るフォームを作りたくて、
サンプルなどを見て研究していたのですが、仕組みがよくわかりません。
ファイルを指定する→送信ボタンを押す→指定したフォルダにファイルが保存される
という一番シンプルなソースコードを、どなたか示していただけませんでしょうか。

>210
ttp://tohoho.wakusei.ne.jp/lng/199808/98080055.htm
これが参考になるかな？

質問なんですが、CGIの置き方自体が判らないのです
DL・解凍したのはいいのですが、どうすればいいのでしょうか？

コマンド上から"a.exe start"と入力すると
"3 + 5 は？"などと返し、
続いて"8"を入力すると"正解"と返すa.exeがあるとします。
このa.exeをPerlスクリプトから
実行するにはどのようにするのでしょうか？

>>213
use IPC::Open2

>212
配布元サイトで聞く。
大体は配布場所に書いてあるだろう。
少なくともこのスレで聞くのは間違い。

>>212
板違い。初心者板池

始めの一歩と思いカウンターを作って見たんですが、おかしな所が２箇所程あります。

１.ロック処理
　 カウントファイルを参照できない場合ロックしたまま解除しない。
２."$count_file"を、うまく参照しない。
例）$count_file = "./count.dat";　　OK
$count_file = "dat/count.dat";　NG

###################################################
sub count {
#-日時
&form_decord;
#-ホスト
&get_HostAgent;
#-バックアップ用のファイルを開く
open(IN,"$count_file") || &error("カウントファイルエラー");
$ac_data = <IN>;
close(IN);
($ac_count,$ac_ip,$ac_today,$ac_yes,$ac_day) = split(/\t/, $ac_data);

#今日/昨日のアクセス数の設定
if ($mday ne $ac_day) {
$ac_yes = $ac_today;
$ac_today = 0;
}
#-ロック開始
&lock1;

続き

#-２重カウント許可
if ($bak_ip){
$ac_count = $ac_count + 1;
$ac_today = $ac_today + 1;
}
#-不許可（IPアドレスで判断）
elsif ($ac_ip ne $Addr) {
$ac_count = $ac_count + 1;
$ac_today = $ac_today + 1;
}

#-ファイルに書き込む
open(IN,">$count_file") || &error("カウントファイルに書き込むことができません。");
print IN "$ac_count\t$Addr\t$ac_today\t$ac_yes\t$mday";
close(IN);
#-ロック解除
&lock2;
}

どこがおかしいでしょうか？？

>217-218
ロックに問題があるのに、その部分のサブルーチンは出さないわけ？

まず、これがオカシイな…
【リテラル】で指定しよう

$count_file = './count.dat';　　OK
$count_file = 'dat/count.dat';　OK

>>217-218

＞#-日時
＞&form_decord;
カウンタにデコードはいりませんよね・・？（しかもdecodeのつづりがまちがってる）
おそらくBBSかどっかからのコピペでしょうか。

自作の前にまずはKENTさんのソースをよく読みましょう（Perl神ですので）
http://www.kent-web.com/count/index.html

>219-220

$count_file = './count.dat';　
これが原因でした。参照できない場合でもerror後ロック解除できました。
アリガトウございます

>>221
勉強してきます

今までファイルロックなんてしなくてもファイル壊れたことないんですけど、
壊れることってどれくらいあるんですか？

>224
運次第。
あと、人気次第。
要するに「同時アクセスが発生するか否か」の問題だから、運が悪ければ
たった二人の来客でもファイルが壊れるし、運がよければ数兆のアクセスが
あっても壊れない。
しかし、アクセスが多ければ確率的にその事故は起こりやすくなる。

ついでに言うと、コーディングの話じゃないからスレ違い。

>>155さんや>>158さんが新しい問題をくださいまして、またどうしても分からな
くなったので質問です。
今回は『return』についてです。

$year = "2000";
$month = "2";
@MONTHS = qw/0 31 28 31 30 31 30 31 31 30 31 30 31/;
$MONTHS[$month] = &feb($year, $month);
print "$MONTHS[$month]\n";

sub feb {
my ($year, $month) = @_;
if ($month == "2" and &rule($year, $month)) { return 29; }
else { $MONTHS[$month]; }
}

sub rule {
my $year = shift;
return (($year%4) == "0" || ($year%100) != "0" and ($year%400) == "0");
}


サブルーチンからのreturn返り値はどこに戻るのでしょうか。
とりあえず出力するために$MONTHS[$month]に代入することにしましたが、もっ
とシンプルな方法はあるんですか？つまり3行目に示したように代入する先を
$MONTHS[$month]と指定しなくてもよい$_のような特殊変数があるとか…。
また、>>155さんは以下のようにreturnを三つも使っておられますが、この文だ
と結局閏年であってもそうではなくても返り値は0、すなわちこの処理の場合は
常に『偽』が返ると思うのですが、間違ってますか？

sub leap_year {
my( $year, $month ) = @_;
if( $month == 2 && $year % 4 == 0 ) {
if( $year % 100 == 0 ) { return $year % 400 == 0;}
return 1;
}
return 0;
}

>>226
> 常に『偽』が返ると思うのですが、間違ってますか？

return $year % 400 == 0; は、まぁ置いといても、
return 1; を無視するのはなぜ？

なんで、文字列比較に == 比較演算子使ってるの？

>>226
>return返り値はどこに
&feb($year, $month); と &rule($year, $month)のトコ
>シンプルな方法
print feb($year, $month);
>returnを三つも
returnで返した時点でサブルーチンはオシマイ

＞225
丁寧にどうもありがとうございます。。
スレ違い。。確かにそうですね、今後気をつけます。。

>>151
間違ってます。
前に書かれたけど、月の値は意味がないからそれさえ省けば
ちゃんと閏年を返すよ。

## まず月を抜かして・・・
sub leap_year
{
if( $year % 4 == 0 ) {
if( $year % 100 == 0 ) {
return $year % 400 == 0;
}
return 1;
}
return 0;
}

foreach my $year ( qw/ 1900 1940 1980 1995 2000 2002 2004 / ) {
print "$year = ";
print leap_year($year) ? "leap year\n" : "NOT leap year\n";
}

あー、くそ。
>>151じゃなくて>>226だった

$ENV{'REMOTE_ADDR'}　＝　$env{'remote_addr'}　としても使えますか？

>>233
使えません。

>>234
試してみれば一発だろうに…

jperl5+IIS5.0+SSLな環境でファイルを
アップロードさせたいのですが、
6KBぐらいの小さいファイルだとアップ
できるのですがそれ以上大きいのだと
アップロードできず、IEだと「ファイルが
見つかりません」のエラーになります。

＃ ちなみにSSLでなくても120KBまでしか
＃ だめなようです。

同じような問題にあたった方いらっしゃいますか？

perlについて質問です。

月の最後の日が簡単に分かる関数がありますでしょうか？
ありましたら教えて頂きないでしょうか？
また、ない場合は、一番サーバーに負荷を掛けずに（軽い）同じ動作を
させるにはどうすればよいか教えて頂けないでしょうか？

自分なりにも考えてみました。
for ( $i = $mday ; ; $i++ ) {
( $k_sec , $k_min , $k_hour , $k_mday , $k_mon , $k_year , $k_day ) = localtime( time + $i * 24 * 3600 );
if ( $k_mon != $mon ){
last;
}
}

追加です。

うるう年は、考えることとします。
そうでなければ、３１日の月と３０日の月、２８日の月と３つに分けてしまえば
簡単にできてしまいます。

よろしくお願いします。

>237
まず、うるう年をどうするか。
はっきり言って、配列にでも月ごとの日数を入れるのが一番軽い。
@monthday = (0,31,28,31,30,31,30,31,31,30,31,30,31);
これにうるう年の処理を加えるだけ。
わざわざスクリプトに計算させる必要性はあるのか？
宿題とか？

>238
じゃあ、うるう年をどう考えるのか。
今年の２月の日数で求めるのか。
去年の２月の日数を求めるのか。
指定した年の２月の日数を見るのか。

>>239
どうもです。
その月の最後の日（日数）を知ることができる関数が知りたかったです。
それがあれば、一番簡単ですから・・・。
でも、ないようですので、 >>239の方法が一番よいようですね。

>>240
「今」の月の日数を知りたいです。

あと、用途は、プログラムを組んでいて、月の最後の日の２３時〜２４時だけは
違う画面を表示させるというものです。

@monthday = (0,31,28,31,30,31,30,31,31,30,31,30,31);
$day = $monthday[$mon];
if($mon == 2 && $year % 4 == 0 && ($year % 100 != 0 || $year % 400 == 0)){
  $day = 29;
}
print qq($year $mon/$day<br>\n);

関数はないからこれが一番簡単かな？

しかし、>242のいうのならもっと簡単。
( $k_sec , $k_min , $k_hour , $k_mday , $k_mon , $k_year , $k_day ) = localtime(time);
@localtime = localtime(time+3600);
if($localtime[4] != $k_mon){
  print qq(違う画面);
}

月の最後の１時間を判定するだけなら、これで十分じゃない？

>>243
どうもありがとうございました。

あるメールマガジン発行CGIをダウンロードして設置してみました。
ところが、デフォルトの登録ユーザーファイルが、usr.datという名前になっていて、そのファイルを決め打ちでアクセスすると、登録している人のemailアドレスが見れてしまうのです。
外部から見れないようにしたいのですが、そのCGIの説明書では、パーミッションは666にしろ、と書いてあります。
660ではだめなのでしょうか。
それか、ファイル名をaoeriuyba8.datとか、暗号のような名前にすればいいかもしれませんが、探検君とかで見つかりそうな気がします。

>245
拡張子を.cgiにしとけ。

いや、そもそも Perl の話題じゃないんだYO!

とりあえず設置鯖の仕様(.htaccess可?)を確認しろや
続きは適切なスレでやれ

151です。
ヒントを下さった>>227
『exit』と同じようなものと教えてくれた>>229
例を示してくださった>>231

returnの機能のついでに、評価式の作りかた、それによる分岐のさせかたまで勉
強できました。

後は閏年の数字の関係です…。
400が絡むということは必ず100で割り切れるということだから…
うーん。
この辺は自分で解決します。

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

質問です。
一時ファイル(./tmp/*.tmp)を全削除するのに、
opendir(DIR, "./tmp/");
while ($filename = readdir(DIR)) {
　if ($filename =~ /\.tmp$/) {
　　unlink("./tmp/$filename");
　}
}
としてみたが、同じ事を Taintモード下で実現する方法ってありますか？

詳しくしらないのだが$filenameを正規表現でキャプチャすれば
いいんじゃないの？

if( $filename =~ /^([^.]+\.tmp)$/ ) {
unlink( "./tmp/$1" );
}

>>250
ありがとうございます！勉強になりました。

$s =~ s/[^\.-z]/\./go;

と

$s =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;

って、どういうことをしているんですか？
教えてください。

あ

すみません。cgiMLの方で質問していたのですが。
よく分からないのでここでも質問させてください。
掲示板のレス機能のアルゴリズムについて考えていました。
レスをスレに追加して、そのスレをトップに持っていく処理です。
最適な方法やスマートな方法がありましたら教えてください。

・以下、現在考えているアルゴリズムです。
#ターゲット親記事番号
$targetnum = 1;
#テスト用書き込みレス記事 [記事通し番号,レス件数]
$value = "9,0\n";

my @lines = <DATA>;
#レスを書き込み後スレッドをトップに持っていく
$linecnt = 0;
foreach(@lines)
{
($num,$resnum) = split( /\,/, $_ );
if ( $targetnum == $num ){
@sure = splice( @lines, $cnt+1, $resnum ); $resnum++;
unshift( @sure, "$num,$resnum\n" ); push( @sure, $value );
unshift( @newlog, @sure );
$linecnt = $linecnt+@sure;
}else{
push(@newlog,$_); $linecnt++;
}
}
print @newlog;
__DATA__
3,2
6,0
8,0
1,2
4,0
7,0
2,1
5,0

ごめんなさい、長すぎました。

>>254
すべてのレスを１次元配列@linesに入れてガリガリ処理すると
面倒だし、スクリプトも読みにくいと思う。
レスの配列＝スレッド、スレッドの配列＝掲示板全体
というデータ構造に直すといいんじゃないか。ちょっと書いてみた。

use strict;
my $targetnum = 1;
my $value = "9,0\n";

# ログを読む
my @threadarray;
my %index_of;
while (my $line = <DATA>) {
　　my ($num, $resnum) = split(/,/, $line);
　　$index_of{$num} = scalar(@threadarray);
　　my $thread = [$line];
　　push(@$thread, scalar(<DATA>)) while (--$resnum >= 0);
　　push(@threadarray, $thread);
}

#目的のスレッドを切り出し、レスを追加し、配列の先頭に移動
my $thread = splice(@threadarray, $index_of{$targetnum}, 1);
push(@$thread, $value);
my $resnum = (split(/,/, $thread->[0]))[1] + 1;
$thread->[0] = "$targetnum,$resnum\n";
unshift(@threadarray, $thread);

# 出力
foreach my $thread (@threadarray) {
　　print "-----\n";
　　foreach my $res (@$thread) {
　　　　print $res;
　　}
}

>>256
さっそくありがとうございます。
ソースまで示してくれて感謝。
早速、トレースして理解してみます。

ところで、ログを変更してもいいとしてもこの方法がいいと思いますか？
掲示板には全然手をつけていないので、今ならログ変更はいくらでもOKです。

>>257
そのログ形式(>>255)だと、「レスのない親記事」と「レス」は
どっちも$resnumが0になるような気がするが
どうやって区別すんの？

>>258
おっ指摘してくれてありがとう。
確かに、区別できないですね。

じゃあ resnamは、親記事自体の番号も含めてってことでおねがいします。

>>257
とりあえずその方法で突き進んで、問題あったら変更すればいいんでないの。
そのためにはログフォーマットに依存するコードは極力書かないようにしる。
行をsplitする生のコードをそこら中にちりばめたりすると、後で泣くこと必至。

↓にある「レス付き画像掲示板 imgboard」
ttp://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi
をTripodに設置したいんですが、Tripodのcgi規定に
「なお、画像は、セキュリティー上の理由から、cgi-bin以下におくと表示されませんので、
必ずTripod内のcgi-bin以外におくようにしてください。」
とあって、画像保存用ディレクトリimg-boxをcgiと同じ場所に置くことができません。
↓参考のページ
ttp://www.ba.wakwak.com/~chikura/050mypaso14gazoukeijiban.html
も見たんですがうまくいきません。
どうか解決法を教えてください。

>261
設置場所のディレクトリ構造は？

>>262
ttp://www.ba.wakwak.com/~chikura/050mypaso14gazoukeijiban.html
を参考にして、

（url）http://cgi.tripod.co.jp/ユーザー名/cgi-bin/imgboard.cgi
cgi-binフォルダの中は
imgboard.cgi,file.dat,fileback.dat,icon.dat,jcode_sj.pl,imgsize.pl,index.html
の7つのファイルが入ってて、
cgi-binフォルダと同階層にpublic_htmlフォルダを置いて、
その中に画像保存用ディレクトリimg-boxを置いてます。

>263
なるほど、、、。
まず、cgi-bin 以下には CGI および データファイルを置くようにしてみてください。
それ以外は、public_html にすべていれるという形態になるのが普通です。

>>264
cgi-binフォルダの中にはimgboard.cgi,file.dat,fileback.dat,icon.dat、
public_htmlフォルダの中にはjcode_sj.pl,imgsize.pl,index.htmlおよび画像保存用ディレクトリimg-boxフォルダを
置くというかたちになるんですか？

たった今、落として確認してみたら、この index.html ってのは
ディレクトリインデックスの隠し用だったようなので すべて cgi-bin
の中で問題ないようです。

どうやらTripodがくせもので、
>>264
「なお、画像は、セキュリティー上の理由から、cgi-bin以下におくと表示されませんので、
必ずTripod内のcgi-bin以外におくようにしてください。」
ということで、画像保存用ディレクトリimg-boxをcgiと同じ場所に置かず、
投稿画像の格納ディレクトリ($img_dir = './img-box'; # デフォルト位置)を変更しなきゃならないようなんで、
($img_dir = '/public_html/img-box'; # デフォルト位置)に変更したんですがうまくいきません。
cgiは機能してるんですが、画像がアップロードできません。
img-boxフォルダの中をのぞいても何も入ってませんでした。

ざっとスクリプトに目を通してみましたが、たったこれだけの掲示板で
６３００ ステップもあったのでゲンナリしました。

まず、画像の表示は単純に imgタグに直接画像パスを書く方法を採っている
ので HTML と CGI の置き場所が別になっているタイプのサーバではこのまま
では動きません。

>>264
Tripodはcgiを使う場合のURLが
http://cgi.tripod.co.jp/ユーザー名/cgi-bin/imgboard.cgi
普通のhtmlは
http://members.tripod.co.jp/ユーザー名/
だからHTMLとCGIの置き場所が別になっている訳ですね。
別のサーバー探すしかないか…。

おそらく １６７行目を以下に書き替えればいけると思います。

$img_dir = '/ユーザ名/public_html/img-box';

>>264
だめでした（爆）。サーバー側の問題？
配布されたcgiに「場所の指定方法は通常は相対パスで指定して下さい」とあったので、
ユーザー名は必要ないのかな？

>>264
絶対パスで正解でした。スマソ。

＜以下配布されたcgiより＞
あなたのプロバイダが、cgiとデータファイルを同じ場所に置くことが出来ない
特殊なプロバイダ(hi-ho等）で、cgiと同じディレクトリやcgi直下に保存
用ディレクトリを作れない場合、絶対パスによる指定が必要となる場合があります。
この場合、５行ほど前にある$img_dirを絶対パス*指定に書換えて下さい。

GD.pmなどのモジュールをインストールするっていうのは、そのサーバの管理者じゃなきゃできないんでしょうか？
それともディレクトリにアップロードするだけでいいの？

そしたらダメもとで以下を試してみては？

おそらく imgタグで .. がNGになる可能性あり。
$img_dir = '../public_html/img-box';

または

ソース内で img-box の存在チェックをしているのでWWWサーバのマウントポイント
からの相対パスを使えないのでダメもとでサーバのディレクトリ構造を推測して以下
のように書けばOKかも。
$img_dir = '/home/ユーザ名/public_html/img-box';

>273
モジュールって使ったことないけど以下を書いてもダメ？

BEGIN{ unshift(@INC, '.'); };

>>264
ダメでした…。
HTMLとCGIの置き場所が同じサーバー探します。
夜遅くまでご親切に、こんな初心者にお付き合いいただきありがとうございました。
すごく勉強になりました。

>>273
*.pmだけで完結してるモジュールは、275の方法でいけるんすけどね。
GD.pmの場合はバイナリコードを作らなきゃあかんかったり、
サーバにないかもしれないライブラリ（libjpeg.soとかlibpng.soとか）を
いろいろ必要とするから、モジュールだけアップロードしても99％駄目。

>>260
うんありがとう。
そうですね、splitを多発すると変更がめんどくさいので出来るだけ少なく作ります。
ログの変更を簡単に出来るように考えてつくろう。
また、質問することがあるかもしれません、その時はよろしくおねがいします。

掲示板ぽいものを作ってるんですが、
にちゃんねるみたいに「Shift_jis使ってちょ」ってやりたいんです
で、何も考えずにjcode.plのgetcodeを使ったら、
「(´･ω･`)ｼｮﾎﾞｰﾝ」をeucと認識してしまいました・・・(´･ω･`)ｼｮﾎﾞｰﾝ

半角カナが混じってても、きちんとShift_jisと認識してやるにはどうすればいいでしょうか？
Shift_jisかどうかが分かればいいです。
EUCで書かれた「汐涙維」をShift_jisと誤認識してもいいです。
# '汐涙維'(EUC) eq 'ｼｮﾎﾞｰﾝ'(SJIS)
よろしくおながいします

>>279
おれはjcode.plのgetcode関数をちょっと書き換えて
Shift_JISの文字数カウントに半角カナも含めてるよ。

$sjis += length($1) while /(($re_sjis_c)+)/go; #オリジナルのjcode.pl
↓
$sjis += length($1) while /(($re_sjis_c|$re_sjis_kana)+)/go; #修正版

EUC-JPをはねずに通す確率がめたくそ増えるけど気にしない。
あえてShift_JISを使う代償だと思ってあきらめてる。

>>280
なるほど、これはいいですね。
助かりました。
どうもアリガトウ

#!/usr/local/bin/perl
print "Content-type:text/html\n\n";

$xx = "abc";
$yy = "def";

if ( あ eq あ ) {
print $xx
} else {
print &yy
}

このようにしても$xxは表示されないのですが、
あ　と　あ　を比べる方法ってありますか？

>>282
ネタですか？

いや、マジやねん

>>284
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";

$xx = "abc";
$yy = "def";

if ( 'あ' eq 'あ' ) {
print $xx;
} else {
print $yy;
}

abc って出ましたが。

>>285
あぁ〜文字列はシングルクォーテーションで囲ったらｲｲんですね？？
ありがとうございます！
でも　あ　を　a　に変えると囲まなくてもいけるみたいですがなぜでしょう？？
aも文字列のはず、、、、

>>284
''か""で囲まないと文字列じゃないぞ・・・

http://www.mbay.net/~mpeppler/Sybperl/sybperl.html#sybase::dblib

この
NO_MORE_RESULTS
って、どうしてクォーテーションがいらないのでしょう？

>>288
開けない

sub MOE { "sakura" }
print MOE, "\n";

>>286
ぐーぐるさんに聞いて見れば？キーワードはbarewordとperl。
ていうかおれもPerlのbarewordの扱いについてはよくわからｎ。

Perlは「自分の知らない識別子」をクォートされていると解釈するんだよ。

$foo = bar;
$baz = bar::bax;
print $foo, $bar;

だが"sub bar;"やsubsなどで前方宣言されているとこれらはサブルーチンと見なされる。
use strict 'subs'を使うとこのような裸のワードに対して致命的エラーを発生させられるよ。

>>292 にもう少し足すとuse strictしててもハッシュキーと=>は特別：

use strict;
my %hash = ( foo => 'bar', baz => 'gad' );
print $hash{ foo }, "\n";
$hash{ baz } = 'boo';

ハッシュキーは基本的に[a-z0-9_]を使ってる限りクオートする
必要はない。また => を使うと、左側のbarewordは自動的に
文字列に変換される。

Perl6では>>292的なベアワードの自動クォートは撤廃されるもよう。
（ただし>>293はPerl6でもオーケーっぽい）
ラリーヲールの黙示録２を見よ。
http://dev.perl.org/perl6/apocalypse/2#bareword%20policy

#どこかに黙示録の和訳ってねーですか？あったら教えてください。おながいします。

Perl6で撤廃か。まぁ妥当だね。

簡単なスクリプトでテストしてみても読み書き両用でファイルが開けません。なぜでしょう？
Windows上では使えないのでしょうか？

　　　　　　　　↓
open(FILE, "+>$file");

環境はWin2000+Apache1.3.24です。

>296
なにが上手くいかないの？
同じ環境できちんと動くけど。
まさか保存されてるファイルが読み出せないとかじゃないよね？
だって最初に初期化してから書き読みモードで開いているんだから。
読み書きモードじゃなくて。
開けないって言ってるから、openが失敗してるんだよね？
ファイルの作成もできないんだよね？
そうだよね？

>>297
いぢめすぎ（ｗ

たとえばこんな感じにしてもファイルは作成されるのに空のファイルなんです・・。
A
A　　予想ではAが縦にならぶはずだと思うんですけど・・
A

open(IN, "+>$file");
@data = <IN>;
$data = "A\n";
unshift(@data, "$data");
print IN @data;
close(IN);

ある某ゲーム(バトルロワイアル）を自分のホムペに乗せたいのですが．．．
初心者なので何をしてよいのかまったくわかりません。
教えてください。お願いします

ゲーム厨房消えろお願いするな乗せるな氏ね。

>299
書き読みモードと読み書きモードの違いってわかる？

書き読みモードの手順
空ファイル作成＞ファイル読み書き

読み書きモードの手順
ファイル読み書き

それと、ファイルポインタの変更しないと色々問題出るぞ。
わからないなら無理に読み書きモードは使わない方がいいかも。

>>302
＞書き読みモードと読み書きモードの違いってわかる？
ありがとうございます。分かってなかったですね。。
それでいろいろやってみて

open(IN, "+<$file");
@data = <IN>;
$data = "A\n";
unshift(@data, "$data");
seek(IN, 0, 0);
print IN @data;
close(IN);

これで動くようになりました。「+<」←これ手持ちの本に載ってなかった・・（´Д｀；）

Perlとちょっと関係ないですが、
全ての環境変数を表示した際、他人に見られるとマズイ情報ってありますか？

掲示板に関して一つアドバイスを願いたいんです。

普段は掲示板のタイトルが見られる。
でも書き込み（新規スレ立て、レス共に）はログイン／認証しないと
できないというような物はありますか？
探し続けて見あたらず無理なのかなと諦め気味。
いかがでしょうか？

探すより作った方が遥かに早い罠
というか100％すれ違いです。

aska(http://www.kent-web.com/bbs/aska.html)の
i-mode版(http://red.tomato.nu/desperado/software/)に、
i-PADv2(http://www.kent-web.com/bbs/ipad/ipad2.cgi)みたいに
返信がいくつ返ってきてるかわかる表示を加えたいんですが・・・

>>307
で？どこまで自分でやったんだい？

>>307
一日中掲示板に張り付いて誰かが返信する度にｷﾐが書き換える。

>>307
マルチ氏ね

お前ら、【Perl】と関係ない質問は放置してください。

あほな質問で済みませんが
Jcode.pmってActiveperlにはインストールできないんでしょうか？

>>312
出来ます。オフィシャル嫁。

Win+Apache環境で ScriptInterpreterSource registry でスクリプトを実行する場合、
#!/usr/bin/perl -w のオプションは機能しませんよね？（実際機能してないようなので。）

#!/usr/bin/perl　←これ自体なくても動くようなのでコメントアウトされてるみたいですね。

質問です。

use strict;

my ($a, $b);
local $c;

$a = 2;
$b = 3;
$c = $a + $b;

print "Content-type: text/html; charset=EUC-JP\n\n";
print $c;

こうすると
Global symbol "$c" requires explicit package name at (eval 1) line 6.
Global symbol "$c" requires explicit package name at (eval 1) line 10.
Global symbol "$c" requires explicit package name at (eval 1) line 13.
こういうエラーが出るのですが、すべてレキシカル変数にすると動きます。
なぜローカル変数だとuse strictでエラーが出るのでしょうか？
実際のスクリプトは複雑でどうしても$cをローカル変数で使いたいのです。
どうすればグローバル変数を使わずに正常に動かすことができるでしょうか？

>>316
なぜエラーになるかは、perldoc strict を読むべし。
「variable suicide問題を避けるため」らしい。よくわからんけど。

どうしてもlocal変数を使わなくてはいけない場合は、
use vars ('$c', '@array', '%hash'); # perl5.0
または
our ($c, @array, %hash); # perl5.6
みたいに、最初に変数名を宣言（というかシンボルテーブルに登録）しておく。

以上、経験則のみで答えますた。詳しくは識者の登場を待て。

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

＞use vars ('$c', '@array', '%hash'); # perl5.0
＞または
＞our ($c, @array, %hash); # perl5.6
これでいけました。恥ずかしながら今まで知らなかったので（汗）、これを機に勉強してみます。

モジュールのインストールをしようとして、
make testをすると、『Test/More.pmが見つかりません』というようなことを言
われます。More.pmは何かのファイルに同梱されてるのでしょうか？
一応以下のURLを探してみたのですが、見つかりません…。
http://www.cpan.org/modules/by-module/

どなたかMore.pmがある場所を教えて下さい。

http://search.cpan.org/search?dist=Test-More

>>320
解決しました。
Test-Moreはもう古く、入れるならTest-Simpleでやってくれと
言われて、Test-Simple-0.44.tar.gzを入れました。
うまくいきました。

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

<img src ="test.cgi">でCGIを呼び出して
画像を表示させたいのですが上手くいきません

print "Content-type: image/gif\n\n";
open(IMG,"test.gif");
binmode(IMG);
binmode(STDOUT);
print <IMG>;
close(IMG);

KENTカウンタからそれらしい部分を
抜き出してみましたが動きません
画像はとほほカウンタのを使ってテストしてるので
変なヘッダーが入ってるということはないと思います。

http://www.angelfire.com/ak5/2ch-web-program/kako/957208980.htmlの
600も試してみましたが動きません…。
誰か助けてください…。（；´д｀）

#画像表示すらできない自分が情けない（´Д⊂

直接その test.cgi をURLリクエストして確認してみては？

みたところおかしな部分はないようです。他の部分ってことない？

>>322

> print <IMG>

↑この部分を↓こう変えてみそ

while ( $cb = read( IMG, $data, 2048 ) ) {
　print $data;
}

>>273-277を読みました。

LWPをダウンロードしてきたけど、なんかひとつのpmファイルになってないようで
そのまま使えそうにありません。

使用してるのはwakwakのCGIなので使用条件が載っているページを見てみたのですが
perl5.6で標準ライブラリ？は利用できるようです。
で、標準ライブラリにあるか
試しにuse LWP::Simple;でCGIを動かしてみたのですが、内部エラーになりました。

LWPは、この環境では使うことはできないのでしょうか？

・インストールする方法（できないと思うが）
・インストールせずにデレクトリに配置して動かす方法
・他のCGI可無料HPですでにLWPがインストールされてるのでそこを使うといい
等々、なにか良い方法はないのでしょうか？

使うのは多分LWP::SimpleでHTMLドキュメントを引っ張ってくるだけです。

>>323-324
ありがとうございます。
原因はわかりませんが、両方の方法を試してみて
ダメだったので元に戻したら表示されました　（´∀｀；）意味わかんねス

>>325
LWPはperlコードだけで構成されてるから、自分で入れることも可能だと思う。
ただしLWPが入ってないサーバつーのは、そもそもソケットの使用を禁止してる場合も多い。
そんときはLWPを入れても無意味。

>>327

use Socket; 自体は動作しますが、Socketで通信を許しているのは localhostへのsmtp/tcpのみとなります。
だそうです。

これって望み薄ですか？
ちなみにやり方間違ってるっていうチョンボはしてませんよね？(僕）
ただuse LWP::Simple;としているだけなのですが・・・

イチかバチか入れてみました。
自作ＣＧＩのでバック設定というのができるみたいで
それを使ってやってみました。

最初は、HTTP/Statusのパスがうまく行っていなかったようなので
＠INC追加したら、そこはクリアできました。

ただ
unless(defined($content = get $url)){
のところで
Can't call method "get" on an undefined value
が出てしまいました。これは無理と言うことでしょうか？

>>328-329
>Socketで通信を許しているのは localhostへのsmtp/tcp
駄目ジャン。
smtp/tcpってメール送信用のポートだし。localhostのみだし。

そうですか(ﾄﾎﾎ

どっか、CGI可無料HPでできそうなところないですかね。

自鯖たてろ

ActivePerl 5.6.1 build 633

PERLでBEEPの制御ってできますか？できないっすよね。。

もっと自信を持って発言しろよ。
できないＹＯ！！

っていうかBEEPって知らないＹＯ！！！

>>334
print "\a";
こういうことじゃなくて？

>>333
ActivePerlの(マイナーチェンジの)変更履歴ってどこにあるんだろ…。
英語ワカラソ

単語をどうやって発音したらよいかがわかるサイトってどっかありませんか？

Array→アレイ　とか
$→スカラー　とかいうふうに。

require ってどう発音していいかわからないんですよ（汗）。

辞書で発音記号見ましょう $→スカラーって読むわけじゃないし

その発音記号が読めないんです。あうう。

>341
発音記号の読み方を勉強しましょう。

う。マジメに発音記号の読み方を勉強しはじめてしまいました。

普通、発音記号の読み方って授業でやるもんですか？
うちんとこやらなかったんですよ。
商業科だったんで。

parentsとかも、その＜p＞で始まるやつ！親っていう意味だ！　と、いう覚え方してるもんなあ……簡単なのは読めるんですが。

どうやってよむんだ？　っていう続きで、
chdirとか。
Change Directoryの略でええんかい？　とか。
まあ、いろいろと疑問があったんで、そういうの解説してるようなサイトとかないかなーって前から思ってたんですよ。

>343
商業化の中学校なんてあるのか。

>344
その単語で検索をかけるとかしてみた？
ttp://www.google.com/search?as_q=chdir+change+directory&num=100&hl=ja&ie=UTF-8&oe=UTF8&btnG=Google+%E6%A4%9C%E7%B4%A2&as_epq=&as_oq=&as_eq=&lr=lang_ja&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=
1520件もひっかかるんだけど。

>345 =~ s/商業化/商業科/;
小学校からやり直してきまつ。

>>345
chdir、
意味は知ってるんですけど。
音の発音が。

直でよむとチヂラ（藁＜ソレハイカンダロウト

>>345
引っかかりはするんですが、大量に引っかかりすぎてみつけられなかったのですわ（苦藁

>347
発音記号は英和辞典に載ってる。
読め。

>348
一番上にひっかかるサイトにかなり載ってる。
読め。

じゃなければ検索用語に他のコマンドも入れてみろ。
頭使え。

chdirなんかを口に出して言う機会はほとんどないが、
脳内では「しーえっちでぃあ」って言ってる･･･（w

何故か脳内では"チディル"だな。
口に出すときは"チェンジディレクトリ"だけど。

英語圏ではちだーですね

英語圏だけど「しーえいちでぃあ（←うーん、微妙に違うな）」だな。

自分で書いたモジュールで
Makefile.plっていうのは自分で書かなきゃきけないんですか？
自動で生成するツールはないでしょうか？

>>354
一応h2xsっつーユーティリティがPerlについてくるが、
Makefile.PLなんてそんな面倒なモンでもないだろ。

>>355
ありがとんヽ（´ー｀）ノ　

ActivePerl-5.6.1.633-MSWin32-x86.msi
挿れようとしたらインストールが完走しない…鬱

>>357
ペッティングが足りないんだよ

>>358
完走しました？

>>357
俺はできたぜ

わけわからんっ音符

>>360
激しく感謝!!

よく見たらHDD残量が150MBしかなかったので、足りない悪寒でした。
（−＿−）ｳﾂﾀﾞｼﾉｳ
嗚呼、10MBもあるドキュメン入れたくねぇ…

ちょい質問。
ActivePerlって下の環境残したまま上書きインストール出来るっけ？
最新版にしたくてもそれがほそろしくて試せない…

「Web クライアント プログラム」(オライリー・ジャパン）の 例題 hcat.pl
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', $ARGV[0]);
my $response = $ua->request($request);

if ($response->is_success) {
print $response->content;
} else {
print $response->error_as_HTML;
}
で、
hcat.pl http://www.hyuki.com/dp/dp.jpg > dp.jpg
とすして、dp.jpgを見ると、ちゃんとした画像になりません。
どうしてでしょうか。教えてください。
環境は、ActivePerl　v5.6.1 built for MSWin32-x86-multi-thread、
windows2000 professional です。

ちゃんとした画像にならないということは、ぐだぐだな画像になってしまうのか、
開けないけど容量はあるってことだろうから、ファイルハンドルを binmode
すれば？

>>363
できるけどオススメしない。

>>363
旧Ver.に戻すのは簡単
ttp://downloads.activestate.com/

PerlのDBIを使って、MySQLを操作しようとしています。
書籍やインターネットでやり方を調べていく中で、次のような
注意事項が記載しているものを見つけました。

1:$dbh = DBI->connect(****);
2:$sth = $dbh->prepare(*****);
3:$sth->execute();
4:$sth->finish();
5:$sth = $dbh->prepare(*****);
6:$sth->execute();
7:$sth->finish();
8:$dbh->disconnect();
の様に一回のDBコネクション中で２回のコマンド発行を
するときは、一回目(上記2〜4)と二回目(上記5〜7)で
ハンドル変数名を変えなければならない(例えば5〜7は
$sthではなく、$sth2にする）というものです。

自分の環境下の簡単なプログラム中では問題なく
動いているのですが、本当に注意すべき内容なのでしょうか？

　　　　　　　　　　　　　　　　　　　　　　　　 　　＿＿
..⌒ヽ　　　　　　　　　　　' ⌒ヽ 　 　　 　 　　／.|:::::::::::|
乂乂||　　　　　　　　　　|乂乂||　　　　　　　 |　 |:::::::::::|
乂乂||　　　　　　　　　　|乂乂||　　　　　　　 |　 |:::::::::::|
乂乂||　　　　　　　　　　|乂乂||　　　＿＿＿|＿|:::::::::::|＿＿＿＿
乂乂||　　　　　　　　　　|乂乂|| 　／|::::::::::::::::::::::::::::::::::::::::::::::::::::::::|
￣￣　　　　　　　　　　　￣￣　　i　 |::::::::::::::::::::::::::::::::::::::::::::::::::::::::|
　　　　　 ＿＿＿＿_　　 　 　 　 .|／￣￣￣..／|:::::::::::|￣￣￣／
　　　　　||L L | L L ||　　　　　　　￣￣￣￣|　 |:::::::::::|￣￣￣
　　　　　||L L | L L ||　　　　　　　　 　 　 　 |　 |:::::::::::|
　　　　　||L L | L L ||＿＿＿＿＿＿＿＿_ .|　 |:::::::::::|
===========l| L L l=================　i　 |:::::::::::|
二二二二二二ヽ　　 iヽ二二二二二二二二i　 |:::::::::::|
:::::::::::::::::::::::::::::::::::i　　 ヽ|　　　　　_＿＿＿＿.i　 |:::::::::::|
￣￣￣￣￣￣￣＼　　（（（　）））____＿＿＿|　 |:::::::::::|
￣￣￣￣￣￣￣￣|......（　´Д｀）.＿_＿＿＿|　 |:::::::::::|＿_
::::::::::::::::::::::::::::::::::::::::: |　 /　　（Ｓ）::::::i＼　　....|　 |:::::::::::|　　＼
￣￣￣￣￣￣￣￣￣￣￣￣￣￣|　.＼　....＼|:::::::::::|　　　 ＼
　　　　　　＿＿＿＿/|＿＿＿＿　 .|　　 .＼　　 ￣￣
　　　　 ／
　　　　 |　Ｐｅｒｌスクリプトから、２ちゃんに書き込める方法を教えてください。
　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

http://s1p.net/rvvvvh

　http://s1p.net/tyyopp

わりきり出会い
　 　
　　　ＵＧ-Ｓ的出会い

　　　ＰＣのみ受付中　　
男性、女性書き込み
キャンペ-ン中
　おかげさまで5000ＨＴ
ラッキナンバー
(111,333,555,777,999)
男性、女性書き込み するだけ
当選者には永久会員パスワード
と１万円プレゼント！！

>>368
別に変えなければ動かないということはないけど違う用途の
(ハンドル|オブジェクト|数|文字列|・・・）を同じ変数に代入して
変数を使いまわすのは間違いをおかしやすかったりとあまり良い
スタイルとは言えないかも。

（同様に$sth1、$sth2という名前もお勧めできない）

$dir ＝　ディレクトリ　、　$file ＝　数字

open(DATAOUT, "+< $dir . $file . '.dat'") || die &Error;

えっとこういう処理があるんですが、読み書きモードでファイルを開けないんです。
というかファイル名を認識してくれないみたいです。

open(DATAOUT, $dir . $thismonth . '.data') || die &Error;

↑このように読み込みモードだとちゃんと認識してくれるんですが、読み書きモードでちゃんと
認識するようにするにはどうすればよいでしょうか？

いろいろ "" を '' にしたり、. を \. にしてみたりしたんですがうまくいきません・・。
お願いします。

>372
もうちょっとダブルクォーテーションについて考えてみた方がいいぞ。

open(DATAOUT, "+<$dir$file\.dat") || die &Error;

>>373
おぉ〜〜〜できましたっ！！　ありがとうございます！

＞もうちょっとダブルクォーテーションについて考えてみた方がいいぞ。
はい考えてみます　（´Д｀；；）

ありがとう。

JPEGの縦横サイズを吐き出すライブラリがほしいのですが下記で見つけたものでは
Exif形式に対応してなくて困っています。
下記のものを改造してExif形式にも対応させたいのですがどのようにしたらいいでしょうか
教えてください。
http://www.aleph.co.jp/~fujiwara/perl/get_imgsize.pl

>>371
ありがとうございます。
動作上は問題ないと言うことですね。

＞変数を使いまわすのは間違いをおかしやすかったりとあまり良い
＞スタイルとは言えないかも。
確かにこんな変数名では、ちょっとしたタイプミスで、
見つけ難いバグを自らの手で作ってしまいますよね。
気をつけてみます。

>>375
そんな３年も前の化石なんか使うなよ。
これじゃだめなのか。
http://search.cpan.org/search?dist=Image-Size

掲示板で、半角カナが文字化けしてしまうことがあるんですが、対策とかないですか？
半角カナを全角に変換とかはしたくないんですけど。。

>378
サーバの環境および現在のフォーム出力文字コードぐらいは書いてもらわないと、、、、

win2kのCドライブにapache1.3.26、ActivePerl-5.6.1ビルド631をインストールしました。
Dドライブにある下記のようなCGIスクリプトをapache経由で実行したら、
. のみでした。

そこで、コマンドプロント上で「perl inc.cgi」と実行したら、
ちゃっんと
C:/usr/local/lib
C:/usr/local/site/lib
.
とでます。

apache経由でも
C:/usr/local/lib
C:/usr/local/site/lib
.
になるようにできますか？

-----
#!/usr/bin/perl
print "Content-type:text/html\n\n<xmp>";
for(@INC){
print $_,"\n";
}
exit;
------

>>380
原因はよくしらないがperl -Iでどうかね。
それか@INCに対しpushするか。

>>380
まったく同じ環境でちゃんと表示されますが。

原因がわかりました。
perlをc:/usr/local にインストールしたのですが、
/usr/bin/perl のスクリプトでも使えるように、
C:/usr/local/binをc:/usr にコピーしてたのが原因だったようです。


#前まではできてたのになぁ。。。

while(<>){
$n=pack "h*", "$_";
print $n;
}
で読み込んだテキストを元にもどす方法ってどうやるんですか？
while(<>){
$n=unpack "h*", "$_";
print $n;
}

じゃだめなんですけど

>>384
それpackとunpackの使い方が逆でない？
while (<>) { print unpack("h*", $_); } # テキスト→16進
while (<>) { print pack("h*", $_); } # 16進→テキスト

perlのファイル書き込み時にわたしはいつも
open(DATA, ">$cdata")|| &write_error;
flock(DATA, 2);
print DATA @newdata;
flock(DATA, 8);
close(KDATA);
などとしています。
このflockは排他処理には役に立たないような事がよく
書かれていますが全く役立たないのでしょうか？
なにも処理しないよりはマシという程度ですか？

>flock ってのは「このファイルは俺が使うから誰も触るなよ」
>って宣言するだけです。礼儀正しい人は「もう触ってもいいよ」って言われるまでは触りません。礼儀正しくない人は構わず触っちゃいます。ただそれだけです。つまり、単なる紳士協定。OK?
># これ以上簡単な説明は出来ないよ。

過去スレのJAPUさんのセリフより。

>>386
flock(DATA,8);は別にいらん

>>386
全体を見ないと確かなことは言えないけど、
書き込みのときだけロックしてもだめ。
データの読み出しから書き込みまで、
ずっとロックし続けないと排他処理にならない。

ロック厨が多いな。集まれ〜♪
【Perl】ファイルロック(排他処理)について語ろう
http://pc.2ch.net/test/read.cgi/php/1024795138/

>>387-389　皆さんのご意見とてもためになりました。
ありがとうございます。
>>388さん　そうなんですか、知りませんでした。
>>389さん　これも驚きました。読み込みの時はflock使ってませんでした。
本に書いてあるものをそのまま参考にしていました。
わたしの使い方は問題あるんですね。もう少し調べてみようと思います。

おいおいマジでレベルが下がったな。
>>386のロックが役に立たないってのは
open HANDLE, ">file"; #　まずfileの中身を空にして開く、と…
flock HANDLE, 2; # ロックするかな

このopen & truncateが問題だろ。
正しくは

open HANDLE "+<file"; # 読み書きモードで開く、と…

>>386の方法でも何もしないよりはマシかもしれんが、
確実に効果がある、とは程遠かろう。

flockはやっぱダミーのファイル用意して、
それをopen(&flock)してる間に処理、っていうのがいいんじゃないかな。

http://pc.2ch.net/test/read.cgi/php/1019561283/850 へ。

そういう場合は、やはりgrepでしょう。
@URI = grep { s/^Location_URL=(.*)/$1/ } @list;

>>394
なるほど。どうもありがとうございます。

>>394
grepで元の配列を壊すのはいかがなものかと。
@URI = grep { /^Location_URL=(.*)/ } @list;

ｽﾏｿ、396は忘れて。
ところで元の配列を壊さずに一部を取り出す一番効率の良い方法ってどんなんだっけ…。

@URI = map { substr $_, 13 } grep { /^Location_URL=(.*)/ } @list; # じゃないよな…

う。ソウダネ＞破壊ﾏｽﾞｰ
元を壊さずにそれ(>>397)より効率のいい方法ってあるんかいな。

>397
59点ってとこだな。

実はmapはgrepとしても使える罠
@URI = map{ /^Location_URL=(.*)/ ? $1 : () } @list;

>>400
それ知らなかったよー。兄ちゃんありがと。

このままだとtruncate()が絶対に失敗するんですが。
失敗しなくするにはどうすればいいですか？
#!/usr/bin/perl -w
use strict;

sub t($);

open(F, "+<in.txt");　　# aが30個くらい並んだだけのファイル
t(*F{IO});
close(F);

sub t($)
{
　　my $f = shift;
　　truncate($f, 10) || warn("error");
}

>>402
*F{IO}は型グロブではなく、リファレンスだから、
デリファレンスする必要がある。
truncate(*$f, 10)

>>403
402じゃないけど質問させてください。

open F, ">file.txt" or die;
my $fh = *F{IO};
print {$fh} "test\n" or die;
truncate *$fh, 10 or die;
close $fh or die;

このコードで、printやcloseは$fhでも*$fhでもオーケーなのに
truncateだけは*$fhしか指定できないんですが、どういうこと？

>>404
Perlのバグっぽい気が。
尤も、生のIOオブジェクトを使うと、Tieによるオーバーロードが効かなくなるんで素人には(略

うわ。すばやいレスありがとうございます。
実は402を見てからperlrefとか読んでいろいろ実験してたので、
まだIOオブジェクトがよくわかってないのですが、
これがバグとわかれば安心して眠れます。

>>402 >>404
なんでそんなわかりにくいもん使うの？オブジェクト使いたかったら
素直にIO::Fileとか使えばいいのに・・・

>>404
printに*$fhって渡せました？
おれの環境では下のコードはsyntax errorになるんです。
#!/usr/bin/perl -w
use strict;
my $stdout = *STDOUT{IO};
print *$stdout "test\n";　　　# print $stdout "test\n";なら大丈夫

>>407
モジュールの使い方を調べたり覚えたりするのが面倒だっただけです。
*FOO{THING}自体はそんなに分かりにくいものでもないし。

関係ないけど、sort { $a <=> $b } @f;の方が分かりにくいです。
use strict;なのに$aと$bは宣言しなくていいのは何、みたいな。

>>408
use IO::File;

my $fh = IO::File->new( $filename ); ## open()と基本的に同じ
print $fh "foobar\n";

のどこが面倒くさいのだろうか。少なくともグロブがなんちゃらとか
考えるよりかはるかにシンプルだと思うんだけどな。大体perldoc perlref
を読んでる暇があるのにperldoc IO::Fileが面倒くさいのもわからんし。

まぁ使いたくなかったらそれはそれでいいんだけど。素直に使ったほうが
楽だし、そのほうがPerl コミュニティのカルチャーにそってると思う。

>>408
print関数の第1引数は、シンボルでもスカラ変数でもない場合は
ブロックに入れないと構文エラーになるよ。（昨日覚えた）
print {*$stdout} "test\n";

>>409
ほっといてくれー。こういう瑣末なことを調べるのが趣味なんだよー。
たぶん408の人も、おれと同じタイプ。
あ、もちろん実際にスクリプト書くときは素直にIO::File使います。

>>410
ああまぁ趣味のスクリプトとかならいいんですけどね。
プロダクションコードでそういうのを見たくないのでとりあえず
牽制した、ということで。

自分でちまちま作ったCGIを公開しようと思ってるんですが
（公開といっても使うのはネットの仲間だけ）これだけはしちゃイカン！って
処理とかあるんでしょうか？cgiのバグでunixコマンドを打てるとかっていうのが
気になるんですけど。

>>412
＞cgiのバグでunixコマンドを打てる
とんでもないのがあるじゃねーか！

>>412
-Tスイッチをつけないで実行しちゃいかん。

何をすべきでないのかわからないなら、これは必須。

#!/usr/bin/perl -UX

>>414
>>412じゃないんですが -T スイッチってどんなものなんでしょう？

-wスイッチはつけるようにしてるんですけど -T スイッチは見たことがありませんでした・・。

あっ調べてみたらありました。
http://tech-web.net/perlmania/perlrun2.html
汚染チェックをオンにするとか書いてますけど、なんだろう・・？
つけておいたほうがいいのかな。

罵倒覚悟で聞きます
Perlで2chのDAT直読みは無理なんでしょうか？
User-Agent: Monazilla/1.00 (toolname/ver)　←こうゆう風にしても
無理なんですけど、、。

Accept-Encoding: gzip
は？

別に罵倒するつもりはありませんが、普通に取得できましたが・・・
URLが間違ってるとかそこら変チェックした方がいいかと思います。

#!/usr/bin/perl
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', 'http://pc.2ch.net/php/dat/1022731565.dat');

$ua->agent('Monazilla/1.00 (libwww-perl/5.65)');
$response = $ua->request($request);
print $response->as_string;

>>420
謝謝、
URLが間違ってたみたいです。
Perlでは規制がかかってると思ってあきらめてたんですが、、よかった。

>>414
１行目を#!/usr/bin/perl -T　にするって事でしょうか？
unixコマンドを打てる、というバグを発生させないためにはどうすれば
どんな点に注意すればいいんでしょう？
バグというか、何も対策してないcgiだとアドレスのcgi-bin/xx.cgi?の後ろに
いろいろへんなのを入力するとunixコマンドを打てるとかいうバグがある話を
聞いたんですが。

>>422
あなたきもい

>>422
いっぱい情報あるから検索すれ。キーワードは「脆弱性」「CGI」等。

>422
要は、ブラウザ側で入力された値をチェックしないでそのまま以下のような
関数に渡さなければいいだけ。

open
exec
system
qx//
eval
``

grepもﾏｽﾞｰじゃねーの？

>>422
そのほか、クロスサイトスクリプティングにも注意。
たとえば、User-agentを内容をチェックせずにそのまま出力しちゃだめ。
ttp://www.ipa.go.jp/security/awareness/vendor/programming/a01_02.html

バグじゃないだろ…

>Unixコマンド実行
それがバグだったら世界中のPerlUserが嘆くことになるな。

質問です。

$a = '&xyzあいうえお<A href="http://www.xxx.com">リンク</A>';

$a =~ s/&[^lt;|^gt;]/&/g;

こんな感じで文字列の < と > 以外の & を & に置換したいのですが、
上のようにすると & の次の文字(ここでは x)が消えてしまいます。
どうすれば &xyz とすることができるでしょうか？

あぁ・・失敗したのでもう一度かかせてください・・

$a = '&amp;xyzあいうえお&<A href="http://www.xxx.com"&>リンク&</A&>';

こんな感じで文字列の &< と &> 以外の & を &amp; に置換したいのですが、
上のようにすると & の次の文字(ここでは x)が消えてしまいます。
どうすれば &amp;xyz とすることができるでしょうか？

$a =~ s/&([^lt;|^gt;])/&amp;$1/g;

ちなみに、どっちにしろこれじゃあ思う通りの効果はえられないと思う。

>>432
うわ〜〜〜もうお答えいただきました（´∀｀　）ノﾜｰｲ!
ありがとうございます。ちゃんとできました。

>>432
それって違うと思うけど・・・

$a =~ s/&(?!=lt;|gt;)/&/g;

じゃないの？[]で囲んだらcharacter classになっちゃうじゃん。
432の正規表現では&のあとの文字がg,l,t,;,|,^だったら&
に変換されないぞ（例：&lz; &gxcv; &;;; )

あ、すげー間違った。すまぬ。

s/&(?!lt;|gt;)/&/g;

ありゃ？あ、そうか。&amp;amp;ってかかなきゃいけないのか・・・

>>436
それで完璧にできました。ありがとうございます。

正規表現勉強しないと(°＿°;A)ｱｾ

すみません。消費者を騙し、クレームをつけると強烈な脅しで黙らせる位の
ひどいサイトがあります。思いきってサイト（ＨＤＤ）をクラッシュさせたいのですが、
何かいい方法はあるのでしょうか？
こちらのＩＰとか所在がわからないようにしたいのです。
こう言う質問にお答えとなると問題がある場合、こういった専門サイトとかがあれば
お教え頂けないでしょうか。

す
ひ
何
こ
こ
お

？？？
縦読みじゃないのか

>>439　
俺はここの一流ハッカーに頼んでＨＤＤを爆発させてもらったよ
http://www.qudsway.com/Links/Doctor/4/Html_Doctor4/4hdo9.htm

特殊変数 $# はどのように利用するのでしょうか？
「出力時の数値形式」ということまでは分かったのですが...。

>>442
-wスイッチの元で警告されるように、$#の使用はお勧めできない。
Cレベルでの内部操作だから簡単にDLLエラー(Unixだとコア吐くのかな？)を出せるしな。
それでも使いたければ：

$# = '%.3g';
print 8/9;

while (<file1>){
$file1++;
}
close(file1);


while (<file2>){
$file2++;
}
close(file2);

while (<file3>){
$file3++;
}
close(file3);


while (<file4>){
$file4++;
}
close(file4);

上記のソースを短く出来ませんか？

>>444
ネタはこちらへ。
http://pc.2ch.net/test/read.cgi/php/1024741312/

>>444
マルチ
http://pc.2ch.net/test/read.cgi/tech/1017736187/n186-

$mes = '787+8787';
$paturn = '787+8787';
quotemeta $paturn;

if ($mes =~ /$paturn/){
print "Match!\n";
} else {
print "Oops!\n";
}

これだとマッチしないのですが、どうすればエスケープ出来るでしょうか
quotemetaの使い方を間違えてんのかなあ・・

でけますた
\Q\E　だた･･
perlは忘れ易いよ

>>447
quotemeta()の使い方間違えてるよ。

$quoted = quotemeta $string;

chop(), chomp()等と違って元の文字列は置き換えないからね。

>>447
わざとなのかもしれないけど、paturn はちょっと恥ずかしいね。

foreach $mon(@logs) {
　@mon = split(/,/,$mon);
　$mon{$mon[1]}++;
}

3行目では何が起こっているのでしょうか？

ハッシュ%mon を利用して、配列 @logs の第２フィールド値の出現回数を
取得しているといったところでしょうか。

>>452さん

出現回数ですか。
どうもありがとうございます。

質問です。
ppmでsearchを実行しても全く反応がないのです・・・

PPM> search
PPM>

のように、なってしまうのです・・・DBIをインストールしたいがために四苦八苦しているのですが、
どうしても上手いこと行きません・・・もちろんdbi.zipを直接DLして
ppm install dbi.ppd
等も試してみましたが
Could not locate a PPM binary of 'dbi.ppd' for this platform
とエラーが出てしまいます（涙

どうにか対処法を教えて貰えないでしょうか・・？
環境はwin2k perl-v5.6.0 for MSWin32-x86-multi-thred ppm(2.1.2)です

>>454
install DBI
でいけないか？

kentwebのCOSMO GATE-EXをエクスリアで設置したけど、
説明の通りに設置して、チェックモードでもOKとでたんだけど

Authorization Required
This server could not verify that you are authorized to access
the document you requested. Either you supplied the wrong creden
tials (e.g., bad password), or your browser doesn't understand
how to supply the credentials required.

ってでる。
何が悪いのかわかります？

>>455
ダメです・・・
Installing package 'DBI'...
Error installing package 'DBI':Could not locate a PPD file for package DBI
となります・・・
ネットは常時接続なので、当然繋がったまま実行しているのですが・・・
(。´Д⊂)゜。・ こまった

>>456
認証でもかけてるの？

>>458
そうです

>>457
えーなんでだろう。じゃあppm使わずに
perl -MCPAN -e shell
って打ってから
install DBI

>>457
わかった。常時接続ならプロバイダかどっかのPROXY通してるでしょ。
それ一時的に外してみて。

>>459
認証を通過できなかっただけじゃん

http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/
> PPM doesn't work through a proxy/firewall.
> This can be remedied by setting the environment variable 'HTTP_proxy' to the name and port of your Internet proxy, e.g.:
> C:\> set HTTP_proxy=http://proxy:8080
> If your proxy or firewall requires a username and password, you will also need to set the environment variables 'HTTP_proxy_user' and 'HTTP_proxy_pass'.

多分これね

げげげっ！？
本当だ。
今まであると思ってたIDとパスがなかった・・・
とにかく今やったら出来た。
nobodyさんありがとう！！！

nobody さん？（ｗ

　　　　　　　　　ここかが引き篭もりの巣ニダか！！
　　　　　　　　　　　　　　 ∧∧
　　　　　|＼　　　　　　　<ヽ`∀´>　　　　　　　　　／|
　　　　　ヾ　￣￣￣￣￣　　　￣￣￣￣￣￣￣ ／
　　　　　　￣￣￣￣￣￣|　　|￣￣￣￣￣￣￣
　　　　　　　　　　　　　　 |　　 |
　　　　　　　　/￣￣￣￣＼／￣￣￣￣￣＼
　　　　　　 __/　/￣￣￣￣￣￣￣￣￣￣＼ .＼__ 　ドドン！！
＿＿＿＜＿＿）＿＿＿＿＿＿＿＿＿＿　（＿＿＞＿＿＿

CGIでメインの掲示板やゲームのサブルーチンが入ってるサブのCGIファイルで
こいつらの属性を変えてやれば処理を軽くすることはできますか？
初心者なもんで質問が意味不明かもしれません…(汗)

>467
ほんとに意味不明だからびっくりしたYO!

http://isweb43.infoseek.co.jp/play/ta-bo-z/

>>467
うん、意味不明だ

Perlの事で質問です。
初歩的な事で申し訳ございません。
name1<>host1<>ip1<>111<>
name2<>host2<>ip2<>222<>
name3<>host3<>ip3<>220<>
name2<>host2<>ip2<>200<>
name2<>host2<>ip2<>222<>
name3<>host3<>ip3<>220<>
とログファイルに保存をしてありまして、
それぞれの一番右の数の合計を出すにはどうすれば宜しいのでしょうか？

ホストごとにまとめたい、ということ？

>>472
はい。そうです。
出来ますでしょうか？

>473
>451が参考になるよ。
あれをちょっといじればいい。

>471
こんな感じでしょうか？

$sum+= (split(/<>/))[$[+3] for <DATA>;
__DATA__
name1<>host1<>ip1<>111<>
name2<>host2<>ip2<>222<>
name3<>host3<>ip3<>220<>
name2<>host2<>ip2<>200<>
name2<>host2<>ip2<>222<>
name3<>host3<>ip3<>220<>

>>474
それは、その感じでまる2日ぐらい悩んだんですが出来ませんでした。
>>475
今、試してみましたが一番右の数の全部の合計した数が出てきました。

>476

> 1：自分はこう言う事がしたい。
> 2：それでこんな風にやってみたが･･･
> 3：それだとこんなエラーが出て上手く行かなかった。
>
> 1と3が無いと誰も答えられないよ。
> 良い回答は良い質問から。一緒に勉強しましょう。

１はあるけど２と３がないな。

結論出すと、

while(<IN>) {
　@host = split(/<>/,$_);
　$host{$host[0]} += $host[3];
}

かな？

>>477
おいおい。まる2日分のなんや事を書けっていうのかちみは？

>478
そうだね。うっかりホスト毎ってのを見逃してた。修行してくる。

>>479
んーと別に大丈夫ですよ。質問の仕方が悪いのは僕の方です。
>>477
今まで答えて頂けたことは全て一通りやってます。
エラーは出ませんでした。出たとしても;を:と間違えた等その位です。

>>478
出来ませんでした。

>>478
host3の合計しか出ませんでした。

>482
ハッシュの参照のしかたわかる？
ファイルハンドルが４７８ではINになっているから統一しているか確認して、
とりあえず以下のようにして出力して確認されない？
for ( keys %host ){
    print $_,': ',$host{$_},"\n";
}

野郎℃も出来たぜ！！
Thanks！！！！！！！！！！！！！！！！！！！！！！！！
黄金帽と呼んでくれ！！！

@host1 = grep { /^name1<>.*<>.*<>.*<>/ } @_;
@host2 = grep { /^name1<>.*<>.*<>.*<>/ } @_;
@host3 = grep { /^name1<>.*<>.*<>.*<>/ } @_;

foreach(@host1){
m/^name1<>.*<>.*<>(.*)<>/;
$count1 += $1;
}

これじゃ非現実的だな。スマソ

>>485
??
>>484
出来ました。ご丁寧に説明をして頂きありがとうございました。

B83W59H86(14歳）セルフヌード衝撃うｐ祭り開催中！！
http://tmp.2ch.net/test/read.cgi/mog2/1022943102/l50

perlからcの関数（*.aとかlibの）を使用する方法を教えてください。

>>489
ム板とWebProg板にマルチポストか。おめでてーな。

うるせえよ

>46 ：デフォルトの名無しさん ：02/06/29 19:00
>>>1よ
>だいたいPerl関連はWebProg板でやるきまりなんだよ
>そっちへ逝け

うがー。ム板のほうにレスつけちゃったよ。
じゃ490はマルチした罰として↓の48に答えること。命令。
http://pc.2ch.net/test/read.cgi/php/997829243/n48-

何故俺が罰を受けねばならんのだ…ｳﾜｧｧｧｧﾝ(`Д´)

ｽ､ｽﾏｿ…。>>493

open関数が失敗するときは、
・ファイルが存在しない
・パーミッションがおかしい

以外にありえるのでしょうか、おねがいします

あげときます

>>495
・メモリが足りない
・opcodeの実行が禁止されている

>>497
ファイルを開きすぎとかは？

>>498
そういえばそれもあるか

今だ！２００番ゲットォォォッ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

欝…番号間違えた（泣

>>495
あと、既にファイルが排他モードで開かれてるってのは？

排他モードで開くなんてのはあるのかな?
排他モードでロックしているというのはあるが。(その場合でも open は可能)

>>495
【Perl】ファイルロック(排他処理)について語ろう
http://pc.2ch.net/test/read.cgi/php/1024795138/
も参照してみては？

ここにいる人は>>492の質問には答えられないレヴェルなのですね。
ファイルロックなんてどうせ巷の解説サイトみればすむことなのに、、。

>504
４９２は質問ではなく誘導ですが…。
巷の解説サイトにあるファイルロックできみは納得して満足してるんだろうね。
そのサイト教えて。

>>505
>>3-4 ぐらい読め。バーカ

504=506?
だから、きみが納得して満足してるであろう巷の解説サイトを教えて。
どこ？

http://www.bayashi.net/st/pdmemo/filelock.html
↑適当にグーぐるしてください
　ファイルロックは専用のスレもあります
　>>504の解説してください。

>508
そのリンクってはじめて見させてもらったけど大崎さんのスクリプトに
なんで余計なプロセス番号($$)付けてあるの？積算秒を付ける意味を
理解できてないの？
これがきみの言う「巷の解説サイトみればすむ」ってこと？

５０４の解説：
＞ここにいる人は>>492の質問には答えられないレヴェルなのですね。
５０５に書いたとおり、「４９２は質問ではなく誘導です」

> 付加する数字文字列がtime関数だと秒単位なので、
> まだ完全ではないのではないかという疑問が残ります。

何が疑問なのかが疑問です。

>510
この板でこのレスの速さは５０８さん自身のサイトだったってことかな？

ロックできるかどうかのテストと実際にロックする操作を同時に行なう
ことができる atomic な関数 を使っているからロックが成功するのは
１プロセスであり、そういう意味では同じ名前にロックファイル名に
リネームしてもよいということ。
ここで、なぜ積算秒を付け足したロックファイル名にリネームするかと
いうと、もしデッドロックが残っても作成してから６０秒よりも経過して
いるかどうかを確認するからです。

つまりプロセス番号($$)を付ける意味がまったくわたしには理解できません。

>510
付け足すけどよく見たらさ。
ロック中ファイル名って、$lfh{path} . time . $$　だから
/^$lfh{basename}(\d+)/でマッチさせた $1 って time . $$ の値になる
可能性が大きいよね。（Windows系だと$$は-nnnnnnみたいな形式だったりする
けどさ）
でもその直後に平気で積算秒から $1 の値を引いてタイムアウト値と比較してる
からデッドロックをこれじゃ回避できないんでは？

あーわかったからファイルロックはあっちでやれ。
http://pc.2ch.net/test/read.cgi/php/1024795138/
どうせカウンターにしかつかっとらんのやろ。
ほかになんにファイルロックつかっとるのか知りたいDBとか？
>>508のサイトはgoogleでファイルロックで検索したら一番手前にあったから貼った。
------------------------------------------------
俺はXSについて聞いてんだ。

>513
カウンタ程度ならむしろ使わないほうがいいだろう。うっとうしい。
まぁ、使うとしたら電子商取引システムを構築するときに使うかもな。
さっきのアドレス、きみのサイトだったらなおしとけよ。はずかしいから。

きみの検索でほんとにさっきのサイトがトップでヒットしたんなら、検索能力を
養ってから吠えるこったな。まずこれでも見ておれ。

%perldoc -m perlxs

まぁ言い争いはよそうや(*ﾟω^)ﾉ
この板に電子商取引システムを構築したりする人間がいるなら
XSぐらい楽勝だろ。

ロックスレの存在意義が今わかった。隔離病棟なんだね。。。

>>515
で、なに質問してるんだっけ。ていうかあなた質問者本人？
perlxstutの説明に沿ってHello Worldとか作ってみた？

>>516
見てもいまいち分からんとです。
解説サイトみても解説のみでサンプル載ってないし

>>517
perlxstutのサンプルじゃ不満だと？
http://www.kt.rim.or.jp/~kbk/perl5.005/

もっと突っ込んだサンプルが欲しいなら、
CPANから適当なXSモジュール落として参考にすれ

508はネタ荒らしか？天然か？
http://members.tripod.co.jp/ms_mzn/

$ENV{REMOTE_HOST} が返ってこないサーバーがあって、
問い合わせたら、「そんなことはない、ソース見直せ」って
言われたんですけど、このソースで表示されなかったらおかしいですよね？

#!/usr/bin/perl

print "Content-type: text/html;\n\n";

print "<html><body>";

foreach (sort keys %ENV){
print "\$ENV{$_}：$ENV{$_}<br>\n"
}

print "</body></html>";

exit;

これは何かこちらのソースに問題があるのでしょうか
よろしくお願いします。

>>520
HostnameLookups off
最近はデフォルトでオフだしね。
http://httpd.apache.org/docs/mod/core.html#hostnamelookups

CGIスレの方が良かったかも。

>520
なんでキーを出力させてないの？ たしかにREMOTE_HOSTがない場合もありうる
だろうけど

print "$_： $ENV{$_}<br>\n"

＞521
最近のapacheではホスト名は取得できないということでしょうか。。
＞522
一応、キーは \$ENV{$_} で、表示されています。

特定の座標を中心とした5x5のマップを表示させたいのですが。
マップの情報が
123456789
123456789
123456789
123456789
123456789
123456789
123456789
とあってたとえば5,3だとしたら
34567
34567
34567
34567
34567
みたいな感じに表示させたいです。
でも、存在しない座標が含まれていたら表示しないようにしたいです。
参考になるようなページでもいいのでお願いします。

>>524
マップの外周に2マス分の余白を持たせるのはどうすかね。
余白は0とか-1とかの特別な値で埋めておく。

>>524
なんか宿題っぽいよなぁ・・・
まぁまずこういう構造体があったとして・・・

my @foo;
for my $idx1 ( 0..9 ) {
$foo[$idx1] = [];
for my $idx2 ( 0..9 ) {
$foo[$idx1][$idx2] = "$idx1$idx2";
}
}

で、まぁそしたらこんな感じか

sub print_matrix_range
{
my $matrix = shift;
my( $x, $y, $range ) = @_ ? @_ : (0,0,$#{$matrix});

my $xstart = $x - $range >= 0 ? $x - $range : 0;
my $ystart = $y - $range >= 0 ? $y - $range : 0;
my $xend = $x + $range <= $#{$matrix} ? $x + $range : $#{$matrix};
my $yend = $y + $range <= $#{$matrix} ? $y + $range : $#{$matrix};

for( my $curx = $xstart; $curx <= $xend; $curx++ ) {
for( my $cury = $ystart; $cury <= $yend; $cury++ ) {
print $matrix->[$curx][$cury],
$cury == $yend ? "\n" : ' ';
}
}
}

print_matrix_range( \@foo, 5, 3, 2 ); # 5=両方向に2マスだから

書き写しに失敗してないといいんだが。

今、ＨＰ作っているのですが、
この下のメタタグはどうゆう役割をするのですか？
御答えくださいませ。

<META NAME=robots CONTENT="http://**************/">

>>527
スレ違い板違い検索しろそして死ね

同意

はじめまして。質問です。

perlを使って、Submitﾎﾞﾀﾝを押さずにﾃﾞｰﾀをcgiに受け渡すことって
可能でしょうか？

xxx.cgi?530=dqn&1=sine
これで出来るじゃん。

>>531

ﾚｽどうもです。
すいません、getじゃなくて、postっていうの忘れてました。

ﾑﾘなんかなぁ。。。

無理だと思われ。

>>574

ﾏｼﾞっすか。さんくすこ。
あと、折角きたんでもう少し知恵貸して頂いていいっすか？

うむ。

やろうとしてるのは、ｼﾀﾗﾊﾞで板の変更に際してｽﾚｯﾄﾞを移動させたいんで
旧板のｽﾚから名前とﾚｽ抜き出して、外部から新板にｶｷｺ。

とりあえず、gabri dukeと外部のｈｔｍｌでsubmitおしての投稿は成功したんで
なんとかperlで自動的に書き込みって可能にならないっすかね？

>>536

どもです。537っす。読みにくい文章でｽﾏｿ。

ﾑﾘﾎﾟでしょうか？

漏れにはわからないけど、ほかの人はわかるかも。
またーり待たれることを推奨する。

>>540
ﾏﾀｰﾘ待ってみまふ。どもっす。

>>537
logファイルを移動するだけじゃダメなの。

手軽にPOSTするなら毎度おなじみLWP::UserAgentかな…。
perldoc lwpcook読んでみなはれ。

>>542
管理人が板放棄したんで糞ｽﾚ乱立、勝手に板移転するんす。。。

>>543
さんくす、調べてみるっす。

むずい、、、。postのcgi間のﾃﾞｰﾀ受け渡しとLWP::UserAgentを
説明してるﾍﾟｰｼﾞ教えていただけると助かりまふ。おながいします。

ttp://member.nifty.ne.jp/hippo2000/perltips/LWP.html

>526
なんかうまく言ってない気がします。

マップのデータを1行づつ配列につっこんでやればできるのだろうか…

>>545

自分のBBSに移すなら直接LOG弄ってアプ出来ないの?
つーか連続投稿如きでLWP使わなくて良いと思うけど
LixyとかChannnelとかの厨房ツール拾って来てそれ弄れば良いじゃん?

>547
「なんかうまくいってません」←コレ典型的な厨の応答だよ？
そんだけじゃ、読んでるこっちには何もわかんないのよ。
バカが直るまでお前は発言禁止。

>>547
「だろうか…」　←これもな。独り言を書くな。

>>547
それに加えて５２６のソースも厨だからしょうがないか。

>>544
ふつーLWPでGETしてログ再生成、んでもってうｐだろうが。

>>549-550
すいません厨丸出しでした。
ちょっと質問の仕方を変えてみます。(526さんのだと特定の組み合わせしかだめっぽかったので)
マップデータが(例えばです。)
@map = (
'0000000000',
'1111111111',
'2222222222',
'3333333333',
'4444444444',
);
と入っている場合に>>524のようなことがしたいです。

>>553
部分マップを別配列に切り出す方向で考えてみた。

my $map_width = length($map[0]);
my $map_height = scalar(@map);

sub max { $_[$_[0] < $_[1]]; }
sub min { $_[$_[0] > $_[1]]; }

sub trim_map {
　my ($x, $y) = @_;
　my $x1 = max(0, $x - 2);
　my $x2 = min($map_width, $x + 2);
　my $y1 = max(0, $y - 2);
　my $y2 = min($map_height, $y + 2);
　return map { substr($_, $x1, $x2 - $x1 + 1) } @map[$y1 .. $y2];
}

my @mini_map = trim_map(5, 3);
print "$_\n" foreach @mini_map;

>>554
うまく動いてるみたいです。ありがとうございました。

みたい？（ｗ

結局何がうごいてなかったんだ・・・だいたい一緒に見えるんだがなぁ。

初心者です。よろしくお願いします。

$host = $ENV{'REMOTE_HOST'};

で取得したホスト名$hostがaaa.bbb.ccc.dddとなっている場合に
bbb.ccc.dddの部分だけを表示する方法を教えてください。

=~ s/.*\.(.*\..*\..*)/$1/;

>559 さん

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

($host)= $ENV{'REMOTE_HOST'}=~ /^[^\.]+\.(.*)$/;

1.更新履歴のページを作成しましたが、HTMLにして、更新の度に手を加えるのは面倒なので、cgiにしました。
第三者からは見れない入力ページから文章を打ち込み、公になるのはcgiが吐き出した更新履歴ページのみ。

2.で、スクールに通った時作成した、掲示板を改良したが、タグが禁止なのと、<br>が吐き出されて改行位置がおかしくなるので、
以下の処理を丸ごと削除しました。

foreach($text1,$cont){
s/&/&/g;
s/"/"/g;
s/</</g;
s/>/>/g;
s/\r\n/<br>/g;
s/\n/<br>/g;
s/\r/<br>/g;
s/,/、/g;
}

3.構文エラーはなく、動作はしますが、一行置きに改行が入ったり、更新する度に一番新しい記事が何度も表示されたり
と言った具合でお手上げです。超初心者ですみません。この部分だけでは判断できないものでしょうか？
何か解決策ありましたらよろしくお願いします。

それだけじゃ、良く解らないよ。取り敢えず、<br>の置き換えだけ残せや
それと、君の質問内容だと perl がほとんど解ってないように見受けられるし、
基本的な所から勉強しようという姿勢も見られないから、まともな解答を
得るのは難しいと思われ

>>562

s/**/**/g;
↑は確かに置き換えだが、置き換えられた結果がどこに行っちゃうのだろう。

$_

クエリーで送られてきた複数のvalueの値だけを切り出したいですが
うまくいきません。どうすればよいですか？

$buffer = $ENV{'QUERY_STRING'};
@buf = split( /&/ , $buffer );
foreach $data ( @buf ){
( $name , $value ) = split( /=/ , $data );
};

>>566
なんで初心者に限って自分でやろうとするのかね。
素直にCGI.pmかcgi-lib.plあたり使え！

$buffer = $ENV{'QUERY_STRING'};
@buf = split( /&/ , $buffer );
foreach $data ( @buf ){
( $name , $value ) = split( /=/ , $data );
$FORM{$name} = $value;
};

@list = values %FORM

cgi-lib.plのコードって効率悪いな。
もう過去の遺物か？

>>570
じらすためにわざと効率悪くつくってあることもしらないの？

>>567
なんと便利なものが・・・知りませんでした
勉強してみます。
>>568-569
それで漏れのヴァージン作品がやっと動きました。感激

Thanx　ALL

>>563-564
どうもすいませんでした。
perlは確かに初心者ですが、何ぶん急いでたもので、、。
御指摘もっともです、すみません。もうちょっと初歩から勉強してみます。
ちなみに改行の件はperlの方ではなくhtmlの
<textarea>タグ内のwrap="hard"をとったら、解決しました。
出直してきます。

>>570

最適化してうｐｷﾎﾞﾝ










できればの話だけどね

>できればの話だけどね

( ´,_ゝ`)ﾌﾟｯ

最適化なんかしないでそれくらい自分で書けよ。
書き方わかんなきゃ検索でもしてみろ。２５１０件ヒットしたぞ。

まぁ、ほとんどはたいしたこと書いてないページだが比較的ましなページが
３つほどあるだろう。

>>570 == >>575

i-modeで動くCGIでリンク元へ戻るボタンを付けたいのですが
JavaScriptのrefferが使えないので困っています
他にはどんな方法がありますか？
教えて下さいおながいします。

付けたし説明です
どのページに戻るかは、そのときによって違いますので
<a herf="リンク元のURL">は使えません

WindowsXP HomeEdition に
ActivePerl-5.6.1.633-MSWin32-x86.msi
をインストールして
start ppm3 install http://www.activestate.com/PPMPackages/5.6plus/DBI.ppd
とすると
Can't call method "name" without a package or object reference at D:/ActivePerl/561/site/lib/PPM/UI.pm line 984.
と言うメッセージが出てモジュールのインストールが出来ません。
　ActivePerl-5.6.1.633のppm3に何か欠陥があるのでしょうか？
　何か私が大間違いをしているのでしょうか？
　情報あれば教えてください。

>>579
戻るページの数だけ同じCGIを置く

>>578
こういうこと？ちょっと意味がわかりません
<A href="javascript:history.back()">

>>581　レスありがとうございます
リンクフリーのcgiなので
何ページからリンクされるのか、
どこからリンクされるのかもわからないんです

>>583
REFERER取れないんだからどこから来てるかはわからんよ。仕方ない。
BACKボタンで戻ってくれとかいう説明を書いといたら？

file.txt
000
111
<!---->
222
333
<!---->
444
555

<!---->で区切っている部分を３つに効率よく
切り分けるにはどうしたら良いですか？

元のデータは後で利用しない
分けた変数は$,@どちらでも良い

3パターンあるのですが、より効率のよい
コーディングを教えてください

open(FH,file.txt);
$line = join('',<FH>);
colse(FH);
($top,$middle,$buttom) = split /<!---->/,$line;

open(FH,file.txt);
$/ = '<!---->';
while(<FH>){
$i++
$top = $_ if $i == 1;
$middle = $_ if $i == 2;
$bottom = $_ if $i == 3;
}
colse(FH);

open(FH,file.txt);
$j = \@top;
while(<FH>){
if (/<!---->/) {
$i++;
if ($i == 1) { $j = \@middle; next; }
if ($i == 2) { $j = \@bottom; next; }
}
push(@$j,$_);
}
colse(FH);

>>586

line 4 ...

>>583
HTTP_REFERER

>>582
i-modeではJavaScriptが使えないんです

>>584
漏れのスキルでは妥当な線ですね

>>588
なんだか使えそうな・・・それ調べてみます

みなさん有難うございます

いやだからi-modeとかJ-SkyWebは基本的にHTTP_REFERER吐かないってば。
吐く端末もあるけど少数だし。Ezwebはやろうと思えば出来たような気が
しないでもない。携帯端末で普通にREFERER吐くのはドットiだけだった
と思う。

>>590
なるほど、HTTP_REFERERも無理ですか、
「バックボタンで戻ってください」と書く方向にします。

>>591
やりかたあるじゃねーか。気づけよ！

>>585-586
おれだったら3番目を選びます。
しかし>>587が気になる。なんだろう…。そういや"..."演算子ってあるのよね。

>>593
..演算子はありますが、...はなんだろう？
>>597
>line 4 ...
意味が読めないよ。

>>594
そこまでわかっててなぜ気づかない？

>>587
すいませんがもっと詳しく書いていただけると
ありがたいです。

>>592
この中では3番目が一番効率よさそうですが
人のソースのもろコピペになってしまうので
あんまり使いたく有りません

別の方法があったらぜひ教えてください

>>596
こんなのはどうすか。586の最後のやつと同じだけど、ややすっきり。

my @arrays = (\@top, \@middle, \@bottom);
my $i = 0;
while (<FH>) {
　　$i++ if /<!---->/;
　　push @{$arrays[$i]}, $_;
}

>>596
笑った。
別の方法を教えてもらっても、ソースのもろコピペには変わりないんじゃないのか？

$name　が　りんごなら$imgにappleを入れたいのですが、これであってますか？

if ($name eq "りんご") {$img = apple ;}

>>599
if ($name eq "りんご") {$img = "apple" ;}

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

>>598
同じことをするプログラムで
処理まで一緒だとパクリになるので
別の方法は無いかと思って

同じカテゴリーのプログラムが
少ないので同じものを使うと
すぐ分かってしまいます
この処理のやり方が肝になっているので

>>597
だいぶスマートに出来ていますね
ありがとうございます

>>602
書き方変えても処理同じにするんだからきみの嫌うパクリになるんじゃないか？

パクリが嫌ならソースを教えてもらう前に自分で勉強しろ。

データをhtml化してログに残すやり方を教えて下さい。
すみません、うまく説明できないのですが宜しくお願いします。

データを読み込んで、HTMLを付加して、ファイルに出力。

>>604
603は考えて下さった御礼という意味です
ちなみに私は
出てくるものは同じでも、実装方法がちがったら良いのじゃないか
と思っています。
全く同じものを作っても面白みが無いので、+αはしますが
（商業関係は別です特許が絡んでくるし）

>パクリが嫌ならソースを教えてもらう前に自分で勉強しろ。

>>604 の勝ち

秀丸などの改行を取りたいのですが、どうやって取ったらいいのでしょうか？

秀丸の改行ってなんだ？

秀丸だったら文の最後の↓です。

<A HREF="$url">$url</A> と
<A HREF="tel:$tel">$tel</A> があるんですが、

Phone to機能のない方だけに、cgiをくっつけたいんですが、

$myd = "http://www.○○○.co.jp/";
if ($myd =~ /<A HREF=\"/) {
$myd =~ s/(\<A HREF=\")(tel:)/moji($1.$2)/eg;
}
moji($1.$2) {
if (!$2) {
$myd =~ s/(\<A HREF=\")/$1test0701_2.cgi?$query/ g;
}
}
print $myd;


うまく切り分けられません　泣)

>秀丸だったら文の最後の↓

Ans ↓の前にカーソルを移動させ[Delete]キーで改行が外れます

>>613
そうじゃなくて、プログラムの中で実行したいのですが･･･。

>>614 質問の仕方をまず覚えれ

秀丸などの → テキストファイルの

>>615
すみません

>> 616 s/\n//

>>617
改行が全部なくならないか？

$nameが千葉か神奈川か東京ってこれでいいんですか？

if ($name eq "千葉" or "神奈川" or "東京")

>>592
すみません、気付けません（鬱
教えて下さい

if (($name eq "千葉") or ($name eq "神奈川") or ($name eq "東京"))

>>621
何度もすみません。ありがとうございました。

マウスが乗ると音が鳴るタグを教えてもらえませんか

>>623
スレ違いだとは思わないか？

>>623
http://pc.2ch.net/test/read.cgi/php/1019487717/87-

>>623
+ JavaScript の質問用スレッド vol.10 +
http://pc.2ch.net/test/read.cgi/hp/1022077876/l50
「何」にマウスが乗ると音がなるのかも言って聞いてみて・・・
「タグ」と言っている時点で怒られる怖れもあるから
1>>をよく読んでから質問してね。

>>619
もう解決してるみたいだけど、orと||の優先順位に違いを考慮して
if ($name eq "千葉" || "神奈川" || "東京")
こうだと大丈夫だと思うよ。

>>627
それはだめだろ

>>628
試した上で言ってるの？

>>627=629?
Perlを理解していない典型だね。

>>627

ヴァカ

すまん、>>627と書いたつもりが>>628になっていた。

1：自分はこう言う事がしたい。
フォルダの中に、
「番号」「単語」「単語の解説」の入ったデータファイルがいくつかあります。
そのデータファイルをまとめる親データを作りたいです。
親データには、
単語に対応する番号を単語を辞書的にソートしたものを入れたいです。

具体的には
ファイル１→01 モナー 「オマエモナー」
ファイル２→02 ギコ 「逝ってよし」
ファイル３→03 ジサクジエン 「ｲｲ!」
親データ→02 03 01

みたいな感じです。分かりづらいでしょうか、、

長文すぎたようなので分割します；

2：それでこんな風にやってみたが･･･
$cufld = './';
opendir(DIR, $cufld) or die;
@file1 = sort readdir(DIR);
closedir(DIR);
で、フォルダの中のファイルをリストアップして

foreach (@files) {
で、ファイルをひとつひとつ開いて
open(IN,"$_");
$data = <IN>;
close (IN);
($ind,$word) = split(/\t/, $data);
push (@word , $word);
$NO{$word} = $ind;
}
foreach (sort { $a cmp $b } @word){
print "$NO{$_}\t";
}
という風に出力したかったんですが、

3：それだとこんなエラーが出て上手く行かなかった。
なんだかopendir〜の所で止まってしまいます。
ディレクトリのパーミッションは777にしてるんですが
他にこうやった方が、とか根本的にここが間違ってる、とか
いうところがあったら指摘お願いします。

>>634
@file1を表示してみれば分かるんだけど、opendir() は実際のファイルのほかに
「. (カレントディレクトリ)」「.. (ひとつ上のディレクトリ)」も含まれる。
なのでgrepでもかけて実際のファイルだけ取り出してやらないといけない。

っていうか @file1 と @files って・・書き間違い？ （@file1 = @files　？）

あと $cufld = './'; だと、このCGI自体も含まれると思うんだけど。

>>635
@file1は写し間違いでした。すみません
grep、調べてみました。頭に入れときます。

>>636
そうですね、自身も含まれちゃうんで
ファイル名ではじこうと思います。

でも、@filesを表示する以前に
opendir()でdieしてるみたいなんですが……
ローカルでも、アップした状態でもやってみましたが
結果は同じでした。
環境によっては使えないとか、そういうことってあるんでしょうか。
サーバはxreaを使ってます。ローカルではMacのWEB共有です。

なんだか連続で質問になってしまってすみません
こんな時間にありがとうございますです。

質問です
$line = join('',@lines);
$line = s/***/****/g;

for (0 .. $#lines) {
　　my($tmp) = $lines[$_];
　　$tmp = s/***/****/g;
　　$line .= $tmp;
}
どちらが最適か教えて下さい。
（元のデータは残しておく）

>>639
Benchmark使ってみろ。
そうすればどっちを使うべきかは一目瞭然。

#!/usr/bin/perl -w

use Benchmark;
use IO::File;
my @lines = IO::File->new(__FILE__)->getlines;
timethese 100000 => {
1 => sub{
my $line;
$line = join('',@lines);
$line =~ s/$/:/g;
},
2 => sub{
my $line;
for (0 .. $#lines) {
my($tmp) = $lines[$_];
$tmp = s/$/:/g;
$line .= $tmp;
}
},
};

mod_perlで掲示板を動かしていますが、mod_perl用のディレクトリにある画像を利用出来なくて悩んでいます。
mod_perl用のディレクトリ以下にあるファイルは全てCGIとして使われちゃうと聞きました。
他のディレクトリに画像を移そうかとも考えましたが、スクリプトの修正個所が多くて大変なんです。
Apacheのhttpd.confの設定とかで利用できる用に出来ませんか？

>>641
できるよ。perldoc cgi_to_mod_perl読め。

あとは下記スレで。
[mod_perlを使おう！]
http://pc.2ch.net/test/read.cgi/php/1005122528/l50

質問ですが、指定したディレクトリ内にあるファイル名を全部配列に格納したいです。
できるならやり方を教えて下さい。

>643
opendirとreaddirを使う。
使い方は自分で調べてみよう。

opendir(DIR, dir);
@readlist = readdir(DIR);
closedir(DIR);

ただ、　.　と　..　も入るから注意。って、他にもあったな、やりかた。

opendir(DIR,$dir);
@readlist = grep ! /^\.\.?$/, readdir(DIR);
closedir(DIR);

sub filescan
{
my @dir;

opendir( DIR, $_[0] ) || return 0;
@dir = grep( !/^\.\.?$/, readdir( DIR ) );
closedir( DIR );

foreach ( @dir ) {
if ( -d "$_[0]$_\/" ) {
push( @all, "$_[0]$_\/" );
&filescan( "$_[0]$_\/" );
}
else {
push( @all, "$_[0]$_" );
#print "$_[0]$_\n";
}
}
return 1;
}

sub function
{
}
とかくバカは死ね

opendir(DIR, $dir);
@readlist = readdir(DIR);
closedir(DIR);
splice(@readlist, 0, 2);

効率を気にしなくていいときは
@readlist = <*>;
を愛用してる。こっちは逆にドットファイルが出てこないけど。

>>648ｼﾞｻｸｼﾞｴﾝ（･∀･）ﾃﾞｼﾀ!!
http://pc.2ch.net/test/read.cgi/php/1024741312/71-

おまえ邪魔。

アナル　→　<*>

ありがとうございます。
ファイルの取得ができました。

さらに、この配列を、最終更新日時順にソートする、、なんてことはできますか？
よろしくお願いします。。

>>654


　　少　　し　　は　　勉　　強　　し　　よ　　う　　っ　　て　　気　　は　　な　　い　　の　　か

Perlでテキスト処理に関して、２桁の数字だけを削除したい場合は
どのようにかいたらいいんでしょうか？
今は
s/[0-9]{2}//g;と書いてます。
１桁の数字は残しておきたいんですが…。
どなたかヒントでもよいので教えてください。お願いします。

s/^[0-9]([0-9])$/$1/g;

>657さん
困っていたのでとても助かりました。
どうもありがとうございます！

s/(\D)\d{2}(\D)/$1$2/g;

今クリック数をカウントするCGIを作ってるのですが、
クライアントから送られてくるデータが

id=1&url=http://www.***.com/

だったばあい、

$idの中身を1に
$urlの中身をhttp://www.***.com/

にしたいのですが、今は

$data = $ENV{'QUERY_STRING'};
@data = split(/\&/,$data);
$id = $data[0];
$url = $data[1];
%id = split(/\=/,$id);
%url = split(/\=/,$url);

となんとも効率が悪いやり方なのですが自分の知識ではこのようにしか
やり方が分からないのですがもっといいやり方は無いでしょうか？

それともし$dataに「&と=」が無かった場合はexitで終了させたいのですが
どのように調べればいいのでしょうか？

よろしくお願いします。

$buffer = $ENV{'QUERY_STRING'};
if (($buffer !~/&/ )&&($buffer !~/=/){exit;}
local(@pairs) = split(/&/,$buffer);
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}

　) がひとつ足りなかった。

&と=が正規表現で調べることが出来ることは分かったのですが、

$FORM{$name} = $value;

これは%FORMというハッシュの中にkeyが$nameでvalueが$valueというのを
代入してる処理なんでしょうか？

local(@pairs) = split(/&/,$buffer);
この処理で、
id=1&url=http://www.***.com/　を
id=1 url=http://www.***.com/ に分割し（@pairsに）
foreach $pair(@pairs){
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}
で　それらをさらに分ける。
$FORM{$name} = $value;
は
$FORM{id} = 1;
$FORM{url} = http://www.***.com/;
になるから%FORMに入れられる。あとはこれらを自由に処理するだけ。

>>664

なるほど。理解できました。ありがとうございます。

ちなみにローカル変数はサブルーチン内で使うものでわなかったでしょうか？
サブルーチン化したほうがいいのでしょうか？

>659さん
こちらは２桁ともに削除できるんですね。
勉強になります…！ありがとうございます。

ちなみに

split(/=/,$pair);

これは

=の前に\を入れてエスケープするんですよね？

エスケープしないで使ってる人が多いな。
たいていはサブルーチン化して、GETもPOSTも対応してる。

local($pair,$buffer);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
local(@pairs) = split(/&/,$buffer);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}

open(FILE, "./log.log")　で作成したログのパーミッションが 644 で生成されるんですが、
これを 600 で生成されるようにするにはどうすればよいでしょうか？
CGIはユーザー権限で動いています。
おながいします。

まちがった・・ open(FILE, ">./log.log")　でした

>>670
umask

>>671
umask関数ですね。検索して調べてみます。

umask 066; でできました。 >>671 さんありがとうございました。

open,umaskとするよりsysopen使うのがおすすめだぞ。
openよりはセキュアかもだしな。

>>674
もうできたからいいよ。っつーか書くのがおせーよ！
氏ね！

>>675

偽者ｹﾃｰｲ

perl初心者です。Activeperlのﾌﾟﾛｸﾞﾗﾑを動かしてInternetExplorerを起動したいんですが
どのようにすればよいでしょうか？

exec(C:\Program Files\Internet Explorer\IEXPLORE.EXE);

`C:\Program Files\Internet Explorer\IEXPLORE.EXE`

レンタルサーバーでsendmailが使えない場合、ほかにメールを送る方法ってありますか？

Net::SMTP

JavaScriptをperlに書き換えたいのですが
★の部分の書き方がわかりません。（ぺこり）
他も間違いありましたら教えて下さい。
-------------------------------------
functuon myfun{
P=document.F.E1.value+document.F.E2.value+document.F.E3.value;
T=0;
for(i=0;i<P.length;i++){T=T+eval(P.charAt(i))}
if((T==11)||(T==22)){document.F.E4.value=hoge[T]}
else{while(T>=10){T=T-9;}
document.write(hoge[T])
}
-----------------------------------------
foreach $data ( @buf ){
( $name , $value ) = split( /=/ , $data );
$FORM{$name} = $value;
@list = values %FORM
};

$P = $list[0]+$list[1]+$list[2];
$T = 0;
for($i=0; $i<★; $i++){$T=$T+★($i)};
if(($T==11) || ($T==22)){$list[4]=hoge[$T];}
else{while($T>=10){$T=$T-9;}}
print "hoge[$T]";

>>681
せめて変数が何あらわしてるかぐらい書け。

>>683
整数
document.F.E1.value
document.F.E2.value
document.F.E3.value

計算をするための作業用の変数
P
T

Pのlengthを取得するためのカウンター用の変数
i

他のはformに入力された値を取得するための変数です

とりあえずこんな感じ

for($i=0; $i<★; $i++){$T=$T+★($i)};
↓
for($i=0;$i<length($P);$i++){$T=$T+substr($P,$i,1)}

>>684さん
おはようございますっ♪
あ〜感謝！うれしいです。

「http://サーバー名/CGIスクリプト名?データ」で実行し、
データの受け渡しをするプログラムを作っているんですが、
他のURLへジャンプさせるときに、
<A HREF="http://***/CGIスクリプト名?ジャンプ先URL">ジャンプ</A>
としたいんですが、ジャンプ先URLをフルパスで出せるようにするには
どうしたらいいですか?以下がつくった内容です。
my($encoding) = @_;
my($method) = $ENV{'REQUEST_METHOD'};
if ($method eq 'GET') { $query = $ENV{'QUERY_STRING'}; }
elsif ($method eq 'POST') { read(STDIN, $query,
$ENV{'CONTENT_LENGTH'}); }
local(@query) = split(/&/, $query);
foreach (@query) {
tr/+/ /;
($key, $val) = split(/=/);
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/\r\n/\n/g;
$in{$key} = $val;
}
my $req = new HTTP::Request POST => $val;
$req->content_type('application/x-www-form-urlencoded');
$req->content('match=www&errors=0');
my $res = $ua->request($req);
if ($res->is_success) {
$myd = $res->content;
$myd =~ s/(\<A HREF=\")/$1test.cgi?/g;
print $myd;
} else {
print "No!";
}

今の状態ですと、
$myd =~ s/(\<A HREF=\")/$1test.cgi?/g;
をやると、
<A HREF=test.cgi?test/index.html> というような感じになって
<A HREF=test.cgi?http://www.***.co.jp/test/index.html>
というような形になりません。

入力データをハッキリと明示しないと答えようがないだろ。
入力データをハッキリさせたら正規表現スレで質問すべき問題だろ。

> 687
686です。
<A HREF="http://www.test.co.jp/test.cgi?http://www.test.co.jp/next.html">ジャンプする</A>
正規表現スレでやればいいんですか？
それ以前のヴァカなもので、初心者スレで書き込んだんですが、
それも場違い？
答えも見つからず、困っていたのに（泣）

リンクを表示させるだけなら
$link= qq(<A href="CGIのURL?$ENV{'QUERY_STRING'}">XXXへのリンク</A>);

フォームから入力された文字の最大数を制限するとか、
半角数字以外が入力されたらエラーメッセージを返すとか

どう呼ぶのかわからないのですが、
よく使われる処理のモジュールというかライブラリーと言うのか
そんな感じのものを探すにはどうしたら良いですか？
googleしてみましたがキーワードが甘いらしく見つかりませんでした

age忘れました

文字数を制限するなら、$ENV{'CONTENT_LENGTH'}の値を見るとか。
　送られてきたデータが /[^0-9a-zA-Z}/ 以外なら die とか。

超即レス　thank you!です。

たとえば（3,3,10,6,1）という配列があって、コレをソートすると
1 3 6 10と返ってきてしまうのを、どうにかして
1 3 3 6 10にできないものでしょうか・・・？

>>694

@data = (3,3,10,6,1);

@sort_data = sort
{
$a <=> $b;
} @data;

> 689
それだと、受け取ったURLそのまま出ちゃうんじゃないかい？

ARGVって何？どうやって読むの？アーグブイ？

ARGment Value

argument だた。。。

麻酔をせずに歯を削られているような気分で、
「アァァァーグヴィ！」

じゃなかったっけ？

なるほど納得！

SOCKET使って外部のCGIにPOSTしてみたいのですがなかなかうまくいきません。

FORMを取得して
$post_mes="[email protected]&wcomment=test";
って感じにして(多分ここが違う？)

# POST
print SOCKET "POST $check_host HTTP/1.1\r\n";
#HTTP_REFERERを送信
print SOCKET "REFERER: $referer \r\n";
#User-Agentを送信
print SOCKET "User-Agent: $agent \r\n";
print SOCKET "X_FORWARDED_FOR: $xfor \r\n";
print SOCKET "Accept: */* \r\n";
print SOCKET "Accept-Language: ja \r\n";
print SOCKET "Accept-Encoding: gzip \r\n";
print SOCKET "\r\n";
print SOCKET "Content-Type: application/x-www-form-urlencoded\r\n";
print SOCKET "Content-Length: $length\r\n";
print SOCKET "\r\n";

print SOCKET "$post_mes\r\n";

みたいな感じでやってみたんですが駄目でした。
なんの反応もないみたいです。

なお、いたずら目的ではありません。Perlも自分のPCで動かしてます。

>>702
犯罪の悪寒・・・

>>703に禿げ同

ひょっとして外部からPOSTしては駄目なのでしょうか？
すいません。よく知らなくて・・・

>>702
lwp 使った方が楽だと思われ。使えない環境？

>>706
lpwってのはよくわからないです・・・
環境はWinでPerl5です。

掲示板荒氏用のスクリプトでも参考にしなさい。

>>707
検索ぐらい汁。
もっとも、"lpw" ではないが。

>>708
dukeとか言うのですよね。探してみます
>>709
すいません。
lpwで検索してもよくわかんないと思ったらlwpだったんですね・・

何の反応も無いじゃ解らん
print while(<SOCK>);

ってして、どんなレスポンス帰って来てるのか読んでみ

教えて下さった方、ヒント下さった方、ありがとうございました。
なんとかPOSTできました。

>>698違う

ARGV = ARGuments Variable

だろ。

Value = 値
Variable = 変数

少しは勉強しろ

>>713
..... argument vector

ココ最高でした。サンプルとかタダだし、ネタとしては使えると思います。
ちなみに僕はロリです、同士な人はいってください。
http://muke.up.to

@data=(1,2,3,11,34)の様な配列が、あった場合
0〜99の数字で(1,2,3,11,34)を含まない、配列を得るにはどうしたら良いのでしょうか？
例えば、（4、5、12）

GETかPOSTかメソッドを判別し、
＆ と = をsplitして文字コードを変換したんですが、

local(@query) = split(/&/, $query);
foreach (@query) {
tr/+/ /;
($key, $val) = split(/=/);
$key =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
$val =~ s/\r\n/\n/g;
$in{$key} = $val;
}

送られてくるデータの引数が複数ある場合は、このほかに
何かつけ加えなければならない？

local($pair,$buffer);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else {
$buffer = $ENV{'QUERY_STRING'};
}
local(@pairs) = split(/&/,$buffer);
foreach $pair (@pairs) {
local($name,$value) = split(/=/,$pair);
$FORM{$name} = $value;
}

=~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1 )/eg;

>>716答え教えるの面白くないからヒントね


@data = (1, 2, 3, 11, 34);

for ( 0..99 )
{
　foreach ( @data )
　{
　　push
　}
}

>>716
4, 5, 12を除いてみた．

%exclude = (4 => 1, 5 => 1, 12 => 1);
@data = grep { !$exclude{$_} } 0 .. 99;

>>720
ｽﾏｿ…

> 719
それってどういうこと？
よくわかんない…、スマソ

=~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("c", hex($1))/ge;
より、
=~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1 )/eg;
の方が早いって言いたいんじゃない？

>>720
>>721
　こんなに、すぐレスくれるなんて思っていませんでした。
有り難う御座います。

これから、考えてみます。なにせ初心者な物でチンプンカンプンです。

Win2000pro上でwwwサーバーを起動するところまではできたのに
CGIファイルをエクスプローラーで見ようとすると文字化け！　ヽ(`Д´)ﾉ 　ｳﾜｧｧﾝ
レンタルサーバー上にアップしたら文字化けしないのに！　ヽ(`Д´)ﾉ 　ｳﾜｧｧﾝ

>>726
print "Content-type: text/html; charset=Shift_JIS\n\n";　ヽ（´∀｀　）ノ

パールって、
$a = 10;
だと
$a2 で 20 になるのですか？

>>728
するどいな。だれにおそわった？

ソース見てたらなんとなくそう思ったのです。

本当なの？
$a2 って変数は使えないの？

パスワード入力みたいのでさ
入力した文字を****と表示して
さらにクッキーにも****と記録するにはどうすればいいの？

…別に使う訳じゃないんだけど興味。

$a + 2 足し算
$a - 2 引き算
$a * 2 掛け算
$a / 2 割り算

>>731
crypt関数で暗号化してから記録

>>733
さんきゅ。
後は調べる

おもったけどさ、削除パスを暗号化する前にいったん別ファイルに記録しとけばそいつがのホームページの掲示板の管理パスとかフリーメールにログインできたりするよな

http://www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=utf-8&as_qdr=all&q=%E4%B8%AD%E5%AD%A6%E7%94%9F++%E5%9B%BD%E8%AA%9E%E5%8A%9B+%E4%BD%8E%E4%B8%8B+%E5%95%8F%E9%A1%8C&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

>>728
さんは凄腕になれますね、、

>735
全てのパスワードを同じ物にするようなマヌケな奴相手ならな。
まぁ、マヌケが多いのは確かだが。

>>738
ユーザは性アフォ説で接していかないと・・・。

数字以外が入力されたらエラーメッセージを出したいのですが
うまくいきませんでした
どうすれば良いですか？

#入力されたのが数字かどうかチェック
if($P eq /[^0-9]/){print "数字を入力してください。";}
else{

if($P == /[^0-9]/){print "数字を入力してください。";}
else{

正規表現使うときは、

　　=~ //

だろ。

>>714
できましたーーー！！
ありがとうございます

>>742
誰に御礼を言ってるんだか。

>>741さんでした（汗
ありがとうございます

（≧∇≦）

404とかのエラーコードを吐き出させるのってどうやるのですか？

あ、分かりました。

>>740
/[^0-9]/ → /^[0-9]+/

>748
それだと意味が変わるぞ。
>740の書き込みとif文の構成をよく見ろ。

>>748
それやるなら、
if ( $P !~ /^[0-9]+/ ) { }
か
unless ( $P =~ /^[0-9]+/ ) { }
じゃないと。

>>746

.htaacessでやるんじゃなかったっけ？

>>751
うわっ、何てｶｺｲｲトリップなんだ！

>>752

トリッパー使って３時間ほどadminで検索してたら偶然SE付きのがHITしますた

$fied[1]にはいってるすべての文字列【日本語含む】を@にしたいとき
$fied[1]=~tr/a-zA-Z_0-9\/.\n?-!"#$%&'()\=~|\{\`\+\*}_?><,\/\\\];@\[\\^-/@/cs;
↑このように書くしかないんですかね？
[a-zA-Z_0-9]以外の文字ぜんぶをあらわす特殊変数みたいなのありませんか。

[a-zA-Z_0-9]以外って、
[^0-9a-zA-z\_]じゃだめなの？

\W

>>750
!~ /^[0-9]+$/ のほうがさらに

=~ /\D/
じゃだめなの？

CGIにデータを渡すときに、URLエンコードをしようとして

$arg =~ s/(\W)/'%'.unpack("H2", $1)/ego;

のunpack関数を使ってみたんですが、これだと、
最初の文字1文字しかエンコードされないですよね？　
例えば、
$arg=test.html?list=リスト&name=名前　
なんかだと、最初の「リ」だけじゃなく、
「リスト」と「名前」の該当する文字全部が
変換されるようにするには、どうしたらいいですか？

o　が余計。

一度だけコンパイルか

>>759
おまいのegoがでてるよ。

>>762
ﾜﾗ･･･いかけた

(・ｗ・)ﾌﾞﾊッ! ﾜﾗﾃｼﾏﾀ

（･∀･）ﾆﾔﾆﾔ

>>760, >>761
君たちは勘違いをしている。s/foo/bar/という構文の中で正規表現は
"foo"の部分だけなので例え"o"オプションをつけたからといって"bar"
のほうにはなんら意味がない。"o"は「正規表現」を一回だけコンパイル
するオプションであって置換内容をコンパイルするものではないという
事だす。

my $target = "AAAcccAAA";
for my $replacement ( qw/ bbb ddd / ) {
my $tmp = $target;
$tmp =~ s/ccc/$string/go;
print $tmp, "\n";
}

ヘッダとボディの区切りがもう出力されたかどうかどうやって調べるの？

↑こいつは一体何を言いたいのかさっぱり解らない

こっちから、また尋ねないと解らないような質問ヤメテくれ

>>768
説明がおかしかったですか。。例えば、

print "Content-type: text/html;\n\n";

こうゆうのが出力された後ならCookieに書くとかできないじゃないですか
だから、ヘッダが出力されているかどうか調べたいのですが。。
こういたことはできますか？

ソース追ってるのか
>print "Content-type: text/html;\n\n";
こう言うのを探せば良いんじゃ無いの？
端末側で吐いてる事確認したいのなら
オミトロンとかで吐き出せる

>>769
ヘッダとボディの区切りは改行

print "Content-type: text/html;\n";
print "Set-Cookie: name=value;\n";

〜〜〜　↑ヘッダ　〜〜〜

print "\n";

〜〜〜　↓ボディ　〜〜〜

print 〜〜〜

>>754
$fied[1] = '@' x length($fied[1]);

>>770
ソース追ってるってことではないです。。
>>771
それは分かっています。
区切りの改行が出力されたらもうヘッダに書き込めなくなるじゃないですか
だから、区切りの改行が出力されたかどうかPerlで調べたいです

こういったことはできないのでしょうか。

>>773
判断する必要性がない。

>>774
無理ってことですか？

ヘッダとボディの区別は一応あるが、perl内部ではprintで吐き出された結果に過ぎない。
perlではそんなことをいちいち区別してない。

>773　perlはHTTPDのエクステンションじゃ無い、ただ標準出力に
printの内容を送るだけ、そのあとはhttpdの仕事
判断するなら771の言うように改行を調べれば良い。

>>出力を見張る

our $headers_end;
sub myprint
{
$headers_end = 1 if /^$/;
print @_;
}

とか、どう？。
printをオーバーライドしてもいいかも。


# >>753 トリップ変えました。ありがとう

test

>>778

どういたしますて

http://pc.2ch.net/test/read.cgi/php/1026141215/ から

> GDモジュール、どうしても使えない。。
>
> 1 ：nobodyさん ：02/07/09 00:13 ID:k+y90VS+
> サーバはWebARENA Suite、
> GD.pmを使おうと
> サーバにコンパイル済みのGD1.27をアップするがどうしても
> うまく動かない。
>
> perl: error in loading shared libraries: ./auto/GD/GD.so: undefined symbol: gdImageJpegPtr
>
> こんなエラーが出る。。
> どうすればいいのか。。
> WebARENAはPerlは5.0.503だから、その環境でコンパイルしたものを選んだ。
> なぜだ、、何が、、いったい。。

>>781 続き

例によって親切には説明するつもりはないのでそのつもりで。

1. とりあえず telnet.cgi をまともに動かして。
2. gd-1.8.4.tar.gz（libgdのソース）というふぁいるをGETして。
3. CPANよりGDモジュールのソースふぁいるをGETして。
4. 二つのファイルをtelnet.cgiと同じdirにUPして。
5. 二つのファイルをtarで解凍して。
6. インストール先dirをcgi-bin以下にlib,include,bin,man作成
7. gd-1.8.4/Makefileを編集（インストール場所を6で作成したdirに設定）
8. gd-1.8.4をmake; make install
9. GD-1.40/Makefile.PLの
　　$DEFINES .= ' -DHAVE_XPM' if $XPM;
　　をコメントにする。
10. GD-1.40のDIRで[ perl Makefile.PL LIB=/virtual/おまえのIP/cgi-bin/lib/perl5 INSTALLMAN3DIR=/virtual/おまえのIP/cgi-bin/man/man.3 ]実行
11. 10で出来たMakefileに8でインストールしたgdへのLIBパスとINCパスを追加して，X関連のリンク（だっけ？-lx11とか）を削除
12. make; make install
13. GD使うスクリプトの冒頭で #!/usr/local/bin/perl -I../lib/perl5/i386-linux とでもしてくれ。
15. あとはてめぇでがんばれ。
16. 意味がわからん？ってか，わからんならやらないでくれ。他に迷惑がかかるかもしれんし。

とりあえず，demo/gd_example.cgi は動いたぞ。
# /usr/libにlibgdがあるのにヘッダがない罠…。

いくらわからんからって単発ｽﾚは立てないでくれ。
あなたのｽﾚ立てのために他のｽﾚがdat落ちするじゃね〜かよぉ〜。