Perl 初心者コーナー Part21

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

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。

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

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


CGIだけど、なんか質問ある？ Part 9
http://pc.2ch.net/test/read.cgi/php/1041530204/
参考書籍の話題は、【Perl,CGI】参考書籍 第三版
http://pc.2ch.net/test/read.cgi/php/1030209573/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般/Part2】
http://pc.2ch.net/test/read.cgi/php/1030548610/
スクリプトの改造依頼は、【 スクリプト改造工房 PART 6 】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>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/php/kako/1019/10199/1019917048.html
Part13 http://pc.2ch.net/php/kako/1022/10227/1022731565.html
Part14 http://pc.2ch.net/php/kako/1026/10269/1026977659.html
Part15 http://pc.2ch.net/php/kako/1028/10288/1028816385.html
Part16 http://pc.2ch.net/php/kako/1032/10320/1032070299.html
part17 http://pc.2ch.net/php/kako/1034/10345/1034583844.html
part18 http://pc.2ch.net/php/kako/1037/10377/1037797479.html
part19 http://pc.2ch.net/php/kako/1042/10422/1042260745.html
part20 http://pc.2ch.net/php/kako/1042/10422/1042260745.html (タイトルに19と誤記)

[ひまぢん氏のミラー]
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/

ずざー

Part20 のURL間違ってた。ごめんなさい。

Part20 http://pc2.2ch.net/test/read.cgi/php/1044717887/　(タイトルに19と誤記)

さっそくなんですが、i-modeでUser-Agentを利用して機種別に行くページを振り分けようと思って
#!/usr/local/bin/perl
$ua = $ENV{'HTTP_USER_AGENT'}

if( $ua =~ /^DoCoMo/2.0 N2051(c100;TB)){
print "Location: ../matiuke/jpg/176x198/\n\n";
}else( $ua = ~{
print "Location: ../\n\n";
}

exit(0);
という風に打ったのですが
No Outputと出てしまいお手上げ状態です
・・・
はっきり言ってperlを書くのは初めてなのでまったくといっていいほど初心者です。
ttp://www.nttdocomo.co.jp/mc-user/i/spec/useragent.html
携帯別User-Agent表です。
よろしくお願いします。

>>7
}else( $ua = ~{
ってなによ・・・

>>7
if( $ua =~ /^\QDoCoMo/2.0 N2051(c100;TB)\E/){
print "Location: ../matiuke/jpg/176x198/\n\n";
}elsif( $ua = ~/\Qayaya\E/){
print "Location: ../hoge/hoge\n\n";
}else{
print "Location: ../\n\n";
}

文法コウゾウを理解したほうがよいかと

>>7
UAは末尾まで丸々いるわけ？
そんなに細かく分岐させるの？
DoCoMoの6文字だけか1.0とか2.0までとか・・・

どこかで振り分けCGIを落としてきて使ったほうがいいんじゃないの？

真似だな。ぽまえ。
>7
細かすぎだろ？

ttp://query.s3.xrea.com/active/index.html

みたいなのを自分流に作ってみたいのですが参考になるサイト
参考になるプログラムみたいなのってありませんか？

>>12
そうやって質問を装ってブラクラを貼る馬鹿がいるので、できるだけ
文章で詳しく書いて欲しい。

>>7
一応突っ込んどくと、 Locationヘッダにパス指定はNG。
ttp://www.studyinghttp.net/rfc_ja/2616/sec14.html#sec14.30

>>13
２ｃｈ研究さんのアクティブスレッドランキングなのですが
非常に使えるので自分流に改造したいとおもいまして
zenhiteiさんにご相談したところ、ご自由にどうぞとのことだったのです

で、perlをするにしても、あのプログラムの参考になるサイトすら
わからない状態でしたのでここの方々に指示を仰ぎたいなと思い
伺いました。

正規表現でマッチした回数を調べるにはどうすれば良いのでしょうか？
$hoge = 'hoge hoge hoge';
$hoge =~ s/hit/hoge/g;
↑の処理で置換した回数を知りたいです。
お願いします。

ｳｹﾞ!!
$hoge = 'hoge hoge hoge';
$hoge =~ s/hoge/hit/g;
です。。。

$moge = $hoge =~ s/hoge/hit/g;

できました！
こんな時間にこんなに早くレスもらえるとは思わなかったです！
どうもありがとうございました。

perlで作成したHTMLファイルを保存させたくて
今はVBSでやってますがあまりうまくないんで、
何かいい方法ないでしょうか？

>>20
ちゃんとしたやつをPerlで組む

>>21 は >>20 の日本語を理解できたの？

質問です。
Data::Dumper より速いという Storable を使いたいのですが
うまくいきません。お使いの方、教えてください。
Storable.pm は CPAN より入手しております。

>>23
どう使いたいのかわからんけど
とりあえずドキュメント
http://perldoc.jp/docs/modules/Storable-2.05/Storable.pod

use する以前に autosplit.ix がないと言われて、
で AutoSplit にてモジュールを分解して、 autosplit.ix などが
生成されたのですが、結局エラーになってしまいました。

用途は Data::Dumper のように変数をファイルに保存する事です。

>>22
20がやりたいことがよく分からんが
mimetypeを　 application/octet-stream
とかにすればできるんじゃないの？

>>26
やりたいことがわからんのに、できるって言っちゃうのもどーかと

>>8-14
ご指摘ありがとうございます。
1から勉強しなおしてきます。

>>25=23
インストールに失敗してる可能性高し。
環境は？

>>25
ビルドすらしていない可能性高し。
makeした？

print 10.1-1;
で結果が0.000000000000096

みたいな感じになるんですがこれってバグですか？

>>31
仕様。実用上あまり問題にならないはずだが
有効数字は自分で意識して書かないといけない。
小数は一桁で良いのなら、表示はこうする。
printf "%.1f", 計算結果;

>>31
どっか壊れてない？

>>31
一瞬>>32みたいなこと思ったけど、よく読むと結果が一兆分の一ぐらいになってるじゃん。

10.1-10で0.0999999999999996になったけど、このことかな？

これは詳しく話すと浮動小数点がどうとかって話になるけど。

馬鹿げた質問で申し訳ないのですが
print "あいうえお";
print "かきくけこ";
print "さしすせそ";
これをまとめて書く方法ありませんでしたっけ？


????????????
あいうえお
かきくけこ
さしすせそ
???????????
こんな感じの関数があった気がするんですが・・・

関数というか、
print "あいうえお\nかきくけこ\nさしすせそ\n";
じゃだめなのん？
print join("\n",@array);
とかかなぁ...

print <<EOF;
あいうえお
かきくけこ
さしすせそ
EOF

コレの事？

>>37
おお、これですこれです
ありがとうございました

user,passを元にFTPサーバへアクセスして
ある条件の名前のファイルを取り出す・・・
というのをperlでやることは可能でしょうか？

可能です。
ちったー検索しろ。

>>26 (=>>21)
フォームの値からHTMLを出力して
そいつをCGI実行時に、ブラウザで表示せずに直接ダウンロードさせたかったってことなんですが
（なんか言い回しがややこしくなりますね…）

application/octet-streamで調べたらこれが見つかりました
http://tohoho.wakusei.ne.jp/lng/200003/00030606.htm
どうやら確実に動作しないようですね

#うちの環境でもMIMEType変更してもIEが強制表示しちゃいました

レスｸｽｺ

>>39
perldoc Net::FTP
入ってなかったら入れてくれ。

>>41
確実なのは、メールで送る。

ド素人な質問ですが、ttp://www2.snowman.ne.jp/~nnet/ にある
テキスト広告用CGIを使うために
掲示板スクリプトの2行目に require "randbbs.cgi";を
付け足したらエラーになるんです。randbbs.cgiはちゃんと
存在するんですが、何がいけないんでしょうか？

訂正です。テキスト広告用CGIではなく
「広告配信ＣＧＩのランダムTEXT広告配信ＣＧＩ」でした。

じゃあ、require〜 の一文を消したら動くの？

>>45
はい。普通の掲示板のCGIなんで。

>>43
そのCGI設置ページの説明（動かんときの対処法）はひととおり試してみた？

あとさあ、ここPerlスレなんだが。なんでCGIの質問するのよ？

>>47
聞くまでもなかろう。

>>47
対処法はひとつだけ書いてあるんですが、だめでした。
パーミションやディレクトリの位置なんかもいろいろ試したんですが。
というかこれってPerlの話じゃないんですか？
違うんだったらやめます。ごめんなさい。

>>43
＞掲示板スクリプトの2行目に require "randbbs.cgi";を
　　　　　　　　　　　　　 ~~~~~~

>>49
色々つっこみどころが多いな……

＞対処法はひとつだけ書いてあるんですが、だめでした。
その方法を試したのか、試してないのか。
ダメならダメでどのようにダメだったのか。
これらの情報が全く含まれていない。

＞パーミションやディレクトリの位置なんかもいろいろ試したんですが。
どう試したのか。
やはりこれも情報がない。

＞というかこれってPerlの話じゃないんですか？
このスクリプトはPerlで書かれているが、PerlはCGIのためだけの言語ではない。
なお、CGIには専用のスレッドがある。

最後に一番大きなつっこみを。
なんで2chで聞く？　まず作ったところ（作った人間）に聞くのが筋だろうに。

変数を変数名として使う場合（？）
$text = "テキスト";
$name = "text";
print "$$name";
でできるのですが、$textがmyで宣言されていると
これでは表示されなくなってしまいます。
解決法は無いでしょうか・・？

>>52 $$name　はリファレンスに取られかねないからハッシュを使うほうが賢いと思われ
%text = ('test'=>'テキスト');
$name = 'test';
print $text{$name};

みたいな・・・

すみません；；
${$name}と訂正しておきます。
>53の説明していただいた方法も考えたのですが、
頑固ですが、変数名には変数は使うのはむづかしいでしょうか(T_T)？

書いたばっかりですみません、
ハッシュを使う方向でやってみる事にしました。

>>54　${$name}　それ、リファレンスの記述そのものですが・・・

$sousa01=(捜査１課の名簿がHTMLのデータで書かれてます);
$sousa02=(捜査２課の名簿がHTMLのデータで書かれてます);
　　　　　〜
$sousa99=(捜査９９課の名簿がHTMLのデータで書かれてます);

<input type=radio name="kenkei" value="sousa">捜査
<input type=radio name="sousa" value="01">捜査１課<br>
<input type=radio name="sousa" value="02">捜査２課<br>
　　　　　〜
<input type=radio name="sousa" value="99">捜査９９課<br>

name="kenkei" の value="sousa"と name="sousa" の value="01"をくっ付けて、
変数$sousa01とするにはどうしたらよいのでしょうか？

>>57
データ構造が思いっきり糞。
ハッシュ使え、ハッシュを。

$data{sousa}{1} = 捜査一課の情報;
みたいにすれ。

>>57
まず配列にする事ですな・・・

$sousa[1]=(捜査１課の名簿がHTMLのデータで書かれてます);
$sousa[2]=(捜査２課の名簿がHTMLのデータで書かれてます);
　　　　　〜
$sousa[99]=(捜査９９課の名簿がHTMLのデータで書かれてます);

で、帰ってきたform文が%FORMに入るとした場合

$sousa[$FORM{'sousa'}]

で解決

>>53
Only package variables (globals, even if localized) are
visible to symbolic references. Lexical variables
(declared with my()) aren't in a symbol table, and thus
are invisible to this mechanism.

eucのファイルをsjisに変換したいんだけど

「読み書きモードでファイル読んでコード変換して
元のファイルにsjisで書き込む」

このやりかた以外にもっと効率的な方法知ってたら教えてください

>>61
ファイルを変換するならそれしかないでしょ

>>42
おおおお
そいつはいいアイデアかも
それでやってみます

sjis→euc変換し、テンポラリに書き込むロジックで
改行のCRLFをLFに変換したいのですがうまくいきません。
\xaを書き込んでもCRLFになってしまいます。
どなたか教えてください。

require "jcode.pl";
open(FH,"< a.txt");
@a=<FH>;
&jcode::convert(\$_, "euc","sjis") foreach (@a);#sjis→euc
close(FH);
open(FH,"> tmp.txt");
foreach(@a){
chomp;
print FH "$_","\xa";#←ここです
}
close(FH);

binmode(FH);

>>65
ありがとうございます。うまくいきました。
自動にLF→CRLF変換してしまうのを
binmode(FH);で防ぐんですね。

open(FH,"> tmp.txt");
binmode(FH);#←ここに追加
foreach(@a){
chomp;
print FH "$_","\xa";
}
close(FH);

下の例以外でディレクトリ内のディレクトリ一覧を得るような
スマートな書き方は無いでしょうか？お願いします。

foreach ( readdir(DIR) ) {
　next if (/^\.\.?$/);
　push @hoge,$_ if ( -d "$_" );
}

@hoge = grep { -d $_ } glob("./*");

貴方は or || どっち派？
どうでもいいんですけどね。

>>68
スマートです！どうもありがとうございました。
>>69
||派に一票。

>>69
おいらはor派。
|| は、ビット演算子の | とまぎらわしい。
orは優先順位が最低になってるのも理由のひとつ。

>>69
俺はorを使ってる。
oとrがビジュアル的に「小さくてささやか」なのが好みに合ってるから
・・・ってのは、ネタのようだけど結構本気な理由。

>>59
データを配列に書き換えました。
OKです。
ありがとうございました。

>>58
%kenkei = ("sousa1" => "捜査１課" , "sousa2" => "捜査２課");
って言う風に書き換えました。
$kenkei{'sousa1'}なら捜査１課と出るんッスが、
$kenkei{'sousa$sousa'}だとundefッス。
$sousaの値は1です。
後学のために、房な所教えてくだせぇ〜

>>73
$kenkei{"sousa$sousa"}だと出るはず。
''の中では変数展開が行われないんだよ。

>>74
出来ました。
ありがとうございました。
勉強になりました。

私もor派だなぁ。
深い意味は無く、ヴィジュアルで（笑）

||とor。
優先順位が大幅に違うので要注意。
(orは最下位)

$a = ($b or $c);
$a = $b || $c;

open FH, "file" or die;
open(FH, "file") || die;

優先順位とか良くわからないんだけど
片方固定でしか使わない場合は関係ないの？

>>79
優先順位は他の演算子との関係を考えないと

>>79
1+2*3 の答えを、9と答えるか7と答えるかほどの違いがある。

初心者質問ですみません。

下記の用に、タイムアウト時にバッククォートで囲った処理を
killしたいのですが、どうやっていいのか困惑してます。
良い方法がありましたら、ご指導いただければと思っております。


eval {
local $SIG{ALRM} = sub { die "timeout" };
alarm 10;

$tmp = `処理`;

alarm 0;
};
alarm 0;
if($@) {
if($@ =~ /timeout/) {# タイムアウト時

# 行った処理のプロセスを切る処理

}
}

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

1:ちょっと大きいCGIなので、負荷を軽くしたい。（CGIです）
2:実行全体にロックをかけて、同時刻に複数人数が処理できないようにしてみたが…
3:それだと、本当に負荷が軽減されてるのか確かめようがなかった。

同時に実行されてない場合は、ちゃんと軽減されてますか？

正規表現にはまってしまいました。
どこのサイトを見ても、
{n, m} n回以上m回未満にマッチ
と書いてあるのに、
my test = 'affaaffaaafaaaafaaaaafaaaaaafffaf';
$test =~ s/a{2, 5}/X/g;
print $test."\n";
としても、$testは全く変化しません。
なぜでしょうか？

>my test = 'affaaffaaafaaaafaaaaafaaaaaafffaf';
もちろん、
my $test = 'affaaffaaafaaaafaaaaafaaaaaafffaf';
の間違いです。

my ($test) = 'affaaffaaafaaaafaaaaafaaaaaafffaf';
じゃねーの？

>>84
my $test = 'affaaffaaafaaaafaaaaafaaaaaafffaf';
$test =~ s/a{2,5}/X/g; 　←{　}の中にスペース入れちゃダメ
print $test."\n";

>>84
my $test = 'hoge';
は問題ないず。
my $hoge, $foo = split(/\./, 'hoge.foo');
は、
my($hoge, $foo) = split(/\./, 'hoge.foo');
と書く必要があると思いますが。
どうでしょう？

かぶったね。

ん〜。なんでだろ。分からん。
ちなみに、この記述はperl5未満では使えないよ。

>>87
うお、できました。
スペースは無しでしか..
ありがとうございました。

>>88

× my $hoge, $foo = split(/\./, 'hoge.foo');
○ my($hoge, $foo) = split(/\./, 'hoge.foo');

>>84
>my test = 'affaaffaaafaaaafaaaaafaaaaaafffaf';
$test だろ　$抜けとる・・・・

>83
同時実行されていない場合は、ロック処理の分負荷は増えている。

で、この部分は読んでないのかな？
>いらっしゃーい、Perlの"コーディング"で困ってる人のスレです。

>92
一部だけ読んで適当に返事するのｲｸﾅｲ

>>82
パイプつきoopenでPIDを取得しておいて、必要に応じてkill関数で殺す
…と思ってやってみたらうまく行かなかった(お。

<input type="checkbox" name="sakana" value="あじ">あじ
<input type="checkbox" name="sakana" value="たい">たい
<input type="checkbox" name="sakana" value="ひらめ">ひらめ
<input type="checkbox" name="sakana" value="かつお">かつお
<input type="checkbox" name="sakana" value="まぐろ">まぐろ

で、複数選択しても、最後の値しか来ないのですが、どのようにすればよいのでしょうか？
cgi-lib.plを使い、
@arrey = &SplitParam($FORM{'sakana'});でやってみました。

フォームデータの取得は以下の通り
sub form {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name} = $value;
}
}

$nameがsakanaで同じだから上書きされているんだと思うのですが、どう回避していいのかわかりません。

>>96
ひとつ。それのどこがPerlの話なんだ？
ふたつ。cgi-lib.plを使っておきながら、自前でデコード処理してんのか？　もしそうならとんでもないヴァカだな。

解決策
・CGIのことはCGIのスレに行け。
・cgi-lib.plの最新バージョンとその正しい使い方を学べ。
これで解決。

>>96
>で、複数選択しても、最後の値しか来ないのですが、どのようにすればよいのでしょうか？
ハッシュのキーが値が上書きされるからそうなります。

<input type="checkbox" name="sakana0" value="あじ">あじ
<input type="checkbox" name="sakana1" value="たい">たい
<input type="checkbox" name="sakana2" value="ひらめ">ひらめ
<input type="checkbox" name="sakana3" value="かつお">かつお
<input type="checkbox" name="sakana4" value="まぐろ">まぐろ

等とやって処理を考えないと駄目

>>97一応perlでしょ・・・ハッシュの扱いの問題だし

>>96
checkboxは、複数選択すると

sakana=あじ&sakana=たい&sakana=まぐろ

みたいに同じnameが複数来るんだよ。
これが分かればあとはなんとかできるでしょ。

>>97-100
解決しますた。
特に>>97さん、&ReadParse;で桶でした（滝汗）

＝＝＝以下言い訳＝＝＝
最初はcgi-lib.pl使ってなかったんだが、複数選択が必要になり、ぐぐったらcgi-lib.plの&SplitParamでできるってので使い始めたわけ。
ヴァカでした。
CGIとPerlの区別も含めて

$hogeにHTML文書が入っていると思われ
その中にいくつもある<a href="mailto:メアド">名前</a>を
名前=>メアドのハッシュを<title>タイトル</title>の
タイトル.txtで残しておきたいんだ。
教えてくれ。
できればタイトル.txtをサーバに保存やブラウザに表示するのではなく、ダウンロードさせたいのだが漏れにはさっぱりだ。
教えてくれ。

>>102
ハッシュにするのはこれでいい？
%hash = reverse $hoge =~ /<a href="mailto:(.+?)">(.+?)<\/a>/ig;

ただ、HTMLのタイトルをファイル名にする場合、ファイル名が日本語になってしまう
可能性がある。OSによっては日本語ファイル名を作れなかったりといろいろ問題が
あるので、回答は省略。

ダウンロード云々はCGIの話になる。スレ違いになるのでこれで勘弁な。

13:5を01:05で表示するための、
もっとも簡潔で一般的なのは何ですか。時間です。
すいませんプログラミング初心者です。
書いてみたのですが、とてもよろしくないと気付いて模索しましたがわからないです。
sprintfでふた桁にしてみるとか、やってみたんですがダメでした。
検索してもSSIしかヒットしないです。すいません、よろしくお願いします。
$hourは0から23までで、$minは0から59までです。

$jikoku=$hour-12;

if ($hour > 12 && $min < 10){
print <<EOF;
$jikoku:0$min
EOF
}elsif ($hour > 12){
print <<EOF;
$jikoku:$min
EOF
}elsif ($min < 10){
print <<EOF;
$hour:0$min
EOF
}else{
print <<EOF;
$hour:$min
EOF
}

笑わないでください。生まれてすいません

いろいろ回答はあると思うけど、俺だったら

$hour %= 12;
$jikoku = sprintf("%02d:%02d", $hour, $min);
print "$jikoku\n";

>笑わないでください。生まれてすいません

卑下しすぎ。そんなくだらん質問でもない。

$mod_hour = $hour % 12;
printf("%02d%02d",$mod_hour,$min)

>>105-106さん
ありがとうございます！
パっと見て理解できる能力が、まだないですが
時間がかかるので先にお礼を言わせてください。
メモってお勉強の材料にさせてください、すいません。
ありがとうございました。

>>101
理解して学習する能力があるなら十分だね。
ヴァカなのはやりかたであって、本人じゃない。
気を悪くしてたら謝るよ。

質問です．

CGI で HTML のデータを標準出力するようなものを
実行したときには，その HTML が WWW ブラウザに
表示されるのでしょうか？

>>109
HTTP-Header を無視した話であるならば、Yes。

…などとマジ回答してしまったが、ここ Perl スレじゃんか。
CGIスレに行ってください。>>109

失礼しました
CGI スレであらためます

>>108
これからもビシビシと厳しくご指導ご鞭撻のほどよろしくおながいします。

標準入力のSTDINをseekでもう一度読むことはできないんでしょうか。

read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
print "$str<BR>\n";
seek STDIN, $ENV{'CONTENT_LENGTH'} ,1;
read(STDIN, $ppp, $ENV{'CONTENT_LENGTH'});
print "$ppp<BR>\n";

この時２回目のreadは無効になってます。
普通のFHはseekできたのですが。
これは仕様でしょうか？

間違いました
seek STDIN, -1*($ENV{'CONTENT_LENGTH'}) ,1;

>114
$ppp = $str;
これでダメなわけを教えてくれ。

ストリームはseekできないのでは?

モジュールでもよんでんだろ

時間によって、特定のディレクトリ以下にアクセスできないように
したいのですが、Perlでできますか？

>>119
OS は？ファイルシステムは？
誰に対してアクセス制御を行うのか？
自分以外？自分もアクセスできないの？
そもそもローカルの話？もしかして HTTP？それとも FTP？

… Perl でどうこう言う前に、定義すべき条件があるだろが。

>>119
何がアクセスできないようにしたいのか分からない。
Apacheなら無理だろ。

>>121
いや無理でもないさ。
chmod 仕組んだ Perl スクリプトを cron でまわすとか。
.htaccess 更新するような Perl スクリプトを cron でまわすとか。
下位のディレクトリを全て 0700 にしといて、CGI 経由しないと
参照できないようにするとか。# 要 suExec

もっとも、>>119 が自分のWebサイトにおけるアクセス制御を
やりたがたっている、とは限らない罠。

>>120
>>121
>>122
説明不足ですいません。
プロバイダの共用サーバーで、自分のWebサイトの特定のディレクトリ
に対してやりたいです。すいません。
サーバーの情報は、今見たんですが書いてないのですが、@niftyの会員が
普通に無料で使えるやつです。すいません。
.htaccessは使用できないようです。すいません。
ただ、ちょっとPerlからズレますが、shスクリプトでchmodコマンドが使える
って書いてあります。
シェルスクリプトはわからないので、Perlでしたいです。すいません。
suExecていうのを知らないので、調べて見ます。
すいませんありがとうございます

何度もすいません。
suExecというのは、サーバーにインストールするもののようですが
どうやら、無いようです。
たとえば、「0-7時の間は、このディレクトリにはアクセスできない」
というのを自動で実行させるようなことをしたいのです。
nobodyさんに対してです。よろしくお願い致します。

もう、Perl とは関係ないような気がしてるんだけど、
とりあえず、アクセス制御をかけたい「コンテンツ」を全てCGI化すれば
お望みの効果が得られるかと。

ただし、>>119 のサイトが人気サイトでアクセス数大ならお薦めできない。

「すいません」をたくさん書けばいいってもんじゃない。

特定の日付の1日前を求めるにはどうすればいいでしょうか？

$date = 25;
$date = $date - 1;

>>127
use Time::Local;

神　　の　　ホ　　ー　　ム　　ペ　　ー　　ジ


　　　　　　　　http://mypage.naver.co.jp/2ko657ih/

>>128
それは無理…。

>>129
Time::Localでどうやってとれますか？

>>131
ググれ！バカチン

>>127特定の日にちって何？
$dayに特定の日にちが入っていれば>>128でOK
timestampだったら24*3600を引けばいい。

>>133
年月日でしょ。
Time::Local でググりゃ答え一発。

>>133
$year = 2002
$month = 1
$day = 1
これの前日とか。

timelocalでUNIXtimestampにして24*3600秒引いてlocaltimeで戻す。

>>122
>chmod 仕組んだ Perl スクリプトを cron でまわすとか
たしかにそうだ。
cronが使えるかが問題だが。
>>119
perldoc -f chomd

>>123
これはどう？朝7時に起動すれば、0時から7時までアクセスできなくなる？
while (1) {
sleep 60*60*17;
chmod 0700, 'foo';
sleep 60*60*7;
chmod 0755, 'foo';
}

>>138
Nifty って shell 使わせてくれるの？
じゃなければ、suExec 未導入だし無理でない？
foo の owner を nobody にしたら意味無いし。

全くの初心者じゃないけど，ちょっとつまづいてる人には
「達人が教える〜Perl/CGI道場」
http://www.amazon.co.jp/exec/obidos/ASIN/4844317423/qid=1048586885/sr=1-2/ref=sr_1_2_2/249-9931188-3133920
と，もう一冊推薦図書はないでつか？
（「かんたんPerl/CGI入門」は持ってまつ。）

1：チャットで「ポ」、「ー」等を特殊表示してみたい
2：$com =~ s/ポー/<font color="yellow">テスト<\/font>/g ;
3：それだと、インターナルサーバーエラーが出て動かなかった。

です。
本来出来ないことは分かってるんですが,どうにかならないでしょうか?
御願いします｡

>>141
2：$com =~ s/\Qポー\E/<font color="yellow">テスト<\/font>/g ;

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

>141
$com =~ s/\Qポー\E/<font color="yellow">テスト<\/font>/g ;

「ポ」と「ー」を分けるのなら、142,143のではダメね。
でもここまでヒント出してあればできるでしょ。

>>141
もっと根源的な解決方法としては、EUCコードで書くと言う手がある。
それなら、スクリプトを変更する必要はなくなる。

>>103
遅ﾚｽｽﾏｿ
メアドの件ＯＫでした。
タイトル.txtで保存の件、メアドの件の応用で試しにやってみたらＯＫでした。
ダウンロード云々の件は日を改めて後日。

エポックタイム使えない場合でモジュール使えないのであれば、ユリウス時間を使えばとかいってみるテスト

>>139
そうか。不便だね。＞niftyサーバ

すまん、ちょっと聞きたいんだけどさぁ
cgiとか作りたいと思ったら本買った方がいいかなぁ？

>149
まず、配布されてるスクリプトの中身を見て、改造から入る。
次に、Perl関連の紹介などをしてるサイトを回り、基本的なことを覚える。
作るだけならこれで十分。

買うに越した事はないけどな。

>>149
プログラミングを他言語でしたことあるなら
別に買わなくても良いかと

初めてなら、とりあえず文法覚えり
とほほとかで

紙媒体がある方が覚えやすいような気がするのは、俺の気のせい。

すみません。
「ハッシュのキー」が同じなら真を返す。とかそんな技ないでしょうか？

$abc{'aaa'} eq $efg{'aaa'};　　#これを真にしたい。（と言うか同じキーかどうかが分かればＯＫ）

もしかして、無茶言ってますでしょうか？

キーが・・・

定数同士なら見りゃわかる。条件式にかけるまでもない。
変数ならその変数同士を比べればよいのでは？

>>153
そういう比較をする場面がよくわかんない。
とりあえず>>154と同じ意見。

例えば
$aaa= 0..79;
で
特定の値にだけ、配列の要素を割り当てるってことはできないでしょうか

$aaa= 0..79;
@bbb= ('あ','い','う','え','お');
print "$bbb[$aaa]";

というのをやりたいんですが、
@bbbに0..79までの要素を全て割り当てないで、
0と7と9だけ割り当てたいとか、そんな場合はどうすればよいでつか

if文とか使わないで、「0はこれ！」「７はこれ！」て
定義したいです。

$aaa= 0..79;
これってどういう振る舞いをするの？
@aaa=0..79なら0から79までを配列に入れるんだけど。

>>156
意味がわからん……

配列初期化のときにダミー（undefか空文字列）を入れておいて、値のほうを制限。
またはハッシュを使うとか。

%bbb = ( 0=>'あ', 1=>'い' );

>>156
質問の意味がわからんので、そもそも何をしたいのかを書いてください。

もしかしたら、こういうことか?
@bbb[0,7,9] = qw(a b c);

>>156
> 0と7と9だけ割り当てたいとか、

$bbb[0]=0; $bbb[7]=7; $bbb[9]=9;
これじゃだめなのか？

>>157-161
さむくすでつ！

>158
できた！マヂでできました！超うれしいよ！ありがとう！
質問がおかしくてスマンかったです。

$aaa= $ccc % 80;
の動きをするものです。
>158のやり方ででけました。ありがとう！
そうか！配列じゃダメなんですね！すごいよ！

>>160-161
後で試してみます。qwとかわからないので、本見てみます。
本当にありがとう！やた！やったー！

2chスゴイよ！毎日来ていいでつか？ありがとう！

また来ました

「0はこれ！」「７はこれ！」のやり方はわかったのですが、
「0〜7の範囲はこれ！」はどうしたらいいですか
if文は使いたくないです。

$aaa= $ccc % 80;
@ddd= (0..7,8..15,16..79);
%bbb= ($ddd[0] => 'あ', $ddd[1] => 'い', $ddd[2] => 'う');
print "$bbb{aaa}";

動かないでつ
何がいけないでつか
この事態によく遭遇するんで、困ってまつ。
ハッシュのリストの中で、演算しをつかいたいです。使いたいです
範囲を指定したいんです。したいです
これさえできれば、僕のやりたいことは全部できるんでつ
泣きそうでつ。

>>163
print "$bbb{aaa}";
を
print "$bbb{$aaa}";

もうちょっと落ち着け・・・

>>163
なんでif文を使いたくないの？
最初の質問もそうだけど、何をしたいのかがわからないのよ。
せめてどういう結果が欲しいのかをきちんと提示してくれ。

>>163
これで満足か？

map { push @ddd, 'あ' } (0..7);
map { push @ddd, 'い' } (8..15);
map { push @ddd, 'う' } (16..79);

print $ddd[$ccc % 80];

>>165
学校の課題とかじゃないのか？（ｗ

んー、でも春休みだぞ？

補講だろ(w

if ($#past > $log_line) {

この$#pastって意味わかる？
#っていうのはそのあと全部無効にするんでしょ？
なにか特別な表現？

>>170
Perl の 配列について調べてみればすぐわかる。
ぜひ自分で答えに辿りつかれたし。

検索キーワードは、Perl 配列 インデクス、かな？

>>171
ありがと。
ぐぐってくる。

>>164-169
さむくすでつ！

>>165
僕のパソコンで動かす、日めくりカレンダーをつくってるんです。
僕の誕生日にhttp://127.0.0.1/にアクセスすると、
「誕生日おめでとう！○○（俺の名前）くん！」と出ます。
これは、さっき>>158さんに教えてもらったやり方でできるようになりました。
だけど、例えば15日〜20日まで同じものを表示したいときなど、
どうしたらいいか悩んでます。
if文だと、「14より大きくて21より小さいから、これ！」って発想になるのが
いやなんです。
だから、if文は使いたくないんです。好きじゃないんでつ。重いんでつ
今は練習段階だけど、うまくいったらWebでも使ってびっくりグーグルのように
したいです。

>>166
ありがとう！
mapというのは、ぐぐったらどうやら関数のようでつね
初めて見ました。
僕の持ってるPERL本5冊には、載ってない未知の領域です。
ネット上のリファレンスとか見たけど、いまいちわからないです。
わかったようなわからないような、悩ましい状況です。
悩ましくて苦しいです。あたまの中がループしてます。最後のお願いです
解説してください。これさえわかれば、何でもできるんでつ
お願いします。お願いします

はじめまして。宜しくお願い致します。

RedHat7.2を使用して｢すぐわかるPerl｣を参考書に勉強しています。
｢すぐわかるPerl｣のP.19にファイル名でプログラムを実行するという手順があり、

#! /usr/bin/perl
print ("3 * 2 = ");
print (3 * 2);
print ("\n");

と記述してプロンプトからファイル名を指定しても、

bash: calc: command not found

と表示されるだけで

$ perl ファイル名

で実行したものと同一の結果になりません。
(この場合には3 * 2 = 6と結果がかえってきます)

一行目を
#!/usr/bin/perl
に書き換えてもやはりダメです。

%type -a perlの結果は
perl is /usr/bin/perl
となっています。

原因と対処をご指導ください。
宜しくお願い致します。

>>174
パーミッションは？
ファイルの先頭に./（ドットスラッシュ）つけてる？

パーミッションは-rwxrwxr-xとなっていて
一般ユーザー権限で試しています(言い方あってますか？)

>ファイルの先頭に./（ドットスラッシュ）つけてる？
つけていません。参考書に記載がないので。
これはどこに記述すればいいのですか？
#! /usr/bin/perl の先頭に記載して
./#! /usr/bin/perl
とすればよいのでしょうか？

$ chmod u+x calc
$ ./calc
ってことだな。
つまり、Perl より先に Linux の勉強をしる、ということだ。

あ、できました。
ありがとうございます。

言い訳になりますがRedHatも
こないだPerlのために用意したばかりで
勉強不足でした。

なぜこれでOKなのかは自分で勉強したいと思います。
本当にありがとうございました。精進致します。

>>173
ifって重いの？

>>179
少なくてもwebprogでifが重いとかいってるやつは、
短絡的で思い込みが激しくて相対的な思考ができない馬鹿。たいていA型

ifが重い・・・分岐はパイプライン処理を阻害するらしいが、こういう分野でそんなこと気にしていたら
やっていられないよな。それにPerlならユーザの知らないところでたくさんの分岐を行っているはずだ。

ifを使って処理が複雑になるなら、使わない方がいいだろうけど。

アホには妙な先入観があるんでしょう。困った。

>>173
mapは戻り値を捨ててはいけないぞう。ぷぅ。

構造は、map BLOCK LIST、返り値は、LISTの各要素についての、
BLOCKの結果のリスト。

Perlの事を詳しく知りたいので勉強始めたのですが、正直どこ
から初めていいかよく分からなくなってきてしまいました。

MacOSXを仕事の関係で自宅でも使用しているのでperlは使え
る状態まで設定が終わり、Perlの解説本（とほほＷＷＷ入門）
を買ってきたのですが、理解が浅く、自分のやってみたい事
はあたまには浮かぶが、実際にperlで書けない状態です。

慣れるにはどのようにしていったらよいのでしょうか？
本当に困ってます。
馬鹿ですみません。

漏れも初心者です。
とほほＷＷＷ入門がどんなのか知らないけど
初めから読む。
本に書いてあるプログラムを実行する。
分からなかったらそれを書き換えて自分が納得するまで
いじる。ってのをしてます。
独習Perl読んでる。

>>185
そうなんですよね。
どうしても仕事で使うので、いろいろ必要な所をかいつまんで
いるのですが、時間が足りなくもうなんかダメダメになりそう
です。マジで泣きながらキーボード打ち込んでます。

今は使えそうなフリーの素材を使って少し命令をいじって自分
のマシンでテストしています。

俺には向いてないのかなぁ。このままじゃあ、ｸﾋﾞになるかもし
れない、でも、ここの皆さんはできている人が多いみたいだし。

生き残るなんてできないのかなぁ。

愚痴になってごめんなさい。
もうちょっと頑張ってみます。

いい勉強法があるといいよね。
要するにその「いい勉強法」にたどり着けるかどうかが分かれ目なんだろうなと思う。。

>>186
ある程度のレベルに達してないとセキュリティ面で穴が空きそうだのう。
もしもの事があればおおごとじゃから諦めなされ。
だからと言ってフリーのものを少々b改造して著作権表示を
すり替えたりせんようにな。社会人としてのルールじゃ。

ここの板が過疎化している通り、webprogを自在に操れる人々は
ネット人口に対してはごく一部じゃ！まだ遅くはないぞ！
何事にも近道は無い。じっくり、まったり勉強なされ。

そうそう忘れておった。perlのセキュリティを学ぶには
技術評論社の「プログラミングによるセキュリティ強化ガイド」がまあまあいいぞえ。
自分の能力を向上させる為なら金は惜しむな。先人の偉大なる著作物を手に入れるのじゃ。

というか・・・
とほほな人がイタタな人だから心情的にはお薦め出来ないってのはある。
それに、perlの参考書を買うのもいいのだけどその参考書は二次生成物だから
本の駄目なレベルまでわかるレベルになればマスターした事になると思われ
そいうことで、本としてお薦めは駱駝本になるのだけどね。

別に本を買わなくてもウェブ上で転がってる資料でも問題無いし、
別に本を買ったからといって覚えれる物でもない。

>>142->>145
ありがとうございます。
出来ました｡

ひどいよ！みんな！

条件分岐させるのがいい場合もあるだろうけど、
最初から「これ！」て定義したいものには、if文とかより
もっと効率のいいやり方があるんじゃないかって思っただけだよ！
僕はO型でつ。
バカだけど、バカにされると一応悲しむだけの感情はあるんだぞ！

>>184
戻り値とか返り血とか何でつか
簡単な式でも略して書かれるとわからないレベルでつ
ひもとけないのでつ
ていうか、僕の所有する5冊のPERL本では簡略化されたものは出てこないので
順をおって書かれてないとわからない。わからないー

ほんとにお願いします。
いっこづつ解説してください。心からお願いします

>>192
その話し方じゃ教えたくないと思うのはオレだけじゃないはず。

>>193
禿同

レス番くらい間違えないでください。

>>192
Perl流の省略の仕方が理解できない分際で、
if文が重いとかほざくな。

足し算ができない奴に掛け算ができるわけがない。
自分が理解できてることだけでスクリプト組んでろ。

>196

いいこというなぁ。

漏れも頑張るか･･･。

というか、
map使うのが一番メモリー食うらしいですけどね・・・

>>192
まぁ、順序追ってその時その時で覚えた関数がどう使えるかというのを理解しつつ
やっていくとよいと思うけどね。

いっぺんに効率の良い処理を書こうと思ってもそれは無理だから一度ソース書いて
それがどうやれば見やすくなるかって考え方で逝くほうがいいと思う

>>198
いいこと言うなぁ。
これで決まりや。

perlを使ってウエブのテキストエリアの部分に文字を
挿入する事ができるんでしょうか？

>>200
SSIでないかい？？

<textarea>文字</textarea>
でいーじゃん

>>201
うーんと、ちょっと違うかもしれません。

要は今見ているページのテキストエリアにperlのgetもしくは
postで任意の文字を入れる事がperlが動作するマシンから実行
できるのかなという事なんですが、説明がうまくできなくてご
めんなさい。

？？？？？

>>204
うまく説明ができない・・・。

ブラウザからgetやpostで情報を受け取る事ができるなら、
ブラウザのテキストエリアに送る事もできるのでしょうか？

>perlのgetもしくはpost

アホですか？

>>205
よーわからんけどssiじゃないのそれ？

>ブラウザのテキストエリアに送る

全然わかんない

Javascriptのお仕事だな。

>>206
すみません・・・。
どこがアホなんでしょうか？

教えてください

>>205
は、基本的なHTTPプロトコルを学ぶべき。

HTML文書のフォームから送ると言うことは、FORMタグのアクションに指定されたページに飛ぶのと同じ。

>>210
うまく説明できないなら、まず
言いたいことを整理するか、
やりたいことの具体例を示しなさい。

別にあせらんでもこのスレは逃げません。

>>212
とりあえず思いついた例として
掲示板に書き込みをする際にブラウザを使った書き込みではなく
自分のマシンからperlにて書き込みができないのかなと。

こういう感じでよろしいのでしょうか？

>>213
できます。
HTTPをしゃべるスクリプトを書きなさい。
以上。

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

見よう見まねですが自分で作った掲示板に、自分で作った
perlで書き込みができるのかテストしてみます。

もしよろしければそのhttpをしゃべるスクリプトの例とい
うのがどのように探せばあるのか、教えていただけません
か？

よろしくお願いします。

>>213
できます。
HTTPとSocketモジュールの使い方勉強したらすぐできる。

http://218.44.246.37/~2ch/

>>215
http://www.scenecritique.com/museum/home/guess/gesuds9/perlduke.htm

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

長々と説明を続けてしまって申し訳ありません。
アホなので、許してください。

早く皆さんのように質問に答えられるようにスキル
を身につけてみます。

もしその前に挫折して聞きに来る事があるかと思い
ますが、よろしくお願いします。

>>215
荒らしにつかわれることを懸念してか、
POST のサンプルスクリプトは、あまり見つからない。
# まあ、これは俺の検索が甘いだけかもしれんが

書き込むだけなら GET でも可能だし、これなら
Perl Socket HTTP あたりをキーワードにして検索すれば
いくらでも見つかる。
GET で HTTP での会話を知ってしまえば、POST だって簡単。

tcpdump に類するツールを所有しているなら、
それでWWWブラウザとHTTPサーバとの会話の様子を
覗いてみるのもお薦め。

>>218
oioi

>>214
簡単なサンプルならlwpcookにもあるんじゃない？
perldoc汁

ごめん。まちがった。
s/214/215/

HTTPのRFCを一度読んでみたらいいと思う。
HTTPは比較的簡単プロトコルだと思うのでネットワーク関係の
プログラム作りたいならHTTP ClientやHTTP Serverを書いてみる
といいかも。
まじめに答えると、
http://x68000.startshop.co.jp/~68user/net/
とか、いいかも。GETはあります。
POSTは上に書いてあるとおりContent-Lengthつけて、ヘッダと
ひとつ空行あけて送るデータを書けばいいだけです。

どうでもいいが
HTTP プロトコル
と書くのは、
Perl言語
と書くのと同じだと思う。

>>221
perldoc厨死ね

LWP使え。

質問です。
ネット上のページを取得するのに、LWP::Simpleとwgetを使う方法があるとのことで、
それぞれで実際に取得するところまで漕ぎ着けました。
対象ファイルのサイズは20〜50kb程で、それぞれの実行時間はほぼ同じでした。
このスクリプトは共用鯖でCGIとして実行するので、負荷が気になります。
負荷の上ではどちらが良いのか、もしくは他の方法があるのか、お教えください。

どうでもいいが
Perl言語
と書くのは、
チゲ鍋
と書くのと同じだと思う。

>>228 へ？(色んな意味で)

>>229
チゲ == 鍋

どうでもいいが
Perl言語
と書くのは、
POP言語
と書くのと同じだと思う。

早い話がどうでもいいスレ。

ほんとすんませんが、お聞きしたいことがあります。
Perl５以上で記述された、「ＵＲＬ通知システム」どこにあるか知りませんか？
たとえば、あるページを見ている人が自分の携帯電話に、そこで指定されているＵＲＬをメールしたい。
そんなのなんですが、よく広告ページの携帯用出会い系サイトなんかで使われているやつです。
もし。公開しているところがあったら教えてください。
ほんとすんません・・・・・・・

>>233
こういうんじゃないのか。
http://r.gnavi.co.jp/Waiting/?id=g852000

http://www2.leverage.jp/start/

２つ質問があるのですが１つずつ・・・
クッキーを書き込みたいのです。
で、色々調べて回って、何とかこんな感じでできました。

#1 #!/usr/bin/perl
#2 use strict;&main;exit;
#3 sub main{
#4my $id = "abc";
#5my $value = "";
#6print "Set-Cookie: ".setcookie($id,\$value);
#7print "Content-Type: text/plain\n\n";
#8print "SetCookie!!";}
#9 sub setcookie{
#10my ($id,$cookie) = @_;
#11my $expires = "";
#12my $day = 1;
#13$$cookie =~ s/([^\w ])/'%'.unpack('H2',$1)/eg;
#14$$cookie =~ tr/ /+/;
#15if ($day > 0){
#16my ($mday,$month,$year,$youbi) = (localtime(time + ($day * 86400)))[3..6];
#17$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$youbi];
#18$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$month];
#19$year += 1900;
#20$mday = sprintf("%02d",$mday);
#21$expires = " expires=$youbi, $mday-$month-$year 00:00:00 GMT";}
#22return "$id=$$cookie;$expires\n";
#23 }

書き込めるのですが、ブラウザを閉じたら消えるようにしたいのです。
#12行目のmy $day = 1;の数字をゼロにしたけど、うまくいきませんでした。
同じく数字を消してもみましたが、うまくいきませんでした。
どこをどういじれば良いのか分からないので、どうか教えては頂けないでしょうか。

>>236
#15 を削除
#21 の「}」を削除

これが236を受けるスクリプトです。少々改造したいのですが、方法が分からなくて困っています。
Cookieの有無を調べて、abcというクッキーがなければよそに飛ばしたいのです。

#1 #!/usr/bin/perl
#2 use strict;&main;exit;
#3 sub main{
#4 my $id = "abc";
#5 my %cook = ();
#6 getcookie("abc",\%cook);
#7 print "Content-Type: text/plain\n\n";
#8 print "a:$cook{'a'}\n";
#9 print "b:$cook{'b'}\n";}
#10 sub getcookie{
#11 my ($id,$cook) = @_;
#12 my %cook = ();
#13 my $cookie = $ENV{"HTTP_COOKIE"};
#14 $cookie =~ tr/+/ /;
#15 $cookie =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2',$1)/eg;
#16 foreach my $x (split ";",$cookie){ my ($key,$value) = split "=",$x,2;
#17 $key =~ tr/ //d;
#18 $cook{$key} = $value;}
#19 foreach my $x (split ",",$cook{$id}){ my ($key,$value) = split ":",$x,2;
#20 $$cook{$key} = $value;}
#21 }

#13行目に my $cookie = if($ENV{'HTTP_COOKIE'},'abc' ) < 0 ){
print "Location:http://www.hoge.com/\n"; }
とでも書けば良いのでしょうか？ それとも全然違う行に全然違う事を書けば良いのでしょうか？
何にしても初心者の私にはこれ以上は難しいでとても困っています。
どうか救いの手をお願いできないでしょうか？

237さん早速どうも有り難うございます。m(_ _)m

>>236
CGI側ではブラウザを閉じたことを判別できないので、無理です。
JavaScriptを併用すれば可能かもしれない。が、これ以上はスレ違い。

>>234
ありがとう御座います。
いいですねえ、こんなの。もっとシンプルに１っ子だけしか送れないやつでも良いんですけどね・
ええっと・・・・・そのですねえ・・・プログラムが置いてあるところが知りたいんですけど・・・・
すみませんが・・・・よろしくおねがいします・・・・・・

>>241
スレ違い。

ほんとだ！

スレ違いみたいなので「WebProg 初心者の質問」に移動します。
お邪魔しました。m(_ _)m

238に間違いが見つかりました。
#8 print "a:$cook{'a'}\n";
#9 print "b:$cook{'b'}\n";}は

#8 print "abc$cook{'abc'}\n";でした。<(_ _)>

たまに、html内に「%%HOGE%%」こんな記述を見るんですけど
これは一体なんの意味があるんでしょうか。

BBSをperlで作っているのですが、レス機能の付け方が良く分かりません。
どこか分かりやすい解説が載っているサイト知りませんか?

>>247
ログファイルに「スレ文」か「レス文」かを分けるなんらかの目印を入れる。
読み出しの時はその目印でレスかスレかの処理を分ける。以上。

他には書きようがない。
他人のBBSでも眺めれば？

CGIスレで誘導？されたのでこちらで質問させてください

apple,青森,40
orange,愛媛,20
strawberry,茨城,30
↑これがそれぞれ
@fluit = ('appe','orange','strawberry');
@from = ('青森','愛媛','茨城');
@price = (40,20,30);
こんな感じに配列に入ってるとき、たとえば下のようにすると、、、、

foreach (sort { ($price[$b] <=> $price[$a]) || ($a cmp $b) } 0 .. $#price) {
　print "$fluit[$_],$from[$_],$price[$_]\n";
}

apple,青森,40
strawberry,茨城,30
orange,愛媛,20
↑こうなると思うんですが、
ソートする条件をフォームから指定させたいんです。
たとえば、($FORM{'jyouken'} eq "fluit")ならfluitでソートって感じに・・・

どのようにすればいいでしょうか？（説明へたですいません）

あげ忘れましたすいません

>>249あっちにもかいたけど
構造がだめっぽ　自分ならこうする

@data= (
{fluit=>'apple',from=>'青森',price=>40},
{fluit=>'orenge',from=>'愛媛',price=>20},
{fluit=>'strawberry',from=>'茨城',price=>30}
);

@data = @data[sort{$data[$a]->{$FORM{select}} cmp $data[$b]->{$FORM{select}] } 0 ..$#data];
for (0 .. $#data) {
　　print "$data[$_]->{fluit},$data[$_]->{from},$data[$_]->{price}\n";
}

res有難うございます。
えっと、恥ずかしながら
@data= (
{fluit=>'apple',from=>'青森',price=>40},
{fluit=>'orenge',from=>'愛媛',price=>20},
{fluit=>'strawberry',from=>'茨城',price=>30}
);
これははじめて見たんで、何をしてるのか・・・調べてきます。
できれば弄るところが多くなると思うんで、そのままの構造でいきたいんですが、、、

それは連想配列のリファレンスを配列として
扱っているのだと思います。違ってたらｽﾏｿ。
俺もこういうのちょっとｶﾞﾝﾊﾞﾛ･･

}] } 0 ..$#data];
↓
}} } 0 ..$#data];
こうですね。動作確認できました。

しかし、なにをやってるか調べてもわからないので、
どう組み込んだらいいのか・・・
この解説ページないですかねぇ

http://takenaka-akio.cool.ne.jp/doc/perl_kiso/reference4.html
これ

>>255
有難うございます。勉強してきます。

>>246
テンプレートファイルに特定の変数値を流し込むための目印みたいなもん。
s/%%HOGE%%/$hoge_value/;
で、変換しているとか。

正規表記で日本語にマッチさせるにはどうすればいいですか？
text:<head><title>タイトルン</title></head>
があるばあい「タイトルン」だけに変更して表現するときはどうすれば
いいですか？あと
text:<head><title>titlen</title></head>
のtitlenにもマッチさせたいのですが、これらを正規表記一行で表現すると
どうゆうふうになるのですか？

>>255
フォロー感謝。まぁ頑張ってくだされ

>>258

http://www.din.or.jp/~ohzaki/regex.htm
これ読んでそれでもわからなかったら、
今度は正規表現のスレに行け。

3年くらいperlをいじってなかったので、
初歩的な質問かもしれないですが・・・・・・・

パスワード制限するページで、

IDとパスワードでアクセス制限
（Basic認証でなく、<form>タグ内と<input tyle= text と passworsで）
して、ページを、
Apacheとperl5の環境でやりたいのですが、
どういう方法があるのでしょうか？

●<input type=hidden>で変数をやりとりする
●クッキーを使う

は知っているのですが、
これしか方法はないのでしょうか？

質問させてください。
cgiで以下のを実行させるとフレームが５個くらいできるのだけど
なぜですか？

#! /usr/bin/perl
test();

sub test{
print <<END;
Content-type: text/html; charset=Shift_JIS

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html>
<head><title>testdesu</title></head>
<frameset cols="50%, 50%">
<frame name="t2"
src="$ENV{'SCRIPT_NAME'}?frame=test2">
<frame name="t3"
src="$ENV{'SCRIPT_NAME'}?frame=test3">
<noframes>
<p>このページはフレームをサポートしているブラウザで利用する必要があります</p>
</noframes>
</frameset>
</html>
END
}

>>262
HTMLの勉強からやり直して来い。

>>261
セッションのキーはその何れかで残すしかない。

>>263足りなかったです。これを実行させたいのですが、brankのフレームが6個できます
なぜ6個でどういう動作しているのでしょうか？
#! /usr/bin/perl
if($FORM{'frame'} eq 'test2'){hidari();}
elsif($FORM{'frame'} eq 'test3'){migi();}
else{test();}
exit;
sub test{
print <<END;
Content-type: text/html; charset=Shift_JIS

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Frameset//EN">
<html><head><title>test</title></head>
<frameset cols="50%, 50%">
<frame name="t2" src="$ENV{'SCRIPT_NAME'}?frame=test2">
<frame name="t3" src="$ENV{'SCRIPT_NAME'}?frame=test3">
</frameset></html>
END}
sub hidari{
print <<END;
Content-type: text/html; charset=Shift_JIS

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>test2</title></head><body>test hidari</body></html>
END}
sub migi{
print <<END;
Content-type: text/html; charset=Shift_JIS

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html><head><title>test3</title></head><body>test migi</body></html>
END}

http://www.agemasukudasai.com/bloom/

>>265
なぜって、これ以外にもスクリプトあるんじゃないの？
単独のCGIじゃないでしょ

>>265
よく考えてから質問してくれ

>>265
単純に$FORM{'frame'}のデコード処理がないからとか？

前にも見たな。$FORM{} に自動的にフォーム内容が入ると思い込んでるソース。

そういう楽がしたいんなら、PerlじゃなくてPHP使えってことだな。
後のことは知らんが。

JavaにあるisSecua()メソッドのような、
通信がセキュアであることを判定するようなメソッドが欲しいと思い、
いろいろ環境変数などを探してみたのですが、ぜんぜん見付かりません。
どうやったら確実に判別できるのでしょうか。
もしかして、「https://から始まっていたらセキュア通信!」みたいにすればOKですか?

>>272
isSecua() メソッドとは何をもって通信がセキュアであると判断するんだ？
あと、どこまでのセキュリティレベルを必要としてるんだ？自分で理解してるのか？

それに環境変数ごときで判断して良いなら SSL_* 変数をチェックすりゃ十分だろうし、
https:// から、なんてレベルなら SERVER_PORT でも見りゃいーじゃん。

Perl と関係ねーじゃん。よそ逝け。

今isSecuaメソッドをPerlで書いてるんだっちゃ。
そげなこといわんと、実装方法教えてくんろ。

>>272
perlにも汚染モードがあるけどどこまで使えるかはしらね・・・
つか、全部自分で責任もつのが本来のperlだし

>>274 は、>>273 を読んでないのか？
何をもってセキュアだとするのか、定義を決めなければ実装もできんだろうが。
自分がやることやらないで他人に頼ろうとするな。

文字コードをシフトJISに変換するのにjcode.plを使用して
$value = jcode::sjis($value);と記述しています。
同じことをEncodeモジュールで行うには
どういう風に書き換えたらいいのでしょうか。
一応グーグル検索して
http://www.cise.ufl.edu/depot/www/perl/pod/perljp.html
などを読んでみたのですが、よく分からなかったです；
すみません。

>>227
＞ネット上のページを取得するのに、LWP::Simpleとwgetを使う方法があるとのことで、
＞それぞれで実際に取得するところまで漕ぎ着けました。

どうやるの？？

>>278
man wget

perldoc LWP::Simple

読め

>>279
arigatou

インフォシークに
#!/usr/local/bin/perl
use LWP::Simple;

my $url = "http://www.google.com";
my $content = get($url);
print $content;
exit(0);
ってのをアップしたんだけど５００になってしまいます。
なんでだろう。

>281
LWPが使えないから。

tu-ka,テストはローカルでやれ。

>>281

まずローカル鯖でテストしてからやれや、ボケ。

headerも無いな。

何でだろうも糞も無い。

LWPが使えるかどうかってどうやって調べるの？

使ってみる

>>284
headerなんて必要ないだろ

>>286
それだけかよｗ

>>287

500エラーって事はHTTP経由だろ？なら要るだろうが。

>>285

#! /usr/local/bin/perl

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

eval {
require LWP::Simple;
};
if ( $! ) {
print $!
} else {
print 'OK'
}

>>289
No such file or directoryこんなのでた。

使えないといっても二つあるよな。
ないから使えないだけなのと、自分で置いても使えないのと。

>>290
OKが出なかったんなら、エラーが出たってことだろ。
つまりないってことだ。少しくらい考えろ。

print "Location: http://192.168.1.00/index.html", "\n\n";
なんですけど、すごく遅くて困ってます。
他のマシンでやると速いんですが、自マシンでやると遅いです。
スペック的には一番速いんですが。なんででしょうか？
ご教示ください。お願いします。

>>293
Perlとはなんもかんけーねぇじゃねーか！
問題の分類も切り分けもできんような奴はすんな！
スレ違い！

>>292>>294
出てゆけ。

春厨の季節でつね

なんでも春のせいにする厨房の季節でつね

「なんでも春のせいにする」と「特定の現象を春厨のせいにする」の違いが分からない厨の季節でつね。

>>298
特定の現象ってなに？具体的に述べて。

聞き直す。
特定の現象とはどの現象を指しているの？

Perlも2チャンネルも初心者なので御門違いな質問したらごめんなさい。

Perlで掲示板を作り、携帯からそれを利用できるようにしました。
するとａｕの携帯から書き込む際に
cgi-lib.pl:
Unknown
Content-type:
application/x-www-form-urlencoded;
charset=shift_jis

というエラーが出ます。この原因（とできれば解決法）を
一言でいいのでどなたか教えてください。
パソコンとi-modeからはちゃんと書き込めるんですけど…。

この頃、掲示板やそのた色々なcgiのソースを読み漁ってるんですが
結構巨大なcgiとかになってくるとサブルーチンからサブルーチンとか
ピョンピョン跳び回って、なかなか変数や配列の後を追えないと言うか
今、ココに格納されるべき変数は・・え〜っと何だっけ？アレ？
ってな具合になってしまいます。サブルーチンの引数の中にサブルーチンが
含まれててその引数にまたサブルーチンが・・見たいなことになるとマジで
混乱してしまいます。
何か良い方法はないでしょうか？

エディターを変えてみ

以前、perlエディタスレを見て色々試してみて今はperl Edtiorってのを
使わせて貰ってます。変数エクスプローラーってのがあってサブルーチンや
各変数にピョンピョン飛べるのが凄く助かります。

>>302　構造化エディタを個人的には使ってるけど
sjisしか使えないのがネックだなぅ

秀丸+尻。

>>301
http://www.au.kddi.com/ezfactory/tec/index.html
嫁。

perl初心者な者ですがIDについて質問です。

306 ：nobodyさん ：03/03/30 11:31 ID:[ コレ ]

こういう風に、毎回IPが一緒とは限らない実行側を
どのように判断して毎回同じIDを与えているのでしょうか？
判断材料としてはやっぱり IP、HOST、ブラウザなんかを読んで判定してるんでしょうか？
質問へぼくてすみません。

IPと日付

IPアドレスと日付と板ID

>>308
Perlと何の関係が？

そのうち「Perl初心者な者ですがハヤシライスの作り方について質問です」なんていう
質問が来そうで鬱だ。

>311
#! /usr/local/bin/perl

print "Content-Type: text/html\n\n";
print 'ハヤシライス';
exit;

>>312
それなら

#! /usr/local/bin/perl

print "Content-Type: text/plain\n\n";
print 'ハヤシライス';
exit;

だろうよ。

perlのマニュアルを全文検索できるサイトはないでしょうか？

Perlメモにある「http://www.din.or.jp/~ohzaki/perl.htm#CSVwithCRLF」
「値に改行コードを含む CSV形式を扱う」
http://www.din.or.jp/~ohzaki/perl.htm#CSVwithCRLF

を使ってみたのですが、
結果、改行を含むセルが、２行として分析されてしまいます。どうすればいいのでしょうか？
■csvファイルは、以下の通りです。
a,1,2,"あああ
いいい",かかか
あ,2839,sw,5,6
■cgiの実行結果は以下の通りです
a12"あああ<br>
いいい"かかか<br>
あ2839sw56<br>

■スクリプトは以下の通りです。
open (IN,"read_csv.csv") or die;
　　　while (my $line = <IN>) {
　　　　$line .= <DATA> while ($line =~ tr/"// % 2 and !eof(DATA));

　　　　　　 $line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
　　　　　　@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
　　　　　　　　　($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
　　　　# @values を処理する
　　　　　　foreach $column (@values){
　　　　　　　　&jcode::convert(\$column, "sjis");
　　　　　　　　print $column;
　　　　　　}
　　　　　　　　print "<br>";
　　　　}
close IN;

>>315
s/DATA/IN/g

>>316
ありゃ、おはずかしい・・・感謝です

もう１ついいでしょうか？

Perlメモにある排他制御を使いたいのですが
（http://www.din.or.jp/~ohzaki/perl.htm#File_Lock）
とりあえず中身がどういう仕組みかわからないながらもとりあえず使いたいのですが、
使用方法がわかりません。。。。

# ロックする(タイムアウトあり)
$lfh = my_flock() or die 'Busy!';

# アンロックする
my_funlock($lfh);

とあるのですが、具体的に、
たとえば、./log/bbslog.txt にロック／アンロックするには、どういう書式にすればいいのでしょう

>>318
いや、仕組みを知るのが先だろう。
こちらのスレが参考になるかも。↓
http://pc2.2ch.net/test/read.cgi/php/1024795138/l50

>>319
禿同

仕組みを理解せずにコピペで作ろうとするから、>>315みたいな単純ミスをする。

>>314
http://search.cpan.jp/
ここなんかどうでしょ


で、私の質問ですが、
multipart/form-dataでデータを受け取って
CGI..PMでアップロードしようとしています。
で、
use CGI;
my $cgi = CGI->new;
こうした時点で/cgi-bin(実行path)にtmpファイルが作成されるのですが
これを回避することってできるんでしょうか？
あるいはせめてtmpファイル作成場所の指定をしたいわけです。
ご存知の方教えてください。

>>321
$CGITempFile::TMPDIRECTORY = './your/lovely/dir';

>>322
それやってみましたがダメでした。

あと環境変数TMPDIRを見るようなので
値を設定しましたがダメでした。
http://member.nifty.ne.jp/hippo2000/perltips/Cgi.htm
-private_tempfiles

回避策としてFHをcloseしてやるとtmpファイルは消されました。
結局出力先指定は上手くいきませんでしたが・・。

perlなるものに挑戦しようとおもっているのですが、Perl CGIを配布している方ってみんなUNIXなんですか？
UNIX環境で云々と書いているので、UNIXなんですかね。WindowsにActive Perlとhttpadじゃだめですか？

試してからモノを言え。

俺はWindowsにActivePerlとApacheだぞ。　気にするな

>>324
挑戦って何に？
使うほう？作るほう？

guest guest

自分のマシンがWindowsでもサーバマシンは殆どUNIXでしょ。
自分が初心者で、これからPerlをやっていこうとしてて、
使えるサーバスペースがWindowsしかないのなら、とりあえず
UNIXのサーバを借りた方が勉強楽だと思うよ。

>>329
それはつまりサーバー上でテストしろという意味か？

テストはローカルでおねげぇしますだ...

専用サーバならOK?

>>324
将来どこまでやる必要があるかによる。
素人が遊びでやるならWindows+AnHttpd+ActivePerlが簡単でいい。
情報も集めやすいし。

将来、顧客に提供するWebサイトを目標にするなら、すくなくとも
Windowsは避ける。定番のUnix+Apache+Perl だろうね。

敷居が低いからと言ってWindowsを採用すると、保守できないシステム
になり、無理やり保守しようとしてとんでもない人件費がかかったりします。

いや、>>324 への回答は >>325 で必要十分だと思うぞ。

>>334=>>325

>>335
いや、違うけどまあいいぞ。
↓次どぞん。

>>327
作るほうです。。
CGIの無料配布している方ってやっぱりUnixなんですかね？

ｿｳﾃﾞﾓﾅｲﾖ
Linuxとかの環境での動作確認はしてるだろうけど。

>>337
>>333 読んでないの?

>>338
どの程度の確認でしょうか？無料HP(Unix)で動いたらOKぐらいでいいのかな？

>>340
お前は誰だよ？元質問者か？

>>341
違います。どの程度かなと思ってきいただけです

>>340
動いたらOKとかいうより、Perlのバージョンに依存する部分があるか、
コマンドも使うならサーバによって使えないこともあるなど
書く前か書いてる最中にわかること。

>>343
なるほどぉ。。。
ちなみにVine Linuxってやつでもいいんですか？あれならCD持ってるからインスコしてみようかなぁ、とおもうんだけど。
WinとLinuxのデュアルブートっていうのは問題ないんですか？

>>344
スレ違いどころか板違い。とにかく、
　
　

　　　　　　試　　し　　て　　か　　ら　　モ　　ノ　　を　　言　　え。
　
　
　

>>345
氏ね屑

>>WinとLinuxのデュアルブートっていうのは問題ないんですか？
漠然とした不安をそのまま投げるなよー。

なんでもかんでも誰かに聞いて苦労をせずに済ませたいなんてのは
ﾌﾟﾛｸﾞﾗﾏ向けな性分じゃない。
取りあえずそのﾕｰｻﾞ側的思考から抜けれ。

まぁ君はどうせ途中で投げ出すだろうから、
最初からやめとけってこった

>>346
うっせボケ

疑問は、自分で解決するのが一番早い。普通は。

Cafestaは、日本初のコミュニケーションポータルサイト
無料会員登録で、もれなく商品券が貰えるキャンペーン実施中！！
http://camellia16.fc2web.com/cafesta.html

↓そろそろ、Perl の質問をしておくれでないかい？

特定のページ以外からの掲示板への直リンクを防ぐにはどうしたよいでしょうか？

>>353
厳密には無理。
一応、Perl スクリプト内でできるレベルとしては、
環境変数 HTTP_REFERER を見て判断するという方法がある。

その他、.htaccess を利用する方法もある。
こちらの解は該当スレへ。

そもそも、検索かけりゃ一発で答が出ると思うが？

>>354
それで直リンクは防げるのだろうか？
ジャンプしてくるのは防げるだろうが。

ヨソからジャンプしてくるのは大抵リンクじゃないかな？
まぁこの手の質問って、こう返すしかなくない？

じゃあ、HTTP_REFERERが空っていうのも規制すれば。

>>353
ほらよ〜
http://www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&as_qdr=all&q=%E6%8E%B2%E7%A4%BA%E6%9D%BF%E3%81%B8%E3%81%AE%E7%9B%B4%E3%83%AA%E3%83%B3%E3%82%AF%E3%82%92%E9%98%B2%E3%81%90&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=
特定のページを直リンクされたらどうすることも出来ませんがね。。。

どうも有り難うございます、助かりました。

LWP::Simple;を 使うにはどういう風にサーバーの設定をすればいいですか？

>353
「特定のページ」とやらが同一サイト内なら、有効期限付きのCOOKIEを使う手もあります。
しかし、Perlの話じゃなくなるので、相応しいスレを探してください。

>360
サーバーの設定に関することは、UNIX板などで聞いた方がいいと思われます。

>>360
まず、サーバの管理者にソケットが使えるかどうか聞いて。
使えないなら何やっても無駄。

使えるなら、もしルート権限があるなら普通にインストール、
ないなら自分の置ける場所にインストールして、スクリプトの方で
パスを指定すれば大丈夫。

http://fh.aaacafe.ne.jp/cgiperl.html
ここのスペースに
http://dream.lib.net/room/cgi/e_upboard.html
これ置いたんですけど、これでアップした画像のURLを
2chなどの外部に貼って表示することが出来ません。
403が出ます。
どうすれば外部から表示出来るようになりますか。

無理。
管理者に文句言え。

>>365
タダで借りてる身分なら文句は言えんだろ

今探しているのですが、見つかりません。
Telnetモジュールを使用したTelnetで
ポートを変更するにはどうしたらいいですか？

TelnetモジュールってNet::Telnet？

perldoc Net::Telnet

見れ

>>368
う〜ん見れません

>>368
失礼しましたrootだから見れませんでした。
見てみます。　ありがとうございました。

４月１日になりました。
これから２４時間嘘が飛び交います。

perlは僕が作りました

>>372を作ったのは俺です。

>>373を作ったのは私です。

PHPも僕が作りました。
実を言うとTCP/IPプロトコルを作ったのも僕です。
もちろんFTPもですよ

ごめん。RFCね、ｱﾚ、全部嘘。
見なかった事にしといて。

つーか、ひろゆき嘘が一番すげーなｗ
トップページに閉鎖しますだってよｗ

今時閉鎖ネタは無いよねーと言われる中、
やるとはさすが・・・

Apr 1ﾈﾀも出ないほど人いないのかこの板は、
と思ってたら発見

age

あのぉ2chのidってどうやって作ってるんですかねぇ？
cryptとかpack関数とか関係あるのかなと思って調べてみたんですけど、
cryptはともかくpackって私には理解不能で・・・
2chのIDもどきの作り方、どなたか教えていただけないでしょうか？

age忘れ

>>380
http://pc2.2ch.net/test/read.cgi/php/1040777088/469

>>382
thxです

if ($chars[$config{'char'}]{"points_$arg1"} > $chars[$config{'char'}]{'points_free'})
って言うソースの一部で悩んでいるのですが
$chars[$config{'char'}]{"points_$arg1"}
って何だ？・・理解できない。
何というか配列の構造（変数）？が理解できません。
脳内処理では
@chars = (%config,%etc....
%config = ('char'=>points_$arg1
のように考えてしまったのですがコレは明らかに違う様な気がします。
そもそも連想配列のkeyに連想配列を使えるのか・・？とか言う疑問が
頭の中で反乱してグチャグチャになっとります。
多分こんな説明では教える方もわからないと思いますが
配列の構成みたいなものをビシっと言って頂けるととても助かります。
4/1日ですけどマジ質問です。

>>384
>@chars = (%config,%etc....
>%config = ('char'=>points_$arg1
とか
>連想配列のkeyに連想配列
とか、言ってることがさっぱりんこだが、
$chars[$config{'char'}]{"points_$arg1"}
これは、
$chars[$config{char}]->{"points_$arg1"}
としたほうがわかりいいんか？

use strict;
my %config = (char => 0);
my $arg1 = 123;
my @chars = ({ points_123 => 'hage' });
print $chars[$config{char}]->{"points_$arg1"};
# or
# print $chars[$config{'char'}]{"points_$arg1"};
# same as
# print $chars[0]->{points_123};

わかた？

use strict;
my %config = (char => 0);
my $arg1 = 123;
my @chars = ({ points_123 => 'hage' });
print $chars[$config{char}]->{"points_$arg1"};
# or
# print $chars[$config{'char'}]{"points_$arg1"};
# same as
# print $chars[0]->{points_123};
グホッ、やばいです、インダス文字に見えてきました。
しかも->の意味がわかってないし・・
教えて貰った情報を元にもう一回解説サイト回って消化できるようにしてきまつ。
わけわからんこと書いてるのにアドバイスありがとうございます。

日付の99/01/22といった形式から
1970年1月1日からの秒数に変換してくれるツールありませんか？

>>387
Time::Localだね

use strict;
use Time::Local;
# Usage:
# $time = timelocal($sec,$min,$hours,$mday,$mon,$year);

my $date = '99/01/22';
my @date = reverse split m|/|, $date;
$date[1]--;
my $time = timelocal(0, 0, 0, @date);
print $time;

遅レスですが、どうして、「%%HOGE%%」％二つで囲むのでしょうか。
別に他の文字とかでもいいんですか？
慣習上の問題ってやつですか？

CGI.pmを使ってファイルをアップロードするスクリプトを書いてみたのですけども
カレントディレクトリに　CGItemp28729　など
一時ファイルが残ってしまい消えません
＃アップロードするごとに増えていく

環境はWinXP+ActivePerl v5.8.0 built for MSWin32-x86-multi-thread
です。

初歩的なところでつまずいてると思いますが
一時ファイルを残さない方法教えてください。

>>390
関数はunlinkでできるけど安易に使うと全部消去しかねない諸刃の剣
そもそも、自分でスクリプトを書いてて何故ソースが理解出来とらんのだろうかと・・・

>>389
<!-- HOGE -->
で自分は括っとるけど、そんなものは作った人の勝手でしかない

>>391
いや実はUnixではきれいに消えてるんですが
知り合いにソース頂戴と言われて
あげたら環境がWindowsXPで
テンポラリファイルが消えないと文句言われました。

で自分でその環境を作ったらやはり消えない・・・

テンポラリディレクトリを指定して
スクリプト起動するごとにそこのディレクトリを
掃除するってことも考えたんですが
なぜ消えないのかの方が疑問になったんです。

んー　なんででしょう・・・

>>394
ソースで問題無い(Cgiなんちゃらを出力してない)のならばwindows版apachの処理の問題じゃないですか？

>>395
もとい、httpdの問題

>>395
一応ANHTTPd Apache BJD試してみましたがどれも同じ結果に・・・
ついでに自分の書き方が悪いのかとおもって
他の方が配布しているスクリプトを使ってみても同じでした・・

うーん　気持ち悪い

>>390
うだうだ言ってないで、テンポラリファイルを消している部分の
ソースコードをここに示してください。

また、余計な部分は示さないでください。

>>398
CGI.pm参照してください。

同じく前CGI.pmでアップロードさせたらTempファイルが残っちゃったよ。
結局、僕は解決できなかったので諦めました。

opendir(DIR, './');
foreach (readdir(DIR)) {
/^CGItmp/ && unlink;
}
closedir(DIR);

これでだめだろうか?

あ、CGItempか,,
Upload終わって、プログラム終了前に↑してもだめなのですか?

実は、CGI.pm使ったUpLader作っているので気になる。
暇あればWindowsで試してみます。

>>402
それがいちばんよさそうですね
UPしたやつはロックかかってるのかわかりませんが消えません
以前にUPしたやつは消えました。

これって激しく既出の問題だったんでしょうか？

同じくCGI.pmのアップロード機能でつまずいてるものなんですけど
一時ファイルって作成する場所って自分で指定できないんでしょうか？

ホットメールでのメンバー登録を防止したいのですが
これだと特定のアドレスは阻止できてもhotmail全部は無理みたいです
どうすればいいんでしょうか？

if ($FORM{'EMAIL'} eq "****\@hotmail.com"){ push @err,'・このメールアドレスは使えません'; }

解決しました。すみません。

原因はファイルハンドルを閉じて無かったことでした。
$filename = $query->param('File');
この状態で　<$filename>が存在してしまうので
close($filename);
の一行入れるだけで問題なく一時ファイルは消えるようになりました
くだらん質問してｽﾏｿ！！

>>406
パターンマッチ

すげ〜よ
http://homepage3.nifty.com/digikei/

>>408
なんですか？

if ($FORM{'EMAIL'} =~ /hotmail/){ push @err,'・このメールアドレスは使えません'; }
でいいかな？

>>407
な、なんだってー（AA略

>>411
サンクスできました。

ttp://www.age.jp/~lunar/index.cgi?read=./package/web_ftp_3_5_0.lzh
の中の ftpcontrol.pl を解読中なのですが、300行目付近の
($boundary) = $content_type =~ /boundary="([^"]+)"/; #";
の行がよくわかりません。左端の括弧が必要な理由と、
右端の #"; が何かよくわかりません。どなたかわかりますか？

リストコンテキストを作り出すために、カッコをつけているんじゃないかな。

#";
てのは、なんだかわからん。
普通に考えれば、# 以降は行末までコメントだけど・・・。

ありがとうございます。左端の括弧はリストコンテキストですね。
調べが足りませんでした。
しかし、右端の #"; は謎ですね。コメントにしか見えないんだけど、
何の意味をこめてコメントにしたのかわからないし、
タイプミスだとしても、タイプミスで「"」を入力するヤシがいるのかと問いたい。

世の中には対応する括弧やクォートを強調表示したり、
そこへ飛んだりできるエディタが多く存在するのだよ。

そういうエディタで /boundary="([^"]+)"/ なんて行が
あると、クォートの数が揃わんで難儀するのだよ。

>>418 なるほど！

>>418
なるほど！！

では、#"; のセミコロンも意味があるのだろうか・・・

気分？

http://www.agemasukudasai.com/bloom/

@template = ("aaa","bbb","ccc");

foreach $line (@template){
　$line =~ s/aaa/AAA/;
　$hoge = $hoge . $line;
}

print "@template : $hoge";

こうすると、$template[0]自体がAAAになってしまいます。
違うのです。配列の要素は変わらないで欲しいんです。
っていうか、配列の要素に対して置き換えしてるわけじゃないのに
どうして配列の要素の$template[0]が置き換えされちゃうんでしょうか。
$lineに対して処理をしてるのに。

例えば、@templateを何度か使い回しする時、
配列の要素が変更されてると困っちゃうんです。

>>423
思いっきり配列の要素を変更しようとしています。

)　foreach $line (@template){
)　　$line =~ s/aaa/AAA/;
)　　$hoge = $hoge . $line;
)　}

foreach ループ内では、$line は配列@templateの各要素にセットされます。
$line を変更すると、配列の要素が変更できる、ということです。
変更したくない場合は、一旦別な変数にコピーしてから、扱いましょう。

「コピーする」「セットする」という用語がみそです。

久々に初心者らしい質問だったな

ここまで全部嘘でした。

#!/usr/bin/perl

@arr = ('aaa', 'bbb', 'ccc');
$str = 'zzz';

foreach $str (@arr) {
　　print $str . "\n";
}

print $str . "\n";


最後に表示される1行は、zzｚ だよ。
今日は4月1日だな。(笑)

>>428
何を訳わかんないこと一人で納得してんの？

foreach の横に書いた変数はlocalが付いているものとして解釈される、ということ。
でも今の、foreachの中で$strが@arrの各要素のエイリアスになる、ということには関係ない。

モジュールを使わないでmailを送る方法って無いでしょうか？

がんばれ

>>431
モジュールって意味わかって言ってんのかなぁ？

申し訳ないです、"->"の意味を教えて頂けないでしょうか？関数等なら検索すれば
直ぐに出てくるのですが記号等は検索しても何故か引っかからないのでお手上げ状態に
なってしまいます。

矢印演算子　Perl　で検索すれば出てくると思う

>>434
「Perl 矢印演算子」でぐぐれ

アロー演算子だろ。

質問です。

投票CGIの多重投票防止をクライアントのNICのMACアドレスを取得
することで実現できないかと考えたのですが、実現可能でしょうか？
また実現可能な場合、どのようなコードを書けばいいのでしょうか？

ご教授ください。

すごいな。

>>438
MACも偽装できるけどそれでもイィ？

>>440
それでもIPやクッキーよりもましだと思うので、方法があるのでしたら
ご教授ください。

偽装の前に、そもそもMACアドレスって、どこまで知れ渡るの？
同じネットワーク内だけじゃ？

春だなぁ〜（´∀｀

Net::PcapかNet::PcapUtilsでパケットつかまえて
NetPacket::ARPとか使えば出来そうだけど、
敷居が高すぎてやったことないね。

それよりもネットワーク系超ニガテだけどさ、
442さんの言うとおりイーサネットまででしょ。
多分つかまえられるのはてめーんとこのルータのMACアドレスまでだね。
他はIP+ポートのソケット単位でルーティングされてるんだろうから。
リモートのIPじゃだめなの？

よって、クッキーたべさせなさい。

>>442
クライアント側でipconfig実行してその値を取得できればいいんですけど
そのやり方がどうも分からなくて、Win32::OLE使えば出来そうなんですけど。

http://member.nifty.ne.jp/hippo2000/perltips/Win32/OLE.htm

>>445
掲示板に書き込もうとした人に無理矢理ipconfigを実行させるのか？

そんなことができるなら、とっくにみんなやっていると思うけど。

>>444
IPだと再ダイアルアップしたらだめだし、クッキーもその都度消されちゃったら
だめなんでMACアドレスならいいかなと。それにルーターまででも桔梗いいん
じゃないかと・・・

掲示板じゃなくて投票か。どうでもいいけど

>>448
だから、てめーんとこのルータまでだって。
ルータ製品を変えない限り何万回でも何億回でも
同じMACアドレスしかつかまえられないでしょ。
そんなクッキーよりIPより無用なものがよかったら
NetPacket::ARP使いなさいってこった。

それにipconfigをクライアントで実行させた値を取ってこれたら、
果てしなくｶﾞｸﾌﾞﾙ系セキュリティホールだな。
しかも、OLEなんて全然関係ないし。

外部に作成したＨＴＭＬファイルから読み込んで
<!--here-->
みたいなコメントの部分をＣＧＩで置き換えて出力する部分を作成しています(Perl)。

この、ＨＴＭＬファイルを、ＣＧＩのディレクトリと違うディレクトリにいれたんですが、
これだと、ＨＴＭＬが画像のリンクなどを含んでいた場合、困ったことになります。
ＨＴＭＬがＣＧＩから出力された時に、相対パスで入っていると、画像が表示されません。

ホームページの編集ソフトなどで作成したＨＴＭＬを、指定フォルダにアップする形にしたいので、
すべての画像パスを絶対パスにするとかそういう解決策は無しで、何かいい方法はないでしょうか？

一般的な解決策などがあるのでしょうか？

>>452
まったく Perl と関係ねー

君みたいな人はお金で買ったほうが早いよ

> ＨＴＭＬがＣＧＩから出力された時に、相対パスで入っていると、画像が表示されません。

その相対パスの指定が間違っているだけではありませんか。
結果的に正しい相対パスになるように、書いておくしかないのではないでしょうか。

正規表現で自動で置き換えるようにするとかさぁ

なんで<!--here-->は置き換えられてIMGタグは置き換えられないのかと･･･ｒｙ

$iptext = "ip.txt";
##################################
$openimg = "svropen.gif";
$closeimg = "svrclose.gif";

open IN, "<$iptext" or die "ERROR:ipファイルが開けません！";
$ipdata = <IN>;
close IN;

if ($ipdata == "close") {
$dispimg = $closeimg;
&dispimage;
} else {
$dispimg = $openimg;
&dispimage;
}

sub dispimage{
print "Content-type: image/gif\n\n";
open IMG, "$dispimg" or die "ERROR:imgファイルが開けません！";
binmode IMG;
binmode STDOUT;
while (<IMG>){
print STDOUT $_;
}
close IMG;
}
__END__

これのopenimgとcloseimg両方を文字で表したいのですがどうすればいいですか？

説明下手が多いよな、手助けしたくても理解できんよ。

>>458
ﾊｹﾞﾄﾞｩｰ

#!/usr/bin/perl

##############ファイル設定#################
$iptext = "ip.txt";
$open = "あ";
$close = "い";
###########################################

if ($ipdata == "close") {
print "$open\n";
}
else {
print "$close\n";
}

これでは表示されないのかなぁ？

何を言ってるのかやりたいのか、さっぱりわからん？？？　

なんで

open IN, "<$iptext" or die "ERROR:ipファイルが開けません！";
$ipdata = <IN>;
close IN;

を消してんだよ。

あれ〜〜〜。。
これさ、imgタグで表示させるから、文字にしても意味ないか、、、

独り言は脳内でやってくれや

聞く前に一番最初に気づけ。

重ね重ねすいませんが、
今やろうとしているのは、

まずip.txtを読みにいって、IPがあれば、「公開」、空白だと「非公開」
（ip.txtの更新はNoDNSというフリーソフトでやってます）
というふうにして、HTMLに表示するCGIを作りたいのですが、どうでしょうか？

>>466
うるさい

#/usr/bin/perl
$ex=0;
open(FILE,"ip.txt");
while(<FILE>){
if(/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\/){
$ex++;
}
}
close(FILE);
if($ex){
&settion;
}else{
&unsettion;
}
sub settion
{
print "content-type: text/html\n\n";
print "<html><head><title>公開</title></head>\n";
print "<body><h1>公開</h1></body>\n";
print "</html>\n";
exit;
}
sub unsettion
{
print "content-type: text/html\n\n";
print "<html><head><title>非公開</title></head>\n";
print "<body><h1>非公開</h1></body>\n";
print "</html>\n";
exit;
}

>>468
わざわざこんなに書いていただいたのに申し訳ありませぬが、
あらかじめいろいろ書いているindex.htmlに付け加える形にしたいのですが、、、
なんどもすいません

SSIを使でよびだすのはだめですか？

>>470
CGIがいいです、はい。
注文多くてごめんなさい。
あ、でも、使いそうなので教えてくれますか？

SSIでやるには、読み込みたい部分に<!--#exec cgi="よみこむCGIファイル" -->
でいいとおもいます。

CGIでは・・・やりかたがいまいちおもいつきません。index.htmlのフレームを
わければなんとかなりそうですが・・・

>>472
そうですかぁ。。。
付け加えるのなら、画像にしてIMGタグにするしかないんですかね

付け加えるって追加indexに追加書き込みするってことですか？

>>474
そういうことです。

#/usr/bin/perl
$ex=0;
open(FILE,"ip.txt");
while(<FILE>){
if(/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
$ex++;
}
}
close(FILE);
open(FILE2,"+>index.html");
while(<FILE2>){
if(s/<\/body>(.*)<\/html>/\1/ig){
print FILE2 "$_";
}else{
print FILE2 "$_";
}
}
close(FILE2);
if($ex){
&settion;
}else{
&unsettion;
}

sub settion
{
open(FILE3,">>index.html");
print "<h1>公開</h1></body>\n";
print "</html>\n";
close(FILE3);
exit;
}
sub unsettion
{
open(FILE3,">>index.html");
print "<h1>非公開</h1></body>\n";
print "</html>\n";
close(FILE3);
exit;
}

普通はSSIだよな

indexを読み込んだときにそのプログラムを読み込むのではもう遅いのでは？
それならまた違うhtmlを編集して最後にそちらに飛ばした方が

あげてしまった吊ってくる

鬱･･･

すいません。ほんとに迷惑かけて。SSIで行くことにしました。。

自宅鯖は<!--#exec cgi="よみこむCGIファイル" -->です。
ってして、あとどうすればいいですか？
CGIファイルはどれにすればいいんですか？
ほんと何も知らないですいません。。

これでだめならSSIかframeで分割して読み込んでください。

>>468
のファイル名をserchip.cgiだとして
それをSSIでindex.htmlに組み込むとすると
組み込みたい場所に
<!--#exec cgi="serchip.cgi"-->
てなかんじでいいとおもいます。

できないなぁ。トクトクはSSIOKなはずなのに、、、

>>485
何をどうやってできないのか、はっきり言え。
そうでなければただの独り言だ。独り言を公開の場に垂れ流すな。

>>486

#!/usr/bin/perl

$ex=0;
open(FILE,"ip.txt");
while(<FILE>){
if(/close/){
$ex++;
}
}
close(FILE);
if($ex){
&settion;
}else{
&unsettion;
}
sub settion
{
print "閉鎖中\n";
exit;
}
sub unsettion
{
print "公開中\n";
exit;
}

これでSSI使ったらできました。
>>468の
(/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)
が違ってるとしかおもえないんですが、、どうでしょう？

>>487
ソースも読めない奴がいじろうとするな

>>488
コンテンツタイプとかのは、
自宅のAN Httpdだと筒抜けですが、トクトクだと、ちゃんとBODYだけ表示されます。。。

トクトクにあげているのはこれです。
#!/usr/bin/perl

$ex=0;
open(FILE,"ip.txt");
while(<FILE>){
if(/close/){
$ex++;
}
}
close(FILE);
if($ex){
&settion;
}else{
&unsettion;
}
sub settion
{
print "content-type: text/html\n\n";
print "閉鎖中\n";
exit;
}
sub unsettion
{
print "content-type: text/html\n\n";
print "公開中\n";
exit;
}
直接cgi実行するとちゃんと変わるんですが、SSIにするとうまくいきません。
自宅鯖は<!--#exec cgi="ip.cgi" -->です。って書いたのに、
自宅鯖はです。
になってしまいます。SSIの文まちがってますかね？

>476
百合親切だな

SSIの呼び出し方に決まりごとなかったか？
ちゃんと設定方法とか読んだのかよ、
つか漏れ的には　if(/close/){　が非常に気になるわけだが･･･。

>>492
#!/usr/bin/perl
$ex=0;
open(FILE,"ip.txt");
while(<FILE>){
if(/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
$ex++;
}
}
close(FILE);
if($ex){
&settion;
}else{
&unsettion;
}
sub settion
{
print "content-type: text/html\n\n";
print "<html><head><title>公開</title></head>\n";
print "<body><h1>公開</h1></body>\n";
print "</html>\n";
exit;
}
sub unsettion
{
print "content-type: text/html\n\n";
print "<html><head><title>非公開</title></head>\n";
print "<body><h1>非公開</h1></body>\n";
print "</html>\n";
exit;
}
これで直接実行したらできました。あとは、SSIです。。。

トクトクでは、ＳＳＩを動作させるにはファイルの拡張子を .shtml にしなければいけません。
　.htaccess もトクトクでは動作しませんのでこれは変更不可能です。
　また、トップページは index.htm , index.html の形式しか許されていませんので、トップページにＳＳＩを利用することはできません。
(　ﾟДﾟ)ﾎﾟｶｰﾝ・・・・・
逝ってきまつ

>>493
そのコード自体が目的不明に見えるんだが
$ex++みたいにカウントアップして何か意味あるのか？

>>495
これはほかの方が教えてくれたやつです。。。
index.shtmlにしたらﾃﾞｷﾀｰﾖ。。
みなさんスレよごしてごめんなさい。

>495
whileが最後まで回る所とかな。

>>490
「うまくいきません」の定義はなんだよ？
「自宅鯖はです。」って、HTMLソースレベルでみてそれ言ってるの？
SSIコケたら[an error occurred while processing this directive]が出るだろ普通。

ソース見てみ。多分SSIの構文が丸裸かもしれんぞ。サーバが何かわからんけどよ。

あと、ちゃんとエラーを捕捉しろって。
リファクタリングしてやる。

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw#fatalsToBrowser#;

my $ex = 0;
open(FILE, "ip.txt") || die $!;
while (<FILE>) {
if(/close/){
$ex++;
last;
}
}
close(FILE) || die $!;

print "content-type: text/html\n\n";
print $ex ? "閉鎖" : "公開";
print "中\n";

共通化できる所はまとめなさい。

>>498
すいません。トクトクでは、shtmlでないといけなかったみたいです。。。
でも、このCGI直すところいっぱいありますか？

そもそも目的がはっきりしてないんだよな。
>>466の「まずip.txtを読みにいって、IPがあれば、」って、
ファイルにはどれだけのデータがあるのか？
IPある無しの答えは1個なのか複数かもはっきりしてないし

ｔｘｔのフォーマットもわからないしな

>434じゃないんですけど、
perl色々勉強してて、「->」につまづいて、もう全然わけわからなくて、
http://www.rfs.jp/sitebuilder/perl/04/06.html
↑ここが一番詳しいかなとおもうんですけど、ここ見ても意味不明で・・・
だんだんやる気なくしてたんですけど、ちょっと教えていただけませんか？

まず、「矢印演算子を使わなければならない理由」、
あるいは、別に使わなければならないわけでもないなら、
「矢印演算子を使うことでどのようなメリットがあるのか」を
できれば、例をだして、「こういう風なことをしたいときにこうする」
または、「こういう風にするときにこうした方がこういうメリットがある」
という感じで教えていただけないでしょうか？

次に
http://www.rfs.jp/sitebuilder/perl/04/06.html
こことかで出てくる、「無名の配列」「無名のハッシュ」・・・
の「無名」ってのはどういう状態を指してるんでしょうか？

あと、そんなことよりこのサイトで勉強しろよってのがあれば、
貼っていただけると自分で勉強してきます

無名の名ってのは、変数名のことじゃないかなぁ。

@arr = (1,2,3,4,5);

ってときは、arr っていう名前が、この配列についてる。

>>502
http://www.namazu.org/~tsuchiya/perl/info/perl-ja_20.html
どうしてもアローを使わなければならないケースは少ないだろう。

んーホント難しい・・・

＞無名の名ってのは、変数名のことじゃないかなぁ。
そういうことだと思うんですけど、じゃあ、これが無名ってのは、どういう状態なんでしょう？
まだ、宣言されてない変数ってことなんでしょうかねぇ？

＞どうしてもアローを使わなければならないケースは少ないだろう。
でも人のソースを解読したいときに激しく不便、ってかできないんです
教えていただいたurl・・・難しい。明日改めて勉強しに行ってきます

>>505
無名配列、無名ハッシュってのは、多次元のそれらを作るときできる。
@ar=([baka, aho, manuke], 'kuso', 'manko');
ここで($ar[0], 'kuso', 'manko')は、arって名前の配列だな。
だけど(baka, aho, manuke)ってのは、名前のない配列や。
上のは、print $ar[2], "\n";で表示できるが、下のは、
print $ar[0][1], "\n";または、print $ar[0]->[1], "\n";だ。
ハッシュのときは、矢印演算子使うた方が分かりやすいからよく使われる。

まだ分からんか。ハッシュの例だ。
%hash=('baka' => 'kuso', 'aho' => {'manuke' => 'manko', 'boke' => 'shikko'});
print $hash{'baka'}, "\n";
print $hash{'aho'}->{'manuke'}, "\n";

まだか。まだ分からんのか。
(...)ってのはリスト構造だ。[...]ってのは配列だ。{...}ってのは
ハッシュだ。いいか？だから、
$ar=['baka', 'aho', 'bokenasu'];
$hash={'baka', 'kuso', 'aho', 'manko', 'bokenasu', 'shikko'};
って書くと直接無名配列、無名ハッシュができる。
$ar->[1]とか$hash->{'baka'}ってアクセスするっきゃ内。

おい、分かったって言ってくれ。
もう出かけるぞ。

こういう無名ハッシュを考える。$hashには{ .. }のアドレスが入ってる。
$hash = {a => 1, b => {c => 3, d => 4};

$$hash{a}
これはちょっと格好悪いから、矢印を導入。
$hash->{a}

$$hash{b}->{d}
$hash->{b}->{d}
#{..}の間の矢印は省略できる。一気にデリファレンスする感じ。
$$hash{b}{d}
$hash->{b}{d}

無名ハッシュに対してスライスを使いたいとき、矢印は使えない。
@$hash{b}{'c', 'd'} # (3, 4)

普通のハッシュに戻す事もできる。
%hash = %$hash;

このとき、
$hash{b}->{d}は、さっきのルールが適用されて、
$hash{b}{d}でアクセスできる。

無名っていう物は、元の英語だと、Anonymousになってて、匿名って読み替えてもいい。

%hash = (a => 1, b => 2);
$hash = {a => 1, b => 2};
この2つの状態を比べると、データは同じでも、上の方は、%hashっていう名前が
付いているのに対して、下は、データのアドレスが$hashに入ってる。

つまり、1つの変数にメモリ上のデータが対応している状態を、普通の状態。
変数に対応していないデータの事を、無名だ。という。

この2つは、実際に持っている情報は同じでも、…

5行目を修正。。

矢印のまとめ。

$str = 'hoge';
$ref->{a}[0]->($str)->$str->$str($str->$str);

>>510 - >>513
うざい

$this->[514]
はぁ？

ん〜アロー演算子ってのは二次元以上の配列を作るときに重宝するかなぁ
例えば、xが2yが3の領域の値を見たい時は
print $area[2]->[3];
あと、xyzの値を登録したい時は
$point[1]->[2]->[3] = 'fujiyama';
こんなふうに呼び出すとか・・・

んで、無名配列はリファレンスの概念を理解すると解り良いと思う
perlだと
配列は @ayaya0 =(1,2,3)
ハッシュは %ayaya1 = (a=>1,b=>2);

で表記出来るのだけど
リファレンスは
$ayaya2 =[1,2,3];
$ayaya3 ={a=>1,b=>2};

や、
$ayaya2 = \@ayaya0;
$ayaya3 = \%ayaya1;

になるわけだわね、配列やハッシュを一つの$ayayaみたいな変数で呼び出せるのがみそ。
$ayaya自体にはデータが格納されている位置情報が入ってる。
だから、データーが巨大でもその位置情報をわたすだけで済むので処理が高速化出来るとかいわれてる。（ソース次第だけね・・・）

んで、呼び出しは
$ayaya0[0]
$ayaya1{a}
ってなることはperl初心者でもわかると思うけど、 リファレンスを参照する場合は
$ayaya2->[0]
$ayaya3->{a}

となる。要は$ayayaだけでは必要とする要素をいままでのままでは書けないから->を使って記述しましょうということです。

オマケで、リファレンスを配列構造やハッシュに戻す時は
@ayaya0 = @{$ayaya2};
%ayaya1 = @{$ayaya3};

まぁ、ルールとしてはこうなんだけどアロー演算子自体が省略可能・・・
$hoe->{a}->[3] なら $hoe->{a}[3] とか

　　でも
　　$hoe{a}[3]はこの場合だとNG 何故なら　%hoeの aというkeyを参照してしまう為
　　$hoe{a}->[3] と解釈されてしまう・・・

気をつけなければならない所が多いため最初のうちは演算子等はしっかり付けとくほうがいいと思われ。
で、ココまではハードリファレンスの話、OO思考プログラムはまたルールが違うのでそれは別の話に・・・

%ayaya1 = %{$ayaya3};

だったすまね・・・

#!/usr/bin/perl

open INPUT, "<ip.txt";
if($_ = /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
&START;
}
else($_ = /close/){
&CLOSE;
}
sub START
{
print "content-type: text/html\n\n";
print "<html><head><title>公開中</title></head>\n";
print "<body><a href=\"jump.cgi\">公開中</a></body>\n";
print "</html>\n";
}
sub CLOSE
{
print "content-type: text/html\n\n";
print "<html><head><title>閉鎖中</title></head>\n";
print "<body>閉鎖中</body>\n";
print "</html>\n";
}
これだと、Perlチェックでelseの部分がおかしいって出るので、ぜんぜんわからないので、
↓にかえました。

#!/usr/bin/perl

open INPUT, "<ip.txt";
if($_==/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
&START;
}
if($_!=/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
&CLOSE;
}
sub START
{
print "content-type: text/html\n\n";
print "<html><head><title>公開中</title></head>\n";
print "<body><a href=\"jump.cgi\">公開中</a></body>\n";
print "</html>\n";
}
sub CLOSE
{
print "content-type: text/html\n\n";
print "<html><head><title>閉鎖中</title></head>\n";
print "<body>閉鎖中</body>\n";
print "</html>\n";
}

こうしたんですけど、if文でifが複数あってelseがないっていうのは文法上だめですか？

みなさんすいませんでした。こんなに解答していただいてたのに
質問しっぱなしで寝まくってました。

で、今ざっと皆さんのレス読み返してるんですが、
>>517さんの一行目でなんとなくメリットがわかりました。
つまり、一旦新たな配列に値をコピーしてからサブルーチンなんかにわたすより、
値の入ってるアドレスを渡した方が、効率的ってことですね？

で、矢印演算子はそれらの代入や参照のときに使うものだと

今からもう一度皆さんに書いていただいたのを読み直してみます。
本当に有難うございます。多分理解できると思います

むちゃくちゃだな。

すいません。>>519>>520は脳内あぼーんしちゃってください。
出直します

>>520
いいかげんにしろや。同意が欲しいなら言ってやる。
それでオッケー！完璧です！

>>523
仕様をはっきりさせないから。
ip.txtって複数のアドレスが入ってるの？その場合はデリミタは？
それとも一つあるか、空のファイルのどちらか？
あるいはアドレス以外の何かも含まれているの？

まーSSIじゃなくてもindex.htmlに文字列埋め込むことは出来るわけで。

とか、まぜっかえしてみる。

>>526
それはナニ？
ハンドラいじるの？

http://www5b.biglobe.ne.jp/~ryo-kyo/osu.html

http://my.vector.co.jp/servlet/System.FileDownload/download/ftp/0/279026/pack/win95/game/table/pachinko/sikisai.lzh

◆おすすめ◆
http://bbs.1oku.com/bbs/bbs.phtml?id=yasuko

そういえばCGIスクリプトを外部JavaScriptファイル(?)として読み込み、document.writeで書き出すテキストカウンターがあったな。

perlのCGIでこの動作を実現したいのですが

www.kasai.fm/perlHTTP/
www.antun.net/tips/cgi/perl.html
tohoho.wakusei.ne.jp/wwwperl2.htm#socket

上記のサイトの通りにCGIを設置しても動いてくれません。
どなたか幅広い環境で動くコードをお持ちでしたら
いただけないでしょうか？

これがどうしても出来なくてもう一週間も製作が止まった
ままになって参ってます、大変ずうずうしいお願いでは
ありますがどうか宜しくお願い致します。m(_ _;)m

わかりません〜

0chのスクリプトをDLして掲示板を精製したけどその掲示板にアクセスするには何処にアクセスすればいいのですか〜？

（他のサイトではindex.htmlでアクセスしてたが

リンク先見ていないけど、多分コードの問題じゃなくて、サーバーの設定の問題だろ。
自分のコンピュータでやればうまくゆくと思う。

>>531へのレス。

>>532
スレ違い。

>>530
それそれ。
>>527
ということでhogehoge.cgiというファイルの出力で
print "Content-Type: text/javascript\n\n";
print "document.write(\"$hogehoge");\n";
とかしておいて、
HTMLファイルに
<script type="text/javascript" src="hogehoge.cgi"></script>
と書くと$hogehogeの内容が出てくる。

次のような場合の動作は、１通りではないと言うことでしょうか。

${$hoge} = 'abc';

>>533

それが..
他人が作ったCGIはちゃんとこの動作を
してるのに自分のは動かないんです...

トクトクサーバのOSはLinuxなのでWINDOWSやUNIXサーバ用に
書かれたコードは動かないんでしょうか..

http://yahooo.s2.x-beat.com/linkvp/linkvp.html
◆よろしく◆

>>538
socketが使えないからだろう

>>537
意味がわからん
何を聞きたいの？

すみません。書き直します。

${$hoge} = 'abc';

このような代入の動作は、

$hogeの中身の文字列と同じ名前をもつスカラ変数に 'abc' という文字列を代入する。
$hogeの中身であるスカラへのリファレンスが指している変数に、'abc' という文字列を代入する。

のどちらかが、場合場合で行われる、ということでしょうか。

>>525
ip.txtには公開状態にしたいときに、1つのIPアドレスが書き込まれています。
閉鎖時は「close」という単語が書かれています。（空ファイルはなんか不安なもので）
それで、一から自分で書き直したのがこれです。

#!/usr/bin/perl
open(FILE, "ip.txt");
while (<FILE>) {
if (/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/){
&connection;
}else{
&unconnection;
}
}
close(FILE);
sub connection
{
print "content-type: text/html\n\n";
print "<html><head><title>公開</title></head>\n";
print "<body><h1>公開</h1></body>\n";
print "</html>\n";
exit;
}
sub unconnection
{
print "content-type: text/html\n\n";
print "<html><head><title>非公開</title></head>\n";
print "<body><h1>非公開</h1></body>\n";
print "</html>\n";
exit;
}
なんとなく理解できるんですが、whileの中にifを入れないとできないのがよくわかりません。
if(<FILE> =/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)
とかだめでしょうか？whileは絶対いるのでしょうか？

>>540

いえ、socketは使えるんです。

http://www.vector.co.jp/soft/unix/net/se220625.html
これを設置したらちゃんと動きますから..
(HP一括ダウンロードCGIです)

このCGIのソースを参考にさせてもらおうとも
思ったのですがあまりに複雑なコードなので,,,

Perlの最新版って5ですか？
それとも6ですか？

#!/usr/bin/perl

open FILE, "ip.txt";
$data = <FILE>;
close FILE;
if($data == "/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/"){
&connection;
}else{
&unconnection;
}
sub connection
{
print "content-type: text/html\n\n";
print "<html><head><title>公開中</title></head>\n";
print "<body><a href=\"jump.cgi\"><font color=\"blue\"> 公開中</font></a></body>\n";
print "</html>\n";
exit;
}
sub unconnection
{
print "content-type: text/html\n\n";
print "<html><head><title>閉鎖中</title></head>\n";
print "<body><font size=\"2\" color=\"red\"> 閉鎖中</font></body>\n";
print "</html>\n";
exit;
}
これは理解できるんですけどねぇ。
はじめに教えてくれた方がwhileを使ってたのが気になりまして。。。

>>542
そう、前者はシンボリックリファレンス、後者はハードリファレンスと呼ばれているね。
前者はstrictプラグマで禁止することができる（というか、通常はstrictにしているべき)

同一サーバー以外はimenu.cgiを経由してリンク作りたいんですけど、
こんな感じで作ってみたんですがもっと効率いい方法あったら教えてくれませんか？
なにぶん素人なんで、どういったコードが効率いいのかわからんのです。。

$copy = $message;

while($copy =~ m{(http://[\w\.\*\+\!\?\\\|\$\@\%\&\#:;/~=-]+)}gi){
　　my $url = $1;

　　# 同一ドメイン内へのリンク
　　if($url =~ /^http:\/\/$ENV{HTTP_HOST}\//i){
　　　　$message =~ s/\Q$url\E/<a href="$url" target="_blank">$url<\/a>/gi;
　　}
　　# その他外部リンク
　　else{
　　　　my $imenu = $url;
　　　　$imenu =~ s/^http:\/\///;
　　　　$message =~ s/\Q$url\E/<a href="imenu.cgi\/$imenu" target="_blank">$url<\/a>/gi;
　　}
}

>>542
$hoge = \'abc';
と
${$hoge} = 'abc';

とは同じ意味。コレでわかるかな？

>>544
仕様があやふやだから回答するほうも迷うんだよ。
whileを使ったのはファイルを最後まで読み込むためだろう。
ファイル中のどこにIPアドレスが入ってるかわからない質問だったから。

＞なんとなく理解できるんですが、whileの中にifを入れないとできないのがよくわかりません。
whileのループ内でIPアドレスがあるかどうかの判定しないでどうするっての？

＞if(<FILE> =/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/)
ファイルハンドルについて勉強しなさい。

>>457
とりあえず、whileの意味とか調べてきてから質問しろや
人なめんのもいい加減にしろ

open(FILE,"test.dat");
@f=<FILE>;
$_="@f";
chomp($_);
$text="\"$_\"";
print 'i=';
print "$text;\n";

test.datのなかみは
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
です。
このスクリプトを実行すると

";"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
document.form.text.value=i;

となります。
i="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
document.form.text.value=i;

と言う風にしたいのですが上のようになるのはなんでですか？

$POINT{($name)[0]}形式でポイントをカウントしているのですが
foreach (sort {$POINT{$b} <=> $POINT{$a}} keys %POINT)
でポイントの大きい順にソートできるのはわかるのですが
$name順にソートするにはどうしたらいいでしょうか？

質問っす。
use Benchmark;として得られたベンチマーク結果、
no1: 5 wallclock secs ( 4.40 usr + 0.01 sys = 4.41 CPU) @ 22727.27/s (n=100000)
このときの、usr と sysってなんすか?

>>551
open(FILE,"ip.txt");
@data = <FILE>;
close(FILE);

if(@data = "/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/"){
&connection;
}else{
&unconnection;
}

こうですね。でも、なぜif(@data = "/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/")が代入演算子でするのでしょうか。
テキストのデータが*.*.*.*だった場合の処理だから比較演算子ではないんでしょうか？

>>457

#!/usr/bin/perl

open(FILE, "ip.txt");
$data = <FILE>;
close FILE;
if($data =~ /close/){
$dotti='非公開';
}else{
$dotti='公開';
}
print "content-type: text/html\n\n";
print "<html><head><title>$dotti</title></head>\n";
print "<body><h1>$dotti</h1></body>\n";
print "</html>\n";
exit;

>>553
open(FILE,"test.dat");
chomp($text =<FILE>);
close(FILE);
print qq/i="$text"\ndocument.form.txt.value=i/;

こんな感じにしたらどうだろうか?

>>556
いい加減にしろや
なんで今度は配列になってんだよ
>>557でできるからもう来るな！

>>559
http://www.kent-web.com/perl/chap6.html
ここに@*という配列変数にセットするって書いていたので。。。

http://www.agemasukudasai.com/bloom/

答えて下さる方がもういらっしゃらないようなので
また自力で頑張ろうと思います。m(__)m

>>560
配列ってのは複数のデータを格納するもの。
IPアドレスかcloseという語のどっちかなんでしょ？
それならスカラ変数でいいの。

>>559
すいません。あと２つだけお願いします。
$data =~ /\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}/
これですが、「~ 」はどういった意味なんでしょうか？これがないとできなかったんですが、重要なものですか？
それと、なんで「==」ではだめなんでしょうか？

>>549の相手をしてほすぃ

>>563
なるほど、、、ありがとうございました

>>564
正規表現にあてはめる、って解釈が一番簡単かも

>>562
>>531に書いてある方法を使うためには条件があるのはわかるよね？
君の環境も何もわからなきゃ誰もわからないの

>>564
パターンマッチ　で調べれ

>>558
すいません。それで試しても結果は変わりません。
ファイルから読み込まずにやるとうまくいくのですが・・・

>>569
あ、ホントですね。本にありました。
パターン結合演算子「=~」ですか、理解しました。
どうもありがとうございました。

>>568

おっしゃる通り説明不足でした、申し訳無い..
勉強して出直してきます。m(__;)m

>>531
ttp://hex51.darktech.org/cgi-bin/ubbs/bbs.pl?frame=2&base=44&no=44

>>564
めちゃくちゃにも程がある
配列も知らん香具師に何ができるんだ？
それにパターンマッチ云々知らなかったとしても
＞これですが、「~ 」はどういった意味なんでしょうか？これがないとできなかったんですが、重要なものですか？
↑この発言はないだろ。
それぞれ一文字一文字にちゃんと意味があるに決まってるだろ？

聞く前にネットなり本なりで少しは調べろ
特に配列なんてのは大概一番最初の方ででてくることだ

その認識は改めたほうがいいよ。

>>575

誰に言ってるんだおみゃーは

>>573

わ..　そのCGIをローカルサーバと無料レンタルサーバで
試してみたところどちらでもちゃんと動きました。（汗
ソースもシンプルなのでとても参考になります。

このCGIを参考に自分のプログラムが動かなかった原因も
調べてみます、感謝っす！m(_ _;)m

>>553
553のスクリプトをWinXP＋ActivePerlの環境で実行したら
i="aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa";
となったので、そのスクリプトで問題ないのでは？

>>555
何だろ、俺も知りたい

UN*X の time(1) なら
user ... 実行に要した時間
sys ... システムのオーバーヘッドに要した時間
だけども。同じかな？

Perlの最新版って5ですか？

それとも6ですか？

>>580
おたくなぁ、同じこと何回もかいてるんじゃねぇよ
現在使える分は5.8
6は使うならば自分でperlをコンパイルせねばならんのだからおたくのレベルにはかんけーねーよ

>>580
ttp://www.perl.com/
ここへ行って一生最新ﾊﾞｰｼﾞｮﾝのﾁｪｯｸをし続けて下さい。

掲示板などで半角カナを使いたいのですが使用すると文字化けしたり
全角カナに強制的に変換されたりします。どうやって表示させればよいのでしょうか？

強制的に変換したり、文字化けさせたりしなければいい。

>>583
kentとか借り物つかってんの？

>>585
ここのUP掲示板です。
http://www.big.or.jp/~talk/t-club/soft/index.html

配布スクリプト改造の話題はこちらで

【 スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

>>587
ｽﾏｿ。よく見てませんでした。

UserAgentを書き換えるにはどうすればいいんですか？

>>589
Perlとは関係ありません

>>590
Perlでもできるだろ・・・

ページの再送信回避の方法ってありますか、
できればGETにしたくないのですが。

>592
完全な方法はない。
保存データとの比較が最も安全ではあるが、間に別のデータが挟まれば結局無意味。

無難な方法はLocation。

Locationするとか前回のと照らし合わせて同じだったらエラーにするとか

>>589
UserAgentの文字列を別の文字列に書き換えればいい

>>595
ぷ

>>592

話が見えない。

>>593
ありがとう。locationで飛ばしてみます。

>>592=598ですが、うまくいきました。thx

eBrain21.comは、インターネットユーザーがホームページを
掲載するにあたって必要なサーバースペースを有料レンタルしています。
お客様に快適なサーバーを提供するためにさまざまなホームページの目的に応じて、
単なるホームページスペースだけではなく、動画やゲームまたは個人放送はもちろん、
そのツールとしてCGI、PHP、SSI、SQLデータベースなどあらゆるサーバースペースを提供しております。

http://www.ebrain21.com/

[email protected]

質問させてください。
ｱﾊﾟｯﾁの1.3.27でActivePerlを使っていて、OSはXPです。
自宅ｻｰﾊﾞを使って、HPを作っているのですがｶｳﾝﾀが動かないんです。
掲示板は動いているので、CGIはちゃんと使えていると思ったのですが
なぜかｶｳﾝﾀだけ「×」がでたまま動いてないんです。
KENT WEBさんの夢ｶｳﾝﾀを使用していて、設定や記述は何度も見直した
のですが、ﾁｪｯｸﾓｰﾄﾞでCGIまでのURLを打ち込んでみてもCGIﾌｧｲﾙがその
まま開いてしまうのです。
すみませんが、何か心あたりがあえば教えてください。

ちなみに、前もHPを作ったことがあるのですが（同じﾊﾟｿｺﾝで）その時
はちゃんと動きました。そのときは、知り合いに同じ質問をしてﾌｫﾙﾀﾞ
ｵﾌﾟｼｮﾝから関連付けをしたら動いたような記憶があるのですが、OSを
再ｾｯﾄｱｯﾌﾟしたのでまた同じ症状になってしまっています。前聞いた
人間は「忘れた」とだけ言って相手にしてくれません（涙
検索しているのですが、なかなか見つかりません。すみませんが、
よろしくお願いしますです。

>>601
＞CGIﾌｧｲﾙがそのまま開いてしまうのです。
どういう意味？ソースが表示されてしまうっていうこと？

そうです。CGIﾌｧｲﾙをメモ帳で開いた時のものが出るんです。

>>601
スレ違いだっつーの。
ここでCGIの質問するな。

それは大変失礼しました。
初心者なので、perlと関係があると思ってました。
別板行きます。

perlの最初に

use Win32::API;

と、書かれているのですが、これを読み込んだ瞬間にperl.exeのウインドウが閉じてしまいます
どう対処したらよいでしょうか？

>>605
それ以前にXPで鯖公開したらライセンス違反にならないか？

独り言だけど、
>>605 を読んで、初心者とはそう言うものなのかと初めて知った、春の日の朝。

KENT氏のaskaBBSの、$flagはどういう役割を果たしてるんでつか？

http://www.agemasukudasai.com/bloom/

出た、bloom
そろそろ赤字でIP晒して欲しいな。

データと、CSV形式で保存したいと思ってます。
で、CSV形式つっても、アプリによって微妙に差があるじゃないですか？

そこで、自分はエクセル用のCSVにしたいと思ってるんですが、
その際の仕様はどーすればいいんでしょうか？

●値は,で区切る
●値の中に"があるときは""と入力
●改行はそのまま改行を入れる。
●数字以外はセルの値を""でくくる

・・・でＯＫ？

perlと関係ねー

keys 関数
　keys関数は、ハッシュ変数のすべてのキーをリスト値として返します。
@key = keys( %hash );
　キーの格納には乱数を使った手法が使われるため､ハッシュ全体を出力する場合､その順番は保証されません｡ですから、@key には %hash のキーが順序を無視して格納されます。

順番通りに格納すればいいのに、どうしてこういう仕様になってるんですか？
perl作ってる人は何を考えてるんですか？

>>612

>>2
> [お薦め]
> 　・Perlメモ: http://www.din.or.jp/~ohzaki/perl.htm　★読んどけ

間違えた>>3だ。

>>614

その「perl作ってる人」に聞け

>>614
ハッシュだからに決まってるだろ。

>>614
メモリ効率や実行速度を優先させたから。

>>609スルーかよ

>619 なんでKENT氏のaskaBBSなんてものをわざわざ探して調べてやらにゃならんのだ

(´･ω･｀)…

>>620
それがこの板の住人の仕事であり、使命でもあるから。

getpw... getgr...という組みこみ関数のことなんですが、/etc/passwd, /etc/group
のパスを指定することができない(みたい)ので、テストで非常に難儀します。
サンプルのpasswd,groupファイルを読ませる方法はないのでしょうか。仕方なく
Unix::ConfigFileを使っているのですが、重いです。非常に便利で、なおかつどこで
も使える組みこみ関数なだけに惜しい。

>>606
Win32::APIが入ってないんじゃないの？

>>612
http://www.din.or.jp/~ohzaki/perl.htm#CSV2Values
http://www.din.or.jp/~ohzaki/perl.htm#CSVfromValues

>>614
配列みたいに、キーにはa>bみたいな上下関係無いもん・・・
何をもっての順番なのか意味不明・・・

>>614
>キーの格納には乱数を使った手法が使われるため､
って笑われぞ。ちゃんと順番には出てくる。
メモリーの格納順であって、キーの順番になっとらんだけだつーの(w

>>607
え？ほんとうですか？

>>626
IISで公開したら違反になるかも。

>>627
IISってなに？
俺はXP+Active Perl+AN httpdで公開してるけど、、
マズいのかなぁ。

ｓ

ログイン・ログオンなどについて熱く語ってるサイトあったら教えてください。
ヤフーのログイン・ログオンはどういう仕組みなのかな？

>>630
そりゃ Perl と全く関係無いとは言わないけれど、
そもそも Perl スレに書き込む話題か？

>>628ｽﾙｰでつか？

>>632 なんで>>628氏がライセンス違反になるかなんてわざわざ探して調べてやらにゃならんのだ

>628
Win板のXPスレで聞いてこい。

>>632
ｽﾙｰでつが？それが何か？

>>624

試しにperl.exeを起動して、最初の一行目に
use Win32::API;
と、入力してリターンを押すとウインドウが閉じてしまってエラーメッセージすらも見れません

win32::apiが入ってない場合はどのようにすればいいのでしょうか？
よろしくお願いします(´Д⊂)

>試しにperl.exeを起動して
>ウインドウが

この時点で俺はお手上げだなぁ。
とりあえず、その perl.exe とやらはどこから入手したのさ？

>>637

ActivePerl-5.6.0.623-MSWin32-x86-multi-thread.msi

のセットに入っている奴です

>>606
っつーか、perl.exeのウインドウ って何？

たぶん、>>606 はコマンドプロンプトを知らんのでしょう。
perl.exeを*ダブルクリックで*起動して、perlがstdin待ちになったところへ
use Win32::API;と入れて、すく終了してウィンドウが閉じたと。漏れはUNIX派なので
ここらへんよく分からんが、WindowsだとCtrl-d押さなくても終了になるんかな。

コマンドプロンプトを知らん人が、Win32::APIなど使えるわけありません。あきらめ
た方が時間の節約になりますYO。

皆わかってて、からかってるんだってば。

優しい人発見。 >>640

>>641
なんだそうか。ワリィワリィ。

とりあえず、ある***.plってのを動かしたいんですが
一種類だけ動かないんで聞いてみました

ページが変わっても変数や配列を保持しておくことができますか？
例えばあるページで使用した$test1=10を次のページでも
form変数やurl変数で送らずに使用したいです。
可能でしょうか？教えてくださいまし。

>>643

>>640の
>　たぶん、>>606 はコマンドプロンプトを知らんのでしょう。
についてはどうかね?

>644
ファイルに保存しる。

>>644
ファイルに記録しておく

>>644
ファイルに書き出しておく

>>646-648
言い方はいろいろだけど、やってることは同じなのねん。

>>644
データをプーリングしておくためのサーバを起動しておく。
で、現ページでPUTして次ページでGETする。

>>640
レベルはそんな所であろうな・・・
一応Un？xで動かないとか訳解らん事言ってるんじゃないのな・・・

ppm install win32-api

とコマンドプロンプトに打ち込めばモジュールはインスコ出来るけど
ttp://member.nifty.ne.jp/hippo2000/perltips/module_install.htm
>606はココ読んで勉強しなさい

>>651

解決しました
time-hiresとhttp-liteは入れたんですが、一つ足りなかったようですね
なんか勉強不足で訳分からない事言ってたと思いますが
ありがとうございます

自作CGIを評価してくれるサイト知りませぬか?

>>653
俺が評価してやる。貼れ。

漏れも自作CGIを評価してくれるスレが欲しいな
せっかくだから653が立ててよ
ていうかこのスレでｶﾞﾝｶﾞﾝ貼っていってもいい？
一応初心者ってことで質問とは限ってないみたいだし

ソース貼るなら
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html
で専用スレ立てる方がいいぞ。
半角空白とかそのまま貼れるし。

iisで鯖公開したら違反ってマジで？
なんでそうなるのよ？
じゃあiisってなにするためにあるの？

>>657
製品の価格を高くするためでは？

配列@dataには[0-9],\n,\tとスペースが含まれてます。
それを確かめるためのif文はどう書けばいいのでしょうか？
要するに、
if (配列@dataに、[0-9],\n,\tとスペース以外が使われている){
&error;
}
この(　)の中の記述です。
やっぱforeach等でまわさないとダメっすか？

>>659
if (join('', @data) !~ /^[0-9\n\t ]+$/){
&error;
}

>>660様！
完璧っす！
joinの使い方覚えました！

実は。。。
/^[0-9\n\t ]
を
/[^0-9\n\t ]
って読み違えてて。。。
きゃははははは！　(もう笑うしかない。。。　自爆)

僕が立てようと思ったが　無理だった　　よかったら　下を使ってね
タイトル　自作CGIを評価するスレ
内容　　　自分の作った　ＣＧＩを　みんなに評価してもらうレスだよ

>>661
>きゃははははは！　(もう笑うしかない。。。　自爆)
　　　　　　　　　　　　　　　　　　　　　　　　　　　 ~~~~~~

>>655
独立したスレの方がいいと思う。。。ここではPerl以外はスレ違いになるし。

というわけで立ててくる。

>>665
>>656に関しても頼む。

ここに春には長過ぎまつ

掲示板を作ったのでつが、細かい部分から全体の流れまでを評価してくれるサイトを知りたかったのでつが・・・

>>667
せっかく専用スレを立てたんだから活用してくれよ。
http://pc2.2ch.net/test/read.cgi/php/1049514428/

open (LOG,$logfile) || &error("ファイルオープンエラー : $logfile");
LOG書き込み処理
close (LOG);
open (DAT,$datfile) || &error("ファイルオープンエラー : $datfile");
DAT書き込み処理
close (DAT);

↑こんなときにdatfileを開くところでエラーが出たとき、
logfileには書き込まれてるのにdatfileは書き込まれないって事になりますよね？
それを回避するためには↓のようにすればいいのかなぁなんて素人なりに考えたんですが、
おかしいですか？

open (LOG,$logfile) || &error("ファイルオープンエラー : $logfile");
open (DAT,$datfile) || &error("ファイルオープンエラー : $datfile");
LOG書き込み処理
DAT書き込み処理
close (LOG);
close (DAT);

errorが何をする関数か分からん。その中でexitしてたら結局同じ。
openとcloseをどう並べ変えようが無理じゃないかな。
DAT書き込みが失敗したらLOG書き込みを「自分で」削除することが必要。

>>670
&errorの中でexitします
んで、質問はopenで失敗したらだったんですが、
たしかに書き込みで失敗したら一緒ですよね

でも例えば$logfileのmax行数が決まってて、
書き込み処理のなかでmaxを超えてたら古いのを削除とかしてると、、、

こういう複数ファイルの処理の時ってどうするべきなんですかねぇ？
みなさん気にせず書いてるものなんですか？

正式なファイル名で中途半端な物を作るのは良くない。
完全な物を作ってからリネームするのが普通。

>>669

＞↑こんなときにdatfileを開くところでエラーが出たとき、
それより、書き込むには、
open (LOG,>$logfile) ってしなきゃだめだよ。
open (LOG,$logfile) で書き込めてるなんておかしいよ。
慎重に質問しれ。

>>672
なるほど。テンポラリーを作っといてリネームするんですね
勉強になりました。ありがとうございます。
>>673
すいません。読み込みのところからコピペしたんで忘れてました。

コンビネーション{nＣr}の計算をしたいんですが結果がおかしいんです。
多分オーバーフローしてるんだと思うんですけどいい方法無いですか？

まず原因を突き止めなさい。闇雲に動いても意味無い。

>>675
BigIntでも使えば。

>>677
どーもっす。調べてみます。

>>677
ダメでした。
今やりたいのは十進で60桁程度の演算なんですけど
そういう計算したいときにみなさんはどうやってやるんでしょうか？

>>679
そろばん

>>679
だから本当にオーバーフローのせいなのか？計算式間違ってるとか

>>681
forの中身が間違ってました。
スレ汚し申し訳ないです。

>>672

open (LOG,>$logtmp) || &error("ファイルオープンエラー : $logtmp");
LOG書き込み処理
close (LOG);
open (DAT,>$dattmp) || &error("ファイルオープンエラー : $dattmp");
DAT書き込み処理
close (DAT);

rename("$logtmp", "$logfile") || &error("リネームエラー : $logfile"); #※1
rename("$dattmp", "$datfile") || &error("リネームエラー : $datfile");

ちょっと思ったんですけど、↑こういうことですか？
じゃあ※1でエラー出たら一緒じゃないですか？

>>683
リネーム失敗なら、テンポラリを削除して処理を終了でいいでしょ。
読み書きは正常なのに……とかセコいこと考えないで、完全エラー無し以外は
すべて異常終了扱いにしたほうがいい。

1つ目のrenameが成功して2つ目のrenameが失敗すると困りませんか

1,2,3,10,22
という配列があって sortすると
1,10,2,22,3となってしまいます。
これを1,2,3,10,22のように実際の大きさ順に
ソートするにはどうすればいいのでしょうか？

sort {$a <=> $b}

renameは失敗しないことにする。

>>688
それでは最終的に元ファイルが更新される保証がない。

>>689
「元ファイルが更新される保証」はいらないだろ。
「$logfileと$datfileの整合性が保たれる保証」が必要。

>>684
んーよくわからないんですが・・・
＞完全エラー無し以外は すべて異常終了扱いにしたほうがいい。
それはわかるんですが、どういう風に書けばそうなりますか？
rename("$logtmp", "$logfile") || unlink("$logtmp");
rename("$dattmp", "$datfile") || unlink("$logtmp","$dattmp");
こういうことですかねぇ？

あと、今まで既にあるデータを読み込まずに
open (DAT,>>$dattmp) || &error("ファイルオープンエラー : $dattmp");
DAT書き込み処理（追加）
close (DAT);
↑こうして追加してたんですけど、
一度テンポラリファイルを作ってリネームとなると、
全て読み込んでから新しいのを足したものを上書き
しないといけなくなりますよね？
処理の重さは変わらないですか？

もちろん重くなる。
でも、やらなきゃならないんなら、しょうがない。

>>669
open (LOG,>>$logfile) || &error("ファイルオープンエラー : $logfile");
$pointer = 0;
$pointer = ファイルポインタを取得する関数
LOG書き込み処理（追加）
close (LOG);

if (!open (DAT,>>$datfile)) {
　if ($pointer != 0) {
　　open (LOG,>>$logfile)
　　truncate($pointerで切り詰め);
　　close (LOG);
　}
　&error("ファイルオープンエラー : $datfile");
else
　DAT書き込み処理（追加）
　close (DAT);
end

むちゃくちゃだけど、こんなんはどうですか？

ファイルをアップロードするシステムを構築していますがわからないことだらけです。
index.cgiのFORMデータをsubmit.cgiに引き渡して処理させたいのですが、どうやればいいのでしょうか？
親切なアドバイス待ってます。

>>694
http://tohoho.wakusei.ne.jp/wwwxx034.htm
↑ここ見て研究

　　 ,.´ / Vヽヽ
　　　 ! i iﾉﾉﾘ）) 〉
　　　 i l l.´ヮ｀ﾉﾘ　＜先生！こんなのがありました！
　　　 l く/_只ヽ 　　　
　　|￣￣￣￣￣|
http://saitama.gasuki.com/mona/

>>693
わざわざ有難うございます。
ちょっとわからない事だらけなんで調べてきます。

>>695
それではなくて他に方法はありませんか？

>親切なアドバイス待ってます。
なんかムカつく。

submit.cgiでおこなう処理をindex.cgiの中から呼べばいいだろ
わざわざ"引き渡す"意味がわからん

>>693
if ($pointer != 0)
の条件判断は不要な気がする。

ファイルポインタ？

>>669
ちょっと直した

open (LOG,>>$logfile) || &error("ファイルオープンエラー : $logfile");
$pointer = tell(LOG); # ファイルポインタの位置を返す
LOG書き込み処理（追加）
close (LOG);

if (!open (DAT,>>$datfile)) {
　open (LOG,>>$logfile) # ←エラーが発生しないことを祈る
　truncate(LOG,$pointer);
　close (LOG);
　&error("ファイルオープンエラー : $datfile");
} else {
　DAT書き込み処理（追加）
　close (DAT);
}

こんなんでいいのかどうか分からないが・・・
logfileとdatfileの整合性を保つためのもっといい方法があるのだろう・・・

>>699
>>親切なアドバイス待ってます。
>なんかムカつく。
>>694は、あまりにもｱﾚな質問して叩かれたことがあるに1000ｸｯｸﾌﾞｯｸ

>>702
tell(LOG);で0を返すんですが・・・

>>704
「>>」でopenすれば、ファイルの末尾の位置を返すよ。

>>705
$pointer = tell (LOG);

windowsじゃtell使えないんでしょうか？
なぜか0を返すんです。
ちゃんとその後printしたものは追加書き込みになってるんですけどねぇ

>>706
漏れの環境（WinXP＋ActivePerl5.6）で

open(FILE,">>test.dat");
$p = tell FILE;
close(FILE);
print "$p\n";

test.datの中身を例えば、
aaa\r\naaa\r\n
として、上のスクリプトを実行すると、
「10」となります。

なんで706さんは0になるのかなぁ。わかんねぇ。

$ cat hoge
perl -e open(F,">>hoge");$p=tell(F);close(F);print $p,"\n";
$ wc hoge
1 4 60 hoge
$ perl -e 'open(F,">>hoge");$p=tell(F);close(F);print $p,"\n";'
60

漏れの環境でも正常です。Win2k
$ perl -v

This is perl, v5.6.1 built for cygwin-multi

あ、他がおかしいんですね。お騒がせして申し訳ないです。
調べてきます。

PerlでGUID取得する方法ないっすかね？

ハッシュの値で並び替えを行いキーと値を表示したいのですがどうすればいいでしょうか

sort {$hash->{$a} cmp $hash->{$b}} keys(%hash)

sort {$hash{$a} cmp $hash{$b}} keys(%hash);

>>713
ありがとうございます．できました！

クッキーがあるかどうか確認する方法を教えてください。

>>715
$ENV{'HTTP_COOKIE'}に値がはいっていれば在り、無ければ無し

>>716ｻｿ
それは自分のCGIから吐き出されたクッキーなんですか？

>>717
それはクッキーの設定次第ｗ
http://www.futomi.com/lecture/cookie/index.html

自分とこのクッキーかどうか確認したい場合は、クッキーの内容を確認してｗ
http://www.futomi.com/subroutine/getcookie.html

PerlでUserAgentを書き換えるにはどうすればいいんですか？

>>719
「何の」UserAgentを書き換えたいのか？

$ENV{'HTTP_USER_AGENT'} = "もじら Version 2.3";
でいいだろ。

xpで、active perlが入ってて、
iisを作動させてブラウザからcgiの確認なんかはできるんですけど、
コマンドプロンプトでの動かし方がわかりません。
どこかの説明で「コマンドプロンプトを開いてper-vと打ち込む」
って書いてあったんですけど、
>'perl-v' は内部コマンドまたは外部コマンド、
>操作可能なプログラムまたはバッチ ファイルとして認識されていません。
ってでてきます。
それ以前に最初から、
>C:\Documents and Settings\***>
これが表示されてるんですけど、この後にperl-vって打つのであってますか？
つまり

>C:\Documents and Settings\***>perl-v
こう打つと
>'perl-v' は内部コマンドまたは外部コマンド、
>操作可能なプログラムまたはバッチ ファイルとして認識されていません。
こうなります。

まず

C:\Documents and Settings\***>perl 　　-v

と打ってみろ。それでも失敗したら

C:\Documents and Settings\***>PATH

の結果を貼れ

（>>721の名前欄無視して）

>>722
PATHが通っていないのでは？

>>723
有難うございます。いけました>perl -v
でもなぜですか？

ってゆうか、perl -v　って打つのが普通なんですね。
この前見たページ確認しにいってきたらスペース入ってました。
すいませんでした

>>720
アクセス解析の入っているページで
use LWP::Simple;
my $url = "http://yahoo.co.jp/";
my $content = get($url);
print $content;
と、ソースを取得した時に
アクセス解析でlwp-trivial/1.35解析されずに
Monazilla/6.00と解析されるようにしたいです。

>>727
はyahooがアクセス解析してると仮定してます。

my $ua = LWP::UserAgent->new;
$ua->agent(Saitama');

perldocなり、cpan也でもうちょっと調べるべきであるかな

ＣＧＩを設置しているのですが
.cgiのファイルをいじっていて、その中にメールアドレスを
書こうとしたらエラーになります。

どうも＠を書くとエラーになるようですが
cgiの中に＠を記入したい場合どうしたらよいのでしょうか？

ダブルクォートでくくられた文字列の中にメールアドレスを
書こうとしているのだと想像します。

その場合、@ が配列変数として認識されてしまっているので、
@ の直前に \ をつけて書くことをお勧めします。

あるいは、変数が展開されないシングルクォートで、文字列
をくくるという方法もあります。

今後は、エラーが出たときは、エラーメッセージをここに
貼り付けてご質問されることをお勧めします。

$email = '[email protected]';
$email = "foo\@example.com";
$email = q([email protected]):

　　 　 ∧＿∧∩　／￣￣￣￣￣￣￣￣￣￣￣
　　　 （　´∀｀）/＜先生！こんなのがありました！
　＿ / /　　 /　　　＼＿＿＿＿＿＿＿＿＿＿＿
＼⊂ノ￣￣￣￣＼
　||＼　　　　　　　　＼
　||＼||￣￣￣￣￣||
　||　 ||￣￣￣￣￣||
http://saitama.gasuki.com/saitama/

packageってC++のnamespaceみたいなもの？

（　´∀｀）/＜ 先生！！こんなのを見つけました。
http://muryou.gasuki.com/moe/jaz04.html
http://muryou.gasuki.com/moe/jaz03.html
http://muryou.gasuki.com/moe/jaz02.html
http://muryou.gasuki.com/moe/jaz01.html
http://muryou.gasuki.com/moe/jaz06.html
http://muryou.gasuki.com/moe/jaz05.html
http://muryou.gasuki.com/moe/jaz08.html
http://muryou.gasuki.com/moe/jaz07.html
http://muryou.gasuki.com/moe/jaz10.html
http://muryou.gasuki.com/moe/jaz09.html

perlで指定したサーバーが稼動しているか倒れているか調べる関数か何かありますか？
自鯖構築に利用したいのですが、独自ドメインからWebサーバーに飛ばして、
そこで、perlが処理するのですが、

if ($自鯖稼動状態 == 1) {
　　print "Location: $ZISABAurl\n\n";
} else {
　　print "Loaction: $WEBSABAurl\n\n"
}

みたいにしたいのですが。

http://www.agemasukudasai.com/bloom/

　　　______________
　／:＼.＿＿＿_＼
　|:￣＼(∩´∀｀)　＼　　＜先生！こんなのがありました！
　|:在　 |:￣￣ U￣:|
http://saitama.gasuki.com/aomori/

　　 ,.´ / Vヽヽ
　　　 ! i iﾉﾉﾘ）) 〉
　　　 i l l.´ヮ｀ﾉﾘ　＜先生！こんなのがありました！
　　　 l く/_只ヽ 　　　
　　|￣￣￣￣￣|
http://muryou.gasuki.com/koumuin/

>>731-732
(´皿｀;)了解しました。どうもありがとうです。

Perlについての質問箱 4箱目
http://pc2.2ch.net/test/read.cgi/tech/1048519394/l50

>>741
厨が迷い込んでくるから貼らないでくれよ…

>>742
ﾌﾟｯ

早いな。

春休みが終わった途端に加速していたスレが止まりましたね。

花見で忙しいんだ罠

外部に置いた設定File"param.txt"に

#param.text
$param1 = 'value1';
$param2 = 'value2';

という変数宣言文が有り、これを読み込んで記述された通りの変数に展開
するにはどうすれば良いのでしょうか？

open( FILE , 'param.txt');
@buf = FILE;
close(FILE);
foreach(@buf){
　$_;
};
print "param1 = $param1\nparam2 = $param2\n";

という感じにしても駄目でした。

>>747
直接の回答じゃないけど、スカラー変数の名前をtxtファイルで
指定しとくのはやめたほうがいいんじゃないかな。
ハッシュでやりましょう。

>>748
いや、本当はやりたくないんですが、既存のFileを再利用しつつ
新規のprogramを作れというデムパな指令がおりてきまして・・・

なにやらNTT謹製のcgiがこの方法を使っているとかで、既存のFileを
出来るだけいじらずにProgram側で処理しなくちゃならんという事に
なったので困っている次第なのです。

＃やっぱ'$'消して連想配列に突っ込むってのが一番安全な方法かなぁ。

require "param.txt";
じゃだめなの？

requireが駄目なら、
perl -e '$a="param1"; $$a="value"; print $param1;'
っていう方法もあるよ。
適当に書くと
foreach(@buf){
　my ($var,$val) = split(/=/,$_);
　$$var = $val;
};

print $param1;

(合ってるかな？）

ちょっとだけちゃんと書いてみた。スカラーだけ。その他param.txtの書き方に制限有り
open(FILE , 'param.txt');
@buf = <FILE>;
close(FILE);
foreach (@buf) {
my ($var, $val) = split(/\s*=\s*/,$_);
$var =~ s/^\$//;
$val =~ s/^["']//;
$val =~ s/;\s*$//;
$val =~ s/["']$//;
$$var = $val;
}
print "param1 = $param1\nparam2 = $param2\n";

>>750
えぇと、元になるparam.txtが複数（別名で）有って、呼び出される時の
パラメータ（formの内容次第）で読み替える様にしなくちゃならんので
requireは使用不可と判断しました。

>>751
なるほど、「可変変数」という手が有ったのですね。
あとは改行と「'」消しだけで問題無く（根本的解決では無いが）出来そう
です。

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

>>752
あ、入れ違いで、、、
意図した通りに動作しました。
ありがとうございます。

>>753
%form = フォーム;
require $form{'whichfile'};
じゃだめなの？

>>755
whichfileが存在しない場合ってエラーになりませんでしたっけ？
・・・という事を考えて敢てFile読み込みの方向で考えていたんですが。

掲示板作ってます。
記事の削除機能、修正機能を加えたいと思っています。
記事ナンバーとパスワードを入力し、該当の記事を引き出す事には成功しましたが、
そこからのログファイルの操作？がよく分かりません。
よろしければご教授下さい。お願いします。。

>>757
それだけでどうやって答えろって（ｒｙ

該当レスをテキストエリアにでも表示させて編集後に再書込み
該当レスを削除してログを前につめるか削除メッセージで代替して再書込み

そんなとこじゃないの

>758

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

>>756
-f で確認したらいいだろ？

中にファイルが入ってようが無かろうが関係なしに
ディレクトリを削除ってことはできないですかね？
rmdirじゃあ、中に入ってると消してくれないんで

>>761
Linux だったら
rm -rf /

今日、STDOUTをtieしてContent-Lengthを出すっていうのを
思いついたんだけど、同じ事考えた人っている?

>>762
れすどうもです。
これは何でしょう？コマンドかなんかでしたっけ？
んーやっぱりディレクトリの中調べて、全部消してrmdirにしようかな

>>764
http://www.linux.or.jp/JM/html/GNU_fileutils/man1/rm.1.html

$data1 〜 $data10って言う変数の値を１行ごとファイルに書き出すのですが、
print OUT "$data0\n";
print OUT "$data1\n";
print OUT "$data2\n";
print OUT "$data3\n";
print OUT "$data4\n";
print OUT "$data5\n";
print OUT "$data6\n";
print OUT "$data7\n";
print OUT "$data8\n";
print OUT "$data9\n";
print OUT "$data10\n";
ってやってます。
もっと簡単にできる(書ける)方法を伝授くださいませ。

>>766
ハッシュにすれば？

for ($i = 0; $i <= 10; $i++) {
$data{$i} = "$i番目の要素";
}
for ($i = 0; $i <= 10; $i++) {
print "$data{$i}\n";
}
こんな感じね。

>>766-768
んなことせんでいい。

foreach (0..10) {
　　print ${"data$_"};
}

>>769
わかってるが
$data1〜$data10　っていうのはみると気持ち悪いんだYO!

>>769
すっきりでつ！
改行が入ってなかったんでちょっと悩みました。

>>770
何で〜？

アホっぽいから。

ぎゃあああああああああああああああああああああああああああああああああああああ

ごめん･･･
本当にあった怖い話実況スレと間違えた・・・

ﾜﾛﾀ

禿藁

>>764
perldoc File::Path

>>747
my %files = (
foo => 'foo.pl',
bar => 'bar.pl',
foo_alias => 'foo.pl',
);
my $configfile =$files{ $form{wichfile} };
do $configfile if -e $configfile;

ちょいと質問。

mod_perl でeval ってやっても問題なし？
eval ってその中に書かれた文字列をコードとして認識するってことは
その中の文字列をコンパイル→実行 ってわけだよな？
mod_perl ってコンパイルしたコードをメモリに置いておくもんだが、
eval でコンパイルされたコードはゴミとしてメモリに残ったりしない？

あと、@list = qw(a,b,c,d,e,f,g);
ってのがあるとき
$list[2] は c
$list[5] は f
ってのは当たり前なんだが、
$list[25] ってのを参照しようとしたら
普通は未定義値となると思うんだが、-w スイッチつけると
Use of uninitialized value in concatenation
とかエラー出る。
mod_perl で安定したプログラム作るとき、
こういうのもやめたほうがよい？

シンボリックリファレンスは使わぬほうがいいんだけどなぅ・・・
せめて配列を覚えよーよ・・・

>>779
evalの実行結果が残ると思っているならんなことはない
というか、oオプション使ったマッチングで結果が残らないようにわざとevalでくくったりする
evalの中はコンパイルされないのよ。単なる文字列だから。だから実行中にランタイムエラーを拾える。

未定義値の参照は、mod_perlでも問題ないよ。（たしか）
ただ、未定義の領域にアクセスするなんてperlだから許されることで、
お勧めはしない。
（個人的には-wオプションでランタイムで出る警告気にしてたらperl使う意味無いと思うけど。）

>>779
evalは>>781の通りで、mod_perlでの問題はないはず。
蛇足だがグローバル変数のほうを気にしたほうが。

-wでのwarnは、漏れは気にしてしまうほうだが
配列の添字を直接指定して使うことがあまりない。
必要なときはdefinedや要素数で念のためチェックする。

-wの警告は気にするな。
本当にその警告が出ても問題ない場合は、no warnings 'warnings-category';として一時的に警告を無効にすればいいんだし。

lanにあたっているグローバルアドレスを、取得するにはどのような方法が
あるでしょうか？
外のサーバにアドレスを吐き出すプログラムを置いて、チェックする方法以外を
教えてください。

質問です。ｃｇｉでＣ言語のように
バイナリーファイルを読み込もうと思うのですが、
どうも変数に何も入らないみたいです。

open(IN, 'test.bin');
binmode(IN);
sysread(IN, $buf, 64);
close(IN);

何がいけないのでしょうか？

>>785
そのC言語のようにってどういう意味？

>>786
自分はＣ長いことやってて、ｐｅｒｌは初心者なんですが、
ｐｅｒｌだとテキストを行単位で読み込むことは簡単ですが、
バイナリーをバイト単位で読み込む方法がよくわからない。
というか、どうやってもうまくいかない。
Ｃだとstdioでもioでもバイナリー読み込みは簡単に出来るのに
ｐｅｒｌにはそういう機能が無いのかなと思って。

>>787
Perlならreadでできるはず。
Cをやっていたのならfreadは知っているよね？あれと同じようなもの。

>>785
何がいけないんだろね。
とりあえず俺の環境ではそのソースで動いたよ。
syswrite で変数の中身出して目で比較したんだけども。

>>785
一行目を見逃してた。

>ｃｇｉで
いきなりCGI？ローカルではちゃんと動いたってことか？

大変申し訳無い。
まったく別の部分が原因でデータがうまく取得できてなかったみたい。
つまんない質問でスレを汚してしまってすみませんでした。ﾍﾟｺｰﾘ

ログファイルを読み込んで、配列の入れ替えを行いのですが…
4と6の列を入れえるときは
$a = 4;
$b = 6;
とフォームからもってきます。

例：
7<>こんにちは<>2002/4/9<>
6<>おはよう<>2002/4/9<>
5<>おやすみ<>2002/4/9<>
4<>さようなら<>2002/4/9<>
3<>ごきげんよう<>2002/4/9<>

▼（４と６を入れ替え）

7<>こんにちは<>2002/4/9<>
4<>さようなら<>2002/4/9<>
5<>おやすみ<>2002/4/9<>
6<>おはよう<>2002/4/9<>
3<>ごきげんよう<>2002/4/9<>

この様な形で再度ログファイルに保存したいのです。
push関数で上手くいかないものなのでしょうか？
ご教授をお願いします！

どうしてそこで push が出てくるのか良くわかんない。

pushよりspliceの方がいいと思うが。

>push関数で上手くいかないものなのでしょうか？
自分なりに使う関数を思いついてるのに、何故実行に移さぬのですか。
GOｻｲﾝもらわんとｺｰﾄﾞ書けんわけでもないでそ。

>>795
pushを使えばうまくゆくと思いやってみたが、うまくゆかなかったということだろ。

>>792 です。
色々と試行錯誤しているのですが、
実行すると…
7<>こんにちは<>2002/4/9<>
4<>さようなら<>2002/4/9<>
5<>おやすみ<>2002/4/9<>6<>おはよう<>2002/4/9<>3<>ごきげんよう<>2002/4/9<>
と入れ替えた場所以降が全てつながってしまいます。
使う関数はspliceの方がベストなんでしょうか？

>>797
\nも入れりゃいいじゃん

>>798
入れ替えるところだけを変えるので、
そこは\nを入れているのですが…

ソース晒そうよ

>>800 は >>792 に向かって言ってるんだよな？
だったら同意見。

つか、まっさきにソースさらすべきだろ。

よーしパパ、1000行あるソースを全部貼っちゃうぞ〜

大人の出逢いから　ピュアな出逢いまで・・・。
素敵な　お相手が貴方を待っています！
もちろん　女性は完全無料です！
http://www.sweet.st