【Perl 】初心者コーナーPart7

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

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

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

参考書籍はこちら【【Perl,CGI】参考書籍 第２版 】
http://corn.2ch.net/test/read.cgi?bbs=php&key=988809842&ls=50
CGIの質問はこちら【ＣＧＩだけど、なんか質問ある？part３】
http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833&ls=50

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

[過去ログ]
Part1　http://tako.2ch.net/test/read.cgi?bbs=perl&key=957208980
Part2　http://tako.2ch.net/test/read.cgi?bbs=perl&key=971817087
Part3　http://tako.2ch.net/test/read.cgi?bbs=perl&key=979894521
Part4　http://tako.2ch.net/test/read.cgi?bbs=perl&key=984430156
Part5　http://corn.2ch.net/test/read.cgi?bbs=php&key=988728069
Part6　http://corn.2ch.net/test/read.cgi?bbs=php&key=996075607

[ひまぢん氏のミラー]
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 Recipes: http://www.effectiveperl.com/recipes/
　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm
　・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/
　・PerlMonth - Online Perl Magazine - : http://www.perlmonth.com/index.html
　・use Perl All The 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
　・Perl for Newbie: http://www.harukaze.net/~mishima/perl/index.html
　・Logical Choice Software, Home Page: http://www.logsoft.com/perltips/
　・Perlfect Solutions: http://perlfect.com/
　・The Perl Archive : http://www.perlarchive.com/

[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
　・CGI and Security http://www.japu.org/cgi/security/
　・Perl security和訳：http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlsec.html
　・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

文面は伝統だったのかな?・・ 漏れのBOOKMARKも適当に足しました。

オツカレー

・Linuxの日本語マニュアル
http://www.linux.or.jp/JM/
sendmailとかgzipとかのマニュアルも読める。

>>1
ｺﾞｸﾛｳｻﾏ
　　　　　　　　　　　　　　　
・FreeBSDの日本語マニュアル
http://www.jp.freebsd.org/man-jp/

前スレ930です、向こうに書こうとしたら誘導されちゃった　^^
931さん932さんどうもです。
取り合えず連装配列が簡単そうなので、これでやってみる事に
しました。
パッケージも使ってみようと思います、ありがとう

新しくなったのでもう一度

TwnLounge Faith editionというスクリプトにクッキーを発行させたくて
悪戦苦闘しています。KENTさんのスクリプトのクッキー発行・取得の部分をとってやって見たのですが
うまくいきません。どなたか教えていただけるとありがたいです。

http://www.hpfree.com/giants/lng.txt
↑実際使っているサーバーはCGI可です。

GETできてません。
SETはできてるのかわかりません・・・

よろしくお願いします。

>SETはできてるのかわかりません・・・
こういう事言われるとどこから説明していいか解らんのだが。。
良く見てないが、%in はクライアントのクッキーの値でわ
それをSetしても初回訪問者の %in は常に空だから永遠に発行出来ないと
セットするのは %FORM では無いのか
何故、printの手前で手動で値を代入したりしないのか
もしperlはどうでも良いからクッキーだけ喰わせたいと言うなら
改造スレッドの方が答えが得られると思うがどうか

何かキツイ言い方かな、多分新規発言モードとレスモードがあるんだろ
からまずは新規発言モードにFORMの内容セットしてみれ>>9

見てみたけど%in ($in{...}) って何？突然現れてるけど。
フォームの受け取りは %FORM だろ？1083行辺りのサブルーチンreadParamを見れ。
$in{...}を全部$FORM{...}に。


1192行からの

$c_name = $ck{'NAME'};
$c_email = $ck{'EMAIL'};
$c_hpage = $ck{'HPAGE'};

でクッキーをセットした時のキーを使ってない。

name\:$FORM{'NAME'}\,email\:$FORM{'EMAIL'}\,url\:$FORM{'HPAGE'}

でやったんだから nameとemailとurlだろ。


あとURLの入力フォームはデフォルトでhttp://が入ってるから、
クッキーをセットする前に$FORM{"HPAGE"}からhttp://を取れ。

set_cookieサブルーチン内で

$FORM{"HPAGE"} =~s/http:\/\///;


何も考えんでコピーしても動くはず無いし、進歩もしないぞ。


つかKENTのスクリプトってcookieのエンコードしてねぇの？
ダメダメじゃん。

> まずは新規発言モードにFORMの内容セットしてみれ

言葉が理解できません・・・
簡単に言うとどういうことですか？

未熟者で本当にすいません。

無茶くちゃだってば、
デリミタがGETとSETで違う
getとsetで使ってる名前が違う
全体に変数名が無茶苦茶
: 使いたいならエスケープすれ
getとset違うスクリプトから持ってきてんのか?
もう何が何か解らん
上手く行ってもこのままじゃ日本語は使えない

>>13
簡単に言う。

コピペで済まそうとするな。少しは勉強しろ。

てゆーか>>12ので良いべ？

>>12 やってみましたがだめでした
http://www.hpfree.com/giants/lng.txt

> getとset違うスクリプトから持ってきてんのか?
同じスクリプトからですけど・・・

> コピペで済まそうとするな。少しは勉強しろ。
ごもっともだと思います。

今回の事が解決すれば改めて勉強をしようと思いますのでよろしくお願いします。

>>>12 やってみましたがだめでした
>http://www.hpfree.com/giants/lng.txt

やってねーじゃねーか。

|1192行からの
|
|$c_name = $ck{'NAME'};
|$c_email = $ck{'EMAIL'};
|$c_hpage = $ck{'HPAGE'};
|
|でクッキーをセットした時のキーを使ってない。
|
|name\:$FORM{'NAME'}\,email\:$FORM{'EMAIL'}\,url\:$FORM{'HPAGE'}
|
|でやったんだから nameとemailとurlだろ。

は無視かえ？

ノーミソ使えんなら改造なんかするな。

urlをhpageにしたんですけど・・・

大文字じゃないと駄目ですか？

そもそも
> KENTさんのスクリプトのクッキー発行・取得の部分をとってやって見たのですが
自体がいいアプローチなのか?

12でも書かれてるが、cookieをエンコードしてない時点で駄目。
;とか入るとおかしくなる。
１つのクッキーに , 区切りでセットしてキーと値を : のに
, と : が値に入る可能性を考慮していないのも駄目。

IEからJScriptで取る場合は日本語がエンコードされてると
正常に取れないけど。（IE 5で検証）
だから２ちゃんはエンコードしてない。
そういう事情は無いのにエンコードしない。
阿呆としか思えない屑スクリプト。

日本語が変だ。

>１つのクッキーに , 区切りでセットしてキーと値を : のに
>, と : が値に入る可能性を考慮していないのも駄目。

キーと値を : で区切り、それを , で連結しているのに、
, と : が値に入る可能性を考慮していないのも駄目。

に訂正。

それじゃ、改造しなおそうかと思ってきたのですが

どこで配布されているCGIのものが移しやすいのでしょうか？

もしくわ打開策を教えていただけるとうれしいのですが・・・

データソートの質問です

【ソース】
------------------------------------------------------------
#ファイル読み込み
open(IN,"$datafile");
@lines = <IN>;
close(IN);

#ソートしてから重複データを削除する
@lines = sort { $a cmp $b } grep ( !$count{$_}++, @lines );

#書き込み更新
open(OUT,">$datafile");
print OUT @lines;
close(OUT);
------------------------------------------------------------

データ形式は
63,父Ａ,30,母Ａ,27,息子Ａ,5,娘Ａ,1
158,父Ｂ,55,母Ｂ,52,息子Ｂ,27,娘Ｂ,24
：
：
[家族の合計年齢],[名前],[年齢]・・・・
というcsvファイルなのですが昇順ソートすると
158→63の順になってしまい私の希望するソートができません

３桁の数字[158]よりも２桁の数字[63]を先に並べるにはどうしたらよいでしょうか？

$a cmp $b

　　↓

$a <=> $b

質問です。いま、ファイルに入力されている数字を多い順からn個抜き出して表示するプログラムを作ろうと思うのですが、
どうすればよいのでしょうか？
ちなみにデータファイル形式は、こんな感じです。
1,5,3,8,4,6
1,6,4,9,7,8
1,3,2,4,6,8

ヒントでも良いのでお願いします。

なんとか自分で解決しました。

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

>>26
ハッシュ、ソート使う

>>26
$n=5として、
9, 8, 8, 8, 7 か
9, 8, 7, 6, 5 のどっち？

>25
なるほど、解決しました
ありがとう

>>29
9,8,7,6,5の方でお願いします。

聖可

>>26
こんな感じ？

my $N = 5; #表示する最大数設定

#カウントする
my %count;
while(<DATA>){
foreach my $number(split /,/){
$number += 0;#数値化
$count{ $number}++;
}
}

#値でキーをソート
my @keys = keys %count;
@keys = sort {$count{$b} <=> $count {$a}} @keys;

#表示
my $junni = 1;
printf "%7s %7s\n",'number', 'count';
printf "%s\n", '='x20;

foreach (@keys){
printf "%7s %7s\n",$_, $count{$_};
$junni++;
$junni > $N and last;
}

__DATA__
1,5,3,8,4,6
1,6,4,9,7,8
1,3,2,4,6,8

$n = 5;
undef $/;
my %tmp;
my @big_n = (sort { $b <=> $a } grep { ! $tmp{$_}++ } split /[,\n\s]+/, <DATA> )[0..$n-1];
print join ', ',@big_n;

あ、間違った。全然意味が違うね

やけくそで一文。真似しちゃダメな例。

my $n = 5;
my %tmp;
print map { "$_ => $tmp{$_} times\n" } (sort { $tmp{$b} <=> $tmp{$a} } grep { ! $tmp{$_}++ } split /[,\n\s]+/, <DATA> )[0..$n-1];

テキスト中にあるタグを分解するスクリプトを作っています。
<xxx attribute="value">
というタグを
$tag->{xxx}->{attribute} = value;
という感じに変えたいと思っています。

$text = q|<img src="../pen.gif" alt="This is a pen." width=10 height=20><br>
<font size=3 color=#ff0000 face="Arial" style="text-decoration: overline underline;">あああ</font>|;

@tags = map{ m/<(.+?)>/g } $text;

for(@tags) {
@array = split / /;
$xxx = shift @array;
for (@array) {
/([^=]+?)=["']?([^"']*)["']?/i;
$tag->{$xxx}->{$1} = $2
}
}

print <<"_EOF_";
$tag->{img}->{src}　　（実際の出力結果：../pen.gif）
$tag->{img}->{alt}　　（This）←ここで値が切れてる
$tag->{img}->{width}　（10）
$tag->{img}->{height} （20）
$tag->{font}->{size}　（3）
$tag->{font}->{color} （#ff0000）
$tag->{font}->{face}　（Arial）
$tag->{font}->{style} （text-decoration:）←ここで値が切れてる
_EOF_

これだと、"This is a pen."など半角スペースを含んだ時に期待通りに動いてくれません。
何か上手い方法はないでしょうか？

>>37
$_ = q<font size=3 color=#ff0000 face="Arial" style="text-decoration: overline underline>;

s/"//g;
s/(.*?)([\w\d-]+)=/$1,$2,/g;
my @str = split /,/;

#前後の空白削除
foreach(@str){
s/^\s+//;
s/\s+$//;
}

#display
print shift @str;
while(@str){
my $attribute = shift @str;
my $value = shift @str;
printf " %-15s: %s\n",$attribute,$value;
}

chmod が出来ません。
ユーザから任意の値を受け取って 666 なら
$mode = sprintf ("%04d",$mode);
chmod ("$mode","$file");
というようにしてるのですが、時々謎の(110とか)値になってしまうのですが。。

chmod (0777,"./foo/boo"); なら大丈夫なんです
手前で適当にprintしてみても 、$mode 　0777 、 $file ./foo/boo
みたいにちゃんと値は設定されてるんです
evalとか使わないと駄目なんでしょか?
chmod (eval($mode),"$file");　じゃ駄目ですし

chmod ("$mode","$file");　　←$mode がいけないみたい
777で411になります　　-＿-..

>>38
ありがとうございました！
空白の扱いが非常に参考になります。
とても助かりました。

>>39
umask(000);

>>42
ありがとう、でもこの場合どういう風に使えばよいのでしょうか?
どうも$modeの中の値が10進表記と解釈されて0777(DEC)=>1411(OCT)
で411になっている様です
sprintf とか oct を使えば良いのでしょうか

うまく逝きました。。
$mode = "777";
$mode = sprintf ("%04d",$mode);
$modeoct = oct($mode);
chmod ("$modeoct","$file");
でも何故かが解らないです。。
8進数の10進表記??? 謎。。。

>>44
まんま、
perldoc -f chmod

>>45
ありがとう、
$mode = '0644'; chmod oct($mode), 'foo';
だと文字になっちゃうからヤバイよと言う事かな。。
"'0644'"は駄目なんですね、難しいです。。
perldoc知らなかったです、勉強になります、ありがとうです>>45

単発スレで怒られました、申し訳ないです。
自分でも頑張って探してみますが、質問します。

他のコンポーネントを使わずに、メールサーバを割り出す方法はどうすればいいのでしょうか？
例えば、[email protected]の場合、メールサーバはhoge.comだったり、mail.hoge.comだったり、
MXによって変わってきますよね？その場合はどう処理すればよいのでしょうか？

Net::DNS で MX みる。
tu-kahokanokonnpo-nenntottenani

ただの変換ミスさね。

>>48
＞他のコンポーネントを使わずに、メールサーバを割り出す方法はどうすればいいのでしょうか？
なので、Net::DNSは使えないです、他の方法は無いでしょうか？

じゃあ、Net::DNSがやってることをそのままやればいい。
ソースみれ。

>>51
わかりました、そーします

素直に nslookup 呼び出す作戦とか。

#! /usr/local/bin/perl -wT

$addr = shift || '[email protected]';
$addr =~ /@([a-zA-Z0-9.-]*)/;
$domain = $1;

$ENV{PATH} = "/bin:/sbin:/usr/bin:/usr/sbin";

print "MX for $domain:\n";

@mx = (sort { $a->[1] <=> $b->[1] }
map { /preference = (\d+), mail exchanger = (.*)/; [$2, $1] }
grep /mail exchanger =/, `nslookup -type=MX $domain`);

print "$_->[0] (preference $_->[1])\n" foreach @mx;

__END__

>>53
nslookupを呼び出すのは禁止なんですよね。
困った困った。

aa

-wTスイッチとか use strictは、もしかしてコマンドラインじゃないと意味無しですか？
HTTPD立ち上げてブラウザからhttp://127.0.0.1/で掲示板とか作ってるんですが・・。

各所で-wT使え strict使えとか言われてるのに使えなくて困っております。

1 にも書いてあると思うんだが, もうちょっと「使えなくて」をちゃんと説明してくれ

あぼーん

>>56
多分、-wT は
#!/usr/bin/perl -wT
がやりたいんだと思われ。

で、use strict の使い方と意味知ってますか。

>>56
というわけで、perldoc strict かな。

>>59
良いトリップですな。

fetchmailというPOPサーバからローカルスプールへメールを
取り込むプログラムがありますが、同じようにWebベースの
メールをローカルスプールに取り込むperlスクリプトを作りたい
のですが、それを書くのに便利なモジュールとCGIとの会話に
必要な知識が載っている資料(RFCかweb)を知っていたら
教えていただけませんか。

>>61
そんな都合の良いもんねーよ。

もっと基本からはじめろ。

>>62
そうでしたか。結構CPANとかには「そんな都合のいいもの」って
思うようなものもあるので、誰かが作っているかもって思ったの
です。LWPとか使って書くしかないってことですか。

>もっと基本からはじめろ。
車輪の再発明を避けようと、似たようなモジュールがないか探した
だけで、基本に戻れってことですか？

Webmailなんてサイトによって全然違うんでは?
LWP以上の何を求めてるのかが解りませんが
hotmail.pmみたいなのを探してるのか。。。

>>64
たしかに違いますが、大手のinfoseek, exciteくらいなら使っている
人も多いし、webメールが面倒って思って作っているひとがいるかも
って思ったので^

>LWP以上の何を求めてるのかが解りませんが
各WEBの違いを吸収してくれるモジュールがあれば…ってことです。

>hotmail.pmみたいなのを探してるのか。。。
それってあるのですか? CPANとgoogleで検索かけても見つけ
られませんでした。

だから無いってば、大体本家の仕様がかわる度に(以下略
そもそも世界中に一体何千のサービスがあって(以下略

>>66
了解。

ttp://www.f2s.comのフリースペースに
ttp://www4.tkcity.net/~elmo/accessory/wforum.htmlを設置しようと思い、
「#!/usr/local/bin/perl」のパスを「#!/usr/bin/perl」に変更し
cgi-binとbbsディレクトリのパーミッションは755に変更。
後は以下のように変更しました。
wforum.cgi(755)
wforum.log(644)
wf_admin.cgi(755)
index.cgi(755)
1.html(644)
pastno.dat(644)
index.html(644)
title.gif(644)
jcode.pl(644)
fold.pl(644)
accesslog.log(644)
code.log(644)

ですが、どうしても「500 Internal Server Error」と出てしまい動きません。
たぶんパーミッションが間違ってるのかな？と思いますが
どう変えれば良いのかがわかりません。
誰か教えて下さい、お願いします。
ちなみにFTPソフトは「Fetch3.0.3J2」を使ってます。

>>68
頑張ってください、と言いたい所だが。
スレ違いです。

ＣＧＩだけど、なんか質問ある？part３
http://corn.2ch.net/test/read.cgi?bbs=php&key=988727833&ls=50

>>69
つーか、 use CGI::Carp してみたら助かること多いのにね。

>>68
KCatch.pm使ってエラーメッセージ表示できる。
続きはCGIスレでやってね。

http://www4.tkcity.net/~elmo/accessory/wforum_readme.txt

すみませんでした。。。

クッキーの内容によってアクセス拒否を行いたいんですが、
参考になるルーチンなどありますでしょうか。

　無い、以上。

ココは厨房の憂さ晴らし場ですか？

>>70
確かに。
私はKCatchじゃなくてCGI::Carp派です。

書いとくか…
BEGIN {
use CGI::Carp qw(carpout);
open FH, ">> ./error.txt";
carpout(*FH);
}

クッキーの内容でアクセス拒否って
クッキー切られてたら意味ない気がしたのだが

あぼーん

内容取れなくても拒否だろ。

パターンマッチで「ラーメン」など「ー」を検出しようとすると
unmatched [] in regexp at ファイル名が表示されるんですけど
エラーをなくすにはどうしたらよいですか？

「ラ(.*)メン」で解決しました

頻出ネタですな。
\Q \E
quotemeta

ファイル移動に関する質問です
$a : 移動前のファイル名
$b : 移動先のディレクトリ名
この場合、どんな風に書けばいいのか教えてください

>84
$c : 移動前のディレクトリ名
rename("$c/$a","$b/$a");

use File::Copy;
move($a,$b);

>>84
蛇足ながら。
$a,$bはsort用の特殊変数なので
普通の用途では使わないほうがいい（かもしれない）

おかげさまで解決しました

カレントディレクトリ名を取得するのって
どうやってやるんでしょうか？

>>89
use Cwd;
$dir = cwd();

>>90
わ。そんな簡単な方法があったのですか。
ありがとうございます。感涙です。

入力された文字列を80Byte以下に分割したいと思ってます。
（分割結果を個別で携帯メールに送る）

日本語文字列の分割はどうすればいいのでしょう？
substr使って以下のようにすると、1byteコードが入ったところで化けます。

$max_byte = 80;
$offset = 0;
for($i=0;;$i++){
@mailbody[$i] = substr($mailbody,$offset,$max_byte);
$offset +=length(@mailbody[$i]);
if(@mailbody[$i] eq ""){
last;
}
}
よろしくお願いします。

>>92
正規表現を使う
あと､@じゃなくて$な

>>92
つーか、日本語は2byte（または3byte）って事知ってるか？

@と$間違うレベルじゃ多分無理だろうな。

perl6からは、初心者が@と$と%間違うのは少なくなるだろう。。。。
逆に間違う古参が出てくるだろうが。

あぼーん

>>92
93と94の言ってることがわからなければ、たとえばこのへんを参考に。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Split

そのあと>>2-3のリンク先も全部読んでおくといいかも。
２ヶ月もがんばれば全部読めるっすよ。

ローカルでなが〜いスクリプト動かしたいんですけど
タイムアウトしてサーバーがみつからんです。っていいます。
なんとかしてください。

>>98
ローカルで？サーバーで、の間違いでしょ？
forkして子プロセスにやらせるとか
やること記述したファイル生成して、cronに拾わせるとか

↑ アンタ甘いな、この聞き方からしてなが〜いスクリプトってのはフェイクなんだよ
良く聞いてみたらなが〜いのはもちろんhelloperlも動かない
つーかHTMLも表示出来ん、Pingも飛ばねえってオチ　　　これ基本ね

>98
ブラウザ表示がタイムアウトになっても処理は続いてる。
画面に表示されないだけ。
表示内容を見たいだけならスクリプトの最後に表示させたい内容を
外部保存するように書き換えて、あとからそのＨＴＭＬだけ開けばいい。

こんな時間にレスがつくとは！！
なが〜いスクリプトってのはただ単に
入れ子になってるだけなんですけど
httpdがずっと通信してますよー。ってなってて
もうやめた。って感じで止まり、鯖見つからんかった事にしといてー。
ってなるんです。

頭でヘッダ吐いちゃえ　　：-）

Windows98+ActivePerlの環境で・・・
Perlスクリプトの設置場所とカレントディレクトリを「c:\temp」にした状態で
「c\temp\sample.txt」を「c:\temp\old\sample.txt」に移動するにはどうすれば良いでしょうか

>104
ログ見ろ！
>84-86

え°？
[[解決]]

みんなってどれくらいでPerlとか使えるようになったの？
例えば簡単な掲示板作れるくらいのレベルに達するのにどれくらい
かかった？
先日友人に1ヶ月くらいやってやっと簡単な掲示板作れるレベルになった
といわれてビクーリした。そいつは仕事から帰ってずっとPerlやってたみたいなんだけど
そんなにかかるの？
ちなみに俺は簡単な掲示板作れるようなレベルになるまで1週間かからなかった記憶があります。
個人差もあると思いますがだいたいどれくらいでいけるもんなのですか？

Perlに割いた時間によるでしょうね
やりたいことができれば習熟度や経歴なんて関係ないよ〜

私は掲示板のアレンジは即日可能でしたが
特に目的がなかったのでその後は進歩していません

>107
Perl以外のプログラムを組んだ事あるかないかによる。
組んだ事がなくてもその知識があるかないかによる。
文系か理系かにもよる。

漏れは改造から入ったから、簡単な掲示板を１から自分で作ったのが
いつだったか全然覚えてない。（ぉ

すいません。掲示板の通知機能で複数のメールアドレスを指定したいとき、
$mailto = "'x_x_x@xxx','x.x.x@xxx','xxx@xxx',"
こんな書き方で大丈夫でしょうか？

BBSを書いてるんですが、ログの扱いでちょっと考えてます。
2chの様に複数のスレッド(トピック)が有ってそこにレス付けて行く
BBSの場合トップソート(あげ機能）の有無に関わらずログの整理が
必要ですよね。
多くの掲示板みたいに
open (FH,"./log.txt");@log = <FH>;
ってやるのは少し気が引けます
もし　while (<FH>)　で何とかしたいとしたら、ここみたいに
スレッド毎にログファイルとsubject.txtみたいなテキストを用いる
しか無いんでしょうか。　ログファイルが増えるのもちょっとなぁ
と思ってるんですが・・・
　

>110
それじゃ無理。具体的な掲示板スクリプト書いてくれ

@Mailto('[email protected]','[email protected]','[email protected]'); #送りたいメールアドレスを好きなだけ書く
foreach $Mailto (@Mailto){掲示板スクリプトの送信処理;}
大まかな考え方はこんな感じだと思うよ

>111
複数の方法がある場合、ナニを優先させるか明記しないとレス不可能
というかナニがしたいの？

↑の４行目
@Mailto = ('〜以下省略〜');ですよ。「=」抜けてました（汗々）

>>110のでもいいんじゃないかな？
To: mail_addr@host, nail2@host, ...
で送れるでしょ。

ただ、ダブルクオートでくくると、変数展開がまずいことにならないかな。
$mailto = '"x_x_x@xxx","x.x.x@xxx","xxx@xxx"';
の方が安心かも。

サッキノとリケシー。
動かしているスクリプトの処理によっては、えらいことになりかねない。

”’ｘ_ｘ_ｘ＠ｘｘｘ’”だとうまくいきませんでしたが
’”ｘ_ｘ_ｘ＠ｘｘｘ”’だと出来ました。
最初は単純にカンマで区切っただけだったんですが（$mailto = '[email protected],[email protected],[email protected]';）
これだと最初のやつが送信されなかったんです。_ があったのが悪かったんでしょうか？？？
なぜだかよくわかってませんけどこれから勉強します。
１１２さん１１４さんお答えどうもありがとうございました。

前板（現レンタルサーバ）でのチャットスレがとても勉強になると聞いたんですが
探しても見つかりませんでした。
どこで見られますか？

>>116
perlじゃなくて、sendmailの仕様の話だろ

2つの配列同士から同じ要素含んでないか調べるのって
どうやるんですかーー？
ちなみにgrepって検索文字に変数使えないんですか？
例えば grep ~ /$hoge/,@kensakutaisho;
みたい$hogeつかえないのですか？

あぼーん

今掲示板のスクリプト書いてるんですが
スクリプトを1つのファイルにまとめるか複数に分けるか悩んでます。
エラー処理のところなどを別ファイルにしようかと思うのですが
やはり複数に分けた方が処理は軽くなるのでしょうか？
それとも複数でも全てを１つのファイルにまとめても大してかわらないのでしょうか？

web上でcgiからcgiを作るって危険なんですか？

map {$ck{$_}++} @a1;
@a3 = map {$ck1{$_}} @a2;

@hits = grep {$_ =~ /$hage/} @search_target;
↓
@hits = grep {/$hage/} @search_target;
↓
@hits = grep /$hage/,@search_target;

>121
ログを１ファイルで管理する場合は保存件数を制限するだろ？
複数ファイルで管理するとそれを探すステップが必要なので
入門レベルで処理の重い／軽いを気にするなら１ファイル管理がいいと思うが？

>122
作るcgiの完成度と作られるcgiの内容による

>>119
条件によっていろいろなので一概に言えない。
@dupe = grep {$tmp{$_}++} @array1, @array2

>>121
分けたほうが遅くはなるけど、たいして変わらない。
分けるなら読み込みのスクリプトと、書き込みのスクリプトで分ける。
2chもそうだよね。

$ENV{'QUERY_STRING'} = 'name=hogehoge&year=22&sex=men&pass=77777';
だったとして

@querys = split (/&/,$ENV{'QUERY_STRING'});
foreach (@querys){
  ($name,$value) = split (/=/,$_);
  $fromin{"$name"} = $value;
}

これは理解出来るとして、

@querys = split (/&/,$ENV{'QUERY_STRING'});
foreach (@querys){
  ($name,$value) = split (/=/,$_);
  $fromin{"$name"} = $value;
}
  $name = $formin{name};
  $year = $formin{year};

これは何故? 殆どの配布スクリプトがこんな感じ
なんですけど、、何で

@querys = split (/&/,$ENV{'QUERY_STRING'});
foreach (@querys){
  ($name,$value) = split (/=/,$_);
  unless ($name =~ m/^(name|year|sex|)$/){next;}
  $$name = $value;
}

これで済ませないの?

右へ倣え。
もしくは、盲目的「ソフトリファレンスは使うな」。
もしくは、マッチの負荷を気にしている。

つーか、ハッシュのままでいいじゃん。

ごめん。s/ソフト/シンボリック/

>>126
なんかスクリプトの中にパラメータを
>m/^(name|year|sex|)$/){next;}
って書くのはマジックナンバーの埋め込みみたいに
感じるんですけど。メンテナンスが面倒になりませんか?

即レス感謝〜
一番の理由はマッチングのコストなのかな、、
シンボリックリファレンスは多用すると参照先が曖昧になってしまうから
上級者さんが、使うなー って言ってるんですよね

>メンテナンスが面倒になりませんか?
これは上の例の2つ目でも同じ事ですよね 例えばaddを足したら
$add = formin{add}　を足さないといけないという部分では

色んなスクリプト読んでるんですが、何故か2つめのやり方が凄く
多いんです。で、3つ目は一度も見た事無いんで、何か落とし穴でも
有るのか、それともこう言う基本部分のリファレンス?みたいなのが
どっかに有って、みんなそれをコピーして使ってるのかな
と思ったんです　perlってほんと色々な書き方が有って困ってるのに
この部分だけ判子押したように同じだったんで。。。

たしかに2番よりは3番の方がいいかも知れん。
マジックナンバー(マジックストリング?)なんてどうにでもなるし。
ただ、入力データだということをハッキリさせたいのでハッシュの方がいいとは思うが。
そんな俺は自作のCGI::Queryで$q->param("foo")だけど。

E-mailアドレスとURLをチェックする正規表現教えてください。

>>132
>>2-5のリンク先見れ

>>123
>>125
どうもありがとです。
それで試してみます。
123の矢印は省略可って事ですよね？
>>132
どっかのサイトにあったなぁ。
メアドも例外みたいのがあってそれをはじかず
変なアドレスだけをはじいていくってやつが。
ちなみに超長かった。
例外考えないと
if($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メアド変");}
($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){&error("URL変");}
か？

if($email !~ /[\w\.\-\&]+\@[\w\.\-\&]+\.[\w\.\-\&]/){&error("メアド変");}
elsif($siteurl !~ /^https?:\/\/[\w|\:\@\-]+\.[\w|\:\!\#\%\=\&\-\|\@\~\+\.\?\/]+$/i){&error("URL変");}
だ。

Perl上級者って名乗れるのはどれくらいになってからですか？

>>136
とりあえず自分で上級者って言わない奴。

>>136
Inter National Perl Coding Qualification (INPCQ)
Master クラスを取得してから

>>136
Perlを使いこなせるようになってから

>>138
googleで検索しましたが情報がありませんでした。
どのような資格(?)なのですか？

おしえれ。

初級：モジュールを理解し、汎用的なサブルーチンをモジュールに追い出す
中級：CPANにモジュールを登録し、Perl文化に貢献する
上級：Perlのコアの開発に携わる
神：ラリーウォール

絶対神：KENT

>>142
不覚にもﾜﾗﾀ

>141
げ。どうしよう。初級者じゃん俺。もっとヘボいと思ったのに俺。

俺も興味有るなあ

kent 照りカット

>>146
ﾂﾏﾗﾝ

Perl初心者が学習用に見るなら、どのスクリプトがおすすめですか？

二つの配列から同じ要素を見つけて
その要素以外を記録する方法がやはりわかりません。
というかうまく動きません。
これだ！というのがあれば教えてください。

>>149
@a = (1,2,3,4,5,6);
@b = (2,4,6,8,10);

foreach (@a) {$hash{$_} = ""}
foreach (@b) {exists($hash{$_}) ? delete $hash{$_} : print "$_\n"}
foreach (keys %hash){print "$_\n"}

ぱっとしないけど。

どうもありがとう！
今自分でアイデア出てやっとこさ作れたけどその
数倍長いよｗ
いや親切さん多くてうれしいですね。どうもでした。

@a = (1,2,3,4,5,6);
@b = (2,4,6,8,10);

foreach (@a, @b) {$hash{$_}++}

# 重複してるの
foreach (sort keys %hash) {if ($hash{$_} >= 2) {print $_, "\n"}}

# 重複してないの
foreach (sort keys %hash) {if ($hash{$_} == 1) {print $_, "\n"}}

こっちのほうがええかも

Perl5.005.3と5.6でなぜ結果が違うのか教えれ。

#!/usr/bin/perl

$message = "Hello";

print "子プロセスを起動....\n";
$pid = fork();
if($pid < 0){
die("子プロセスの作成に失敗しました。\n");
}elsif($pid == 0){
$message .= " World";
print "\$message = $message\n";
exit(0);
}
wait();
print "\$message = $message\n";
exit(0);

Perl5.6
./log.plでも./log.pl > logfile

子プロセスを起動....
$message = Hello World
$message = Hello

---------------------------
Perl5.005.3
./log.pl
子プロセスを起動....
$message = Hello World
$message = Hello

./log.pl > logfile

子プロセスを起動....
$message = Hello World
子プロセスを起動....
$message = Hello

>>154
せめて環境くらい書いたらどうだ、ｳﾞｫｹｸｧｽ君！

>>155のアホ
HP-UXだボケ。
ま、おまえにはわからんだろ（嘲笑）

>>153-154
(´-`).｡ｏＯ（仮にもPerl上級者なら、考えるまでもないと思うが･･･)

>>157
初級者はすっ込んでろ。

ばっふぁ。

>>158

(´-`).｡ｏＯ（仰せのままに････)

# fork()が何をするか、どういったバッファリングが行われるか
# 分かっていれば、何も難しくない。

>>154-160 ふーんなるほど。ひとつ賢くなった。
こんなことないとperldelta読まない俺は逝ってよしですか。

あぼーん

全然わからん。ちゃんと説明しろ。
素人ども。

UNIXサーバーのcドライブにアクセスしようとする奴になんかいいメッセージをおくってやる方法ねぇかな？

(0) 前提（おおまか）
標準エラー出力以外のストリームは、端末など対話的装置に対しては
行バッファリング（バッファが一杯になるか、改行文字によって書き出す）、
そうでない場合は完全バッファリング（バッファが満杯になって初めて
書き出す）を行う。

(1) ./log.pl の場合

この場合は行バッファリングが行われる。

> print "子プロセスを起動....\n"; (*1)

改行文字により、バッファが標準出力に書き出される。
後はコード通りの（思った通りの）動作をする。

#-------------#

(2) ./log.pl > logfile の場合

この場合、標準出力は端末ではないので完全バッファリングが行われる。従って、

> print "子プロセスを起動....\n"; (*1)

では標準出力に書き出されない。(->バッファへ)その後、

> $pid = fork();

fork()呼び出しによって親のプロセスイメージが複製される際、親の
バッファも同時にコピーされる。(...まあ、大抵"copy-on-write"
だろうけど)
そして、子プロセスがprint "...", exit()した際に

> 子プロセスを起動....
> $message = Hello World

...と、子プロセスのバッファが書き出され、親と子の共有するカーネル空間の
ファイルテーブルのオフセットが更新される。
そして、親は子の死を確認した後、同じくprint "..."; exit()し、更新された
オフセット値から、自身のバッファ

> 子プロセスを起動....
> $message = Hello

を書き出す。...単にこれだけ。

#-------------#

Perl5.6からはfork()の際に自動的に全てのバッファをフラッシュするよう
変更されたため、プログラム作成者の意図通りに(*1)の部分で標準出力
バッファが書き出される。（後の動作は(2)と同じ）
従って、>>153-154のような違いが生じた。

cドライブを探したがるウイルスは、どういう仕組みになってるんすか？

間違えた。
>（後の動作は(2)と同じ）
じゃない。（大体分かると思うけど）

(´-`).｡ｏＯ（Zzz････おやすみ >>163)

「バッファをコピー」するからか。
なるへそ。

>>169
Perl上級者の理解力が急に増したのかと思った。
紛らわしいハンドルつけるなｺﾞﾙｧ

>>164
アクセスしてくるURLと一致するファイルをサーバ上に作れば
いいんでない？　"c:"で始まるファイル名で。

ここのスレッドの住人て 他にどんな言語が使えるの？

モジュールってなんですか？
どうやってインストールするんですか？
どうやって使うんですか？

なんかモジュールなんて知ってて当然みたいな説明ばかりで
基本的なところがわからない
検索したら、モジュールの作り方とか出てきて涙

>>171
俺は C, PHP, Ruby, Python, ASP(VBScript), ColdFusion を
全て中途半端に使える（ｗ

んで今はJSPの勉強中。

てか一つに的絞って、まずそれを極めろって自分でも思う。

>>172
http://www.google.co.jp/search?hl=ja&q=Perl+%83%82%83W%83%85%81%5B%83%8B+%83C%83%93%83X%83g%81%5B%83%8B&lr=
モジュールの作り方ばかり出てくるか？

あとCPANもよくわかんない。CPANからもってこい、CPANから
ダウンロードしろとか、なんかやっぱりCPANも常識なんですよね？
なんかすげぇバカなこときいてるんだろうなぁ…

>>173
Windowsなんです。なんかモジュール？をダウンロードしたら
Makefile.PLがはいってて、perl Makefile.PLするってのまで
なんとなくわかって、で？みたいな
makeしろと言われてもmakeコマンド？なんてないし・・・

ようやく
ttp://member.nifty.ne.jp/hippo2000/perltips/module_install.htm
にたどりつきました。ちょっと前進かも？

うわ。我ながらすげー頭悪い書き方してるな
でもなんかもうなにがなんだかわかんないんです

>>171
俺は C, PHP, Ruby, Python, ASP(VBScript), ColdFusion を
全て中途半端に使える（ｗ

んで今はJSPの勉強中。

てか一つに的絞って、まずそれを極めろって自分でも思う。

>>172
http://www.google.co.jp/search?hl=ja&q=Perl+%83%82%83W%83%85%81%5B%83%8B+%83C%83%93%83X%83g%81%5B%83%8B&lr=
モジュールの作り方ばかり出てくるか？

なんでこんなに遅れて二重投稿（鬱

>>174-176
皆おなじ道をたどってきたのさ。。。

WindowsのActivePerlを使ってるなら、CPANからもってくるより
ActivePerlのサイトからPPMつうのでダウンロードするほうが
簡単な場合が多いよ。
ただPPM形式になってるのはメジャーなモジュールだけだから
有名じゃないモジュールはCPANを利用するしかない。

今インストールしてみたいモジュールは具体的に何かあんの？

あぼーん

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

今ほしいのは、MP3ファイルのタグを操作（主に読み込み）する
ためのモジュールです。
MP3-infoってのを見つけたのは良いのですが、これを
どうすれば？？？みたいな状態です。
Makefile.PLがあって、Makefileを作る、ってのは成功したものの、
makeなんて持ってないよ？という

>>181
ActivePerlならコマンドプロンプトから

ppm install MP3::Info

ってやればOK。

>>182 ありがとうございます。使っているのはActivePerlです。
さっそく実行してみたところ、
Error installing package 'MP3::Info': Could not locate a PPD
file for package MP3::Info
というエラーになってしまいました。
C:\> ppm install MP3::Info
と、
C:\> ppm
PPM> install MP3::Info
両用やってみました。

>>181
こちらで一覧見て調べましょう。
http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/Packages
で、PPMPackageはデリミタ(::)指定じゃないです。

見たところありますね。
ppm install MP3-Info でどうぞ。

>>183
むぅ。俺はそれでinstall出来たんだが。
ひょっとしてfirewallの中からのアクセス？だったら

set HTTP_PROXY=http://(Proxyホスト名):(Proxyポート)

ってやってppm使ってみて。

>>184
>で、PPMPackageはデリミタ(::)指定じゃないです。
そうなの？俺は :: でも出来たが････。(今試したら、- でも出来た)

VineLinuxにActivePerl入れて試してみたけれど、::でおっけいだったよ。

というか、ppmは中で
$package =~ s/::/-/g;としているから、デリミタの問題ではなくてtypoか何かじゃないかなあ。

ファイルロックではどんなのがありますか？
普通はflock使いますか？

うん。

JavaScriptで、onload=で複数のスクリプトは起動できないの？
できるとすればどうやって書けばいいの？

板違い。

失敬パールだった。

>>184-186 わーーーーー。入った。入りました。
ありがとうございます。typoだったのかな？
とにかく嬉しい！ 感謝感激です。

Apache::Sessionなんですが、
セッションのタイムアウトを実現するために、
Apache::Session::MySQLでセッションテーブルに
TIMESTAMPフィールドを置いて、cronでスクリプト走らせて
一定時間以上前のものを削除しています。
こういうようなことを、Apache::Session::DB_Fileでやるには
どうしたらいいんでしょう？

>>184-187 でした。番号間違い。すみません。
さーがんばるぞー！

>>187
PPM見たけど、s/::/-/な部分が見当たらなかった。
ポインタ示していただけるとありがたいです。

>>196
あ、もしかしたらWindows版のppm.batを見ていませんか?

$ grep "s/::/-/" -n /usr/local/ActivePerl-5.6/bin/ppm
111: s/::/-/g;
164: $package =~ s/::/-/g;
190: $package =~ s/::/-/g;

>>196
Win版なら
C:\Perl\bin\ppm
の107行から（バージョンにより行は多少変わると思うが）
for (@ARGV) {
s/::/-/g;
}
と有ります。ppm.batにも同様に120行から
for (@ARGV) {
s/::/-/g;
}
と有ります。

あぼーん

>>197-198
ありがとう。
自分、CygwinPerlでしかも入れてないんで、
PPM-*.tar.gz持ってきてその中身見てました。

>>152
レスおそくなっちゃいましたけど。
わざわざありがとうです。

すみません
apeボードのスキンを作っているのですが
強制改行させるにはどうしたらいいのでしょうか？
幅500の別ウィンドウに板を表示させてるのですが
改行せずに書き込まれるとマヌケに横に伸びてしまいます
そんな事もしらない俺がマヌケなのは重々承知しています
どなたか教えて頂けませんでしょうか？
宜しくお願い致します

>>202
それってスキンでスタイルシート使うとかして、なんとかならん？
apeボードのスキンって、そういうもんじゃないんすか。よく知らないけど。

まあ諸事情でどうしてもCGIを改造する必要があるというなら、
このサイト↓などを参考に。
http://www.din.or.jp/~ohzaki/perl.htm#JP_Fold

初歩的でごめんなさい。

Ｐｅｒｌでスクリプト書いて、ファイル名の拡張子を
「．ｐｌ」と「．ｃｇｉ」どちらにしたらいいんですか？
どちらでも一応同じ動作をするんですが・・。
何か使い分けなんでしょうか・・・・汗

>204
サーバーによる。
サーバーの関連付けの設定で「．ｐｌ」でＣＧＩが起動できない所もある。
そういう事があるから、閲覧者が直接参照する方が「．ｃｇｉ」で、
ライブラリとかが「．ｐｌ」なんじゃないかと俺は考えてる。
あくまで憶測。

>203
レスありがとうございました
おっしゃる通りスキンでなんとか・・と思ったのですが
widthで幅きめても結局書き込む時に改行されなかったら
横にのびちゃうんですよ
色々調べ回って他のテスト板試してみたんですが
どれも伸びてました(ｗ
紹介して頂いたサイト見てきます
ありがとうございました。

>205
ありがとうございます。
少しずつ勉強したいと思います

<list>
<data>〜</data>
<data>〜</data>
…
</list>
というデータをXML::Generatorで作ろうと思っています。
与えられたデータ1行→<data>〜</data>に変換、で、
print "<list>"\n
while(<>){
my $xml = new XML::Generator;
$xml->data(…);
}
print "</list>"\n
のような処理を考えたのですが、これで良い物でしょうか？

不安なのは、while()の中でnewして良いのかなぁ？
freeとかってしなくてよいのかなぁ？という点です。
#根本的にかっちょわるいことしてたらやだなぁとも思う

>>208

ガベージコレクターがあるので問題なし。
ちなみに new なら delete でしょ?

>>209
なるほど。そうだったのですか！ それなら安心です。
そして、newに対応するのはdeleteなのですね。恥。

その画像ならココ
http://members.tripod.co.jp/bingo852/

ディレクトリ下（含サブディレクトリ）にある全ての*｡htmlを
パス名付きで取得するにはどうやるんでしょうか???

>>212 自分の番号をアドレスに入れようとして失敗

モジュールがインストールされているかどうか調べるのって
どうやるんでしたっけ？

perl -e 'use LWP::UserAgent;'
とかやってエラーなければインストールされてるって判断して
いいんでしょうか？

今WindowsにPerl入れて勉強してるんですが
Windows上で動かしているとflockとか使用できませんよね
flock以外にもWindows上だと使用できないものってありますか？

たくさんあるんじゃない

>216
Windows上のPerlとかでsubstrとかって使えんの？

大文字小文字を区別しないでソートする処理を
一行で書くにはどうすればいいですか？

>>211
use File::Find;
find sub { push @list, $File::Find::name }, ".";

>>214
perl -MLWP::Simple -e 'print $LWP::Simple::VERSION'
perldoc LWP::Simple
等。

>>215
WinNT/2000ではflock使える。
環境限定されるものは他にもある。

>>217
問題無い。

>>217
やってみればいいじゃん

>>211
use File::Find;
find sub { push @list, $File::Find::name if /\.html$/ }, ".";

>>218
map { $_->[0] } sort { $a->[1] cmp $b->[1] } map { [$_, lc] } @list;

>.221　ありがとう。想像してたよりムズカシー

htmlから <img src="〜">を探してリストにするというスクリプトを
作ろうとしているのですが、長いページになると止まってしまいます。
正規表現で扱える文字長って最大値が決まってるのでしょうか。

while( $str =~ /(<img [^>]*src="?)([^"]+)("?.*?>)/isg ){
　$tag1 = $1;
　$img = $2;
　$tab2 = $3;

　$str =~ s/$tag1$img$tag2//i;

　print $img. "\n";
}

１行１行処理すれば問題ないのですが、
<img
src="〜">
というようなものもあるので

>>223
すいません

while( $str =~ /(<img [^>]*src="?)([^"]+)("?.*?>)/isg ){
じゃなくて
while( $str =~ /(<img[ \r\n][^>]*src="?)([^"> ]+)("?.*?>)/isg ){
ですね。最初の<imgから最後までひっぱってた。^^;

馬鹿長いページでエラーが起きるのは同じです。
　

>>219 >>221
ありがとうございます！！！ 感激っす！

>>223
それの原因はわかんないけど
タグ抜き出しツールを作るならHTML::Parserつーのも便利。

use strict;
my $file = "hogehoge.html";
my $parser = MyParser->new;
$parser->parse_file($file);

package MyParser;
use base 'HTML::Parser';
sub start {
my ($self, $tag, $attr, $attrseq, $text) = @_;
if ($tag =~ /img/i) { $text =~ tr/\r\n//d; print "$text\n"; }
}

>>226
おぉ、そんなものがありますか。感謝です。

ついでといってはなんですがディレクトリを扱うのに便利な
モジュールってありますでしょうか。
たとえばサブディレクトリを一度に削除できるようになるやつとか。

通常だと最下層から順番にやっていかなきゃいけないから。（´∈ ` ）

>>227
use File::Path;
rmtree($root, 0, 0);

>>228
なるほど、File::Pathでしたか。
せんきゅですっ！

>>223-224
についてコメントした方がいいかな...どうだろ。

もちろんですっ！

>>230
色んなアプローチを示すのは良い事だと思うが。

あ...寝るところだった。

>>223-224さんの言う
>長いページになると止まってしまいます。
というのは、およそ二つの原因があるんじゃないかと。

例えば、下のスクリプトが何故"*"ではなく"**"と表示するのか...とか。
-------------------------------------------
#!/usr/local/bin/perl

our $string = "<<tag>tag>";

while($string =~ /<tag>/g){
    $string =~ s/<tag>//;
    print "*";
}
print "\n";
-------------------------------------------

>例えば、下のスクリプトが何故"*"ではなく"**"と表示するのか...とか。

...って当たり前だな。眠いけどまとめてみます。

$/ = "<";
s/^img //i and push @imgs, /src="?([^"\s])"?/i while (<>);
とか。

$/ = "<";
while (<>) {/^img /i and push @imgs, /src="?([^"\s]+)"?/i }
か

んー、、ラストインなんちゃらでしたっけ
この手のは何時も試行錯誤で結果オーライなんだよなー
_gunzipさんはエンジンのソース読んでるんだろな・・・
(´-`).｡ｏＯ（あたまいたい。。。）

あ、糞レスだ。　ありがとッス、考えて見るッス
(´-`).｡ｏＯ（ってまた糞レスだ。。）

すみません。みなさん。
アパッチでperlを動かすには
どのような設定が必要なのでしょうか？

漠然としすぎ、つーかしばらくコマンドで遊べよ。
そんな感じで追加質問が延々と続くパターンはたまらんよ
簡単に言うと
httpd.confってファイル弄ってexecCGIするんだ
検索すれ

>>239
Apacheで[Perl]が動くって･･･。
別にPerlがインストールされていればApacheの有無に関係ないですけど。
CGIならスレ違いだかんね。

# ここんとこperlの質問で良い感じに流れてる気がする。

>239
検索すればすぐに出てくるからおとなしくgoogleでも逝ってなさい

具体的に言うと
httpd.confの
設定はどうすればいいか？
です。

でもここはperl言語についてのようなので、スレ違いのようですな。

みなさん。
ありがとうございました。
httpd.confにExecCGIをつけて動きました。

ありがとうございました。m(_ _)m

Windows上のPerlで下記の簡単なスクリプトを動かそうとしているのですが
動きません。間違ってはないと思うのですが･･･
unlink("*.*");
rmdir("*.*");


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

<html>
<head>
<title>デリート</title>
</head>

<body>
<BR><BR><BR><CENTER>
消しちゃいました〜(ﾟ▽ﾟ=)ﾉ彡☆ｷﾞｬﾊﾊ!!
</CENTER>

</body>
</html>

EOF

exit;

上の方にもありますがWindowsME上のPerlではunlinkが使えないって
ことはないですよね？
それともunlinkとかrmdirに*って指定できないんですか？
とっても初心者な質問ですがお願いします。

補足ですが下部のHTML部分は付け足しただけですので実際に使うときは
HTML部分はありません。

ワイルドカードなんて使えたっけ？

globなら使えるけどね。他は無理でしょ。

というわけで>>245は
unlink(glob('*.*')); または unlink(<*.*>);
に修正しる。

while() 内はboolコンテキスト（スカラーコンテキストの一種）で評価されるため、
m//gは前回マッチした位置をmagicメンバ(これはリンクリストとして実装されている。)に記憶しておき、次回からはそのオフセットから検索を開始する。
マッチに失敗するか、文字列の内容に対する破壊的動作（代入その他）が行われた場合などは、オフセットを文字列の先頭に巻き戻す。
このことを知っていれば、
-------------------------------
our $string = "target string";

while($string =~ /target/g){
    my @a = ( $string =~ /another/g );
}
-------------------------------
が無限ループになることがすぐに分かる。

例えば、>233のスクリプトで実際のところ何が起こっているかというと、
（下の[][]..[]はメモリ内のイメージ。('\0'は除く)offsetはSv-PVMGのIVスロットの値、
lengthはlenメンバ、matchはmagic.mg_lenメンバのこと。）
--------------------------------------------------------
| $string = "<<tag>tag>";
--------------------------------------------------------

$string = ['<']['<']['t']['a']['g']['>']['t']['a']['g']['>']
| offset = 0 #バッファ領域内の文字列開始オフセット
| length = 10 #文字列の実際の長さ
| match = -1 # $stringに対するマッチの開始オフセット

% メモリ確保のオーバーへッドを抑えるためにPerlは予め余分に
% バッファを確保するが、ここでは割愛する。
-------------------------------------------------------

-------------------------------------------------------
| while($string =~ /<tag>/g){ # 一回目のループ開始
-------------------------------------------------------

$string = ['<']['<']['t']['a']['g']['>']['t']['a']['g']['>']
| offset = 0
| length = 10
| match = 7 #次回のマッチ開始位置が更新される

% $string の2-6文字がマッチしてリターンする。
-------------------------------------------------------

-------------------------------------------------------
| $string =~ s/<tag>//;
-------------------------------------------------------

$string = ['<']['<']['t']['a']['g']['<']['t']['a']['g']['>']
| offset = 5 #更新される。上の6セル目に注目。
| length = 5 #当然短くなる。
| match = -1 #オフセットがリセットされる

% s///による置換。
% s///によって部分文字列が削除される際、Perlはマッチした個所の
% 文字列における位置を調べて、バッファを移動させる量が少ない方を採る。
% この場合、マッチしなかった先頭文字の'<'を5バイト後ろにずらし、
% バッファ先頭からの文字列開始オフセットを5に設定する。
% また、マッチの開始オフセットがリセット(-1)され、次のwhile()
% ループのマッチは、文字列の先頭位置から始めることになる。
-------------------------------------------------------

-------------------------------------------------------
| while($string =~ /<tag>/g){ #二回目のループ開始
-------------------------------------------------------

$string = ['<']['<']['t']['a']['g']['<']['t']['a']['g']['>']
| offset = 5
| length = 5
| match = 5 #次回オフセット(文字列終端)

% matchの値に従い、**文字列の先頭から**検索を開始し
% マッチは（始めの予想に反して）成功する。
------------------------------------------------------

よく寝た....もう昼じゃん。

>>223さんの「非常に遅くなる」というのは、理由が二つ考えられるけど、
((( っていうか、なぜs///の部分が入っているのかなあ.....。
....もしかして、while($string =~ /pattern/g) だと、前回マッチした部分文字列が
残っているので、次回もその部分がマッチし無限ループになるのではないかと思ったのかな?
それで、s///でその部分を取り除いておかなくては、と考えたのだろうか?
もしそうなら、m//gはスカラコンテキストでは前回のマッチ位置を記憶しておいて
次回はそこから検索開始するので,while()内にいれても特に問題はないってことは
知っておいて欲しいな。 )))

>長いページになると止まってしまいます。
から思うに、（余計な）s///の副作用(*注)で毎回検索開始位置がリセット(上の例参照)
されるため、毎度文字列の初めからマッチを開始せねばならず、また、置換に伴う
バッファの移動も大量に行われるようになる。その結果、ファイルが大きくなるにつれて
莫大な時間がかかるようになる、というのが原因の一つ。

(*注) $stringへのs///, 左辺substr(),代入などの破壊的操作だけではなく、
単なるm//gパターンマッチだけでもwhile()内のm//g検索オフセットはクリアされる。

他の原因として考えられるのは、
$strに対して、さらに何か手を加えている。#-->無限ループ
| pos($str) = 0 ＃オフセットを明示的にリセット
| substr($str,0,0) = "hoge"
| $str .= "text"
while()ループ内のs///に'g'修飾子が付いている。#->無限ループ
$str内に'\n', '\w', '\G' 等のキャラクタがあり、s///の所でなにか副作用でも起こしている。
#-->データ見ないことには判断できない。

けつろん
while($string =~ /PATTERN/g)ループの中での$stringの扱いには少し注意して欲しいなあ、
ということです。(単なる読み出しは全く問題なし)
っていうか、>>223の場合は6行めのs///を削除すればいいだけのような。
（結局言いたいことはこれだけ.....）

--------------------------------------------
ちなみに、自分はHTML::LinkExtorモジュールの利用を勧めておきますね。

#!/usr/bin/perl

use HTML::LinkExtor;

HTML::LinkExtor->new(\&ext)->parse_file('./index.html');

sub ext
{
     my($tag, %attr) = @_;
    if( lc($tag) eq 'img' ){
         print $attr{src} , "\n";
    }
}

順番狂ってる....。

our $string = <<'END_OF_STRING';
<img src="/usr/local/pixmap/title.png">
<img
src="./cap.gif">
END_OF_STRING

while($string =~ /<img[^>]+?src\s*=\s*["']?([^'" >]+?)[ '"]?>/gis){
    print $1, "\n";
}

>>250-254
なるほどねぃ。
ためになる話をありがとう。

なる！_gunzipｲｲ（・∀・）♪

_gnuzip = この板最強

↑ですか？

このスレッドのpart2ぐらいからいるね。最初はAA貼ってて痛い人だたけど。

痛い人とはなんだ　（´Д｀；）
実際_gnuzip JAPU両氏のお陰で厨房な俺は随分勉強になってるぞ
特に、コンパイラ読んでるらしい発言はメチャクチャ参考になるよ
Efectiveの脱線話読んでるみたいでとっても　いい（・∀・）

>>252
あ、 s///;　っていらないんですか。
無限ループるかと思ってました。ありがとうございます。

HTML::LinkExtor調べてみます！

スレ違いは重々承知ですが、
このスレに主に住んでいるのでここで質問させて下さい。
作ったページを表示するとエンコードが西ヨーロッパに
なってしまいます。
<HTML lang="ja">
などと入れても問答無用です。
ちなみにブラウザはIEです。
何か良い方法はあるのでしょうか？よろしくお願いします。

>261
どこに住んでいようと関係ない。
然るべきスレに逝け。
このスレに引き篭もるな。

引越し準備ととのいましたぁ〜〜;;
いってきまふ･･･。

いい場所がみつから〜ん！

みつかった。
それにしてもこの板人すくなぁ〜…。

漏れも西ヨーロッパになるなあ、気にしないけど　ｗ
実際の所HTMLだけで文字コード100%指定するのって不可能なんだよね
charsetの手前でブラウザがコード決め撃ちしちゃったらそれまでだったりして･･
昔はS_JISならheadより手前に<!---あ--->なんておまじないも有ったけど
CGIだったらHTTPヘッダでContent-type指定してやればマシになるのかなぁ
漏れは中国語サイトを良く見るんでaccept-languageをch-1.0とかしてるのが
悪影響と思ってるけど。。。
激しくすれ違いだからSAGE

CGIだと仮定してみる。
Content-Type: text/html; charset=Shift_JIS
等。
スレ違いだが、まぁ。

htmlの最初のほうにコメントでその文字コード特有の文字を入れておくとか。
gooのホームページはそうだよね。

でもすれちがいなので下げ。

その割にgooは文字化け率高いけどな。
トップのスレを下げてもしょうがないのであげ。

仕様に適合した UA なら head 内の charset 指定すればいいはず．
もちろん文書中でそれより前に漢字とか使っちゃダメだけど．
ttp://www.asahi-net.or.jp/%7Esd5a-ucd/rec-html401j/charset.html#doc-char-set

関係ないのでやっぱりさげ．

それを出すならこっちもだろう。

charsetパラメタの勧め: HTMLにおける文字符号化スキームの明示方法
http://www.fxis.co.jp/DMS/sgml/cafe/saloon/html_correct_charset.html

ちょっと漠然としていますが、エラー処理について質問です。
編集前の状態
ファイルA=>0
ファイルB=>0
編集後の状態
ファイルA=>1
ファイルB=>1

こんな感じの処理をする時にファイルBの編集中に例外やSIGTERM喰らって
処理が中断してしまった時ファイルAを0に巻き戻すような処理を行いたいのです。
つまりファイルAとBの時系列の同一性を保ちたいんですが（これって何って呼ぶん
だったかな、、んー）
イメージ的には2chだと、パラメータの汚染チェックが通れば次々ファイルを処理
して行く訳ですが、最終段階のindex.htmの書き換え中にコケてしまうような状態です
例えばショッピングカート等、お金の絡むプログラムだと、これが致命的な欠陥に
なると思うんですが、、中々自分では上手く行きません。

参考になる考え方や本なんかは有りますでしょうか。

んー　われながら解りにくい日本語だ。。（-＿-...
2chだと　あるスレにカキコがあると
datに追記→subject.txt書き換え→テンポラリHTML書き換え→index書き換え
これだけ作業する訳ですが、どれかの更新中にこけてしまうと
それぞれのファイルは不整合をおこしてしまいます。

これを、全ての工程が成功して初めて書き換える、と言う感じで行いたいのです。
今の所テンポラリに書き出して一気にrenameする位しか考えが及びません。

知らん、以上。

一週間でマスターするCGIというのをやっているのですが

アンケートをとるCGIでenquete.datに書き込んでくれません
line11は　$data = "$form{'name'}$form{'mail'}\n----------\n\n";
line16は　print ENQ $date;
なのですが
これってどういう意味なんでしょうか？

C:\1week\saturday>perl -cw enquete.pl
Name "main::data" used only once: possible typo at enquete.pl line 11.
Name "main::date" used only once: possible typo at enquete.pl line 16.
enquete.pl syntax OK

ホンヤク白〜〜〜　と言いたいがwcしてるのは感心
mainパッケージの$dataが一回しか使われてないけど、タイポしてんじゃ無いの?

my ($data,$date);

ありがとうございます
すいませんタイポってなんですか？

>>277
typo == "typographical error"
ようするに文字の打ち間違い。

>>272-273
Temporary -> Rename
ってのが簡単に実装出来る手段だというのは間違い無い。
参考になる本は、ム板の参考書スレにあった気がするぞ。

>>272-273
>テンポラリに書き出して一気にrenameする
これで良いんじゃない・・・？
最後に一連のrenameするときだけシグナルをトラップして
中断されないように配慮すれば。

>>278
ご指摘のとうりただの打ち間違いでした

（ ´Д⊂ヽううー、ありがとうございました
またヨロシクお願いします

Win32::OLEを使ったExcelのデータの作成・加工を行おうとしています。

セルへのデータ入力の一括入力は、以下のような方法で可能なのですが、
　　@data = (
　　　　[ qw(dataA1, dataB1, dataC1) ],
　　　　[ qw(dataA2, dataB2, dataC2) ],
　　　　[ qw(dataA3, dataB3, dataC3) ]
　　);
　　$Worksheet->Range("A1:C3")->{Value} = \@data;
セルに入力されているデータをURLの一部として持つHyperlinkを
同様にセルに一括挿入する方法が分かりません。

現状、A1:A3のデータを元にHyperlinkを挿入する際、
　　for (my $i = 1; $i <= 3; $i++) {
　　　　$Worksheet->Hyperlinks()->Add(
　　　　　　　　$Worksheet->Range("A${i}"),
　　　　　　　　"http://www.z.com/" . $data[$i - 1]->[0] . "/");
　　}
のようにループを回して処理しているのですが、
データ数が多くなると分単位で時間がかかってしまう点が難点です。

Hyperlinkが定数であれば、下記の一括挿入が可能なのですが、
URLの一部にセルのデータを使用した場合のHyperlinkの
効率的な挿入方法はないものでしょうか？
　　$Worksheet->Hyperlinks()->Add(
　　　　　　$Worksheet->Range("A1:A3"), "http://www._.com/sample/");

VBA寄りの内容かもしれませんが、ご存知の方がありましたら、
ご助言頂ければ幸いです。

Win32::OLEを使ったExcelのデータの作成・加工を行おうとしています。

セルへのデータ入力の一括入力は、以下のような方法で可能なのですが、
　　@data = (
　　　　[ qw(dataA1, dataB1, dataC1) ],
　　　　[ qw(dataA2, dataB2, dataC2) ],
　　　　[ qw(dataA3, dataB3, dataC3) ]
　　);
　　$Worksheet->Range("A1:C3")->{Value} = \@data;
セルに入力されているデータをURLの一部として持つHyperlinkを
同様にセルに一括挿入する方法が分かりません。

現状、A1:A3のデータを元にHyperlinkを挿入する際、
　　for (my $i = 1; $i <= 3; $i++) {
　　　　$Worksheet->Hyperlinks()->Add(
　　　　　　　　$Worksheet->Range("A${i}"),
　　　　　　　　"http://www._.com/" . $data[$i - 1]->[0] . "/");
　　}
のようにループを回して処理しているのですが、
データ数が多くなると分単位で時間がかかってしまう点が難点です。

Hyperlinkが定数であれば、下記の一括挿入が可能なのですが、
URLの一部にセルのデータを使用した場合のHyperlinkの
効率的な挿入方法はないものでしょうか？
　　$Worksheet->Hyperlinks()->Add(
　　　　　　$Worksheet->Range("A1:A3"), "http://www._.com/sample/");

VBA寄りの内容かもしれませんが、ご存知の方がありましたら、
ご助言頂ければ幸いです。

すみません、一部誤りがありました。

（誤）
　　@data = (
　　　　[ qw(dataA1, dataB1, dataC1) ],
　　　　[ qw(dataA2, dataB2, dataC2) ],
　　　　[ qw(dataA3, dataB3, dataC3) ]
　　);

（正）
　　@data = (
　　　　[ qw(dataA1 dataB1 dataC1) ],
　　　　[ qw(dataA2 dataB2 dataC2) ],
　　　　[ qw(dataA3 dataB3 dataC3) ]
　　);

よろしくお願いします。

>>284
URLの配列を作ってから一括代入するのはどうすか？
@cells = map { [ map { 'http://www.xxx.com/' . $_ } @$_ ] } @data;
$Worksheet->Range("A1:C3")->{Value} = \@cells;

>テンポラリに書き出して一気にrenameする
~~~~~~~

笑える。

>テンポラリに書き出して一気にrenameする
　　　　　　　　　　　~~~~~~

>>285
レスありがとうございます。
舌足らずで、説明不足だったようです。どうもすみません。

実現したい内容は、セル自身はURLそのものではなくリンクの一部を表し、
それを使ったリンクを同じセルに埋め込みたいということです。

例えば、URLの一部になるセルのデータとしてISBNや2chのスレIDなどが入っており、
その隣に書名なりスレ名なりが入力されているような状況を想像下さい。
そして、該当リンクへジャンプするとAmazonや2chに実際に飛んで、
具体的な情報が見れるような使い方を考えています。

実際に考えている使用方法では、セル自身のデータがCGIのquery情報を保持しており、
それ自身が意味を持った値ですので、
セルの値にHyperlinkを直接もつというのは避けたいところです。

引き続き、情報お待ちしております。

htmlのformとcgiでアンケートをつくっているのですが
<form method="post" action="enquete.cgi">

"送る"を選ぶとなぜか
"次の場所からダウンロードするように選択しました"
となってcgiのテキストを開こうとします
本のCDからデータをコピーしたので打ち間違えではないのですが、、、

何が悪いのでしょうか？

>>289サーバにアップロードしてないとか

適切なMIMEが設定されていない、とか。

または、IEの場合、*.cgiのファイルをテキストエディタ等に関連付けしてある状態で、
Content-Type: text/plainのCGIにアクセスすると、ダイアログが出るという状況が確認されています。

>289
ヘッダの情報が間違ってるとか。

ありがとうございます

>>290
ローカルなのですがApache/htdocsに入れました
>>291
*.cgiはメモ帳のアイコンになってますこれがまずいのでしょうか？
>>292
ヘッダってどこのことですか？

>>293
> *.cgiはメモ帳のアイコン
ですね。関連付けを外したら直るかと。

ヘッダとは、Content-Type: text/plain とかのこと。

>>294
ありがとうございます
それでどうやって関連付けを外すのですか？
申し訳無い

Content-Type: text/htmlというのならcgiデータに書いてあります

text/htmlなのかい。
どうしましょ。

関連付けはwin板ですかね。

変更しなくて良い。
Wクリックでメモ帳で編集出来るようになってるだけだから。。。

パスワードを暗号化してクッキ〜に保存するにはどうすればいいのですか？
暗号化のやり方がわからない・・・

>>295
それ良く聞くけど、関連付けは関係無いと思うぞ。
インターネットの(外の)サーバのCGIではそんな風にならないんだろ?
だったら99%httpdの設定だって、WINは知らないけどApacheのconfファイル
見てみ。
>>298
$cryptpass = crypt ($plainpass,salt);
で$cryptpassをURLエスケープする

俺、このＨＰ大好き！
http://members.tripod.co.jp/bingo852/

実際text/plain吐かれるとダイアログは出るぞ。
text/htmlなら何ら関係ないけど。

>>300
よく飽きないね。いい加減ウザイ。

>>301
そっか･･漏れデバッグの時plainで吐いてるけどなった事無かったから　ｺﾞﾒｿ
じゃtext/html出してる前提で
httpd.confを触ってみて、多分Option辺りだと思うから。。

ありがとうございます

フォルダオプション-ファイルタイプで削除して
*.cgiがwinのアイコンになったのですが
"送る"を押すとブラウザにcgiデータのテキストが出てきてしまいます

>>299
httpd.confというのは本に書いてあるように設定したのですが、、、

>>295
とりあえず、そのCGIは具体的に何するんですかね？

掲示板のようなCGIだと仮定してみる。
普通にtext/htmlを返すのが問題無いとして、
余程変にいじってないApacheならば問題ないはずだが。

httpd.confの変更点

ServerName 127.0.0.1・・・Servername new host.name下に書き足し
Options FollowSymLinks ExecCGI・・・ExecCGIを書き足し
Options Indexes FollowSymLinks ExecCGI・・・MultiViewsをExecCGI
AddHandler cgi-script .cgi・・・#を削除

perl、cgiのみだと動くのですが、
html、shtmlに組み込むとまったく動きません

>>304
htmlのformを使って書き込まれた内容を
cgiを使ってdatファイルに書き込むというモノなのですが、、、

datに書き込む処理が終わった後、そのdatが表示されるようになってない？
もしくはdatに飛ばしてるとか。

組み込むって <!---exec**　しようとしてるのｶｰ（ﾟдﾟlll)

<FORM method="POST" action="enquete.cgi">htmlは問題無いと思うのですが
----enquete.cgiの内容----
#!C:/Perl/bin/perl
# ライブラリ
require 'cgi-lib.pl';
# デコードサブルーチン
&ReadParse(*form);
# ライブラリ
require 'jcode.pl';
# 文字コード変換サブルーチン
&jcode'convert(*form,'sjis');
# 連想配列から値だけを取り出し、区切りのハイフンを追加
$data = "$form{'name'}\n$form{'mail'}\n$form{'sex'}\n$form{'age'}\n$form{'kansou'}\n\n----------\n\n";
# 追加書き込みモード
open(ENQ, ">>enquete.dat") || die "File 'enquete.dat' Open Error.";
#flock(ENQ, 2);
print ENQ $data;
#flock(ENQ, 8);
close(ENQ);
# -----ここから出力 -----
print "Content-type:text/html\n\n";
print << "END_OF_HTML";
<HTML>
----お礼のページが開くようです----

一週間でマスターするCGIって本なので基本的な設定が間違っているのだと思います

データは付属CDからコピぺしたので動くはずなのですが、、、

つーかhello.cgiで実験すれ、print "Content-type: text/html\n\n<html><h1>hello";
<html><body><FORM method="post" action="hello.cgi">
<input type=submit value="post実験></FORM>
これPOST

生でCGI開いてGET、おかしかったらHTTPDの設定が悪い
検索したら、出てきた。

http://www.shoeisha.com/book/errata/er_detail.asp?bid=1222
http://www.google.com/search?q=WIN+CGI+EXEC+APACHE&hl=ja&lr=lang_ja

>>299
アドバイスありがとうございます。
が・・・全くわかんないです。
簡単なプログラムのソース書いていただけないでしょうか？
お願いします。

#!/usr/local/bin/perl
print "Content-type: text/html\n\n<html><h1>Hello";
↑　これhello.cgiで保存
<html><body><FORM method="post" action="./hello.cgi">
<input type=submit value="post実験"></FORM>
↑　これhello.htmlで保存
ボタン押しても、直接CGI開けても「Hello」が見えないと駄目
で、何が悪いかと言うと大体Apacheの設定が悪いかWINの設定が悪い

お小言言わせて貰うとさ、「一週間でCGI」←このタイトルからしてダメ
●HTMLが書ける。
●自宅で試すならHTTPDの設定が出来る。
●Perlのプリント文が書ける。
これ3つとも出来ないとまともに動かない、だから一つづつマッタリと
遊びながらやった方が簡単なんだよね。
だから、どかっっとソース貼られてもアドバイスのしようが無い
「結局ドキュメントルート見えてませんでしたっ」とかも良く有る
で上の感じだと多分HTTPDの設定が間違えてるっぽいから
googleのリンクで調べてちょってわけ

俺も上で結構付き合ってきたけど、
>>311にソースが既に書いてあるのに、>>312見て愕然。

ちなみにスレ違いだったな。
http://corn.2ch.net/test/read.cgi?bbs=php&key=1000804655&ls=50

>>314
スマソ。漏れは下のほうに答えたんです。
パスワードを暗号化してクッキ〜に保存するソースを知りたいんです。

http://www.google.com/search?hl=ja&q=perl+crypt%8A%D6%90%94&lr=lang_ja
http://www.google.com/search?hl=ja&q=%83N%83b%83L%81%5B+%83G%83%93%83R%81%5B%83h&lr=lang_ja

>316
ありがとうございます。
暗号化する方法はわかったんですが、どうやってクッキーの保存、読み出しと組み合わせればいいんですか？

>>279-280
ありがとうございます、やっぱりお手軽なのはリネームになりますか。
ショッピングカートとかこんな感じのトランザクションをどうやって保証してるんだろう
例えば最悪のタイミングでSIG{TERM}投げられたらどうしようとか、
2chの�d�jはsubjectの書き換えで0バイト読み込みしちゃってると思うんですが
考え出すときりが無いですよね。

取り合えずム板の参考書スレを読み直してみます。　レス感謝〜

パスワード掛けなければよい　　（ｎ

┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　┃
┃むぎ茶　　　　　　┃
┃[email protected]　　┃
┗━━━━━━━━━┛

一日見ない内に糞スレ。

超初心者な質問なのですが
require'jcode.pl';
&jcode'convert(*data,'sjis');

print"Content-type:text/html\n\n";
if($data eq "hehehe"){

print<<EOF;
<html>
<head>
<title>ビィンゴー！</title>
</head>
<body>
正解じゃい！！<BR>
文句あるんか？
EOF

}

print<<EOF;
間違ってる
</body>
</html>
EOF
exit;

というのを作りました。
間違ったパスを入れるとちゃんと動くのですが、正解を入れると
正解の文字と間違った時の文字の両方が出てきます。
何か間違ってますか？

>321
if(){}else{}を使おう。
条件分けというものを一から勉強しなおした方がいい。

>321
一応ヒント。
・正解の時にだけ出すHTML
・間違いの時にだけ出すHTML
・正解でも間違いでも必ず出すHTML
を自分で理解しよう。

間違ったパスを入れた時も、ちゃんとは動いてないぞ。
HTMLソースを見てみな。

むぎを見たのも久しい気がする。

>322
すいません。勉強しなおして解決することができました。
elseで解決しました。また1箇所構文が間違っていてそれも修正して
うまく動作するようになりました。
ありがとうございました。

書き込むほどのことではないのですが
質問しようと思いブラウザを開きましたが、やはり質問する前にもう一度見直してみようと思い
2時間掛けて見直したらどうにか直りました。
何度か見直していたのですがやはり見落としがありました。
どうでもいいことなのですが･･･

どうでも良すぎる。

カレントディレクトリのファイル一覧@filesを最終更新順に並び替えるのってどうすればよいでしょうか？

@file = sort { (stat $a)[9] <=> (stat $b)[9] } @file;

>>326
構文チェックしよう。
perl -wc hoge.pl

>>328
@files = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_, (stat)[9]] } @files;

@file → @files

>329
statを呼ぶ回数が多くなって効率が悪い？・・・

#! /usr/local/bin/perl
use Benchmark;
timethese(96, {
'329' => \&prog329,
'330' => \&prog330,
} );

sub prog329 {
opendir(DIR, './');
my @files = readdir(DIR);
closedir(DIR);
@files = sort { (stat $a)[9] <=> (stat $b)[9] } @files;
}
sub prog330 {
opendir(DIR, './');
my @files = readdir(DIR);
closedir(DIR);
@files = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_, (stat)[9]] } @files;
}

--------------------------------------------------------------------------------------------

Benchmark: timing 96 iterations of 329, 330...
329: 2 wallclock secs ( 1.54 usr + 0.51 sys = 2.05 CPU) @ 46.83/s (n=96)
330: 1 wallclock secs ( 0.56 usr + 0.17 sys = 0.73 CPU) @ 131.51/s (n=96)


結構差が出るな。

ちなみにファイル＆ディレクトリ数が 26個あるディレクトリで計測。

CPU Pentium200MHz
RAM 224MB
HDD 知らん
OS Vine Linux 2.1
Perl 5.6.1

@files = map { $_->[0] } sort { $b->[1] <=> $a->[1] } map { [$_, (stat)[9]] } @files;

このソート方法、良く見るんだけど未だに理解出来ない。。。
どっか解説してくれるサイトなあい?

>>335
右から見ていけば分かりやすいかと。

map の使い方がやっとYO!

@files = sort {(stat $b)[9] <=> (stat $b)[9]} @files;
と一緒でしょ。やってることは。

げ、329と一緒じゃん。。

$ck{$_} = (stat)[9] foreach @files;
@files = sort { $ck{$b} <=> $ck{$a} } @files;
↑
こっちの方が早い

benchとったけど微妙だな。
まぁお好みで。

ENVってどれくらい種類あるの？

>>342
環境による。

>>342
自分で調べろ。
keys %ENV

(　´_ゝ｀) ﾌｰﾝ

ちんこがかゆいので
自動チンコかきそふとを作ってください

家の外にアイスクリームを置いて下さい。
暫らくすると蟻が沢山寄ってくるのでそれをパンツに突っ込んで下さい。
上級者向けだけど・・・・頑張って！！

HTTPではじまる環境変数ってどれくらい種類あるの？

>>348
自分で調べろ。

無限にあります。

でかいプログラムを書くと自分の作った関数がどこで呼ばれているかが把握できなくなりませんか？
そういうときに簡単に関数の呼び、呼ばれリストが作成できるツールってないのかな？

関数作る際自分でメモっとけ。

なんか開発ツールとかないのかな？
JavaのForteとかJbuilderみたいな。

>>351
全文検索

>>352
てめぇの厨房CGIと違って関数100個以上もあるんだよ。

#!/opt/bin/perl5
print "352 逝っとけ\n";

>>355 煽りウザイ。死んどけ。

どこで呼ばれてるかの確認ってひつようかしら

>>357
まぁ必要だから聞いてるんじゃない？

つーか関数100個以上････。

モジュールとかに分けろよ。

そっちがよっぽど厨房ｹﾞﾌﾝｹﾞﾌﾝ

いやその前に関数多けりゃどうって話じゃねーだろ。

grepで一発ジャン。
馬鹿ばっかだな。

質問の本質をわかってない馬鹿発見。

コテハン糞レスの法則

一部を除いて、どうしてこんなにレベルが低いのだろう。

>> 358,359
モジュールでも共通度が高いと意味がない。
厨房ＳＥはとりあえず黙って逝ってください。

あとgrepじゃ、全体が把握できないでしょ？
君は厨房ＵＮＩＸ使いだから逝っといてね。

>>351
プロファイラで代用するのは？

(1) hoge.plを実行してプロファイルtmon.outを作成
perl -d:Dprof hoge.pl

(2) tmon.outを解析して関数呼び出しのツリーを表示
dprofpp -t

ただし、あくまでもプロファイラの機能の一部なので、
実際に呼ばれた関数を記録して表示するだけ。
351の意図するところと多少違うとは思う。

共通度が高いのはモジュールとして一番望ましいんじゃねーの？
困った君だね。

「共通度が高い」という用語の共通度が低いのでは？＞そこのふたり

ややこしくなってきたけど納得。>>366

使ったことないが，これなんかはどうだろう。
http://www.bekknet.ad.jp/~bero/docj/module/03/index.html

関数呼び出しリストならPerlで書けそう。
へたれには無理だが。

つーか関数が把握できなくなるような設計はヘボだと思う。
strict使ったり，パッケージ分けやプロトタイプ宣言とか
スコープ狭くしたりすれば，あるていどはマシになるかと

解答者を質問者が煽るというのが最近の流行りなのか？

>つーか関数が把握できなくなるような設計はヘボだと思う。
激しく同意。

>解答者を質問者が煽るというのが最近の流行りなのか？
らくだ氏は明らかに精神を病んでおられるので・・・・

sentence for (;;;);

な書き方ができないのを今始めて知った。

なぜだ。何か問題があったのか。

その画像ならココ
http://www.f2.dion.ne.jp/~impact14/

>>371
forに修飾子はありません。
for修飾子が成立する時はforeachとして解釈されます。
よって()の中はリスト値でなければいけない、と。

>>373
さんきゅう ふぉー ゆあ かいんどねす

そういえば、
print for(1..10);
みたいなことはできるんだよな。なるほど納得。

でも、senetense for(;;) で使ったときに、なんか不味いことでもあるんかなぁ。
見栄え上というか、他の意味と取り違えやすくなったりとか？

確信あるわけではないけど。

修飾子の時は sentense for 1..10 みたいに書ける。
というか、自分は(1..10)みたくカッコ付けないです。
んで、(;;)の場合はカッコ無いと死んでしまう。

結局構文解釈上の問題なのかな？と。
# 多いに外している可能性があります。
# 識者の補足/説明希望。

>>353
ActiveState社からVisual Perlが出ています。ただし有償ですけど。
ActivePerlは無償なんだけど、Debuggerは有償なんですね、ここ。

すいません、コマンドラインで<STDIN>時に「キーボードから入力する文字数」を制限するのは、
どうすれば良いのでしょう？

（例えば、コマンドラインで、パスワードを入力するときに、８文字なら８文字と決まっていて、
９文字目は入力しても、画面には表示されない。）

OS非依存が良いのですが、依存せざるを得ないのであれば、Win依存でお願いします。
（キーが押されたってことを検出できれば、それをループでまわせるとは思うんですが、
　C言語のgetche や kbhitに相当するPerl関数がわからないんです。。とほほ。。。。）

厨な質問ですみません。（「CGIに依存しないPerlの話題一般」とのﾏﾙﾁﾎﾟｽﾄでｽﾝﾏｿﾝ）

(　´,_ゝ｀) あっそー

Jフォンから、写真添付メールを送ると、
そのまま掲示板に掲載することのできるＣＧＩはありませんか？

>>379 shine

ENVのHTTP_X_LOCKINGとHTTP_FORMってなんですか？
色々調べてみたのですが不明です。

色々調べたのにそんな事も分からない君に乾杯　　（ｎ

┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　　┃
┃むぎ茶　　　　　　　┃
┃[email protected]　　　┃
┗━━━━━━━━━┛

HTTP::Cookiesについて質問です。
LWP::UserAgentを使ってPDA用中継サーバーを実験で作っています。

サーバーから送信されたcookieを受信して
$cookie_jar->save( $file );
でファイルに書き出すことはできたのですが
内容を要素毎に取り出す方法がよくわかりません。

要素毎に取り出してクライアントのブラウザに登録したいのですが
どのようにしたらいいのでしょうか？

初心者スレッドでする質問でもないような気がしますがほかに
いいスレッドがなかったのでここに質問しました。

申し訳ありません。
質問があります。


CGI単体で指定フレームにリンクを飛ばせるものですか？

HTMLのMETAとか
Javascriptのlocationとかを吐き出させる方法以外で。

できるか、できないかだけでも教えてください。
宜しくお願いします。

意味不明。

(　´,_ゝ｀) あっそー

>>383
HTTP::Cookieって使ったこと無いけど、どんな風にcookieがファイル
に書き出されるの？
書き出されたファイルを見れば分かりそうなもんだと思うのだが。

>>377

Cで出来ることがわかっているなら、Cでやったら?
このあたりは環境依存は仕方ない気がする。
モジュールあさればあるんだろうけど。

> h2xs -An Win32::Getch

## Getch.xs

#include <conio.h>

MODULE= .. PACKAGE = .. PREFIX = _

int
_getch

int
_getche

int
_kbhit

## Getch.pm

our @EXPORT = qw(getch getche kbhit);


> perl Makefile.PL
> nmake
> nmake install
> perl -MWin32::Getch -e "print chr(getch) while $c++ < 8

つーかHTTPヘッダ云々は下のサイトでたいていは解決する。ちゃんと調べろ
http://dir.yahoo.co.jp/computers_and_internet/internet/world_wide_web/HTTP/

>>389
どれに対するレスなのかまったくワカリマセン。

>>385 >>386 >>389
どれに対するレスなのかまったくワカリマセン。

>>390 >>391
(　´,_ゝ｀) あっそー

$cookie_jar->as_string
でできました

>388さん、親切にありがとう。

やっぱり、教えていただいたみたいに、C関数呼び出すしかないのかな〜。
んでもありがとう。とりあえず、これで良しとします。
CPANもちょと逝てきます。

$scalar = @array;
だと$scalarには@arrayの長さが代入され、
($scalar) = @array;
だと@arrayに入っている最初の要素が代入されます。

配列変数がどのようなものかは大体理解できました。
でも・・・。

$scalar = localtime;
print "$scalar\n";

とすると
Fri Sep 28 06:14:13 2001
という現在の結果が帰ってきます。

連想配列の場合、$scalarが括弧で括られているかそうでないかで結果が違うの
に、
$scalar = (localtime)[0];
($scalar) = (localtime)[0];
は同じ結果(秒)が帰ってきました。

$scalar = localtime[0];
とすると

この場合は[]にどんな数字を入れても
Thu Jul 13 20:14:04 1978
という結果が帰ってきます。

localtime()って配列関数の一種ではないのでしょうか?
どういう仕組みになっているのか把握できず、混乱しています。

よろしくお願いします。

aとbというファイルがあってaのファイルがロックされているときは
bのファイルに書き込むというのを考えているのですが
aがロックされているとき(またはbのファイル)という定義は
どのようにすればいいのでしょうか？
それともただ単にaファイルに書き込みできずにエラーとなったら
bファイルに書き込むという風にするしかないのでしょうか？

use Fcntl qw[:flock];

if(not flock FH, LOCK_EX|LOCK_NB) {
print "ロック中\n"
}

flock は advisory lock なんで、ロックでも操作できます。なので、そういう場合は flock で調べるしか無いです。

LOCK_EX ... exclusive lock
LOCK_NB ... do not block (ロックが成功するまで待たない)

上の式はFHというファイルがロックされてたらロック中とプリントする
ってこと？
初心者なものでifでこういうの初めてみました。

FHというファイルハンドルがロックされていれば「ロック中」と表示します。

>JAPU
ありがとうございます。まさかこんなに早くレスがつくとは思いませんでした。
ifでこんな風にもできるんですね。まだまだ修行がたりないようです。
なかなか使える感じです。
ありがとうございました。

>>395
localtimeは「スカラーコンテキスト」で評価されるとスカラー、
「リストコンテキスト」で評価されるとリストを返すから。
これで前半３つは理解できるはず。

で、最後の localtime[0]は、localtime([0])のカッコ省略形とみなせる。
つまりlocaltimeに [0]という引数を渡しているわけ。
[0]というのは無名配列へのリファレンスなので、
数値として評価すると何かの数値（そのアドレス？）が得られるんでしょう。

実際の[0]の値は↓これで見れるはず。
print [0], "\n"; #[0]をリファレンスとして表示
print [0]+0, "\n"; #強引に数値化して表示

ハッシュ変数のキーの数を調べるにはどうすればいいですか？

>402
keysでいいんじゃない

>JAPU
open(FH, "a") || open(FH, "b")||die "File 'data' Open Error.";
aがダメならbをFHとしてopenとかでも良くない？

open(FH, ">a") || open(FH, ">b") || die "File 'data' Open Error.";
ってことですか?
ロックされていても open 自体は成功しますが...
flock はあくまでも advisory lock なんで。

ロックされててもopenできるの？
ではロックされてても追加で書き込みとかできるってことですか？
すいません。初心者なもので･･･

：ではロックされてても追加で書き込みとかできるってことですか
頭大丈夫か？（ｎ


┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　┃
┃むぎ茶　　　　　　┃
┃[email protected]　　┃
┗━━━━━━━━━┛

openはできるけど書き込みはできないんじゃない？

>>403
kyesだと真偽しか返ってきません。
一回keysで展開してカウントする以外にありますか？？

>>408
openできる。
読み書きもできる。

ロックはできない。

だと思ふ。

>>409
それしかないと思うけどー。
よく見る例。 $n = scalar(keys(%hash));

>410
flock中のファイルはopenも出来て書き込みも出来るの？
それじゃロックの意味がないんじゃない？
カウンターとかでflockよくみるけどあれはファイルを同時アクセス
とかでなるべく壊さないようにロックするんでしょ？
じゃなきゃロックに意味がないよ〜

>>412
もう少し考えてから発言する事を要求する。

あー 言い方が悪かったかな。

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

----
あと、共有ロック (LOCK_SH) に関して蛇足。
これは「共有ロックの人だけは何人同時に触っても良いよ」ってロックです。読み取りのみが必要な場面で使います。
排他ロック (LOCK_EX) する場合は共有だろうが排他だろうが1人でもロックしていればロックできません。

flock(FH,2)
flock(FH,8)

さすがPerl初心者コーナー>JAPU

何がしたい？（ｗ＞415

どれくらいの事ができたら「脱初心者」といえるのでしょうか？

初心者丸出しですが
変数$tmpにどんどん追記していくには
どんな関数を使えばよいのですか？
丸出しで申し訳ないですが。

>>419
$tmp = 'hoge';
$tmp .= 'fuga';
print $tmp; # hogefuga

いくらなんでも、名前と全４行の本文を合わせて合計３度も「丸出し」を唱えるのは
ちょっと守りを固めすぎですよ（ｗ

なるほど！
スクリプトいろいろ見てて
"."ってなんだろ？って思ってたんですが
そういう事だったんですか！
即レス感謝！ありがとう〜！

>421
自慢じゃないですが
ディフェンス力の強さだけは
結構高いんですよねｗ
どうもでした〜。

>>401
うーん。
今の私には何が何やら・・・。

でも理解できるように頑張ります。

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

どれくらいの事ができたら「脱初心者」といえるのでしょうか？
どれくらいの事ができたら「脱初心者」といえるのでしょうか？
どれくらいの事ができたら「脱初心者」といえるのでしょうか？
どれくらいの事ができたら「脱初心者」といえるのでしょうか？

sleepって１秒単位しかだめなの？

たとえば1/10秒とか1/100秒って指定できないのかな？
sleep(1/10);
とかってやってみたけど無視されてるようなきがするんだけど

>>426
sleep()は秒単位です。
ミリ秒単位でsleepしたい場合はselect()システムコールを用いるか、
Time::Hiresモジュール(Perl5.7.1からは標準)を利用してください。

select(undef, undef, undef, 0.1);

or

#!/usr/bin/perl
use Time::Hires qw[ sleep ];
sleep(0.1);

今更ですが、このスレッドには御世話になってます。
識者の皆さん、ありがとうございます。
私も皆さんに追いつけるよう、努力していきたいと思います。

教えてください。
HTMLファイルに書き出す時、
.= 　で、追記したものを、
HTMLファイルに書き出してるんだけど、
これ以外にいい方法ってありますか？

意味が解らないDEATH
print文を健作してくだｻｲ

どれくらいの事ができたら「脱初心者」といえるのでしょうか？
どれくらいの事ができたら「脱初心者」といえるのでしょうか？
どれくらいの事ができたら「脱初心者」といえるのでしょうか？
どれくらいの事ができたら「脱初心者」といえるのでしょうか？

どっから迷い込んで来たのか・・・・迷惑な話だ
>>429
同じく意味が分からんけど、ファイルに書き出すって事?

print "hogehoge";#は知ってるはず
print<<"_HTML_";
hogehoge
_HTML_ #でもいいし

print HTML <<"_HTML_";
hogehoge
_HTML_

とか結構適当に書けば色々出来るよ　　：-）

質問お願いします。
A2GIFという手法で、ＯＳ依存しないＡＡ表示を実現させようと考えています。
Windows用ツールは自作、マック用ツールはとある方に作っていただいたんですが、
できればブラウザ上で表示させたいな、などと思っています。

私はPerlとかあんまり知らないのですが（ソースとかは少しなら分かるのですが）、
とある方に作っていただいたソースがあります。しかしPerlの設置・運用に関する
知識がまるで無いので、どう活用すればいいのか分かりません（泣）
みなさんの力を貸して頂きたいのです・・・どうかよろしくお願いします。

（A2GIF）文字のコードを読んでをgifに置き換え、画像として表示させることで、
ブラウザ依存／OS言語依存無しで２ちゃんねるＡＡの表示が可能です。転送量が膨大に
なってしまうのが欠点ですが・・・例えば（　´∀｀）を変換すると下のようになります。
<html><body>
<img src=font/18line.gif><img src=font/sjis8169.gif><img src=font/sjis8140.gif><img src=font/sjis814C.gif>
<img src=font/sjis81CD.gif><img src=font/sjis814D.gif><img src=font/sjis816A.gif><br>
</body></html>

アップ.HP http://www42.tok2.com/home/hekomuyo/
通常版 　 http://www.geocities.co.jp/SiliconValley-Cupertino/9474/aameasure.lzh　（約200KB）
A2GIF版　http://www.geocities.co.jp/SiliconValley-Cupertino/9474/aameasure_a2.lzh　（約600KB）
ソース　　 http://www.geocities.co.jp/SiliconValley-Cupertino/9474/aameasure_src.lzh　（10KB未満）
M.A.C.用　http://www07.u-page.so-net.ne.jp/rg7/yu-ya/warez.html
Perl版.?　 http://green.jbbs.net/computer/bbs/read.cgi?BBS=391&KEY=1001606806&END=100
注）「Win版のソースが汚い」というクレームは受け付けていません（苦笑）

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

意味不明申し訳ないです。cgiファイルではなくてHTMLファイル化ということです。
出力結果部分を.htmlファイルにする方法で.=を使ってますが変なので、
良い方法をご教授願いたいと思っています。宜しくお願いします。

$logfile = "kakidashi.html";
$syuthuryoku = "オマエモナー\n";

#以下の部分を一まとめにして、$htmlに代入する方法とかあるのかな？
$html .= "<html>\n";
$html .= "<head><title>この方法は変でしょ</title>\n";
$html .= "<body>\n";
$html .= "HTMLの出力結果は、$syuthuryoku\n";
$html .= "</body>\n";
$html .= "</html>\n";

open (OUT,">$logfile") || &error('オープンエラー');
print OUT ($html);
close (OUT);

&header();
print "<a href=./kakidashi.html>出力ファイル</a>";

sub error {
&header();
print "<body>$_[0]</body></html>\n";
}
sub header {
print "Content-type: text/html\n\n";
print "<html><head><title>この方法は変でしょ？</title></head>\n";
}

あ、太田さん来てる。
UAに依存しないAAですか。いいっすね。

一つ一つの文字をgifにですか。
なんか効率悪そうですね。gifcat(dog)とかで繋げられないかな？

>>433
よくわからんが、web上でCGIとして動かしたいって事？
だとしたら、gatewayのサーバー立てて、そこにCGIを設置して、
httpリクエストでAAを取得→A2GIFに渡す→結果を返す
んでいいじゃない？

えーと、そっち方面の知識がまるで無いので・・・
カウンターを繋げたりする方法でしょうか。
１行１画像くらいにできれば効率上がりそうですね。

>>437
えーと・・・どうやるのでしょう？（汗）
自分のＰＣではちょっと鯖立ては難しいので、
トクトクでやりたいのですが、どうでしょうか・・・。

>>434
open (OUT,">$logfile") || &error('オープンエラー');
print OUT qq{
<html>
<head><title>この方法は変でしょ</title>
...
};
close (OUT);

perl動いてセッション間の通信ができれば鯖はなんでもいい。
トクトクは知らんが。
それ以前に、ユーザーインターフェイスの仕様をもうちょっと煮詰めた
方がいいと思われ。
動作イメージがさっぱりわからん。

>>441今のところ考えているのは、
案１：画面上に入力フォームがあって、そこにＡＡをコピペ、変換ボタンを押すとＡ２ＧＩＦ形式のｈｔｍｌが表示される
案２：URLを入力するところがあって、変換ボタンを押すとＵＲＬ先の内容がＡ２ＧＩＦ形式に変換される

案１はちょうど掲示板の入力のような感じで、
案２は確か「幼児語化計画」のようなものです。

open(COUNT, "+<$countdata") || die "File 'countdata' Open Error.";
flock(COUNT,2);
$counter = <COUNT>;
$counter1 = ++$counter;
seek(COUNT, 0, 0);
print COUNT "$counter1\n";
close(COUNT);
flock(COUNT,8);
print "Content-type: text/html\n\n";
print <<EOF;
<HTML>
<BODY>
<CENTER>
<FONT size="5"><B>
$counter1
</B></FONT>
</CENTER>
</BODY>
</HTML>
EOF

というのでテキストカウンターを作ったのですが表示したいHTMLに
<img src="hehehe.cgi">という風にしても表示されません。
テキストのみのカウンターの場合はどのように表示させてば
いいのでしょうか？
もちろん単体でしたらうまく機能しています。

>>434
$html = <<"__KOKOMADE__";
<html>
<head><title>それならヒアドキュメントでいいっす</title>
<body>
HTMLの出力結果は、$syuthuryoku
</body>
</html>
__KOKOMADE__

open (HOGE,">hoge.html");
select HOGE;
print "<html><head></head>";
print <<"_HTM_";
<body>
これselect忘れると変になるんだよなー
</body></html>
_HTM_

>>442
案２のほうは437や441が言ってるやつね。CGIプロクシ形式。
無料レンタルサーバだとできないように設定されてることが
多いけど、トクトクはどうなんかねー。

とりあえず、案１はどのサーバでも大丈夫だからやってみれば。
いま使ってる掲示板スクリプトはどんなやつ？
ちょっと改造するだけでオーケーと思うよ。

>>443
image/* を吐かなければいけないCGIに text/html を吐かせて、
君は一体何をしようとしているのだ。
それじゃ表示されなくて当然よ。
あとねー、なんつーか、closeした後にflockとかわけわからん。
HTMLも不思議マークアップだし。

>>447
テキストカウンターらしいよ。

>>443
IMGタグでtext/htmlを出力しようとしてもね…。

ヒアドキュメントって他にどんなのがあんの？

>>449
それはどういう意味ですか？

>>443
みんな不親切すぎ。俺が答えるYO!

(1) SSIが使えるサーバなら
<!--#include file="hehehe.cgi"-->
(2) SSIが使えないサーバなら
<iframe src="hehehe.cgi" width=200 height=50>ブラウザ古い！カウンタ表示不能！</iframe>

>>449
最初よくまちがえるんだけど、
「print<< というヒアドキュメント命令」があったり、
「=<< というヒアドキュメント代入記号」があるわけじゃないですぜ。

<<"HOGE" から HOGEまでが「ヒアドキュメント形式の文字列」で、
それをprintしたり代入してるわけ。

>>451
親切そうに見せといて、不親切この上ない素晴らしい回答。

ＤＢからデータ取得後にcsv形式でデータをダウソロード
させたいのですがダウソロードのダイアログにサーバ名と
ファイル名が表示されません。ちなみにファイルのダウソ
ロードは問題なくできます。
$filename="hoge.csv";
$|=1;
print "Content-type: application/x-csv\n";
print 'Content-Disposition: attachment; filename='.$filename."\n\n";
#csvファイルをダウンロードさせる
open(FH, $filename) || die;
binmode(FH);
#ファイルに適したMIMEタイプを出力
while(read(FH, $buffer, 512)){
print $buffer;
}
close(FH);
exit;

２ｃｈスレッドのポスト関係の部分を取り出して、できるだけアレンジしてみました。
いかがなものでしょう？
<form method=POST action="a2gif.cgi"><input type=submit value="A2GIFで表示" name=submit>
<br><textarea rows=5 cols=70 wrap=off name=MESSAGE></textarea></form>

>>446
回答ありがとうございます。
表面的にはなんとなく分かるんですが内部でどんな動作になっているのか
全く知らないので・・・（１）ポスト用のhtmlで上のコードを入れておく、
（２）ポスト先のcgiファイルでA2GIFに変換して表示　って感じになるんでしょうか。
質問ばかりでは始まらないので、とりあえず掲示板スクリプトを見て勉強したいと思います・・・。

モナー板のこっちのスレでもＡ２ＧＩＦの話をしています。
http://piza2.2ch.net/test/read.cgi/mona/989849855/l50

Win32のPerl使うときっていちいちディレクトリを切るときに'/'を'\'
に変更しないといけないんですか？
友達に聞かれたんですけど、今Linuxな環境しかないんで。。。

識者の方、教えてくださいませ

んなこたあ無い。

>456
そんなことないよ。
それはただ単に変換がLinuxとWin32で違うだけでWin32で￥を押すと
￥がでるけどLinuxとかで￥と押すと逆スラッシュに変換されるだけで
一緒ですよ

バックスラッシュは関係無いと思うぞ。>>458
>>457　大丈夫、俺は識者じゃ無いけどPerlforWINやACTIVEPerlは
ディレクトリの区切り子を変換してくれる。Cygwinだと先にCygwinが
面倒見てくれるから問題無し。WIN <=> UNIX互換 の場合まず気に
しなくて良いと思う。

因みにMACの : は駄目、死にます　

>>459
＞>>457　大丈夫、俺は識者じゃ無いけどPerlforWINやACTIVEPerlは

いや俺に言うたかて、とマジレス入れてみる。

あ、わり>>460
MACって2つ上は ::: なんだよなぁ・・・

macは糞

>>440 >>444 >>445
ありがとうございました。
考える幅が広がりましたのでHTML化にしてみたいと思います。

ID : rWEZiHhg の糞レス一覧。

===== 初心者質問スレ =====
462 名前：名無しさん＠お腹いっぱい。 ：01/10/01 16:09 ID:rWEZiHhg
macは糞

===== aspがうとしいですが =====
4 名前：名無しさん＠お腹いっぱい。 ：01/10/01 12:18 ID:rWEZiHhg
>>3
とても傷つきました。
慰謝料請求しますので。

===== JAPUをドキュソと罵る =====
106 名前：名無しさん＠お腹いっぱい。 ：01/10/01 12:23 ID:rWEZiHhg
DQNプログラマーの素質アリですね。

どうやら2番目のasp教えてスレにレスが無い事にご立腹の様子　ﾜﾗ
みんなレスしてあげてね♪

コマンドラインで利用してる時にスクリプトを実行した時の
基準パスは、
1：実行者のカレント
2：スクリプトの置かれたディレクトリ
のどちらになるかは決まっていますか?
それと、これはある程度OSに依存するものなんでしょうか。
/usr/hoge/に
foo.pl、foo.txt foo2.txt
/usr/hoge/huga/
bar.txt bar2.txt
この状態で/usr/hoge/huga/からfoo.plを実行した時に
カレントディレクトリは/usr/hoge/huga/ と思って間違いないですか?

追加
上の状態でスクリプトから　./ をreaddirすると
bar.txt bar2.txt が読まれると思って良いでしょうか

テストしてください

>>467
テストしたから聞いています。
「家の環境じゃそうはならないぞ」と言ったご意見を頂きたいのです。
それとも全ての環境をテストしなければ質問は許されませんか?

>>468
ｱﾎはほっとけよ 疲れるだろ　ｐ

それはともかく当然俺の環境でも同じようになったよ
Linux と Cygwinだけど
つーか今まで俺のﾂｰﾙはそれを前提に書いてきたから通用しない環境があると困るなー

心配ならchdirしときましょう。
もしくは絶対パスで指定。

>基準パスは、
>1：実行者のカレント
>2：スクリプトの置かれたディレクトリ

Win, Unixは全て１です。

>443
シンプルなカウンタだな
どやって使うんだ？フレームか？

ソースの可読性についてです。
上級者のみなさんはｽﾊﾟｹﾞｯﾁになりがちなperlのソースを書くとき
どんな事を心掛けてますか

漏れが自分ルールにしてるのは、、
変数名は5文字まで、ただし変数名の説明を入れる
ヒアドキュメントはインデントが崩れるからｷﾗｲ
大域変数は大文字　　くらいッス！

>>473
変数名は意味が通じれば多少長くてもいいと思われ。
一般に言われてる Perlプログラマへの推奨スタイルはこれ。
http://www.kt.rim.or.jp/~kbk/perl5.005/perlstyle.html

俺がやるようにしてるのは上と，関係ある変数はハッシュにする，
作業ごとにラベルつけて{}で括るか関数にするくらいか。

>>473
>変数名は5文字まで、ただし変数名の説明を入れる
説明ってコメントで？

というか、説明入れないとわからない変数名は最悪。

＞ヒアドキュメントはインデントが崩れるからｷﾗｲ

インデント崩したくないのに激しく同意なんだけど、
printを並べるのも、なんか見栄えはともかく
繰り返し呼ぶことのオーバーヘッドがちょっときになったり。
473はどうしてんの。

>>469-471
ありがとうございます。安心しました　　＾＾
実は自分の書いたファイル管理スクリプトを人に上げたらどうも上手く動いて無い
様なので、そういう可能性を考えたのです。PC初心者さんなんであてにならないけど。。

470さんの言う通りなんですが、例えば ls.pl ./ ってされた時
ls.plでARGVを引っ張ってきたとして、ls.plディレクトリを
基準にされちゃうと非常に困るんです。
他にも方法が有るかもしれませんが、ここは仕様を理解した方が
良いかなと思ったんで。
ありがとうございました。　　m（_ _) m

逆に>>465の
＞2：スクリプトの置かれたディレクトリ
を取得するほうが難しいよ。特にOS依存なくそうとすると。
実はこれ、自分じゃ書けなかったのでFindBin.pmを見たら、
やっぱ結構苦労している。

CGIを実行するときApacheが自動的にchdirしてくれるってのは
かなりありがたいことだと思った。

とほほさんのwwwsrchを使っているのですが
これってcgiファイルの文字は検索対象に入らないのでしょうか？
掲示板の書き込みとかもトップページから検索できるようにしたいので。

どなたかご存じの方は教えて下さい。

>>479
検索対象ファイルに加えてやれば出来ると思うよ。
でもログそのまんまだと読み難いんじゃないかなあ。
読み出しスクリプト通した方が良くない？

>>480
例えばどうするんでしょうか？
（すみません、無知なもので．．）

### location
sub location{
print "Location: $url\n";
exit;
}#location END

こんな感じで飛ばすと、表示したブラウザの下に
Location: ero.cgi?zap
と表示されます。表示しないようにする方法はありますか？
宜しくおねがいします

下ってどこよ？

>>483
ブラウザの一番下（ページ内）です
urlが出たりする所じゃないです

>>483
あっと、解決しました
すまんですたぃ

そりゃただのスクリプトのバグ。
必要ないのにlocationサブルーチンを呼び出してる。
どこだか分からなかったら、適当なところにアプすれば見るよ。

あ、かぶった。鬱。

その画像ならココ
http://www.h2.dion.ne.jp/~goldman/

バイナリファイルを「変数」に読み込んで
一バイトずつループ処理をする方法はありますか？

「ファイルハンドル」を用いて指定位置のキャラクタコードを
取得する方法はありますか？
（getcだと位置を指定できません）

正に初心者のなのでよろしくお願いします。

CGIで、渡されたフォームデータをデコードする際に、
$value =~ tr/+/ /;
で躓いています。
実データの「+」をそのまま「+」で表示し、
半角スペースのみを変換するにはどうしたらいいのでしょう？

すみません。解決しました。
デコードの順番が逆でした。
逝ってきます。

$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;
$value =~ tr/+/ /;
↓
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg;

>>489
seek と getc の組合わせで解決?

seek FH, 100, 0;
$c = getc FH;

# seek の使い方は perldoc -f seek を参照。
# または "プログラミングPerl 第2版" or "Programming Perl 3rd Ed." を買う。

すみません、>>479をもう一度教えてもらえないでしょうか？

>492
レス有難うございます。帰宅してから試してみます。

正規表現でどうしても解らないのですが
http://choco.2ch.net/test/read.cgi?bbs=tvd&key=998696750
のような=?!&が混入したURLがマッチしません
よそのサイトのを参考にしてしまったので
正規表現部分の内容を余り理解して無くて困ってます

ちなみに下がソースです

#正規表現により配列に展開される
@http = $text =~ /s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+/g;

http://choco.2ch.net/test/read.cgi?bbs=tvd&key=998696750
のようなURLでもマッチするようにしたいのですが
できればアドバイス下さい
よろしくおねがいします。

& -> ＆amp; に変換した後だったとかいうオチ?

http://www.nt.sakura.ne.jp/~rose/

&

&amp;

拡張子を一括変換するのってどうやるんでしたっけ。
（たとえば全ての拡張子を.tmpに変更する）
なんかやりかたがあったような…

Linuxのコマンドを実行する
system("command par");
で、ユーザーの追加をperlでやろうと思うんだけど

$username = 'hogehoge';
system("useradd $username");
system("passwd $username");

とすれば確かにユーザ追加されるが、パスワードは何か？と聞かれる（当然だけど）
そこでパスワードをパラメータとして入力するにはどう記述すれば良いんですか？
$userpass = 'xxxxx';
って感じで変数にしてやりたいんですが。

>>500
foreach (<*.moe>) {
($x = $_) =~ s/\.moe/.tmp/;
rename $_, $x
}
とか?

csh 系なら、
foreach f (*.moe)
mv $f ${f:r}.tmp
end

bsh系なら、for .. done で。


>>501
chpass -p CRYPTEDPASSWD userなんてのはどう?

http://www.jp.freebsd.org/cgi/cvsweb.cgi/src/usr.sbin/adduser/adduser.perl?rev=.
とかも参考になるかも。

>>500
DOSなら ren *.moe *.hoe

http://www.freakes.dyn.to/
うまく掲示板のCGIが動作しません
どうしてでしょう、自分では、みれるのに

http://127.0.0.1/aska.cgi

>>504
マルチポストうざい。

アクセスカウンタを作ろうとしています。

しかし以下のようなスクリプトだとどうもうまく行きません。
$counterlogのファイルを作成して一度目、二度目は1、2とカウントされ、表示
もされるのですが、三回目はいきなり13となります。4回目は1214、5回目は
12131215という具合です。

sub counter {

open(COUNTER, "+<$counterlog");
$counter = <COUNTER>;

++$counter;
print COUNTER $counter;
close(COUNTER);
}

どこがおかしいのか分かりません。

よろしくお願いします。

printのまえにseek COUNTER, 0, 0;かな？

gzipを使ってみたいのですが、Windowsでテストできますか？

>>508
投稿したあとで検索エンジンで調べてみるとtruncate(COUNTER, 0);と
seek(COUNTER, 0, 0);との組合せを発見しました。

seek(COUNTER, 0, 0);だけでもいいのか・・・。

いろいろ試してみます。

ありがとうございます。

>>509
Windows用のgzipをGETせよ　→　http://www.gzip.org/

>>509
『出来る』と答えりゃ良いのか？

えすぱってみると、mod_gzipかCygwin辺り？
何をしたいのか書いとらんから、さぱ〜り分らん。

> 良い回答は良い質問から
>>1 を良く読んでくれ。

すいません。mod_gzipでHTML出力をしたいのです。

環境はWin2000 + Perl + ANHTTPDです。
apache for win32を入れないと駄目なのでしょうか？

>>514
ANHTTPDは触ったことないんですけど、
Win2000 + Apache for Win32 ならmod_gzip入れるのは簡単ですよ。

ていうか513を読んで、試しに↓からダウンロードしてみたら
あんまり簡単に動いてびっくりした。
http://www.remotecommunications.com/apache/mod_gzip/

新規でファイルを作成するにはどうすればよいですか？
まだ存在しないので open ができずファイルハンドルが
取得できません。

すみません。うまくいきました。openできないと思っていたのは
他のエラーが原因でした。

>>510
seek(COUNTER, 0, 0);で良いと思います。
seek(COUNTER, 0, 0);はファイルポインタを先頭までまき戻す。
truncate(COUNTER, 0);はファイルを0バイトまで切り詰める。
という処理ですが、
カウンターファイルに新しく数値を記入する場合であれば
seekで先頭にまき戻して新しいカウントの数を上書きすれば良いと
思います。
カウンターは桁が増えても桁が減るという事はないので
以前のデータから上書きしても以前のデータの切れ端とかが
残る事はないのでseekだけで問題はないでしょう。

http://www.harukaze.net/~mishima/perl/faq/newbiefaq.html#4

>>519は>>516宛。
しかも解決してるし。
逝ってきます。

かわいそうなので逝ってらっしゃいのキスして　あ・げ・る(はぁと

ﾌﾞﾁｭｩ〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

>>521
まじで背筋がゾッとしたからやめてくれ

数段階の仲介を経てからでしかその知識を得られないなんて。
理想ならその業界の技術書を熟読するのが一番なの。
サバ構築だって然り。ネットとは何か？と言うこと。
書店にあるものを読んでるうちは中級どまり。
高校の微積分を学ぶときは決してニュートンやライプニッツの原書を読まないのは単に難易度の問題。
機会があれば読むべき。

523 は何が言いたいのか要点を纏められたし。

サラサーテ、著者の飯代の為に使い物にならない偽専門書を買うな！
業界が発行してる物を無料で入手できそうなんだから！

まぁ、C/C++ならJIS X 3010やANSIから入手したらいいんだよ
厨房を偽装して買いあさるな！

オレはソフトにはカネは使わん！(エンターテイメントは除外)
ハードにはしぶしぶ使う。
けどアキバで部品単位でBSテレビが作れるなら
それに超したことはない
故障のたんびに悪対応の窓口は死ね！

スレ違い。ｶｴﾚ!!

とほほさんのwwwsrchを使っているのですが
これってcgiファイルの文字は検索対象に入らないのでしょうか？
掲示板の書き込みとかもトップページから検索できるようにしたいので。

どなたかご存じの方は教えて下さい。

http://www5.justnet.ne.jp/~ttp/

>>529
スレ違い。つかマルチポスト死ね。

そんなことより腹減らねぇ？

最近一日一食だ…。
ところで話を戻しますが、
なんかナイスタイミングで529と似てるんですけど
文字列検索する時って正規表現じゃなくて
index使う利点ってあるんですか？
これだと大文字小文字区別しない風にできないと
今の知識だと思うんですけども…？あほな事いってます？

正規表現よりindexの方が速い。

↑本に書いてあること真に受ける馬鹿

http://www.din.or.jp/~ohzaki/perl.htm#JP_Match
ら辺読め。

アホな質問かもしれませんが while ループでは
カウンタは自前で用意する必要がありますか？
$xxx みたいにあらかじめ使える変数が用意されているとか
ないですか？持っている本には出ていないのですが
あればいいなと。

↑Webページに書いてあることを検証もせずに受け売りをする馬鹿

$xxxって何?　そんなの有るのか???

>>537
ないよん。

>>538
Benchmarkやindexの使い方分からない猿　　ﾌﾟﾌﾟ

低レベルな争いはよせ。
>>541
そんな奴いない。

下らないことには盛り上がるね。

PCとi-mode共用の掲示板を作っているのですが、
半角カナで入力された場合、全角カナに自動的に直して
表示する環境変数を教えて下さい。バイト数をチェックすれば
いいんでしょうか？

#! /usr/local/bin/perl
use Benchmark;
open FH, "./seek.dat";
@lines = <FH>;
close FH;
timethese(16, {
'REGEXP ' => \&find_by_regexp,
'INDEX ' => \&find_by_index,
} );
sub find_by_regexp {
my $count = 0;
foreach (@lines) {
if (/an/) {
$count++;
}
}
}
sub find_by_index {
my $count = 0;
foreach (@lines) {
if (index($_, "an") >= 0) {
$count++;
}
}
}

Benchmark: timing 16 iterations of INDEX , REGEXP ...
INDEX : 3 wallclock secs ( 3.31 usr + 0.00 sys = 3.31 CPU) @ 4.83/s (n=16)
REGEXP : 4 wallclock secs ( 4.02 usr + 0.00 sys = 4.02 CPU) @ 3.98/s (n=16)

2万行のデータで検証。

結論 535 538 はただの煽り。

$ENV{'ZENKAKU_TO_HANKAKU'}の事ですか?
これを使えばいいですよ?
検索して頑張って下さい?

当たり前の常識を検証して大得意の545萌え

で、どっちが速いんだよ?

あほらし。このネタ終わり。
-------------仕切り直し----------------

>>548
まさか本当に検証されるとは思わず嘘ついて荒らそうとしていた
548＝538萎え。

indexネタはもう終わりにしてね。
それより>>547を問い詰め（以下略

す、すみません。聞き方がまちがってました。
環境変数じゃなくて、置き換え演算子の事です。
よろしくお願い致します。

>>514 509
515さんが言ってるとおり、Apache入れた方が凄まじく楽なのは事実。
ただ、mod_gzip使わなくてもCGIの出力ならGZIPと併用して出来なくも
無い筈。AnHttpdは使ってないから分らんけど。
ここ見てくれ。
http//www.ibport.co.jp/~yui/cgiwork/tech/index.html
これやるなら、たぶんCygwin入れると厄介しなくてすむと思う。
つか、Apache(Win32)入れた方が早いかなぁ(苦笑

どっちかと言うと、『ＣＧＩだけど、なんか質問ある？』スレ向きな
気もしてきた…。

>>544
Perl自体には半角全角変換の機能は（まだ）ないから、
自分でコードを書くか、出来合いのライブラリを使います。
たとえばjcode.plを使って$FORM{TEXT}を変換するなら下のとおり。

require 'jcode.pl';
jcode::h2z_sjis(\$FORM{TEXT});

>>555
ありがとうございました。
演算子を使えばできるかもと思っていたんですが、
勉強不足でした。精進します・・・

>>556
ついでに自力でコードを書く例も。

%han2zen = ( #一部のみ抜粋
'ﾆ'=>'ニ', 'ｸ'=>'ク', 'ｺ'=>'コ', 'ｯ'=>'ッ', 'ﾌﾟ'=>'プ',
'ﾝ'=>'ン', 'ﾏ'=>'マ', 'ｽﾞ'=>'ズ', 'ｰ'=>'ー',
);

$s = "ﾆｸｺｯﾌﾟﾝ(-д-)ﾏｽﾞｰ";
$s =~ s/([｡-ﾟ][ﾞﾟ]?)/$han2zen{$1}/ge; # ←ここで変換
print "$s\n";

これで大丈夫かな？？ 実際には%han2zenに、
すべての半角カナ→全角カナの対応を入れてください。

>>557 は間違い。s///ge; じゃなくて s///g; でした。

>>555
重ねてありがとうございます。
早速、参考にさせていただきます。
まだまだ勉強せねばです・・

なるへそ〜〜〜。
indexのが早いんですか！
ある配布cgiで検索機能があったんですけど
半角全角を一緒にして検索できる便利さを捨てて
鯖の負荷を減らす方をとったのか。
なるへそ〜〜。ありがとです。

ローカルでANHTTPとActivePerlで色々やっている者ですが
REMOTE_HOSTをgethostbyaddrでIPからアドレスに変換したのですが
変換するとpop3.norton.antivirusと表示されます。
これって何でしょう？間違ってはないと思うのですが…
識者の方でご存知のかたおられましたらお願いします。

悩豚のローカルプロクシだろ、
気にスンな
気になるならセキ板でもいって「ハックされていますっ！！！！」
ってスレ立てて死んでこい　　ｗ

$xxx はPerlで幾つか用意されているグローバル変数と
言う意味で書いています（＄で始まるの色々ありますよね）。

だから無いって。

素直にfor使えば？
そのためのやつでしょ。

全くの初心者で、初心者ならPerlと薦められてきた者ですが、
Perlで定期的に送信フォームを押すみたいなことはできますか？
つか、初心者はその前にこれ覚えれみたいなことありましたら指摘お願いします。

答え：
まず日本語を勉強してね　&heart

>>567
意地悪しないでお願いします。
どこかおかしな日本語があったでしょうか？

>>566
> 初心者はその前にこれ覚えれみたいなことありましたら指摘お願いします。

質問の仕方

>566
>>1周辺を見ろ。
方言使うな。

>>569
勉強して出直してきます・・・

厳しいなぁ（笑
ちょっと漠然としすぎてて答えようが無いよ
この板に良書スレが有るから、そこを良く読んで自分に合った
本を一冊買って下さい。
で、それを読みながらWEBなんかも活用して勉強すればいいよ。
それといきなりCGIは薦めないな、、少しはPERL書けるようになって
HTMLも書けるようになれば自然と書ける様になるから

>>572
ありがとうございます。
全然右も左もわからないもので・・・
以前age荒らしをスクリプト組んでやってる、というのを見て、
プログラミングに興味を持ったのですが、（荒らしをしたい訳じゃないんです。断じて）
例えは悪いですが、そういうことはできるのか知りたかったんですが、
これでもまだ漠然としているんでしょうかね・・・
とりあえず、勉強して出直してきます。有り難う御座いました。

おう、頑張れよー

ま、あれだな。ゲーム作りたくなってプログラミングに興味もったけど、案外難しくて挫折な厨房もいるしな。
関係ないけどね。頑張ってね。

>>518
えびさん
遅くなりましたが、詳しいお答えありがとうございました。

・・・精進します・・・。

向上心のない善人よりも、
明確な目標を持った厨房のほうが好きだね。俺は。
つーわけで>>566みたいな奴には期待したい。

(1)ローカルマシンにPerlとWebサーバを入れる。
(2)全環境変数表示CGIを自作し、Webサーバで動かす。
(3)GETメソッドで(2)のCGIにアクセスしてみる(LWP::Simpleモジュールが便利)
(4)POSTメソッドで同じく(2)にアクセス(LWP::UserAgentモジュール)
とりあえ、以上の実験を試してみることをすすめる。

>>537,>>563
残念賞として"$."(現在の行番号)をあげよう。

while (<DATA>) { print "$. $_"; }
__DATA__
mona
giko

>>515,554
有難うございます。Apache for win32入れてやってみます。

CGIで、呼び出し元のURLを知りたいのですが。
HTMLA → CGI の、HTMLAのURLです

リファラを読む

CGIモジュールのrefererでよいのでしょうか。>>581
空白になっちゃうんです。うううむ。

単純に%ENVから読むのはどうよ？

別の環境でやったらうまくいきました。
ありがとうございました>>581 >>583 さん

>>557の正規表現って全然だめじゃん！
てか、えらそうに書いたの俺なんすけど。
正規表現スレ逝って修行してきます・・・。

perlで、いわゆるdiv演算子に相当する演算子って何ですか？
9 div 4 = 2
9 mod 4 = 1
のdivです。

int (9/4) 　　笑っ

9%4　　　　笑笑っ

publicフォルダ外の、ブラウザからはアクセスできない場所にあるファイルに
Perlからアクセスすることは可能でしょうか？
出来る場合、相対パスでアクセスするのでしょうか??

>>587 >>588
あ。divはないんですね。
%があるのに変だなぁと思って探してたんです。

＃9-(9%4)とかやってたですよ。鬱。int()でいいんだ…

整数計算を多用するときはintegerプラグマ使うと楽っぽい。
いまいち動作がわかってないんだが。

{ use integer; $foo = 9 / 4; }
または
use integer; $bar = 9 / 4; no integer;

>>589
可能である。
相対パスでも絶対パスでも。ただしURLじゃなくてOSのパス。

.pl と .pm の違いが良くわかりません。それぞれどういう長所があるのでしょう。

my と local の違いが良くわかりません。どう使い分けるべきなのでしょう。

>>593
一口には説明できないけど、まず".pl"と".pm"の表面的な違い。

●Hoge.plファイル
require 'Hoge.pl'; で読み込む。
実際はどんな拡張子でもいいが慣例として".pl"が使われる。
requireでは、この命令を実行する時点でファイルが読み込まれる。
必要なときのみrequireするようにうまくコードを書くと
無駄なメモリを使わずにすむ。

● Hoge.pmファイル
拡張子".pm"の扱いは特別で、
use Hoge ('mona','giko'); と書くのは、
BEGIN{ require 'Hoge.pm'; Hoge->import('mona','giko'); }
と書くのと同じ。
BEGINブロック相当なので、コード中のどこにuse Hogeを書いても
Hoge.pmは起動時に必ず読み込まれる。
決して実行されない位置、たとえばif (0) { use Hoge; } でもね。
さらに自動的に実行されるHoge->import()を利用して各種の初期設定が可能。
importメソッドをどう使うかは自由だけど、普通はHogeクラスを
メインプログラムから簡単にアクセスするための設定とかを書く。

#まだ言ってることワケワカだろうけど、そのうちわかる。

シフトJISのテキストを処理して、UTF-8で出力したいのですが、
どのようにしたら良いでしょうか。
また、ゴミデータ（エディタで表示できないような文字）の
判別方法はありますか？

>>595
Jcode.pmを入手して使うと楽。
日本人が作ったやつだけど、CPANにあるっけ？調べてみて。

use Jcode;
my $s = "まあ聞いてくれよ、ｽﾚと関係あるからさ。\n";
print Jcode->new(\$s, 'sjis')->utf8;

何がゴミデータかというのはエディタにもよるから。どのエディタ？

Jcode.pmをインストールするにはCコンパイラが使える
環境でないとだめだったかも。。。
Windows用ならコンパイル済みのやつがある。

>>592
c:/bin/
こんなの？

>598
そんなの。unix系は"c:"なしで。

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

ゴミデータってのは、制御コードのようなものとか、
文字コードが判別できないような「F･ｶ」みたいに表示されて
しまうものとか。そういったデータのことです。
エディタによって表示が違うのはその通りですね(^^;

$data = 'hogehogeMicro$ofthogehoge';
$hash{'Micro$oft'} = "VVindovvs";
foreach(keys %hash) {
$data =~ s/$_/$hash{$_}/;
}
print $data;

この場合 "Micro$oft" に含まれる "$" がパターンと見なされて
うまく置換できません。どのような回避方法が考えられるでしょうか？
自分ではパターン文字列でメタ文字と見なされてしまう文字列を
あらかじめエスケープする置換処理を挿入しているのですが
あまりスマートとは思えません。

パターン部の変数展開を一度だけ行ってくれるといいんですが。
「o」では期待した動作が得られませんでした。

\Q$_\E

ハッシュキーが少なければ"|"でつなげた正規表現を最初に作っておくのもありだな。

$data = 'hogehogeMicro$ofthogehoge';
%hash = ( 'Micro$oft' => "VVindovvs", 'hoge' => '[ピー]' );
$re_keys = join('|', map { "\Q$_\E" } keys(%hash));

$data =~ s/($re_keys)/$hash{$1}/go;
print $data;

>>600
Jcodeをppmでインストールしようとしたら
>Installing package 'Jcode'...
>Error installing package 'Jcode': Read a PPD for 'Jcode',
>but it is not intended for this build of Perl
>(MSWin32-x86-multi-thread)
というメッセージが出てきてしまいました。バージョン違い？
CPAN逝ってきます。

>>604
うわーん。

http://search.cpan.org/search?dist=Jcode
＞FAIL MSWin32-x86-multi-thread

ってのはWinはダメの意でしょうか。かなりしょんぼり。

>>605 続き
すみません。
http://openlab.ring.gr.jp/Jcode/index-j.html
にありました。

ファイルに記録する時、1人（グループ）に関する複数の
データを記録する時の区切り文字には定番だったり
慣例のものとかってあるんですか？
よく目にするのが<>だったり\tだったりしますが？
教えてくらはい。

自分のＰＣはWindowsなんですが、perlを書くときに
UNIXみたいに#! /usr/local/bin/perl（コマンドライン？）
というのを使える様にするにはどうすればいいんでしょうか？
ちなみに、perlソフトはActive Perlです。

教えて君初心者ですみません。。

>>607
エクセルとか意識するならCSVは忘れない方がいいんじゃないかな
\tはTSVって言ってCSVの親戚みたいなもんか。。
<>が使われるのは多分BBSとかのログは大抵タグがエスケープされてる
から、デリミタ混入→ミスヒット、の可能性が低くなるからだと思う

>デリミタ混入→ミスヒット、の可能性が低くなるから
なるほど！<>にはそういう意味があったんですか！
どうもありがとうございます。
TSVってのは知りませんでした。
メモ帳とかで開くとタブで区切っとけば
見やすいからだと思てた・・・。

>>608
入手にちょいと苦労するがむっちゃ便利なプログラムがある。
ベクターで「SOS」を検索してみ。

http://www.vector.co.jp/soft/dos/util/se028129.html
これの事ですかね？
PERLで書いたスクリプトをｃなんかの様に実行形式に
コンパイルできるソフトって無いものですか？
あるにはあるけど正確じゃない。みたいな事は耳にするのですが？
どうなんでしょう？

>>608
Cygwin入れたらいい

これで一件落着

>>613
それを入れたら良いとか本に書いてあったんですが
ダウンロードサイトに行ってみたら、どうやら金取られるみたいで．．
611さんの言うのもダウンロードしたのですが
どうやってパッチを当てるかいまいちわからなくて．．。

ほんと、難しいですよね．．．鬱

Cygwin有料になったのか?　　笑
もっと健作白〜〜〜
何をそんなに焦っているのか? 今日納期の仕事してる訳じゃ無いだろ
実際Unixのshellに触る事は回り道でもなんでも無いんだぞ
って9xで使えたかな　(・∀・；)？？

>>614
http://cygwin.com/setup.exe
これ落とせ
んで、どっかに移動してから起動して、それで適当にサーバー選んで落としてこればいい

>>615-616
どうもありがとうございんます。。
どっかに移動して起動して、というのはどういうことでしょうか？
ディスクトップに解凍するのでいいのですか？

あと、大変失礼な質問なのですが
そのファイルは大丈夫なのでしょうか？
拡張子がexeなので心配で．．．

どうやらアナタはWINDOWSの操作に先に慣れた方が良さそうです。
まずWIN板に行ってファイル操作や圧縮解凍に付いて学びましょう

>あと、大変失礼な質問なのですが
>そのファイルは大丈夫なのでしょうか？
>拡張子がexeなので心配で．．．

憶測ですが、おそらく616氏はsetup.exeのAUTHORでもcygwin.comのサーバ管理者でも
無いと思われますので何がどう大丈夫なのかは分からないでしょう

>>618
すみません、実はＰ検３級のＯＳはＡなんです（ｗ
解凍とかもたまにＵＧにいくのである程度はわかるのですが
でも、やっぱり深く掘り下げると難しくて。。

一瞬ウィルスだと思ったんですがアドレスが違うみたいですね。
ちょっとexeファイルに過敏になっていたもので．．。
もう少し勉強してまた、質問させていただきます。

解凍はたまにUGに逝くとある程度わかるんですか。名言ですね(藁

>>620
解凍するソフトの種類や拡張子の種類はわかりますです。

さてはあなた、ただのﾜﾚｻﾞｰですね

perlの範疇ではないかもしれませんが…

ファイルからデータを読みだし、そのデータを含むHTMLを
ブラウザに表示させるスクリプトを書きました。
TELNETのコマンドライン上から実行すると
狙いどおりの出力をしてくれるのですが、
ブラウザ上からURLを入力して実行すると
500 Internal Server Errorがでてしまいます。
パーミッションなども確認したのですが
おかしなところは見当たりません。

何かチェックすべきところが他にあるのでしょうか。

Content-type?

print "Content-type: text/html\n";
HTMLの直前に書きました。

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

改行２つ「\n\n」
でした。自分で書いて気がついた。

助かった〜ありがとうございました。

ｺﾞﾒﾝちぇく済みだったみたいね

すいません
初心者ですが、cgiを設置したのに見ると
CGI エラー - 以下のコマンドラインを実行できません : "perl C:\kujira\aska.cgi ", errorcode = 2, No such file or directory
と出るのですが、どうしてでしょうか？
お願いします
おしえてください

CGIスレ逝って下さい。

perlのスクリプトをコンパイルして実行形式にしたいです。
助けてやって下さい。

>631 perlcc。
CGI速くするだけなら別の方法もあるよ。

foreach (reverse 1 .. 10) {}だと、
1番目から10番目を逆順で処理してると思うんですが、
逆順にしてから1番目から10番目を取得するにはどうしたらいいでしょうか。

つまり、
1-30のうち
10,9,8...,2,1ではなくて、
30,29,28...,22,21と取得するということ。

>632
perlccですか！ありがとうございます。
けどやっぱcとかみたいにうまくコンパイルできないとか
言う話をちらほら聞いた事あるんですけどどうなんでしょう？
>CGI速くするだけなら別の方法もあるよ。
良かったら教えて欲しいっす！！
どんなんでしょう？

>>644
スライスの使えばOK.
(reverse 1..30)[0..9]

すまん。>>633ね。逝くわ。
あと、30から21がほしいだけなら、reverse21..30でもいいような。

>>633
for($i = 30; 20 < $i; $i--) としても良いです。

>>634
mod_perl, SpeedyCGI など。Perl の場合は起動と構文解析に時間がかかるので、そのコストをおさえることができます。

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

んー。
@read[$hoge .. $moge]を逆順で処理させたくて、
$hoge = 0;
$moge = $hoge + 10;
foreach (reverse @read[$hoge .. $moge]){}
とやってみたのですが、
@readに仮に0-30のリストが入っているとして、
9,8,7,6,5,4,3,2,1,30という処理順になってしまいました。
むむむ…。一体どうすればいいのでしょう…。

>>637
ありがとうございます。
試してみます。

>>638
修正
> 9,8,7,6,5,4,3,2,1,30という処理順になってしまいました。
→ 9,8,7,6,5,4,3,2,1,0,30という処理順になってしまいました。

>>637
書き込んだらレスがついていたので慌ててお礼だけ書きましたが、、、

まず考えたのがそれだったんですが、作っているのが掲示板で、
リストの最後がいくつになるか判断するルーチンは今のところ無いんです。
ありがとうございました。

>637
サーバーで用いるインタープリタを変えるって事なのかな？
勉強になるです。ありがとうございました。

perlccはcのソースにするのかな？
実行形式にするのにはPerl2Exeってのもあるんですね。
知ってる人の方がおおいんだろうけど
自分見たいののために報告〜。

>>640
＞→ 9,8,7,6,5,4,3,2,1,0,30という処理順になってしまいました。
いったいどうすれば、そんな処理順に・・・。
それをねらってやるほうが難しい（つーか面倒）なのでは。

>>643
@a = (0 .. 30);
@a = reverse @a[-1 .. 9];
print "@a\n";

みんなファイルロックするのにどんな方法使ってます？
リネームが一番効果的っての聞いた事あんですけど。
DBMてのを使うのは無しで。

キーが二つあるハッシュで、foreachみたく要素を回すにはどうしたらいいでしょうか。
ずーと悩んでるけれど全然スマートな方法が思いつかないッす。

>>645
flockだけど、、evalすらしてない　　ｗ

>>646
二つしかないならループしなくて良いじゃん？
普通はkeysでkeyの配列作ってその配列をforeachしたり
eachしたり、、
@keys = keys (%hash);foreach (@keys)
while (($key,$value) = each %hash)

>>647 レスさんきゅ

でも、チョット違うかもしんない。
そういう意味でなら、キーがみっつて事になるかな。
$hashref->{1}->{2} = 3;
みたいな。

書き方はこれじゃなくても、何でもいいんで同様のことを実行できる方法ないっすかね。

647に書いてるやん・・・・(ﾟДﾟ)???

ハッシュ使うな全部配列にしろ　　（ｎ


┐(´ー｀)┌


┏━━━━━━━━━┓
┃（'Д'）y ─┛~~　　┃
┃むぎ茶　　　　　　　┃
┃[email protected]　　　┃
┗━━━━━━━━━┛

$hashref = \%hash;
$hashref->{"key1-1"}->{"key1-2"} = "1-3";
$hashref->{"key2-1"}->{"key2-2"} = "2-3";

while (($key, $value) = each %hash) {
　while (($key2, $value2) = each $value->{$key}) {
　　print $key, "=>", $value->{$key2}, "=>", $value2, "\n";
　}
}

こーいうことがしたいの。

>>640のような変な処理順は直りましたが、（原因は>>644でした。）
未だに当初の目的は達成できません。
>>635を参考に>>638のようにしても無理なのですが、
どうすれば良いんでしょう？

%hash = (
key1 => { key1-1 => 'val1-1' },
key2 => { key2-1 => 'val2-2' },
);

>>651
%$valueね。

おー。うごいた。そっいうことかー。
むっちゃありがとー。今夜はぐっすりねれそうだよー。

LWPってリジューム可能？

>>652
何言いたいのか解らん、上の方で言ってるのでなんで駄目なんだ

@list = reverse (0..30);
foreach (@list){
　print "$_\n";
　last if($cc == 10);
　$cc++;
}

>>652
こうだと推測してみた。正解なら俺をエスパーと呼べ。
@read = (0 .. 30);
$hoge = 0;
$moge = $hoge + 10;
foreach (reverse @read[-$moge .. -1-$hoge]) { print "$_\n"; }

>>634
foreach (reverse @read[-10 .. -1])
はどう？

変数使うなら
$hoge = $#read;
$moge = $hoge+10;
foreach (reverse @read[$moge .. $hoge])
とか。

これは先に後ろ10個取り出してから，逆順にしてる。
>>638は始めの10個取り出してる。

あう，かぶった・・・

恥を忍んでソース公開です。。。
http://www.geocities.co.jp/MusicStar/2856/bbs.txt

>648
なんかflockだとするロック破られるとか
書いてあるの読んで気がひけるんですよね。
実際どうなのかはわからないですけど。
皆さんの方法とか教えてくれないですかね？

突込みどころ満載なのはいいとして・・・・

foreach ( reverse @read[$page .. $page_end] ) {　これは
foreach ( reverse (@read[$page .. $page_end]) ) {　こう評価される
つまりケツから10個じゃなくて頭の10個をreverseしてる

先に@read = reverse @read; とでもして
foreach (@read[$page .. $page_end] ){ こうしとけ

>>661
何を破られんのか解らんけど、flockしないなら
rename、simlink、mkdir、辺りの関数で実装するの普通
ここでロック論争始めるとまた色んな信者さんが出てくるから
その辺のスクリプトとか大崎さん所(perlメモ)とか見てくれ
flockよりショボイのは幾らでも組めるが***まともに機能してる***
flock以上のは組めないってのがほんとのところ

foreach ( (reverse @read)[$page .. $page_end] ) {　こうだった、鬱

>いやロックだろ。

>>662
ありがとうございます。
さらに精進します。

みなさま。
ちょっとしつこかったです。反省。
スレ汚しｽﾏｿ。です。

恥ずかしいので>>660は削除しときます。

http://2ch.to/~webmaster/link.cgi?http://www.taruo.net/e/?

この、自身のREFERERも出さないリダイレクタってどういう原理なんでしょう?

>>655
LWPにレジューム機能は存在しないもよう。
関連モジュール内で"content-range"という文字列を
探したけど該当する機能が見つからなかった。
LWPはでかいから見落としてる可能性もあるけどね。

レジュームしたけりゃ、自分で"Content-Range"ヘッダを付けて
ファイル保存処理をガリガリ書くしかないのかもしれない。

デンパ?

>>668
見れないしスレ違いだし良くﾜｶﾗﾅｲけど
HTTP_REFERERはREMOTE_ADDRとかと違ってクライアント側で容易に書き換え
出来るわけ。
で、多分link.cgiがQUERYをラップして変わりに取りに行ってると思う訳

>>670
ありがとう
それをコードにするとどうなるでしょう？ってのは、たしかにスレ違いですね
こんなCGI探してますスレッドでもう一回聞いてみます

indexを用いたマッチ検索で大文字と小文字を区別しない
方法はどの様なのが定番なのでしょうか？

事前に lc または uc でホゲホゲ。
m//i 使っても良いと思うが。

>>668
そうなんですか…どうも。
とりあえずContent-Rangeとやらを調べてみます。

>673
レスありがとです。
やっぱりindexだといったん大文字か小文字にするしか
無いんですかね？
変換のロスで正規表現の方が早くなったり。

>>675
検索対象データのコピーを作って、
そっちをあらかじめ大文字か小文字に統一しとくのは？
ディスクスペースは２倍必要だけど。

そういうのもありですね。
けど検索対象のデータが結構ごちゃごちゃしてるんで
これ以上ファイルが増えるとちょっと(^^;

>>677
検索するたびにそんな多数のファイルを開いてると
I/Oに負担かかって氏ぬです。
↑いまは亡き「とほほラウンジ」方式。

selectってコスト高いって本当っすか
乱発するとダメ？

I/O処理について便乗質問ですが
�@掲示板の全てcgiで制御する
�A最近の5件ほどhtmlで表示させてそれ以降（ログの表示）は
　cgiで制御する
�B書き込むたびに全てhtmlで出力（ページ数は5ページほど）させる
だと�Aが一番サーバに易しいですかね？

>>679
ん?　聞いた事ないけど、何と比べて？
>>680
HTMLは静的、CGIは動的なコンテンツを提供してるって言えばいい?
一年に3人しか書き込まなくてROMが1000万人居るなら2
リロード代わりに見た人間全員が書き込むんなら1、
3は意味解らん、なら1ページに全部吐けば良いじゃん

ココみたいな閑古板なら反って20スレ/PAGEの最終15記事表示くらいの方が良いと思うんだよなー

いやiモードのサイトなんですよ。
そんでデータファイルは別に作っといてそれから
htmlファイルとして出力しようと思ったんだけど、
書き込みされるたびにhtmlファイルをすべて作り直すのも負担になるな…と。
だけどアクセスされるたびにcgiで処理する�@は論外かなと
まぁ一番一般的だけど。
んじゃ大抵の人間はログなんか読まないからTOPページだけhtmlで
出力しておくかなと思って。rom率とカキコ率で変わってくるけど
チャットじゃないから最初のページはhtmlにした方が効率が良いかと。
…何をいってるのかわからないと。
処理ごとの負担がデータ化されてるページとかあれば楽なんですけどね。

１週間くらい各ページにアクセス解析つけとけば？
カキコのカウントもとればなおよし。

つーかその辺は一般論に従うのが手っ取り早いんですよ
10年前の超オーバーヘッドなSCSIHDD使ってる鯖でHTML化とか言って
ガリガリファイル書き換えまくったら速攻でディスクビジーだろうし
結局鯖のuptimeと相談しながらってなるでしょ? それを一からやりたいなら
止めないけど・・・
で、頭の良い先人が色々考えた結果ROM比30：1ならHTMLの方が良いだろっつて
アナタが今みてるココとか紅茶板があるんすよ

>頭の良い先人が色々考えた結果ROM比30：1ならHTMLの方が良いだろっつて

こういうの知りたかったんです。為になるです。
>684
そうですね。最初は負荷かかっても損して得とれみたいな
かんじで統計とってみようかなと思います。
まぁ一概にはいえないんでしょうけど→30:1
参考にしようと思います。

10:1ぐらいだろ
書き出すhtmlのサイズにもよるが。
頻繁にアクセスするファイルはバッファに入るだろうし

>頻繁にアクセスするファイルは
頭大丈夫ですか?

@aiueo = "１２３";
@aiueo = "あいう";

if(@aiueo != 0){
foreach (@aiueo){
print "$_";
}
}

配列aiueoに"１２３"と"あいう"を格納したいのですが、
二つ目のあいうだけしか表示されません。。。

もしかして、後から配列に値を加えたい場合は
@aiueo = "あいう";
このようにすると値が上書きされてしまいますね・・・（汗
すいません。
後から加えたい場合は必ず
push @formcheck, $Name; 　か、
unshift @formcheck, $Name; 　でやらなきゃいけないんでしょうか？

>>689
pushなりunshiftなりしなさい。
push @array, $str;
# そもそも @array = $str というのはどうかと思うぞ。

意味不明
@aiueo = "あいう"; 　これで'あいう'しか入ってないでしょ？
@aiueo = ("１２３","あいう");
こうしとけ　つーかリファレンス嫁

すいません、勉強不足でした。。

<html>
<br>

ぼほほ〜〜。
タグ辞書登録してたらクリックしてもうた〜。すんません。

変数の中にはいってる変数の名前からそれも評価するような
方法ないでしょうか？↓みたいなかんじです。

$bb="$aa";
$aa="ほげ";
print "$bb";

これだと何も出力されませんが
出力が　ほげ　と出るような方法は無いでしょうか？

eval (print "$bb");

$cc = eval $bb;
print $cc;
でもいいっすね。

>>696
$bb='$aa'; #あとこれをシングルクォートに

1行目と2行目逆だよ　1行目で何が代入されるか考えよう

>>699
それじゃダメだって、、それならシンボリックリファレンス使わないと。。。

perl -e "$b=q{ok};$a=q{b};print $$a;"

$bb="$aa";　　　# ここで$bbに$aaが入る。が、$aaは空っぽなので、$bbも空っぽのまま
$aa="ほげ";　　# ここで$aaに「ほげ」代入
print "$bb";　　# $bbは空なので、、、

ってこう糞親切?に書くと怒る厨房っているよね

まとめよう。

方法１
$bb='$aa';
$aa='ほげ';
print eval $bb;

方法２
$bb='aa';
$aa='ほげ';
print ${$bb};

ゴメソ>>699　eval論だたのね・・・

おぉぉ！この板でこんなに早くレスを頂けるとは
思とらんかたです。しかもこなにｲﾊﾟｰｲ!
なるほど！どうもです。
1行目と2行目が逆なのはこの手法を説明する
為だったんで…。これと全く同じというわけじゃないんです。
わかりにずらかったですね。スマソです。

似たようなシチュエーションだけど、
「文字列の中の変数名」をあとから展開するってどうやってます？
おれはこんなの。

$template = 'hello $name!';
$name = 'ほげ';
print eval '"'.$template.'"';

いちおうこれで動くけど、なんか無駄な気が。。。

$str = '$hoe';
$hoe = "sakura";
$str =~ s/(\$\w+)/$1/eeg;
print "$str\n";

ってのもアリかも。

アセンリ言語でいう(0010)とか？
みたいにそのアドレスにはいってるアドレスを参照する
ってのを知りたかったのです。
なんかいつも質問してるな…。ありがとうですです。

$template =~ s/\$([a-zA-Z\d\-_]+)/$$1/g;

みたいな感じか。
あえてやるなら。

>>708,>>710
あ！置換すればいいんか！
ダブルクォート内の変数展開にこだわってて見えなかった。
どもー。

$bb= eval $aa;
$aa= $zz;
$zz='hoge';
print eval $bb;

こういうのはできないんですねぇ。

$bb= eval $aa;
$aa= '$zz';
$zz='hoge';
print eval $bb;

こうか。どっちにしろできない。

>>711
無理に置換するよりも、最初のままの方がいいんではないか思う。

あと、
　eval(qq($template))
って書くと少しカッコイイ(w

Perl暦2ヶ月の初心者です。
関数のリファレンスについての質問です。

配列やハッシュならよく使っているのですが、関数のリファレンスは
どういうときに便利なのかがいまいち理解できません。

先生、ご指導お願いします。

gzip圧縮されたページを取得した後で展開するのにお手頃なPerlモジュールはありますでしょうか。

プロバイダの個人ＨＰなので、システム変更の自由はきかないんです。
その上、gzipも使えないので。

やはりCPANのArchive::zipを使えと言う事になるのでしょうか？

---例えば配列やハッシュを渡すとき
&Fnc(\%data, $file);
sub Fnc {
　my ($ref_data, $file) = @_;
　my $name = $ref_data->{NAME};
　my $title = $ref_data->{TITLE};
　open(DATA, $file);
　.....
}

---例えばクラスを作るとき
sub new {
　my $class = shift;
　my $self = {};
　bless($self, $class);
　$self->_initialize();
　return $self;
}

sub _initialize {
　my $self = shift;
　$self->{NAME} = 'hoge';
.....
}

>714
置き換えても動作せんよ？漏れがいけないんかな？

>>716
ローカル環境でgzipの展開にCompress::Zlibを使ってます。
ただしUNIXサーバに入れるにはCコンパイラが必要みたいです。
（うちはWindows + ActivePerl + PPMなのでコンパイル不要だった）

>>718
あれれ？
$needle='This is sample text.';
$template='$needle';
print $template,"\n",eval(qq($template)),"\n";で、
$needle
This is sample text.って出ませんか？

改行が一部壊れた…
しかもageちゃったｼｸｰﾘ

特定のページからリンクされた場合以外は他のページに飛ばす機能を組み込んだ掲示板を作りたいのですが
どうすればいいですか？
掲示板はネットで見つかったのですがリンクの制限が見つからなくて困ってます。

>720
それだとばっちし動作します。けど>>707の最後の一行と
eval(qq($template))を置き換えても動作しないです。
「文字列の中の変数名」をあとから展開
てのはその方法だとできないって事なのかな？
ちなみにeval(qq($template))のqqてのは何なのでしょうか？

>>722
最初にHTTP_REFERERとって特定のURL以外ならlocationで飛ばせばいいんでない？

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

>>720
おれも自分で試してみたよん。
eval(qq($template)) では707はうまくいかないっす。
eval(qq("$template")) ならオーケーでした。

結局、このやりかたは評価が２回必要になる（？）ので、
正規表現展開の手間をいれても>>710の人のやりかたが速いです。
Benchmark検証済み。

シンボリックリンクでの参照は
my変数が見えない、strict refsでは動かない等の問題があることだけ注意。

>>723
(´-`).｡ｏＯ（なんでこんなヘボいミスしたんだろう……）

というわけで、
eval("qq($template)")
が正解です。失礼しました。

qqについては
ttp://flex.ee.uec.ac.jp/texi/perl/perl_136.html

このへん参照するといいと思う。

>>719
レスどうもです。そうですか、ドキュメントを未だちゃんと読んでいなかった
のですが、Compress::Zlibはコンパイルが必要ですか。プロバのHPなので
それも出来なくてちと悲しいです。

>>729
コンパイルもやろうと思えば出来ますよ。

LWP::UserAgent からFORMの内容を POSTメソッドで
送信したいんですが、どのように受け渡せばいいのでしょう？

$ua->cookie_jar($cookies);
みたいに格納できるメソッドがあるのですか？

他人の鯖に設置してある掲示板とかのパスワード保存ファイルって（例えばpass.cgi）
CGIで読みこんだりとかできるの？それでパスクラックできねえかな。

「CGIで読みこんだり」ってのが意味不明

732には100％無理。

>>731
POST用のデータはRequestのほうに入れとく。
my $req = HTTP::Request->new(POST => $url);
$req->content('name=hoge&text=hoge');

もしデータ内に日本語などがある場合は
use HTTP::Request::Common;
$req = HTTP::Request::Common::POST($url, [name='ほげ',text='ふが']);
を使うと、自動的にエスケープしてくれて楽。

>>735 訂正。[name=>'ほげ',...]でした。

LWP使うやつはperldoc lwpcookぐらい読んどけ。

>>735
ありがとうございます。
調べてみたら

$hd = HTTP::Headers->new;
foreach $key ( keys %FORM ){
　$hd->push_header( $key -> $FORM{$key} );
}
$req = HTTP::Request->new( 'POST', $url, $hd );

でもいけそうな感じだったので試してみます。

というかPOSTで渡す内容が不特定なので
[name=>'ほげ', text=>'ふげ']
だと無理ですかね。

>>738
うう、 $hd->push_header ではうまくいきませんでした。

>>735 さんの方法で上手くできるんでしょうが、不特定多数の
要素を送る必要があるのでこの方法は使えないし…。

すいません、不特定多数の要素を POSTとして送る方法を
教えていただけないでしょうか。

my $req = HTTP::Request::Common::POST($url, [ %FORM ]);

いやこうか。
my $req = HTTP::Request::Common::POST($url, \%FORM);

関数内で関数を記述していますが、同名の関数が出現した場合、
うまく動いてくれません。
何が足りないのか教えてください。

sub foo()
{
sub _getstr($)
{
my ($str) = @_;
return $str . "だよ\n";
}

my ($str) = _getstr("てきとー");
print $str;
}

sub foo2()
{
sub _getstr($)
{
my ($str) = @_;
return $str . "だもん\n";
}

my ($str) = _getstr("てきとー");
print $str;
}

&foo();
&foo2();

>>742
それじゃ_getstrが局所的な関数定義になってないです。
Perlは基本的に、どこで定義してもグローバル関数（笑

2つの_getsrtを別々の名前空間で定義すればオーケ。

sub foo() { package foo; sub _getstr() 以下略 }
sub foo2() { package foo2; sub _getstr() 以下略 }

>743さん
どうもありがとうございます。

my宣言とかできるかちょっと期待したのですが、
これは、packageの方も少し試してみて、
内部関数名を変えるかpackage使うか決めたいと思います。

(関数内でpackage書けるの知りませんでした。どうもです)

package使った方がいい感じなのでそうしました^^

#ローカル関数を使いたいのならば
local *foo = sub{ hogehoge };
my $foo = sub{ hogehoge };
#とすれば良いのではないかな？

>>746
それがほんとのローカル関数ですね。
743みたいなのは外から&foo::_getstr()でアクセスできるし。

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

>746さん
なるほど。こんな感じですね。
どうもありがとうございます。

sub foo()
{
my $_getstr = sub($)
{
my ($str) = @_;
return $str . "だよ\n";
};

my ($str) = $_getstr->("てきとー");
print $str;
}

>>749
プロトタイプに注意。
#!/usr/bin/perl
sub PrintScalar($){ print shift, "\n" }
BEGIN{
*PrintScalar2 = \&PrintScalar;
$PrintScalar3 = \&PrintScalar;
}
*PrintScalar4 = \&PrintScalar;
$PrintScalar5 = \&PrintScalar;

my @hoge = qw(foo bar);
PrintScalar (@hoge);
PrintScalar2 (@hoge);
$PrintScalar3->(@hoge);
PrintScalar4 (@hoge);
$PrintScalar5->(@hoge);
PrintScalar6 (@hoge);

BEGIN{
*PrintScalar6 = \&PrintScalar;
}
__END__

>>750
えーと、「プロトタイプを有効にするには、BEGINブロックの中で
エリアスを作るしかない」つーことですか？

あ。念のため今perldoc perlsub見たら、そう明記されてたっす。
知らなかったー。プロトタイプあんま使わないから。

要するにプロトタイプ付きの「ローカル関数」は作れないってことなのか。

perldubじゃねーや。perlrefの"Function Templates"のとこでした。

プロトタイプの'&'って使ったことある人いる？
なんかサンプル見るとtry〜catch構文とか作ってて
いろんな意味でスゲーんですけど。
俺は一生プロトタイプ'&'を自分で使うことはあるまい。

複数のファイルを何度もOpen/Closeさせてるんですが、
ファイルロックは一度で良いんでしょうか？

sub filecheck{
&lock;#
open IN,"$logfile";
#syori
close IN;

open FP,"> $logfile"
#syori
close FP;
.
.
.
.
&unlock;
}

mkdirのロック方式使ってるんですが・・・。

>>754
一度でよし。

if ($ENV{'HTTP_REFERER'} ne 'http://許可する.com') {
print "Location: http://ばいばい.com\n";
print "\n";
}
にしたのですが、閲覧を許可する参照元をもう一つ増やすにはどうしたらいいですか？

if ($ENV{'HTTP_REFERER'} ne 'http://URL1'|'http://URL2')
だとうまくいきませんでした

>>756
許可するのが２つぐらいなら
「URL1ではなく、URL2でもなければ、ばいばい」というふうに
素直にコーディングするといいです。

if ($ENV{略} ne 'URL1' and $ENV{略} ne 'URL2') {
・・・
}

cgiからcgiを作るのを習作していますがエラーとなってしまいます。何か
根本的に違うのでしょうか？お教えください。

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD><TITLE>CGIテスト</TITLE></HEAD>\n";
print "<BODY>\n";
#
print "<form name="form1" method="post" action="">\n";
print "<input type="checkbox" name="checkbox" value="checkbox">\n";
print "</form>";
#
print "</BODY>\n";
print "</HTML>\n";

__END__

「cgiからcgiを作るのを習作しています」が根本的にﾜｹﾜｶﾗﾝ(w
とりあえず

print "<form name="form1" method="post" action="">\n";
print "<input type="checkbox" name="checkbox" value="checkbox">\n";

この二行がだめ。

(´-`).｡ｏＯ（　"　-> \" ・・・・)

('-').｡oO

print "<form name=\"form1\" method=\"post\" action=\"\">\n";
print "<input type="checkbox\" name=\"checkbox\" value=\"checkbox\">\n";

だね。

一個抜けた。
print "<input type=\"checkbox\" name=\"checkbox\" value=\"checkbox\">\n";
鬱だ。

素直にシングルクォートかひあどきゅめんとを・・・・・qqでもいいけど。。

>>762-763のような誤りを避ける為に
qq{<input type="checkbox" name="checkbox" value="checkbox">\n};
まぁ>>758、お前はマトモな本で基礎を勉強してから出なおしなさいってこった。

>>756
ロジックを１行に書くのって頭が混乱しない？
効率悪いかも知れないけど、こんな関数を作るほうがいいと思う。

if (! &is_good_referer()) {
：
}

sub is_good_referer {
　my @kyoka = ('URL1', 'URL2');
　foreach my $url (@kyoka) {
　　if ($ENV{HTTP_REFERER} eq $url) {
　　　return 1; # 許可するURLのどれかに一致すれば1を返す
　　}
　}
　return 0; # どれにも一致しなければ0を返す
}

ネストは見る場合は大事と思われ。
ただ、空白2文字はちょっとな。4文字は欲しい。

何故にコマンドラインからだとファイルの
扱いができないのでしょうか？
cgiとして動かすか、実行形式にするしかないのですか？

>>768
意味わからん…。
もっと具体的に言ってくれ。

>>767
ラリーヲールが２文字推奨なんだっけ？

>769
即レス感謝です。
わかりずらいですね。DOS窓からスクリプト実行すると
file openとかしても読み取ってくれないのです。
これは何故でしょうか？

Winで *.pl は実行できません。

>>771
ありがちなのは、パス付きのファイル名を書くとき、
ダブルクォート文字列の中で"\"を"\\"としてないこと。

× "c:\hoge\fuga.txt"　←これはだめ
○ "c:\\hoge\\fuga.txt"　←これはよし。
○ 'c:\hoge\fuga.txt' ←シングルクォート使ってもよし
○ "c:/hoge/fuga.txt"　←"\"じゃなく"/"使ってもよし

>>771
パスが違うかパーミッションの問題じゃねーの。
とりあえず
$filename = "moe/moe.txt"
open(F, $filename) or die "$!: $filename";
としかて、なんで失敗しているのか確認スレ。

>>753
難しく考え杉じゃない。
わかれば簡単。で、サンプル

sub synchronized(&) {
　　my $code = shift;

　　lock();
　　$code->();
　　unlock();
}

synchronized {
　　# >>754から
　　open IN,"$logfile";
　　#syori
　　close IN;

　　open FP,"> $logfile"
　　#syori
　　close FP;
}

すまん。セミコロンわすれた。

synchronized {
　　#...
};#<-これ

相対パスでやってるんですけど、ダメなんでしょうか？
or die "$!: $filename";
いれてやったらファイルみつからんて言われちゃいました.

あれ？絶対パスでもダメだ。

あれれ？簡単なの作ってテストしたらできた。
御迷惑おかけしました。
どうもありがとうございました。

$var = 'myvar';
$sym = mypack::$var;
は、
$var = 'myvar';
$sym = "mypack::$var";
とは違うらしいのですが、何が違うのでしょうか？

うまく動作しない…。何故だぁ。
DOS窓だと
open(MAIL, ">>$docomo");って
できないんですか？追記のはずが最初の一回目しか
書き込めんですヽ(`Д´)ﾉ

すみませんまたミスってました。
なんか私の恥じをさらすスレと化してしまい
申し訳ありません。
ごめんなさい。ごめんなさい。ごめんなさい。

前者はコンパイルエラーになりますが、後者はなりません。
...という違いです。

>781-782
ミスるのはいいから、なにをどうミスっていたか書いておいてほしい。
それを見た他の初心者が同じ事をしないですむ可能性があるんだから。

>784
誰もしないようなミスだったんで、、、
openする前に$docomoをforeach文で上書きしまくってました。
ちなみに相対パスだとオープンできないってのは
よくわからないままです。
他はみなさんの言うと通りやったらできました。

>JAPUさん
780に対するのですね。ありがとうございます。
ただそれだけなんですか。なんか深い意味があるのかと
思っちゃいました。

相対パスってスクリプトからの相対パス？
実行時のカレントディレクトリとスクリプトがおいてあるディレクトリは同じ？

スクリプトからの相対パスです。
実行時のカレントディレクトリはスクリプトの
ある所になるのでは無いのですか？

スクリプトが無い場所から起動してみればわかると思うけど、
実行時のカレントディレクトリが基準になるのでは。

このスレでやってたよ、ログ探してみ、WIN、UNIXともカレントが正解。

相対パスでできました。
command.comからの相対パスなんですね。
なるほど。ありがとうございます。

>>791
> command.comからの相対パス
何故そう解釈出来る？
command.comからの相対パスだと、基準はC:\Windowsになってしまうでしょ。
実行時のカレントディレクトリだぞ･･･

え？え？
違うんですか？実行時のカレントディレクトリというのは
どういう事ですか？
ちなみにcommand.comからの相対パスで
やったらうまくいったものでして。。。