【Perl 】初心者コーナーPart5

**名無しさん＠お腹いっぱい。** · 2001/05/01(火) 23:41

初めて来た方、初心者はまずこのスレッドから始めよう。
尋ねる前に同じ質問がないかこのスレや旧スレ、及び>>2のリンクを一通り見てみよう。
案外答えはもう書かれているかもしれない。

**名無しさん＠お腹いっぱい。** · 2001/05/01(火) 23:42

[関連スレッド]
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
【Perl,CGI】参考書籍　http://tako.2ch.net/test/read.cgi?bbs=perl&key=970166109

[総合]
□Perl Com: http://www.perl.com/pub/
□CPAN.com: http://search.cpan.org/
□ActivePerl: http://www.activestate.com/

[お薦め]
　・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

[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

[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/

**名無しさん＠お腹いっぱい。** · 2001/05/03(木) 22:32

age

**名無しさん＠いつも空腹** · 2001/05/05(土) 09:33

鯖移転したのかな？
本当にPart5はここでいいのかな？
最近はトップページ（インデクス）見てないからわからな～い（はあと

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 16:42

小数点の含まれる引き算を行なうと、たまに0.000000000000001の
誤差が出ることがあります。
10.45-9.55の答えが0.899999999999999とかになるのですが、
どなたかこの現象の原因と解決法をご存知ないでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 18:15

>>5
いい所に気がついた。
長くなるので原因については割愛。

解決法は幾つかあるが、簡単なのは(s)printfだな。

printf '%.2f', 10.45 - 9.55;

$d = sprintf '%.2f', 10.45 - 9.55;
print $d;

**名無しさん＠お腹いっぱい。** · 2001/05/05(土) 20:27

>>6
ｶｺｲｲ。。。
有能な回答者はコテハン化きぼーん！

5 · 2001/05/05(土) 23:02

>>6
ありがとうございます。
とりあえずなんとかなりました。

後学の為に原因も知っておきたいのですが
どこかにそれを記載している場所などを
ご存知でしたら教えていただけないでしょうか？

重ねての質問申し訳ありません。

**名無しさん＠お腹いっぱい。** · 2001/05/06(日) 00:14

>>8
たとえばここ。
http://www.sail.t.u-tokyo.ac.jp/~aida/cp97/971219.html
Googleで「浮動小数計算誤差」とか入れて検索すればわらわら
見つかる。

6 · 2001/05/06(日) 00:23

>>8

原因を一言でいうと「Perlの内部では数値は文字列として格納されているわけではない」って事だな。
変数に型のある言語（Cなど）を扱っていれば理解しやすいし、教えやすいのだろうが
あいにくPerlオンリーな俺に分かりやすく詳しい説明は無理だ。スマソ。

だが「後学の為に知っておきたい」という意欲があるのならラクダ本でも買ってみたらどうだろうか。
浮動小数点数の精度については少ししか載っていないが、損はしないと思うぞ。

代わりといっちゃなんだが>>5の別の方法
>>6の他に標準モジュールのMath::BigFloatを使うという手がある。
これなら精度は無限だ。
#!/usr/bin/perl
use Math::BigFloat;

$a = Math::BigFloat->new(10.45);
$b = Math::BigFloat->new(9.55);
$c = Math::BigFloat->new('0.123456789');#小数点以下が長い場合は文字列としてnewに渡す

print $a - $b, "\n"; #".9"
print $a + $b + $c. "\n"; #"20.123456789"

__END__

>>7
ヘタレをおだてないでくれ（ｗ；
ｺﾃﾊﾝはJapuさんや_gunzipさんくらいにならんとな･･･。

5 · 2001/05/06(日) 02:03

>>10
丁寧な解説ありがとうございます。
ラクダ本に載っているのは知りませんでした。
まだ途中までしか読めていないので。
これから頑張って続きを読んでいきたいと思います。
本当にありがとうございました。

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 15:31

すいません、教えてください
入力フォームからデータを受け取ってPostgreSQLにデータを渡す際に日本語は
文字化けしてしまいます。
どのようにしたらいいのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 16:22

>>12
URIエスケープってオチは無いよな？

**nanasy** · 2001/05/08(火) 16:24

連想配列のサイズの制限は？

いまは、なんでもかんでも連想配列に放り込んでいる（だって、便利だもん）んだけど、
将来的には、データサイズが大きくなりすぎたら、自動的にＳＱＬのＤＢとかを叩く、みたいな
仕様を考えてます。
で、質問。
連想配列（にかぎらず、ＰＥＲＬの変数全般）に、サイズのリミットをかけることは
可能ですか？

＃心配しなくても、仮想記憶が解決してくれるよ、ってのはナシ。

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 16:28

>>14
サイズ＝キーの数って意味なら
擬似ハッシュというものがある。
通常のハッシュより遅いけどな。

データサイズが大きくなりすぎて困るってのなら
DB_Fileを使うという手もあるぞ。

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 16:33

追記

Perlの変数にサイズを設ける事は、可能。
tie()を調べよ。

１２ · 2001/05/08(火) 17:07

フォームからの入力を受け取る
↓
ＥＵＣに変換
↓
insert into * values (hoge,hoge2);
↓
(ﾟдﾟ)ﾀﾞﾒﾀﾞｺﾘｬ

という感じなのですが

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 17:40

>>17
その文から想像するに
#--
$query = $ENV{QUERY_STRING}
or
read STDIN, $query, $ENV{CONTENT_LENGTH};
$query = Jcode->new($query)->euc;
#--
とでもやってるのか？
そりゃダメだわ（藁

**名無しさん＠お腹いっぱい。** · 2001/05/08(火) 17:41

表示は文字コード何？

フォーム（Shift_JIS）
↓
EUC-JPに変換
↓
DBに入れる
↓
表示（Shift_JIS）

とかDBから表示の際に文字コード変換してないとか言うオチじゃない？
もしくは半角カナ入れてるとか。

１２ · 2001/05/08(火) 18:13

>>18さん>>19さんありがとう
>>19さんのご指摘の通りでした、修行しなおしてまいります。
半角はさすがに。。。

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 12:01

どなたか教えてください。
yomikomi.txtというテキストファイルにデータが
一行に一つずつ入っています。何個データが入ってるか判りません。
それを配列に入れて、とりあえずランダムで要素を一つだけ選びました。（kazu1）
もう一つ配列の中からランダムで選びたいです。
ただし、先に選んだkazu1以外の要素にしたいです。（kazu2）
↓のようにやってみたのですが上手くいきません。

#yomikomi.txtを@nyuuryokuという配列にする
open (KENSAKU,"<yomikomi.txt");
$count = 0;
while ($nyuuryoku[$count] = <KENSAKU>){
chop $nyuuryoku[$count];
$count = $count + 1;
}
close (KENSAKU);

#とりあえず、ランダムで要素を一つ選ぶ
srand();
$kazu1 = int (rand($count));

#もうひとつ、ランダムで要素を選ぶ
srand();
rand;
$kazu2 = int (rand($count));

#選んだ要素（kazu1　と　kazu2）が同じならkazu2を選びなおす
while (kazu1 == $kazu2){
rand;
$kazu2 = int (rand($count));
}

#表示して確認。※ここで$kazu1とkazu2がそれぞれ違っていれば
#良いのですが同じになってしまいます。
print "$count　←要素数\n";
print "$kazu1　←kazu1\n";
print "$kazu2　←kazu2\n";
exit;

**22世紀を目指す名無しさん** · 2001/05/13(日) 13:23

http://chat.gaiax.com/ここのチャットには
「プライベートチャット」なるjavaでできた他人には見れない会話システムがあるのですが、
これらを全て丸見えに出来る方法があると聞きました。
これは本当ですか？あったら教えてください。
日曜の昼下がりですがお願いします。…ひょとして板違い？

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 14:53

>>21
ちょっと無駄が多いな。

open (KENSAKU,"<yomikomi.txt");
$count = @nyuuryoku = <KENSAKU>;
close (KENSAKU);

srand();
$kazu1 = int (rand($count));
$kazu2 = int (rand($count));

while ($kazu1 == $kazu2){
$kazu2 = int (rand($count));
}

print "$count　←要素数\n";
print "$kazu1　←kazu1\n";
print "$kazu2　←kazu2\n";
exit;

srandは１回にしろ。
『srand』（乱数の初期化）は、()を省略した場合、その時の時間を入れる。
sleepでもかけない限り、srandの結果は大抵同じになるってこと。
あと、所々$が抜けてるからそれも確認してみな。

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 15:06

#!/usr/bin/perl
use FileHandle;
srand;
chomp(my @in = FileHandle->new('< yomikomi.txt')->readlines);
my($n1, $n2);
until($n1 eq $n2){
($n1, $n2) = (int(rand(@in)), int(rand(@in)));
}
my $count = @in;
print <<EOD;
$count
$in[$n1]
$in[$n2]
EOD
__END__
ところどころvoidでrandが置いて有るのがよく分からんが

21 · 2001/05/13(日) 15:59

23さんありがとうございます。
> srandは１回にしろ。
親切に教えていただいてありがとうございます。
> あと、所々$が抜けてるからそれも確認してみな。
すみません。全く気づかなかったです。
-wcでチェックしたんですがエラーにならないんですね。

24さんありがとうございます。
> ところどころvoidでrandが置いて有るのがよく分からんが
何回も呼び出したほうが、よりランダム性が高まるかと思って使いました。
24さんのスクリプトは自分にはかなり難しいですが勉強になります。

**名無しさん＠お腹いっぱい。** · 2001/05/13(日) 18:44

＞-wcでチェックしたんですがエラーにならないんですね。

use strict 'subs';によりそのような間違いを回避することが出来ます。

**名無しさん＠お腹いっぱい。** · 2001/05/14(月) 12:39

perlってlinuxだと大抵デフォルトで入っているんだけど
HP-UXだと公式には入っていないのでソース持ってきてインストール
しなきゃならんですよね。SUNとかIBMとかはどうなんでしょか？

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 03:11

乱数にはrand()というのがありますが、かなり質の悪い乱数のように
思えます。
もう少し綺麗な乱数を作るにはどうしたら良いんでしょうか？

勿論、rand並に手軽に使えるぐらいの大きさで、ですが。

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 03:31

>>28
逆に聞きたい。
キミの言う綺麗な乱数とは何か？

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 03:41

>>28
前にプログラム技術板でよさげなやつを見たなあ。えーと、
http://piza.2ch.net/test/read.cgi?bbs=tech&key=978946000
これこれ。レス82にあるメルセンヌツイスターというやつです。
どうでしょ。

メルセンヌツイスターホームページ
http://www.math.keio.ac.jp/~matumoto/mt.html
Cで書かれたコードに直リンク
http://www.math.keio.ac.jp/~matumoto/mt19937int.c

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 04:19

いろいろ、
http://search.cpan.org/search?mode=module&query=random

Mersenne Twister使った、Math::Random::MT ってのもあるね。

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 11:13

がいしゅつかもしれないけど、昨日こんなコードではまってしまった.

function Ike($mojiretu = NULL)
{
//文字列があったら処理せよ.
if ($mojiretu)
{
echo "逝ってよし";
}
else
{
echo "文字列ないよん";
}
}
このコードは、 $mojiretu = "0"; がきたときには else に分岐してしまう.
ちゃんと、 if ($mojiretu != NULL) と、しないとだめなのだ...
実行時に型判別の恐怖.鬱だ.

32 · 2001/05/15(火) 11:15

PHPのスレと間違えました.
ごめんなさい.

**名無しさん** · 2001/05/15(火) 14:52

CRとLFの改行って何が違うのですか？

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 17:03

文字が違います。

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 18:24

UNIX　LF　　　\n
Win　CR＋LF　\r\n
Mac　CR　　　\r
かな

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 18:33

>>36
ｼｯﾀｶはｶｺﾜﾙｲね
WinでもUnixでも（多分Macでも)改行は\nだよ

37 · 2001/05/15(火) 18:36

binmodeすればWinの\nとUnixの\nは同じになるけど。
（Macは知らん）

とりあえずLFは改行、WinだとCRというゴミが付くと思っていれば良いんじゃないの？>>34

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 19:27

CR \x0D \015 \cM
LF \x0A \012 \cJ

**名無しさん＠お腹いっぱい。** · 2001/05/15(火) 22:46

myの使い方について質問です。

1;foeeach my $var(@array){ }
2;my $var; foreach $var(@array){ }

この1の使い方、毎回my宣言しているので2と比べ効率が悪い気がするのですが、
JAPUさんなどはよく1の方法で回していますよね？
これは何か理由があるのでしょうか。

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 00:15

>>40
おれも無意識に1の方法を使ってるなあ。なぜかと考えるに、
$varのスコープをブロック内に局所化できるのが
気持ちいいから、ではなかろうか。

40 · 2001/05/16(水) 10:15

訂正) s/foeeach/foreah/;

>>41
簡単なベンチマークを取ったところ、数％ですが2の方が高速でした。
気にするほどではないと思いますが、
無意識に1の方法を取るほどいいメリットとも思えません…＜$varのforeachブロック内への局所化
他に利点は無いのでしょうか？

**初心者過ぎる人** · 2001/05/16(水) 11:19

すみません新規質問です。
ASPで動くXML::DOMモジュールはどこにあるんでしょうか？

**JAPU** · 2001/05/16(水) 13:59

私が 1. の方法を利用するのは、>>41 さんと同じ理由です。
変数は可能な限り局所化する主義なので。

# その2%程度が気になるような人はアセンブラで組めば良い。:-p

40 · 2001/05/16(水) 15:15

>>44
なるほど。納得しました。
>>41, >>44 ありがとうございます。

ずっと気になっていたのでスッキリしました。

**初心者** · 2001/05/16(水) 17:03

スクリプトＡ.plの中からスクリプトＢ.plを起動させるときに
Ｂ.plへ変数を渡す方法とＢ.plが終了した事をＡ.pl内で
判断する方法を教えてください

お願い致します

**初心者** · 2001/05/16(水) 17:19

スクリプトＡ.pl内

　system(perl B.pl $A $B $C > $log_file)

open(LOG,"< $log_file")

というコーディングでよいのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 17:52

>>46
require 'A.pl';
では不満なのか？

**初心者** · 2001/05/16(水) 17:58

>>48
Ａの中から変数を与えてＢを実行し
Ｂのログをファイルにリダイレクトさせた物を
再びＡの中で加工したいのです。

**名無しさん** · 2001/05/16(水) 18:02

チャットについて質問です。
チャットのリロード機能がついてる仕様は絶対にフレーム型でしょうか。
つまり、chat.cgiで入力フォームと会話表示（ログ表示）部分をlog.htm
などとします。
log.hmにrefreshを使い自動更新しますよね。
しかし、入力部分と会話表示部分がひとつ画面だと
chat.cgiを更新してしまうので入室画面に戻ってしまいます。
結論は、フレーム型のチャットが嫌なので一体型で自動更新したいのですが
何か方法はありますでしょうか？

**名無しさん** · 2001/05/16(水) 18:04

>つまり、chat.cgiで入力フォームと会話表示（ログ表示）部分をlog.htm
>などとします。

ちょっとここは書き間違いです。

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 18:16

>>50
理屈の上ではフレームを使わないCGIも作れます。
でも書き込みしてる最中にリロードが起きると、
せっかく途中まで書いた文章が消えちゃうよ？
それって利用者から文句出まくりだと思うんだが。

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 18:31

>>49
とりあえず>>47でいいのでは。
systemの引数がクォートされてないのだけ気になったけど。
こうね => system("perl B.pl $A $B $C > $log_file");

**せちがないにぎりめし** · 2001/05/16(水) 19:14

ごく簡単な改造でイイと思うんだけど
作製依頼は何処で出したらイイですか？

**名無しさん＠お腹いっぱい。** · 2001/05/16(水) 19:40

>>54
それに最も近いスレッドは↓ここか。
[スクリプト改造工房] http://corn.2ch.net/test/read.cgi?bbs=php&key=988808396
ただし答える人はそう多くない。無視されたらあきらめること。

**投票などについて** · 2001/05/17(木) 00:11

どのスレに書き込むか迷ったので初心者に書きます。

ある板でロゴの投票をしようという事になったのですが、
Win板のロゴ投票では、投票した人間のアクセスログも
わかっていたようです。
こういうのは投票用のCGiにアクセスログの機能もついてる
ものなのか、アクセスログ用のCGIの見る先が投票用のCGI
にしてるのかわかりません。

アクセスログ機能がついてる投票用のフリーCGIとか
あればいいんですが、探す限り最新の投票のホスト名だけ
とかばかりで一覧にバーッとログファイルができるようなのが
ないんですが‥うーん‥

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 01:22

>>56
なにが言いたいのかわからんぞ。もちっと整理してくれ。頼むよ。
Windows版がロゴ投票に使ったのと同じCGIが欲しいってことか？
しかしそれならWin板に行って話をすればいいだろうし・・・。

＃あ、もしかしたら、同じようなCGIが欲しいけど、
＃Win板に頭を下げるのがイヤなマッカーな人？

**初心者** · 2001/05/17(木) 03:33

>>53
レスありがとうございます。
ログ加工までなんとかできました。

**初心者** · 2001/05/17(木) 03:39

ついでといってはなんなのですが、
実際にスクリプトを実行せずにコーディングチェックだけを
行えるデバッグモードみたいなことはperlで出来ませんでしょうか？
環境はシステムがwin32でperlはperl5とjperlがあります。
（perl5とjperlの違いもよくわからないのですが・・・）

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 04:24

>>59
ん？　perl -wc <スクリプト> じゃだめ？
# Tもつけよう。

**初心者** · 2001/05/17(木) 08:46

たびたびすみません。
配列@getに変数で値を追加していきたい時は

while(....){
@get = $hensu
}

で行えますでしょうか？

５６ · 2001/05/17(木) 08:48

＞５７
Win板で聞いてきたんですが
誰も答えてくれません（泣）
ロゴ投票まとめてた人の目につかないだけかもしれませんが。

投票した人間のログを記録するようなCGIが
欲しいということです。
一応フリーの投票用の探したんですが
ログファイルとか残すタイプがなかったもので。

**初心者** · 2001/05/17(木) 08:52

$i = 0;
while(....){
$get[$i] = $hensu;
++$i;
}

と行わなければ、やっぱり駄目でしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 08:57

>>63
push @get, $hensu;
Perlの本でも買ってきたら？

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 08:58

>>63

while(...) {
push @get, $hensu;
}

65 · 2001/05/17(木) 08:59

被った・・・

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 09:47

Perlで簡単なプロクシサーバー（つーかただのフィルタみたいなもんだけど）
を書いているのですが、ActivePerlで fork 使うと速攻で落ちます。
やっぱりWindowsで fork は無理ですか？ちなみにスクリプトの方のバグかと
思ってLinuxでテストしたら普通に動きました。なんかActivePerlは
かわりにスレッドが使えるとかなんとか聞いたような気がするんですが
どうなんでしょう。

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 10:21

>>67
Perlのバージョンは？

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 10:28

>>68
ActivePerl-5.6.0.616です

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 10:30

>>62
#---
sub logsave{
local *LOG;
open LOG, '>>log.dat' or return;
flock LOG, 2;
print LOG <<EOD;
${\time()}<>$ENV{REMOTE_ADDR}<>$ENV{HTTP_USER_AGENT}
EOD
close LOG;
}
#---

68 · 2001/05/17(木) 10:47

>>69
スマン、俺じゃ分からん。
Perl5.6.0.623でforkのテストをすると成功する事もあるがDLLのエラーで落ちる事もあった。
スレッドはｻﾊﾟｰﾘわからん。"perldoc Thread"とでもしてくれ。

69 · 2001/05/17(木) 11:02

>>71
あら、残念。ActivePerlじゃなくても最近のPerlは
スレッド使えるみたいだけど、スレッドに関する資料が
少なくてよくわからないよ。ちなみに perldoc は見た
んだけど、スレッドが使えるって言うのはこのモジュールの
ことを指すの？なんか実験的な機能とか書いてあるけど…
まあとりあえずちゃんと読んでみるよ

あと、とりあえず perl -V 打ったら
usethreads=undef
ってなってたからこのままじゃスレッドは使えない
のかな。もしかしてこれを有効にするにはソースから
なんかオプションつけてコンパイルしなくちゃならないの？

わから～ん！誰かヒントを！

**初心者** · 2001/05/17(木) 12:35

if($data[2] =~ /^$data2[0]/){
}

以上のようにコーディングしたら
if文のセンタックスエラーでこけてしまいました。
//で変数は使えないのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 12:46

>>73
パターンマッチの中では[]は特別な意味あり
ちなみに変数は使える。

$tekito = $data2[0];
if ($data[2] =~ /^$tekito/) {}

とかにしたら？

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 13:40

syntax errorなら何処かでセミコロンが抜けているに一票

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 13:42

ちなみに>>74は不正解。
#!/usr/bin/perl
$data[2] = 'abc()';
$data2[0] = 'ab';
print $data[2] =~ /^$data2[0]/;
__END__

74 · 2001/05/17(木) 14:09

＞76
ほんとだ、真になってた。適当書いてスマソ

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 16:19

>>67-72
おおー。ActivePerlの5.6って、
スレッドを使ってforkのエミュレーションするようになったんだ。
perldoc perlfork をざっと見てみました。
まだpipeは使えないんだね。

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 19:33

二次元配列で配列の二次元目(?)の要素数を調べには
どうしたらいいでしょうか？
$hoge[0][$n]の$nが何個か知りたいんです
あんまりPerlでは二次元配列はつかわないんでしょか？

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 19:52

>>79
$size = scalar @{$hoge[0]}

Perlの2次元配列は実際には「配列へのリファレンス」の配列。
つまり$hoge[0]等は各々が配列へのリファレンスである。
@{$hoge[0]}としてデリファレンスすると配列の実体になる。
あとは定石通りscalar関数で配列サイズを取得。

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 19:59

>>79
自分が知らないというだけで「使われていない」と思うのはどうか。
まぁ修得が若干難しいというのは確かだが。

#!/usr/bin/perl
$aryref0 = [qw(0 1 2 3 4 5)];
$aryref1 = [qw(0 1 2)];
$aryref2 = [qw(0 1 2 3 4 5 6 7 8 9)];

@ary = ($aryref0, $aryref1, $aryref2);

print <<EOD;
$#{$ary[0]} + 1 = ${\($#{$ary[0]} + 1)}
$#{$ary[1]} + 1 = ${\($#{$ary[1]} + 1)}
$#{$ary[2]} + 1 = ${\($#{$ary[2]} + 1)}
EOD
__END__

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 22:02

>>80-81
サンキュー
{$hoge[0]}って囲む事を知らなかったから問題だったんだな
説明もわかりやすかったし
スクリプトもわかりやすくて助かりました
あまり使われていないのかって書いたのは
Cの参考書には二次元配列について書いてあっても
Perlの参考書には書いてなかったからさ
Perlはいろんな方法がある分二次元配列とかは
そんなに使わないのが普通なのかなって思って
サブルーチンの中でグローバル変数を
あんまりつかわないのと一緒で
大体他の方法で抜けるのが一般的かなと思ったんです

ほんとにありがとう

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 22:53

Perlの参考書に書いていないのは
CGIスクリプトを作る際に必須な概念ではないってのが大きいんじゃないかな。

**名無しさん＠お腹いっぱい。** · 2001/05/17(木) 22:57

>>82
そんな本はすてちまえぇ！

**名無しさん** · 2001/05/17(木) 23:36

mod_perl
てなんて読むの。

もどぱーる?
もじゅーるぱーる?

**名無しさん＠お腹いっぱい。** · 2001/05/18(金) 05:54

う。なやまず「もっどぱーる」とよんでた。
どうなんだろう。

**名無しさん＠お腹いっぱい。** · 2001/05/18(金) 10:09

おれも「もっどぱーる」派

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 00:46

>>85
「もっとPerl！」を、方言にした感じで「もっどぱーる」

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 04:44

なにも知らずに動けばそれで良しな私は
　@data[x]
$data[x]
を一緒に使っちゃってますが、やはり問題ありますよね？

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 07:15

　詳しいことは知らないが、Perl6からは、@data[x]は、配列のスライスではなく、
配列の要素を指す記述方法になるらしい。
　配列のスライスは、別の記述方法が用意されるらしいです。

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 10:14

>>89
問題あり

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 12:36

半角カナの処理ってどうされてますか？
おいらはjcode.plで全角にしちゃってますがその他ってなにか方法
ありますか？

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 13:29

ﾍﾞﾂﾆ｡ﾒｰﾙｼﾞｬﾈｰﾝﾀﾞｶﾗﾒｸｼﾞﾗﾀﾃﾙｺﾄﾓｱﾙﾏｲ＜ﾊﾝｶｸ
ISO-2022-JPｯﾂｰﾜｹﾃﾞﾓﾅｲﾉﾆｾﾞﾝｶｸﾆｼﾁﾏｳﾉﾊﾄﾞｳｶﾄｵﾓｳ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 14:13

JavaScript で頑張る。

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 16:25

すごく恥ずかしい質問なのですが
JAVAのコメントアウトみたいに
/*
ココがコメントにょ
*/
みたいな機能はないのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 17:14

>>95
POD形式のコメントにするのが正式だと思う。
参照： perldoc -q "comment out" および perldoc perlpod

ちょこっと部分的にコメントアウトしたいときは
=pod
この部分はパースしないよ
=cut
だけでいいかもな。

**_gunzip** · 2001/05/19(土) 20:53

>>95
Cみたいに /* */ や // が使いたい場合は、
----------
#!/usr/bin/perl -MFilter::cpp

/*
複数行コメント
*/

print "ok!"; //一行コメント

----------
とする手もあります。
本当は96さんのようにするのがベストだし、自分も普段は
そうしているのだけれど、一応、雑学的知識として....
#事前にCプリプロセッサ(うちでは"gcc -E")に食わせているだけです。

95 · 2001/05/19(土) 22:32

96さん97さん、ありがとうございました。

#入門本に載って無くてずっと#を20行とか打ってました・・・

**名無しさん＠お腹いっぱい。** · 2001/05/19(土) 23:10

>>98
いや#を20行というのが間違いというわけではないよ。
PODにしろCプリプロセッサに食わせるにしろ、"完全に無視される存在ではなくなる"からね。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 01:40

いろいろ方法があるんですねえ。ていうかそれがPerlというものか。
このスレのPart1から全部まとめて「Perlの雑学」っていう
サイトを作ったら面白いかもなあ。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 02:44

>>100
> このスレのPart1から全部まとめて「Perlの雑学」っていう
> サイトを作ったら面白いかもなあ。

それマジで誰かやってくれないかな。
漏れは取捨選択できるレベルじゃないからダメっぽいけど…。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 04:11

勉強がてらに作ろうかしらん

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 04:15

>>102
頼むよ。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 04:28

>>102
場所を用意してくれるんなら少しは協力するぞ。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 05:44

アカウント提供しようか？

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 05:47

PERL勉強できるHPある?
せっかくLINUXいれたので・・・。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 05:50

ヒューレットパッカードのマシンですか?＞106

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 07:26

>>107
まだそんな事でつっこむのかよ。
ｻﾌﾞｯ

**not 107** · 2001/05/20(日) 08:17

>>108

誰も突っ込まなくなったらもうダメだ。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 08:18

>>106
このスレの>>2のリンク集の[お薦め]のとこ。って"の"が多いね。

**名無しさん** · 2001/05/20(日) 08:31

Apache::PerlRunとApache::Registryの違いって何ですか。

**（・∀・）ｲｲ!!** · 2001/05/20(日) 10:31

パイオニアのＨＰアニメ板の奴らにハッキングされました。
http://ton.2ch.net/test/read.cgi?bbs=news&key=990241282&ls=100

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 11:36

>>102
http://xbbs21.virtualave.net/xbbs/up/
ここにﾍﾟｰｼﾞを圧縮してｱﾌﾟしてくれれば、
こっちで見られるようにするよ。

**初心者** · 2001/05/20(日) 13:32

すみません助けてください。
perlでＡとＢのファイルのレコードマッチングで
同じレコードを抜き出してＣというファイルを作るのですが
foreachの入れ子で作るとどうしても抜き出すレコードが
２レコードずつ出力されてしまいます。

どこかによい例がありませんでしょうか？

**初心者** · 2001/05/20(日) 13:31

すみません助けてください。
perlでＡとＢのファイルのレコードマッチングで
同じレコードを抜き出してＣというファイルを作るのですが
foreachの入れ子で作るとどうしても抜き出すレコードが
２レコードずつ出力されてしまいます。

どこかによい例がありませんでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 13:39

>>115
まずはそのスクリプトを書くなりｱﾌﾟするなりしたらどうだ。

**初心者** · 2001/05/20(日) 13:48

すみません、こんなかんじです。

@new = <NEW>;
foreach $new_rec (@new){
#---関数　comp_update
$subname="comp_update";&local_time;
&comp_update;
$val = &comp_update;
if($val){
if($hit_sw eq "0"){
print OUT "$new_rec2---unm\n";
}
print OUT "$new_rec2\n";
}
}
#
sub comp_update{
# 新旧更新情報ファイルの比較
$hit_sw = "0";
$new_rec2 = $new_rec;
@new_data = split(/\s+/,"$new_rec");
@old = <OLD>;
foreach $old_rec (@old){
@old_data = split(/\s+/,"$oup_rec");
if(($new_data[0] eq $old_data[0]) && ($new_data[1] eq $old_data[1]) && ($new_data[2] eq $old_data[2])){
$hit_sw = "1";
if($new_data[3] eq $old_data[3]){
return[0];
}else{
return[1];
}
}
}
if($hit_sw eq "0"){
return[1];
}
}

**初心者** · 2001/05/20(日) 13:50

段差がつかなくてすみません
あと４行目はファイルの突き合わせには意味のない
サブルーチンです。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 14:00

なんつーか…いっちゃ悪いが無茶苦茶だな
思うに問題は"return[n]"じゃないか？勘だが。
真偽値を返すつもりなら"return(n)"と書いてみな。

**初心者** · 2001/05/20(日) 14:11

>>119
nって数字ではないのですか？
アルファベットの“ｎ”ですか？
メインルーチン側はどうやって真偽を判断するのですか？

**_gunzip** · 2001/05/20(日) 14:14

解決にはならないが、気になる点。
>return[0];
return(0);
[]じゃなくて()だよ。（このままだと、0という要素を持った配列へのリファレンスを
返すことになってしまうよ）

>$hit_sw eq "0"
数値を""でくくるのは、なんか変。
$hit_sw = 1; $hit_sw == 0;

>$new_rec2
こういった変数の付け方は、後から見ると（or 他の人が見ると）何を指しているのか
分かりづらいのでやめよう。（しかもグローバル変数で突然現れるし......）

>$old_data[0] eq $new_data[0] とか
どんなフィールドを比較しているのか.....わからん。

>@old = <OLD>;
毎回読むの？最初の一回でファイルの終端まで全部読んでしまうから
二回以降@oldは空じゃない？

#どういったことをやりたいのかを(114より詳しく)正確に書いて欲しい。

**_gunzip** · 2001/05/20(日) 14:17

>２レコードずつ出力されてしまいます。
ってことは、

>if($hit_sw eq "0"){
>print OUT "$new_rec2---unm\n";
>}
>print OUT "$new_rec2\n";
>}
の後者のprintが要らない？......というか、よくわからん。

**ははは** · 2001/05/20(日) 14:28

デバッグする気になれんよ・・・・・

**初心者** · 2001/05/20(日) 14:38

>>121
やりたいことは　更新情報であるＮＥＷファイルのレコードを
ＯＬＤファイルのレコードと比べて、
互いのレコードデータの項目[0]～[2]まで一致したら
日付（ＹＹＹＹＭＭＤＤ・・・）の入っている項目[3]を比べ
差異があればＯＵＴファイルへ出力させます。
但し、ＮＥＷファイルにしかないレコードもunmatchとして同じく出力させます。

>>@old = <OLD>;
>毎回読むの？最初の一回でファイルの終端まで全部読んでしまうから
>二回以降@oldは空じゃない？
ＮＥＷのレコード１行毎に、ＯＬＤファイルは頭から再び
探したいのですけど・・・意味ないのでしょうか？

**初心者** · 2001/05/20(日) 14:57

>return[0];
>return(0);
>[]じゃなくて()だよ。（このままだと、0という要素を持った配列へのリファレンスを
>返すことになってしまうよ）

スミマセンここもう少し詳しく教えてください。
１度シンタックスエラーになり
リファレンスマニュアルを読むと［]と書いてあったので変えたのですが・・・
戻り値に真偽を与えメインルーチン側で真偽を判断する方法がよくわからないのです。

あと　一度、配列にファイルハンドルで全てあたえたら
繰り返し処理でやる意味はないのですか？
open...
＠old = <OLD>;
close...
とファイルを開いて全て読みこんでファイルを閉じるのが正しい
使い方なのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 15:12

>>125
悪い事は言わないからまともな本買って勉強し直しな。
その方が君のためになる。

**_gunzip** · 2001/05/20(日) 15:18

ああ、昼寝してた。すまん。

#!/usr/bin/perl -w

use constant NOT_EXISTS => 0;
use constant EXISTS => 1;
use constant LAST_MODIFIED => 3;

@old = map{ [ split ] } <OLD>;

while($rec = <NEW>){
    chomp $rec;
    $is_exists = NOT_EXISTS;
    @new = split(/\s+/,$rec);

    foreach $old (@old){
        if(($new[0] eq $old->[0]) && ($new[1] eq $old->[1]) && ($new[2] eq $old->[2])){
            $is_exists = EXISTS;
            if($new[LAST_MODIFIED] ne $old->[LAST_MODIFIED]){
                print $rec , "\n";
                last;
            }
        }
    }
    if($is_exists == NOT_EXISTS){
        print $rec , "---unmatched\n";
    }
}

やりたいのはこういったこと？

**_gunzip** · 2001/05/20(日) 15:19

>print $rec , "\n";
print OUT $rec , "\n";
だな。それにNEW,OLDも開いてない。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 15:25

綺麗なソースだ…。
流石_gunzipさんです。

**_gunzip** · 2001/05/20(日) 16:00

ああ、また寝惚けて読んでなかった。すまん。
>>125
>１度シンタックスエラーになり
うーん。あり得ないような。
>リファレンスマニュアルを読むと［]と書いてあったので変えたのですが・・・
どんな記述だったのか知りたいなあ。
>戻り値に真偽を与えメインルーチン側で真偽を判断する方法がよくわからないのです。
うう....言ってることが分からない。戻り値として返されたものを評価すればいいだけでは(？)

>あと　一度、配列にファイルハンドルで全てあたえたら
一回目の&comp_update()の呼び出しで
>@old = <OLD>;
@oldには($/未変更時)ファイルハンドルOLDの各行が一行ずつ入る。
ついでにEOFもセットされる。（最後まで読んだので）
二回目の&comp_update()の呼び出しで
>@old = <OLD>;
OLDにはもう残っていないので@oldは空になる。

>>129
ありがとう。何か変なところがあったら指摘してくれると嬉しいです。

**初心者** · 2001/05/20(日) 17:39

>>126
そうしたいのは山々なのですが（ここからは言い訳になります）
コンピュータはインターネットとゲームをするていどの
ど素人だったのが
ＣＯＢＯＬの研修を2週間程度受けて、いきなり配属され
一人ぼっちでperlと格闘している最中の新入社員なのです。
（でもperlってコンパイルしなくていいのが好き）

周りは年老いたおじサンばかりで若いというだけで引継ぎも
ままならないままサーバ管理をまかされてしまいました・・・・

>>127
あまりにも・・・高等すぎてよくわかりませんが
有り難くコピペさせて勉強させていただきます。

先ほどの突き合わせ処理の問題はなんとか解決できました。
やはり御指摘の通り　@old = <OLD>を繰り返し処理の中で
行っていた事が原因でした。
（２行づつ書きこむのは別の原因でしたが）
perlのマニュアルは沢山買いこみましたが
肝心の無い様が私にとってチンプンカンプンで・・・
今の仕事向いてないのかもしれません・・・

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

追伸：どこかおすすめのPerlのサイトありませんでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 17:49

全角のＡ．．Ｚ１．．９を半角のA..Z1..9に置き換えたいんですが、
上手い方法ないですか？
tr/ａ/a/g; tr/１/1/g;
みたいにやってもだめでした。

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 18:09

>>131
関連サイトは>>2を参照

しかし…君を悪く言うつもりは無いが、
酷い会社だなそこは…それともそういうものなのか。
ま、頑張れや

>>132
jcode.pl(またはJcode.pm)のtr()関数を使えばいい
#!/usr/bin/perl
require 'jcode.pl';
$str = 'ＺＥＮＫＡＫＵ１２３';
jcode::convert(\$str, 'euc');
jcode::tr(\$str, 'Ａ-Ｚ０-９', 'A-Z0-9');
print $str, "\n";
__END__

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 18:31

>>131
リファレンスとして便利なPerlサイトはいっぱいあるけど、
Perlをいちから学ぶためのサイトは知らないなあ。

Perlの本を沢山買い込んであるなら、やっぱ最初はそれを
読むことから始めるほうがいいんじゃないの。
この↓参考書籍スレッドも参考になるよ。
http://corn.2ch.net/test/read.cgi?bbs=php&key=988809842&to=9

**初心者** · 2001/05/20(日) 18:40

>@oldには($/未変更時)ファイルハンドルOLDの各行が一行ずつ入る。
>ついでにEOFもセットされる。（最後まで読んだので）

すみませんもう一つだけ
eofなんですけど、ファイルの一括処理
>@old = <OLD>;
を行った時も下記の様に使えますか？

@old = <OLD>;
foreach $old_rec(@old){
if(eof(OLD)){

#最終行の処理

}
}

マニュアルには　eof(ファイルハンドル）を指定すると
書いてあるのですが、この場合もファイルハンドルで
いいのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 18:49

>>135
@old = <OLD>;
とした時点で配列"@old"とファイルハンドル"OLD"は何の関係も無くなる。
同じ事をしたいのならwhileで回せ

while(defined($old_rec = <OLD>))
{
&ｎｂｓｐ;&ｎｂｓｐ;if(eof(OLD)){
&ｎｂｓｐ;&ｎｂｓｐ;&ｎｂｓｐ;&ｎｂｓｐ;#最終行の処理
&ｎｂｓｐ&ｎｂｓｐ;;}
}

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 18:50

台無しだ(;´Д`)
while(defined($old_rec = <OLD>))
{
  if(eof(OLD)){
    #最終行の処理
  }
}

**132** · 2001/05/20(日) 21:00

>>133
無事変換できました。3日悩んでいたのでとても嬉しいです。
ありがとうございました。

馬鹿 · 2001/05/20(日) 22:34

www.microsoft.com
http://www.microsoft.com
http://www.microsoft.com/
とかの入力から、これを
www
microsoft
com
に分解するにはどうすればいいの？

**_gunzip** · 2001/05/20(日) 22:45

>>131
直接には役に立てなかったけど、上手くいってよかった。
お仕事頑張って。（ちょっと無責任かな.......）

>この場合もファイルハンドルでいいのでしょうか？
はい。ちなみに、
perldoc -f eof
でPerlの関数（この場合はeof）についてのマニュアル（英語）を読むことが出来ますよ。
他のも色々試してみてください。

>>139
これでいいか？

#!/usr/bin/perl

@url = split /\n/ , <<;
www.hogehoge.com
www.hogehoge-u.ac.jp
hogehoge.com
http://hogehoge.com/
http://hogehoge.com
http://www.hogehoge.com/

foreach(@url){
m%([0-9a-z\-]+\.)*?([a-z0-9-]+)\.([a-z]{2,3})(?:\.([a-z]{2}))?([^a-z]|$|/$)%i;
print "$_ :\t \$1 = $1, \$2 = $2, \$3 = $3, \$4 = $4\n";
}

**名無しさん＠お腹いっぱい。** · 2001/05/20(日) 22:47

>>139 こんな感じ？？

$str = "http://www.microsoft.com/";;
$str =~s/(http:\/\/)?([^\/]+)(\/)?/$2/;
@array = split /\./, $str;

馬鹿 · 2001/05/20(日) 23:21

>>140-141
ﾏﾝｾｰありがと。

**めっちゃ初心者です** · 2001/05/21(月) 21:53

よくわかりませ～ん

/を,に変換したいのですが美味くいきません
こんな感じです。

$moji = "111/222/333";
$moji =~ tr///,/;
print "$moji";

/という文字がやっぱ不味いんでしょうか？でも/をどうしても,
に変換したいんです。
宜しくおねがいします。

**名無しさん＠お腹いっぱい。** · 2001/05/21(月) 22:14

**めっちゃ初心者です** · 2001/05/21(月) 22:17

>>144

美味くいきました。ありがとう
ネタじゃないっす。
すいませんもっと勉強します

**名無しさん＠お腹いっぱい。** · 2001/05/21(月) 22:24

>>144
たった2バイトの回答で感謝されるのも珍しい(笑)

**名無しさん＠お腹いっぱい。** · 2001/05/21(月) 23:18

>>146
気づく時は「あ～っ」という感じなんだろう（笑）

**初心者** · 2001/05/22(火) 17:16

すみません
「スカラー変数の値の左端からｎ桁を抜き出す」
コマンドってありませんか？

**初心者** · 2001/05/22(火) 17:17

すみません
「スカラー変数の値の左端からｎ桁を抜き出す」
コマンドってありませんか？

**初心者** · 2001/05/22(火) 17:18

すみません
「スカラー変数の値の左端からｎ桁を抜き出す」
コマンドってありませんか？

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 17:33

substr($str, n, 1)

**初心者** · 2001/05/22(火) 17:56

ありがとうございます。

**名無しさん＠お腹いっぱい。** · 2001/05/22(火) 23:57

perlにC言語のファイルを組み込むことはできますでしょうか？
また、できるとすればどうやったらできるんでしょう？
やっぱり変換するしかないのかな・・・・。

**疑問。** · 2001/05/22(火) 23:59

そのファイルにアクセスされたら他のプログラムを動作させること
ってどうやるんでしょうか。
サブルーチンではなく、普通のファイルを、なのですが・・。

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 00:04

>>154
require "./file.pl";

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 00:13

>>156
$ perldoc perlxs

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 00:31

$ call japu

**JAPU** · 2001/05/23(水) 02:38

perlxs は既に提示されているので、別解を。
http://search.cpan.org/search?dist=Inline

少し前の The Perl Journal に載っていたんだったかな。

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 11:29

VisualC++みたいな形の、GUI環境のデバッグツールはありますか？

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 12:06

http://homepage1.nifty.com/wizman/
>>159
使ってみて報告してくれ

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 17:39

#!/usr/bin/perl

$str = "１２３４５";
$str =~ tr/０-９/0-9/;

print "Content-type: text/html\n\n";
print $str, "\n";
print "</body></html>\n";

とすると出力が

0203040506

となってしまいます、普通に　12345　とは表示できないのでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 17:48

>>161
>>133

**antique** · 2001/05/23(水) 17:54

eucで
-----------------------------------
require './jcode.pl';
$str = "１２３４５";
jcode::tr(*str, "０-９","0-9");
print $str;

**antique** · 2001/05/23(水) 17:53

eucで
-----------------------------------
require './jcode.pl';
$str = "１２３４５";
jcode::tr(*str, "０-９","0-9");
print $str;

**antique** · 2001/05/23(水) 17:56

かぶる・だぶるのワンツーパンチ。

あ、タイムスリップもしてる（ｗ

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 18:02

ＥＵＣでですね。。。できました（＾＾；
ありがとうございます

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 23:12

最近モジュールなるものを知ったのですが、
ローカル（win98/httpd）で使用することは出来ますか？

つーか使い方もまだ良く分からないんだけど（ぉ

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 23:16

>>167
モジュールを使ってみようとしましたか？

**167** · 2001/05/23(水) 23:44

>>168
はい。

**名無しさん＠お腹いっぱい。** · 2001/05/23(水) 23:52

>>169
はいってアンタ…（ｗ
使ってみた結果は？

**名無しさん＠お腹いっぱい。** · 2001/05/24(木) 12:36

平和だね（ｗ

**名無しさん＠お腹いっぱい。** · 2001/05/24(木) 14:35

マターリとしたのもたまにはｲｲ!（・∀・）

**名無しさん＠お腹いっぱい。** · 2001/05/25(金) 00:05

age

**名無しさん＠お腹いっぱい。** · 2001/05/25(金) 01:07

よくあるフレーム式のチャットを組んでいるのですが、
メッセージを送信した後に記事表示部をリロードするには
どうすればいいのでしょうか？　教えてください。

**名無しさん＠お腹いっぱい。** · 2001/05/25(金) 01:37

>>174
HTMLの勉強をしよう。
<form method=POST action=undex.cgi target=under>

それともオートリロードの仕方かい？
<meta http-equiv="refresh" content="90;url=under.cgi">
必要ならunder.cgi?name=$nameとかにすればよろし。

**175** · 2001/05/25(金) 01:38

タイプミスしたけど自分で修正してくれ。

**174** · 2001/05/25(金) 02:53

>>175
無事解決しました。
ありがとうございました。

**名無しさん＠お腹いっぱい。** · 2001/05/25(金) 07:29

Perl6はいつ頃でるんでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/25(金) 10:03

今年の夏あたりにコアが出来るとかいうのをどこかで読んだ気がする。

**名無しさん＠お腹いっぱい。** · 2001/05/25(金) 23:58

cronの使い方がイマイチ分からないのですが、
やはりtelnet設定してやらナイト無理ですか？
ちなみにサーバはf2sです。

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 00:11

CGIのソースをいろいろ見て参考にしたいのですが、
使用されているCGIのソースをこっそりダウンロードする方法ってありますか？

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 00:57

>>181
無い。あまりそんな質問されると厨房だと思われますよ。

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 01:05

>>182
IDが微妙にｶｯｺ(･∀･)ｲｲ!

**弐ch編者** · 2001/05/26(土) 07:58

今は去年の新人をいじめてる。
こいつはやめそうにないんで
とりあえず泣かそうと思ってる。

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 08:12

>>182
本気でIDｶｯｺ(･∀･)ｲｲ!
# アドゥソワ？

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 19:51

perlccで途中のcのファイルを残せないのでしょうか？perlからCへの
移植に使えるかと思ったんですが･･･。

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 19:58

メモ帳で
printf"Hello World\n";
と書いてsample001.plで保存。
Perlでperl sample001としてもなにも起こりません。ソースのパスを
指定してないからなんでしょうが、パスを変更する方法がわかりません。

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 20:07

>>186
undef@2ch.net$ perl -MO=C foo.pl >foo.c

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 20:14

>>187
undef@2ch.net$ export PATH=$PATH:/home/hoge/bin

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 21:26

>>187 なんでsample001.plの.pl抜かしてんだよ

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 21:32

>>187
・printf
・.plを抜かす
・「なにも起こらない」

ってことでネタと断定

**名無しさん＠お腹いっぱい。** · 2001/05/26(土) 22:02

>・printf
確かにあまり使わないが、別に誤りでもなかろ。

**名無しさん＠お腹いっぱい。** · 2001/05/27(日) 00:00

質問なんですけど、よく
open(FILE,"$filename") or die('...');
ってしてますよね？
sleep(1) until open(FILE,"$filename");
みたいなのは駄目なんでしょうか？

**名無しさん＠お腹いっぱい。** · 2001/05/27(日) 00:06

>>193
ファイルがずっと開けない状態にあったらどうなるのかな？

**名無しさん＠お腹いっぱい。** · 2001/05/27(日) 00:40

そもそもファイルがなかったりとかね

**名無しさん＠お腹いっぱい。** · 2001/05/27(日) 03:38

>>186

>perldoc perlcc

$ perlcc -c file # Creates a C file, 'file.c'
$ perlcc -c out.c file # Creates a C file, 'out.c' from 'file'
$ perlcc -c -e 'print q//' # Creates a C file 'a.out.c'

**187** · 2001/05/27(日) 04:03

いやネタじゃないですよ、最初に書くソースってことでcのまね
してみただけです。ちなみに
perl e:/書類/ユーザー/perl/sample001.pl
ってやったらMS-DOS窓が閉じちゃいました。なにか表示されたのが
一瞬見えましたが。perl5.6.1です。

**名無しさん＠お腹いっぱい。** · 2001/05/27(日) 05:41

>>197
DOSプロンプトで起動してるのか？
system(exit);
でもやらんと閉じない気がするのだが。

**187** · 2001/05/27(日) 07:32

＞DOSプロンプトで起動してるのか？

え？PerlのアイコンwクリックでDOS窓が開きませんか？

**187** · 2001/05/27(日) 07:37

失礼しました。DOSじゃなかったです。
あれがPerlのインターフェイスですね。