Perlについての質問箱

281 ：デフォルトの名無しさん：02/07/17 12:04

初心者です。
Linuxのマシンのperlで「dbmopen」を使用したいのですが、動きません。perlがdbmopenを使う場合に必要なライブラリや設定について教えてください。
（実は、Yukiwiki2をインストール中です）

282 ： ◆JAPH9PWA ：02/07/17 12:17

>>281
動きません、じゃわかりません。
エラーメッセージを書いてください。

でもdbmopen()は標準ライブラリがあれば動くはずなんだけどな？

283 ：デフォルトの名無しさん：02/07/17 12:31

>>282
そうですね、すいません。実はこのプログラムはCGIでして、エラーの結果は簡単なメッセージしかでないんです。
別にdbmopen関数を使ったスクリプトを動かした方がいいでしょうか？

284 ：コギャル＆中高生：02/07/17 12:33

http://go.iclub.to/ddiooc/

お役立ちリンク集
必ず役立ちます

コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/

285 ：デフォルトの名無しさん：02/07/17 12:33

>>282
といっても、全くのPerl知らずでして、「dbmopen関数を
使ったスクリプト」も分からないんです。(^^;

286 ： ◆JAPH9PWA ：02/07/17 12:48

「全くのPerl知らず」がCGIスクリプトを動かすのは非常に危険なことだよ。
まさか共用サーバでテストして無いだろうね？

とりあえずスクリプトの冒頭に以下の分を追加してエラーメッセージを表示させてみて。

use CGI::Carp qw(:fatalsToBrowser);

287 ：デフォルトの名無しさん：02/07/17 14:05

条件分岐のことについてなんですが、
「$Aが1か、3か、もしくは5の時…」と表現したい時、
$A==1 || $A==3 || $A==5　…と何度も書かなければいけないのでしょうか？
カンマなどで区切って省略するなどの方法があったら、ぜひ教えてください。

288 ：デフォルトの名無しさん：02/07/17 14:11

>>286
スクリプトには、既に use CGI::Carp qw(:fatalsToBrowser)が
あります。でもエラーメッセージ自体はブラウザに表示され
ません。

(dbmopen) ./diff <-- こんなメッセージはでます。
PS Apache の方の設定も見ています。

289 ： ◆JAPH9PWA ：02/07/17 14:43

>>287
残念ながら、省略することは出来ないよ。
ハッシュや配列を使えば若干分かりやすくなるかもしれないけど。

sub ok(){ 1 };
my %test = (
1 => ok,
3 => ok,
5 => ok,
...
);
if($test{$A}){
...
}

>>288
「こんなメッセージ」ってどこに出るのさ？
エラーメッセージは表示されてないんじゃないの？
もう少し分かりやすく状況を説明して。

そのPerlはキミがインストールしたの？
もしそうだとしたら何故dbmopenが使えないのかは分からない。
そうじゃないとしたら標準モジュールがあるか確認して。

290 ：デフォルトの名無しさん：02/07/17 14:57

>>287,289
正規表現で書く

291 ：デフォルトの名無しさん：02/07/18 23:10

cgiで

Premature end of scrip
t headers

が直りません

可能な対処法を教えてください

292 ：デフォルトの名無しさん：02/07/18 23:12

26文字から3文字ピックアップして列べる場合の数は
26P3で計算出来るのは当たりまえだけど、その中身を
Perlで実際に全部プリントアウトする方法は簡単ですか？
やり方が全く皆目検討つきませんでした。
ちなみに10文字あたえてその並べ換えをプリントアウト
は何とかなりそうです。

293 ：デフォルトの名無しさん：02/07/18 23:37

>>292
普通に三重ループにすればいいと思うが。

294 ：デフォルトの名無しさん：02/07/18 23:41

use LWP::Simple;
$URL0 = "http://messages.yahoo.co.jp/bbs?.mm=CP&action=m&board=1835099&tid=perla4ja4sa4ga4bbcaldha2&sid=1835099&mid=1&type=date&first=1";
$start = 1;
$end = 50;

@a =split(/&/, $URL0);
$URL = "http://messages.yahoo.co.jp" . shift(@a);
while(@a) {
　　$tmp = shift(@a);
　　if(!($tmp =~ m/^(mid=|type=|first=)/)) {
　　　　$URL .= "&" . $tmp;
　　　　if($tmp =~ m/^board=/) {
　　　　　　$tmp =~ s/board=//;
　　　　　　$board = $tmp;
　　　　}
　　　　elsif($tmp =~ m/^tid=/) {
　　　　　　$tmp =~ s/tid=//;
　　　　　　$tid = $tmp;
　　　　}
　　}
}
$logdir = "C:\\yBBS\\log";
mkdir $logdir . "\\" . $board;
$dir = $logdir . "\\" . $board . "\\" . $tid;
mkdir $dir;
$out = $dir . "\\" . $start . "~" . $end . ".html";

open(OUT, "> $out");
print OUT "<body black link=blue alink=red vlink=#660099><dl>";
for($i = $start; $i <= $end; $i++) {
　　$text = get($URL . "&mid=" . $i);

　　$text =~ s/\n//g;

　　$text =~ m/<big><b>([^>]+)<\/b><\/big>/;
　　$msgTitle = $1;

　　$text =~ m/<small>([0-9\/ :]+)<br>[^:]+: (\d+) \/ \d+<\/small>/;
　　$date = $1;
　　$msgNum = $2;
　　#
　　$text =~ m/<a href="http:\/\/profiles[^>]+>([a-zA-Z0-9_]+)<\/a>/;
　　$user = $1;
　　#
　　$text =~ m/<\/small><\/td><\/tr><tr><td colspan=2> \;<br>(.+)<\/td><\/tr><tr><td colspan=2> /;
　　$msg = $1;
　　#
　　$text =~ m/<small>[^>]+<a[^>]+>(\d+)<\/a>[^>]+<\/small>/;
　　$resNum = $1;

　　print OUT "<dt>" . $msgNum . " ：<a href=><b>" . $user . "</b></a> ：" . $date . "<dd>";
　　print OUT "<b>" . $msgTitle . "</b><br>";
　　if($i != 1) {
　　　　print OUT "<a href=>>\;>\;" . $resNum . "</a><br>";
　　}
　　print OUT $msg . "<br><br>";
}
print OUT "<\/body>";
close(OUT);

295 ：294：02/07/18 23:45

本文忘れた。

Yahoo!の掲示板を取ってくるスクリプト(>>294)を
ヘタレなりに書いてみたんだけど、これではいまいち使いにくい。
使いやすくするために何かアイデア貸してください。
というか、誰か初めから書き直してください。

296 ：デフォルトの名無しさん：02/07/18 23:47

・・・の悪寒。

297 ：294：02/07/18 23:49

>>294
>　　　　print OUT "<a href=>>\;>\;" . $resNum . "</a><br>";

">\;>\;"は
＆ｇｔ￥；＆ｇｔ￥；
です。

298 ：コギャル＆中高生：02/07/18 23:49

http://go.iclub.to/ddiooc/

お役立ちリンク集
必ず役立ちます

コギャルとＨ出来るサイトはここ
ヌキヌキ部屋へ直行便
↓
http://kado7.ug.to/wowo/

　　　超究極イケイケ女子小中高生
　　　　　　　　　↓
　　 http://kado7.ug.to/wowo/-a.htm

299 ：294：02/07/18 23:58

あーーーーーーーーーー。

たしかにオレ、この板の人間じゃないけどさ。

VBでも勉強しよう。

300 ：デフォルトの名無しさん：02/07/19 00:35

>>293
292です。
書き方が悪かったです。
x文字からy文字(x>y)使って(同じ文字を複数回使ってよい)の順列
を全て求めるというのが出来ませんです。
ワシは一般化すると全く手が出ない程度のレベルですんで・・・
サンプルもしくは適当なモジュール教えていただけたら幸です。

301 ：291：02/07/19 00:55

>>291です

書き方が詳しくなかったので
補足します

その前にスレ違いな質問だったのでしょうか？
もし，そうでしたらすみません
今日perlを始めたばかりなのでご容赦ください

それで内容ですが
アクセスログを取得するパールを書きました
でheaderは
#!usr/bin/perl
だと思うのですが
>>291のようなエラーが出てしまいます
また/usr/binにperlがあるのは確認しました

また
perl ファイル名
とすると普通に通ります

あとログはちゃんと取れています
しかし，error_logを見ると>>291のような
エラーが出力されているのです

検索したのですが文字コードを
変換せよ，というページを
みつけてnkfをしたのですが
直りません

初歩的な質問かと思いますが
もし，アドバイスして頂けたら
うれしいです

302 ：デフォルトの名無しさん：02/07/19 01:22

age

303 ：名無しさん＠カラアゲうまうま：02/07/19 08:42

>>301
> #!usr/bin/perl
#!/usr/bin/perl

304 ：デフォルトの名無しさん：02/07/19 10:44

>>291
HTTPヘッダをきちんと出力していない。

305 ：291：02/07/19 12:30

>>303
>>304

>>303
すみませんここに書き間違えました
実際は#!/usr/bin/perlと書けてました

>>304さんのいわれた通りでした
基本的な知識が無かったです

お騒がせしました

306 ：デフォルトの名無しさん：02/07/20 15:05

ブラクラチェッカーのような、他のサイトのhtmlソースを取得するスクリプトは
どのように記述するのですか？

307 ：デフォルトの名無しさん：02/07/20 15:14

LWP::UserAgent

308 ：棄教者 ◆witdLTi2 ：02/07/23 16:00

>>306
緑色をしていて、蝉の絵が描いてある本を買うのもいいです。

。。。実をいうと持っていないので書名を知らないです。間抜けな漏れ。。。

309 ：デフォルトの名無しさん：02/07/24 09:39

配列の要素との一致を調べたいのですが

$check =~ /join('|', @date)/;

つまり↑のようなニュアンスのこと。
しかし、これではうまくいかないみたいです。
お願いします。

310 ： ◆JAPH9PWA ：02/07/24 09:59

難しく考えず、一時変数を使うといいよ。

$re = join '|', @date;
$check =~ /^$re$/;

311 ：デフォルトの名無しさん：02/07/24 10:04

>>308
蝉が怖くて買うのやめました。

312 ：デフォルトの名無しさん：02/07/24 10:11

>>310
ありがとうございます！
うまくいきました(激感謝)

しかし、直接記述出来ない理由や
^$re$　の^ と　$ がないとうまくいかない理由が
いまいちわかってない...

313 ：棄教者 ◆witdLTi2 ：02/07/24 17:33

>>308
http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-NIPS=9971171996

314 ：デフォルトの名無しさん：02/07/24 18:44

Perl5.8.0 が出たというので ActivePerlを待ちきれず、自分でコンパイル
してみた。Windows環境の ActivePerl5.6.1 で駄目駄目だった

print "表示"; が改善されてないなぁ。しくしく。。。

315 ： ◆JAPH9PWA ：02/07/24 19:06

>>314
ソースをUTF8にするとか
use encoding 'hoge';
とかしてもダメ？

316 ：デフォルトの名無しさん：02/07/24 22:13

GUI作るときは何を使うのがベストでしょうか？
GTK？それともTk？

317 ：デフォルトの名無しさん：02/07/24 23:45

win2000でvc6持ってるんですが
ActivePerlのperlccがうまく行きません。
なんかPerlcc.batに設定することとかあるのでしょうか？
.Net SDKのclをかってに使ってしまってるかもしれないんですが。

318 ：デフォルトの名無しさん：02/07/25 00:33

>>317
割れwin2000じゃ、うまくいきませんよ。

319 ：317：02/07/25 01:13

>>318
うそかなんだか知らんが答えられない奴がしゃしゃり出るな。
CygwinのPerlcc[gcc]じゃはなしにならんかったのよ。

320 ：デフォルトの名無しさん：02/07/25 10:04

>315
ダメみたい。もとより、SJISコードの「表」には \x5f のコードが入っている
ので SJISに完全対応しないと生書きでは化けてしまう。回避方はいくつか
あるんだけど面倒で。。。

321 ：デフォルトの名無しさん：02/07/25 13:26

>>317
つーかperlccなんか何に使うんだ。
実験か? Perlの勉強か? perlfaq3は読んだのか?

In general, the compiler will do nothing to make a Perl
program smaller, faster, more portable, or more secure.
In fact, it can make your situation worse.

つーかちゃんと調べてれば割れとか言われて逆ギレしないか。

世の中にはperl2exeっつーのもあるらしい。
http://www.indigostar.com/perl2exe.htm
おいらは使ったことないんでこれ以上のことは知らない。

322 ：317：02/07/25 14:31

Perlの勉強ですね、linux[elf]ではまぁうまくいきました。
perl2exeはフリーじゃないですよね。
>>321
もう一回だけ言う
答えられない奴がしゃしゃり出るな。
そうやって自分がわからん問題になると自分が理解できてもない
FAQ読めとかURL差し出して問題スルーさせるんだよな。
それで自分はわかったつもりになってんだよ、お笑いだね。
たてよみじゃないよ、嵐でもない、ねたでもないからくだらんつっこみよして答えろヤ。

323 ：デフォルトの名無しさん：02/07/25 14:37

何でそんなえらそうなんだ。

324 ：デフォルトの名無しさん：02/07/25 14:56

>>323
自尊心をくすぐって答えを引き出そうとする高等戦略のつもりなのだろう。

>>322
ここで質問＆煽りをして時間を無駄にしている暇があったらソースを読むか作者に訊け。

325 ：デフォルトの名無しさん：02/07/25 14:57

perlcc なんか使わないからな。

326 ：321 ◆FaOqqhYM ：02/07/25 15:48

>>322=317
答えられないけどもう一度しゃしゃり出るぞ。

勉強が目的なのなら、perlccが出した「Cコード」を読んだだけで、
何をやっているかわかっただろう。Windowsで実行するまでもなく、
perlccが中途半端で、未来があまり望みのないものだってこともわかるはず。
本当にperlccが出したCコードを読んだのか?
perlのバイトコードの逆アセンブル結果と比べてみたことはあるか?

perl2exeがフリーではないのは知ってるよ。
>>322の目的がわからなかったから示した。
perlfaq3を読んでないでperlccを使おうとする人にとって
ベストなツールが(ヲレの少ない経験上)perl2exeだというだけ。

(すまん、「ベスト」は言いすぎ。正直に告白する。
もうひとつくらいPerl2exeと同様の仕事をする
プロプライエタリツールがあったと思うがど忘れ)

勉強目的とわかった今、これだけは言いたい。
「win2kでperlccを使おうとしてあれこれ悩む時間で、
他のことを勉強した方が>>322のため世のため人のため」
>>322の目的は「win2kでperlccを動かすこと」であり、
ヲレの目的は「perlccを動かしたところで利が少ないことを
>>322以外の者に示すため」である以上、このポストでも>>322は満足するまい。

しかしヲレはヲレの目的のためにこれをポストするものである。
お目よごしごめん! 気を悪くした方は荒らしの一種とでも思ってくれい。

327 ：デフォルトの名無しさん：02/07/26 06:47

正規表現でPerl5では、/あいうえお/ は問題なく使用できますが、
[あ-ん]はうまく機能しません。どーにかなりません？？？

328 ：デフォルトの名無しさん：02/07/26 06:54

あ-ん♥

329 ：デフォルトの名無しさん：02/07/26 07:00

(あ|い|･･全部書く･･|ん)

330 ：デフォルトの名無しさん：02/07/26 09:40

jperl使ったとしても
[ぁ-ん]
にしないと。

331 ：デフォルトの名無しさん：02/07/27 00:21

s/あーん/ｲｸｲｸ逝っちゃう！/g;

332 ：デフォルトの名無しさん：02/07/29 02:37

>>327-331
print "(*´д｀*)ﾊｧﾊｧ" x 5000000000;

333 ：デフォルトの名無しさん：02/07/29 11:15

[あぁやっいぃ-ん]

334 ：よろしくお願いいたします：02/07/30 12:00

cgiをPerlにて作成しているのですが、
FileのOPENした内容の1行だけをPOSTﾃﾞｰﾀに書き換えたいのですが、
OPEN時に『＞』では新規POSTﾃﾞｰﾀしか残らず、『＞＞』ではﾃﾞｰﾀが追記され・・・。
すみません、かなりとんちかんな事を申し上げているとは思いますが
よろしくお願いいたします。
ｽﾚ・板違いでしたら申し訳ありません。

335 ：デフォルトの名無しさん：02/07/30 17:56

336 ：デフォルトの名無しさん：02/07/30 23:36

質問です。
#!/usr/bin/perl
while (<STDIN>) {
chomp ;
($a, $b) = (split / /)[0] ;
print $a ;
}

ってソースで、my name is hoge って打ったらどーして$aがmyになりますか？
split は@_の配列に入った後、その後の正規表現で0個にマッチだから$aに該当するものは無しで、@_がそのまま$aに行って、配列の数が入ると思うのですが。今回だと4個。
誰か知恵を分けて下さい。宜しくお願いします。

337 ：デフォルトの名無しさん：02/07/30 23:43

splitで指定してるのは区切り文字の正規表現でしょ。
普通にマッチするじゃん。

338 ：336：02/07/31 00:27

>>337
レスありがとう。
フィールドに分解された後の話なんだけど、0個にマッチのところでつまづいてます。
field 1(my),field 2(name), field 3(is), field 4(hoge)
ではなくて
field 0(my),field 1(name), field 2(is)....
って事ですか？　
たとえば{0,2} って書いてもmy にマッチしてるし範囲指定部分が不明です。

宜しくお願いします。

339 ：デフォルトの名無しさん：02/07/31 00:37

>>338
[0]って、splitでできた配列の0番めってことじゃないの？

340 ：339：02/07/31 00:43

($a, $b)の$bって意味ない気が。

@x =　split / /;
$a = $x[0];
$b = $x[1];
を
($a, $b) = (split / /);

@x =　split / /;
$a = $x[0]
を
$a = (split / /)[0];

とか、でしょ？

341 ：339：02/07/31 00:45

($a, $b) = split / /;
か。あと　;　忘れた。

342 ：336：02/07/31 01:01

>>340
有難う。
鉤括弧[]は理解ですが、中括弧{}の事で悩んでいるのです。
配列に対する中括弧の中の数字の適用範囲なんです。
あ、ちなみこれって、「初めてのperl　第2版　オライリー出版社」の7章正規表現の7.7.3の練習問題で分からないので質問しました。
「/etc/passwd　ファイルのログイン名の実名を出しなさい」　って問題。
模範解答では
#!/usr/bin/perl
while (<STDIN>) {
chomp ;
($user, $gcos) = (split /:/)[0,4] ;
($real) = split(/,/, $gcos) ;
print "$user is $real \n";
}

らしいんですけど、{0,4} の所がどうしても分かりにくくって。

343 ：342：02/07/31 01:03

理解ですが　→　理解できるのですが
ログイン名の実名　→　ログイン名と実名

344 ：339：02/07/31 01:07

>>342
その模範解答の[0,4]は

@x =　split /:/;
$user = $x[0]
$gcos = $x[4]
を
($user, $gcos) = (split /:/)[0,4];

って話でしょ。{}はそこに使えるの？

345 ：342：02/07/31 01:09

あーーーーー！
本文も鉤括弧だったーーー!
>>337 340
ごめんなさい。　本当にごめんなさい

346 ：デフォルトの名無しさん：02/07/31 23:14

>>314
これでどう?
use encoding 'shiftjis', Filter=>1;
use utf8;
use encoding 'shiftjis';
print join ' ', split //, 'あいうえお';

347 ：デフォルトの名無しさん：02/08/01 14:14

$a = 'abcdef123ghi';
などとなっているところから数字の部分だけを
$iに取りたいのですが、どうやったら良いのかさっぱり。
というわけで教えな兄ちゃん(w

348 ：デフォルトの名無しさん：02/08/01 14:52

正規表現をつかいなさい

349 ：347：02/08/01 15:09

$a =~ /[0-9]+/
こんな感じ？

350 ：デフォルトの名無しさん：02/08/01 15:11

>>347
教えるので漏れのことは兄チャマと呼ぶように。

$a =~ m(\d+);
$i = $&;

で取れた。数字がとびとびに複数回出てくるなら、

while ($a =~ m(\d+)g) {
push(@i, $&);
}

かなぁ。

351 ：347：02/08/01 15:22

>>350
ありがとう。兄チャマ。

352 ：デフォルトの名無しさん：02/08/01 17:38

> 346
どうもありがとう。あなたは神。

単に

use encoding 'shiftjis', Filter=>1;
use utf8;
use encoding 'shiftjis';
print "表示";

の部分だけで充分なんだけどね。

いまいち上の３行部分が何を意味してるかわからないから
これから勉強します。

353 ：Perl初心者：02/08/02 13:32

CONTIG join(AP001046.1:1..158063,AP001047.1:2891..38102,
AP001048.1:468..16588,AP001049.1:3222..36589,
AP001050.1:20683..98992,AP001051.1:27854..84904,
AP001052.1:17810..145540,AP001053.1:15589..161920,
AP001054.1:26009..120871,AB001523.1:28023..122638,
AB001517.1:8601..43051,AP001055.1:5998..36483,
AP001056.1:9890..36252,AP001057.1:168..3729,AP001058.1:100..39553,
AP001059.1:10880..36230,AP001060.1:9339..42133,
AP001061.1:1343..15847,AP001062.1:6219..36931,
AP001063.1:6606..45311,AP001064.1:4259..37061,
AP001065.1:25196..115798,AP001066.1:13493..39203,
AP001067.1:21334..148845,AJ011930.1:98247..333303,
complement(AJ239325.2:1..70301),AP001505.1:724..70282,
AP001579.1:1240..139270,AL133499.2:90483..128868,
AL163301.2:252851..340000,AL163302.2:1001..340000,
AL163303.2:1001..21522,AL133492.2:1..154157,AL592528.1:6352..37428,
complement(AJ011931.1:24401..98443),AJ239328.2:10925..41625,
AJ011932.1:1241..37818,AP001479.1:1..38936,AP001476.1:2028..32025,
AP001472.1:486..26467,AP001474.1:489..4628,AP001470.1:79..2476,
AP001471.1:550..7855,AP001467.1:616..7456,AP001101.2:1153..32331,
AP001473.1:1643..4299,AP001475.1:44..13697,AP001468.1:170..67332,
AP001469.1:480..47859,AP000471.2:1314..75008,AP001477.1:444..38399,
AP000335.1:102..26919,AP000336.1:903..36277,AP000337.1:25..53553,
AP000338.3:707..82117,AP000339.1:100..77774,AP000340.1:923..35932,
AP001478.1:1009..10338)
//
↑のデータがあるんですが→例：AP003351．1￥t102．．26919￥ｎ
のように取り出してデータを整理したいのですがわかりそうでわからない状態です。
誰か教えてください。　　　　　　　　　　　　　　　　　　　　　　

　　　　　　　　　　　　　　　　　　　　　　　

354 ：デフォルトの名無しさん：02/08/02 13:48

質問の意味がわからないです

355 ：Perl初心者：02/08/02 13:59

うまく説明でいなくて申し訳ないです<<354
CONTIG join()の中身だけ取り出して
○○○○：□□.．□□□，
　　　　　↓
○○○○「タブ」□□.．□□□「改行」
というように出力したいということなんですが
これで分かってもらえたでしょううか？

356 ：デフォルトの名無しさん：02/08/02 14:02

>355
s/^(.*?):(.*?),$/$1\t$2\n/g

357 ：デフォルトの名無しさん：02/08/02 14:38

> CONTIG join(AP001046.1:1..158063,AP001047.1:2891..38102,
とか
> AP001478.1:1009..10338)
の行はいらんのか?

あとこんな行はどうすんだ。
> complement(AJ011931.1:24401..98443),AJ239328.2:10925..41625,

…ところでCONTIGってなに?

358 ：Perl初心者：02/08/02 15:09

>356 試してみましたができるところとできないとこがありました。

>357 ファイル内のデータの一部なのでよくわかりません。
　　　

359 ：デフォルトの名無しさん：02/08/02 15:13

>>358
おまえが分からんのに他の奴に分かるわけがあるか。

360 ：デフォルトの名無しさん：02/08/02 15:14

>>358
あなたがSE（のたまご）だとしたらあなたを殴らなくてはいけない。

361 ：デフォルトの名無しさん：02/08/02 18:31

>359
まさかそりゃないでしょう。

362 ：デフォルトの名無しさん：02/08/02 18:39

>358 >354
ああ、意味わかった。まず、データを整形しる。join()を削ってから、中身だけを
s/,/\n/g;
にかけてから、>356の正規表現を適用しる。
ただ、complementの扱いをどうするか言ってくれんと、これ以上進めん。

363 ：362：02/08/02 19:06

いや、待てよ。
...で～きた。

while (<>) {
chomp;
@data = m/(A[A-Z]\d+?\.\d):(\d+?\.\.\d+)/g;
while (@data) {
print shift @data, "\t";
print shift @data, "\n";
}
}

364 ：Perl初心者：02/08/02 19:07

ほんとに質問の仕方が悪くてすみません。
complement()も削りたいです。

365 ：362：02/08/02 19:17

>364
おーい、363でうまくいくでしょ?
テストしてみたよ。

366 ：Perl初心者：02/08/02 19:33

>365
ありがとうございます。
できました。
みなさん、ご迷惑をおかけしました。

367 ：デフォルトの名無しさん：02/08/02 23:49

ファイルロックについて質問なのですが、普通マルチタスクOSはプロセス間の
デバイスの排他制御をしていますよね。でもPerlでは明示的にファイルのロック
をするようですが、これはなぜですか？

368 ：デフォルトの名無しさん：02/08/03 00:42

Windowsプログラムも複数起動すると同様の問題が生じ得るよ。
「ファイルロック」で検索したら？

369 ：367：02/08/03 01:16

検索したら何となく分かりました。
つまりopen~closeの間、プロセスがストリームを独占できる訳じゃないって事
ですか。そういえばflockはsystemcallでしたね。どうもです。

370 ：デフォルトの名無しさん：02/08/03 11:27

perlを本格的に勉強したいんだけど何かいい本てないかかな？
まだ独習Perlでしか勉強してません。

371 ：デフォルトの名無しさん：02/08/03 11:28

>>370
定番でラクダ本でいいだろ。

372 ：デフォルトの名無しさん：02/08/05 10:23

>371
独習Perlをマスターしたんなら、あとはひたすら書いて読むのがいいんじゃないかと
思いますよ。ラクダ本とかは「引く」本だと思う。

漏れはプログラミングPerl、実用Perlプログラミング、Perlクックブックを章ごとに
切り刻んだものを机の引きだしに入れていつも「使って」(読んで、ではない)いる。

373 ：372：02/08/05 10:24

s/371/370/;

374 ：デフォルトの名無しさん：02/08/05 11:35

hashの値からキーを取り出すうまい方法って何かありますか？

375 ：デフォルトの名無しさん：02/08/05 12:12

>>374
補足です。
具体的にはハッシュの値(昇順)にハッシュの要素を並べ替える
うまい方法を知りたいです。

376 ：デフォルトの名無しさん：02/08/05 12:46

sortすれ。

377 ：デフォルトの名無しさん：02/08/05 13:56

>375
標準関数keysで
keys %hash;
とやると、ハッシュのキー一覧のリストが返ってきます。これを同じく標準関数sort
に与えて
sort keys %hash;
とするとソートされたハッシュのキー一覧のリストが返ってきます。

378 ：375：02/08/05 14:10

ありがとうございます。

ハッシュキーそのものではなく、値の方でキーをソートしたかったんです。
質問が不備ですみません。

foreach $val (sort {$b <=> $a} values %hash){
foreach $ky (keys %hash){
if($val == %hash{$ky}){push @hashkey, $ky;}
}
}

とりあえずこんな方法でいいのかな。

379 ：377：02/08/05 15:33

それなら、標準関数reverseを使ってみてはどうでしょうか。
%reversed_hash = reverse %hash;
で、キーと値を反転できます。ここでsortしてから、また反転して戻すとか。
あと蛇足ながら、ハッシュの値が数値でないなら比較するときはeqですよ。

380 ：375：02/08/05 16:13

>>379
おー、そんな方法が！
早速試してみます。ありがとうございました。

381 ： ◆FaOqqhYM ：02/08/05 20:58

>>375-380
perldoc -q sortを実行してみちくり。

Found in /usr/local/perl/lib/5.8.0/pod/perlfaq4.pod
(中略)
How do I sort a hash (optionally by value instead of key)?
(中略)

@keys = sort keys %hash; # sorted by key
@keys = sort {
$hash{$a} cmp $hash{$b}
} keys %hash; # and by value

>>379
eqじゃなくてcmpだよ。

382 ：379：02/08/06 09:38

私は、

>foreach $val (sort {$b <=> $a} values %hash){

の部分ではなく、

>if($val == %hash{$ky}){push @hashkey, $ky;}

の部分に対してレスしたまで、とむきになってみるテスト。

383 ：375：02/08/06 09:44

>>381
ありがとうございます。
おかげさまで完全解決。
ちなみにソート対象のハッシュの値は数値なので問題なしです。

384 ：375：02/08/06 09:46

>>382
文字列の比較の辺り、私自身素人でして
見落としがちな部分だなぁと思います。ご指摘感謝です。

385 ： ◆FaOqqhYM ：02/08/06 10:20

>>382
>>if($val == %hash{$ky}){push @hashkey, $ky;}
>の部分に対してレスしたまで、とむきになってみるテスト。
をを! わし気づいてなかった。

そしたらperldoc -q valueを見てくらさい。
めんどくさいので全文引用。長くてゴメン。

How do I look up a hash element by value?

Create a reverse hash:

%by_value = reverse %by_key;
$key = $by_value{$value};

That's not particularly efficient. It would be
more space-efficient to use:

while (($key, $value) = each %by_key) {
$by_value{$value} = $key;
}

If your hash could have repeated values, the meth-
ods above will only find one of the associated
keys. This may or may not worry you. If it does
worry you, you can always reverse the hash into a
hash of arrays instead:

while (($key, $value) = each %by_key) {
push @{$key_list_by_value{$value}}, $key;
}

386 ：デフォルトの名無しさん：02/08/07 04:46

print

printf

↑この違いって何？

387 ：デフォルトの名無しさん：02/08/07 04:57

>>386
最後にfがあるかないかの違い。

388 ：デフォルトの名無しさん：02/08/07 05:29

>>387
やっぱり！
漏れもそう思ってたＹＯ！
さっそく、ひろゆき君に教えてあげなくちゃ！

389 ：デフォルトの名無しさん：02/08/07 11:43

>>387
ビデオではfが最後っていうことはあまりないようですが、実際には
よくあるのですか？

390 ：デフォルトの名無しさん：02/08/07 14:51

>386
printfだとフォーマットを指定することで出力形式を変えられる。
'2ch'を'002ch'と出力したい時とかに使う。

391 ：デフォルトの名無しさん：02/08/08 07:09

終わった話かもしれないけど、

>>379
$hash{'foo'} = 1;
$hash{'bar'} = 1;

な場合反転して戻すと違うﾓﾉにならないかい？

392 ：379：02/08/08 09:33

>391
はい、値が一意でなければ使えません。しかし「値でソート」と言っているので
値は一意であると仮定しました。

393 ：デフォルトの名無しさん：02/08/08 09:47

それはどうだかなー

394 ：379：02/08/08 18:19

>393
ご不満ですか? それなら値が一意でない場合はこうします。

while (my($key, $value) = each %hash) {
push(@{$rev_hash{$value}}, $key);
}

反転させたハッシュの値は配列へのリファレンスとして、そこへ元のハッシュの値に
対応するキーを格納していきます。これで、値 => (複数のキー)というハッシュが
作れます。

395 ：デフォルトの名無しさん：02/08/08 20:49

「リファレンス」って要するにCでいう「ポインタ」みたいな物なんですよね？

396 ：デフォルトの名無しさん：02/08/08 21:26

関数からハッシュ二つを返すにはどうすればいいのでしょう？
これだとうまくいきません。

(%a, %b) = func();

sub func{
my %a = (a, 1);
my %b = (b, 1);
return (%a, %b);
}

397 ：デフォルトの名無しさん：02/08/08 21:58

kent-webのスクリプトを細かく解説しているサイト知りませんか？

398 ：デフォルトの名無しさん：02/08/08 22:24

>396
ハッシュをそのまま返すことはできませんので、リファレンスで返します。

sub function {
my %a = (a => 1);
my %b = (b => 1);
return(\%a, \%b);
}

my ($ref_a, $ref_b) = func();

399 ：perl初心者１：02/08/09 01:18

yahooとかにキーワードを渡して、検索結果のページをゲットする
というものは、perlスクリプトでできますか？

400 ：デフォルトの名無しさん：02/08/09 01:22

できます。

401 ：perl初心者１：02/08/09 01:30

>>400
すんません。
ヒントを教えて頂けないでしょうか？

402 ：デフォルトの名無しさん：02/08/09 01:36

Webプログラム板かどこかでGoogle.pmっていうの開発してた人がいたね。

403 ：perl初心者１：02/08/09 03:20

>>402
ありがとうございます。
探してみます。

404 ：デフォルトの名無しさん：02/08/09 03:31

そんな大層なもの使わなくても検索結果のページを取得したいだけなら
http://www.google.com/search?q=%82%A4%82%F1%82%B1&ie=Shift_JIS&hl=ja&lr=
とかいうURLの"%82%A4%82%F1%82%B1"の部分がURLエンコードされた検索文字だから
こういうURLをリクエストしてGETすればいいだけだとおもうけど

405 ：デフォルトの名無しさん：02/08/09 10:47

> 404 (399とは別人です）

でね、HTTP モジュール見ても LWP モジュール見てもプロクシ噛ませる
場合の処理がよくわからないのです。

ヤフオクから複数キーワードを組み合わせていくつかのカテゴリ駆け
回って (自分好みの）出品物一覧を取得するツール開発中。。。

406 ：デフォルトの名無しさん：02/08/09 14:17

>>395は無視ですか…（ｼｮﾎﾞﾎﾞﾎﾞﾎﾞﾎﾞｰﾝ

407 ：デフォルトの名無しさん：02/08/09 14:18

パールモジュールpmはuse XXXXで
plは　requie 'XXX'でOKですか？

あと、pmってCPANとかいろいろ書いてるけど、
ふつーにはﾀﾞｳｿできないのですか？

408 ：デフォルトの名無しさん：02/08/09 15:45

>>406

ポインタ演算できないけど、位置付けは一緒とおもって良いと思うが。
どっちかってーとJavaのそれを思い出したほうが適切だが。

409 ：デフォルトの名無しさん：02/08/09 15:47

>>407

いーんじゃん？
Hoge.pm でも require Hoge; って書くことは多々有るが。

ふつーにCPANからﾀﾞｳｿできます。

410 ：デフォルトの名無しさん：02/08/09 19:36

　　↓
→>>389←
　　↑

411 ：デフォルトの名無しさん：02/08/09 20:39

ビデオ？

412 ：389：02/08/09 20:51

僕は現実を知らない、ただの子供なのだろうか…

413 ：デフォルトの名無しさん：02/08/09 22:07

つーかビデオってなんのことだ。マジな話。

414 ：389：02/08/09 22:21

近くのツタヤとかにない？
「初めての真珠」。

415 ：デフォルトの名無しさん：02/08/10 00:06

>>398
ふとおもったんですが

sub function {
my %a = (a => 1);
my %b = (b => 1);
return(\%a, \%b);
}

my ($ref_a, $ref_b) = func();
%a = %$ref_a;
%b = %$ref_b

って$ref_aと$ref_bを一度しか使いませんよね。

もう少し簡潔にできないのかといってみるテスト

416 ： ◆JAPH9PWA ：02/08/10 00:41

そういう場合は普通ハッシュリファレンスのまま使うかな

my($ref_a, $ref_b) = func();
print $ref_a->{a};

またはタイプグロブとか。私は使わないけど。
our(%a, %b);
(*a, *b) = func();
print $a{a};

417 ：デフォルトの名無しさん：02/08/10 00:44

>>389
いや、わかるんだが、fってもいろいろあるし…

418 ：デフォルトの名無しさん：02/08/10 00:45

>>405
言ってる意味がよくわからんのだが
LWPモジュールでプロキシに対して処理したいってことか？
それとも、LWPモジュールとかで作ったやつをプロキシサーバとして
動かしたいってことか？

前者なら、プロクシサーバであってもWWWサーバであるときと同じ
と考えていいぞ。ってか気にすんな

後者なら、ブラウザからHTTPが送られてくるからそれを解析
して適切に処理してやればいい

419 ：デフォルトの名無しさん：02/08/10 01:13

$ua->proxy("http", "http://proxy.hoge.jp:8080/");
という単純な話ではないのか？

420 ：418：02/08/10 01:22

>>419
なんについて？
プロキシサーバとして扱いたいなら、ブラウザからの要求を
解析する必要がある。

あと、プロキシサーバに対してなんかしたいときに特に
プロキシサーバであることを意識する必要ないんじゃないの？
じゃないとプロキシじゃないし・・・・

#UserAgentのなんかのメソッドにぶち込むだけでいいかも知らんがその方法は
#俺はよく知らんから調べるか、博識の人のレスをまつ

421 ：419：02/08/10 01:37

紛らわしかった。 >>419は >>405 の
>でね、HTTP モジュール見ても LWP モジュール見てもプロクシ噛ませる
>場合の処理がよくわからないのです。
に対するレスね。

422 ：418：02/08/10 01:45

>>421
なるほど。
ああ、俺も質問の意図を激しく誤解してるな・・・
Λ||Λ

423 ：デフォルトの名無しさん：02/08/10 12:50

>>407
>> パールモジュールpmはuse XXXXで
>> plは　requie 'XXX'でOKですか？
>>
>> あと、pmってCPANとかいろいろ書いてるけど、
>> ふつーにはﾀﾞｳｿできないのですか？

use Module;の場合、Module.pmというファイルがあると仮定する。つまり自動的に
拡張子を補う。requireはそういうことはしないので、拡張子をつけないといけない。
また、useの場合コンパイル時に処理を行うので、重いスクリプトを何度もテストする
場合はこの方がいい。というか今は特殊な事情がない限り、useを使うのがいい。
この端末では半角カナが読めないので後半には答えられない。

424 ：デフォルトの名無しさん：02/08/10 22:29

csh上でPerlを使っています。
Perlからcshのプロンプトを変更したいのですが上手くいきません。
どのように記述すればよいのでしょう？
「試したこと」
　system("set prompt=abcd");
とか、
　system("source プロンプトを変更するシェルスクリプト名");
など。

425 ：デフォルトの名無しさん：02/08/10 23:42

>>423
嘘はいけません。

426 ：デフォルトの名無しさん：02/08/10 23:50

reauire = #include だったと思うのだが････

427 ：デフォルトの名無しさん：02/08/11 00:57

>>424
子プロセスから親プロセスの環境を直接いじることは不可能。

eval `perl -e 'print "set prompt=abcd"'`

とでも*cshから*やる以外にはない。

428 ：デフォルトの名無しさん：02/08/11 11:11

>427
そうだったんですか、、、
残念だけど仕方ありませんね。
どうも有難うございました。

429 ：デフォルトの名無しさん：02/08/11 23:46

レス削除依頼を簡単にまとめられるＪｐｅｒｌで動くスクリプトを作ってください。
おながいします。
・削除理由によってスレッドをまとめる
・同じスレッドのレスは、一つのスレッドにまとめる
・重複依頼は一つにまとめる

こんな感じ

430 ：デフォルトの名無しさん：02/08/11 23:52

ここは作成依頼を受け付ける所じゃない。
http://pc.2ch.net/test/read.cgi/php/1028943269/
にでも逝きな。

431 ：423：02/08/12 09:32

すんまそん。嘘つきました。requireでも拡張子pmを補います。ただし、plでは補わない
ことを確認しますた。requireときたらライブラリの拡張子はplだったんで勘違いして
ますた。マジすいません。

432 ：デフォルトの名無しさん：02/08/13 01:26

自分のサイトのファイルのダウンロード数を
カウントするＣＧＩってどっかにありますか？

433 ：デフォルトの名無しさん：02/08/13 13:21

アクセスログ見たら

434 ：デフォルトの名無しさん：02/08/13 21:59

ファイルの中身を真っ白にする方法はありますか？
中身がある既存のファイルを、何にも書いていない空ファイルにしたいのです。

seek関数を使ってポインタを最初に戻してからcloseしてもそのままでした。

435 ：：02/08/13 23:38

open(FILE,">file.txt");
close(FILE);

436 ：434：02/08/14 06:16

>>435
試してみたら出来ました。
書き込みモードに設定すればよかったんですね。
マジで助かりましたよ。ありがとうございました。

437 ：棄教者 ◆witdLTi2 ：02/08/14 09:34

>>432-433
analog というツールがあるので、それを探しましょう。
http://www.analog.cx/
UNIX用のツールですがWinにも移植されています。
アクセスログを提供してくれないプロバイダだとちょっと難しいかもしれない。

あとは、ファイルへの直接リンクを禁止して、
一度 *.cgi なページを踏ませることにしたらどうですか。で、
*cgi なページではページを踏んだ回数をカウントする、と。

438 ：デフォルトの名無しさん：02/08/15 12:56

すみません、ちょいと聞きたい事があるのですが、ここに任意の
数の要素を持つ任意の数の配列(@array[1], @array[2], ...) が
あったとして、全ての配列要素の順列組合せを出力する場合、
何か良い手はあるでしょうか? ちなみに要素の数は配列毎にばらばらです。

WEB 上でいろいろ探してみたのですが、perl 上での多次元配列の
順列組合せについて書かれているページを見付ける事はついに
出来ませんでした... 鬱氏

439 ：438：02/08/15 17:26

あとでちょっと調べたりして、自分自身 perl の事が良く
分からないまま質問したなぁ、と反省しています。多分、質問の
意図も理解されないような気がしますので、具体例でしたい事を
書いてみます。

たとえば、

@array[1] = 0.5, 1.0, 1.5, 2.0
@array[2] = 1, 2, 3

として、

(0.5, 1), (0.5, 2), ..., (2.0, 3)

という出力が欲しいんです。配列は a, b だけでなく不特定で、
各配列の中身もてんでんばらばらです。

perl の入門書とかを読みながら考えているのですが、配列だの
リストだのがだんだんごっちゃになって来てしまっています。
誰かここ読めゴルァで構わないので教えて下さい。

440 ：jpahたんらヴ ◆KsLROhUY ：02/08/15 17:41

とりあえずだ、
配列は@test=(4,5,6,)　こう
とりだすのは　print $test[0]
とかそういうのは分ってるんだね？

441 ：438：02/08/15 18:03

>>440
なんとか。

ところで、
@test=(4,5,6)
を
@test[1]=[4,5,6]
と書いても間違いではないでしょうか? 配列自体の数も不特定なので、
配列自体をある配列の要素として扱いたいのですが。< なんか自分で言ってて良く分からない...

442 ： ◆JAPH9PWA ：02/08/15 19:04

@test[1]=[4,5,6]？？構文エラーにはならないけど、普通はこんな書きかたしないよ。
とりあえず「プログラミングPerl」を買って読んだ方がいいね。

で、>>339はその通りにやろうとすると激しく面倒だから多次元配列の簡単な説明だけね。

my @foo = (1, 2, 3); # 通常の配列
my @bar = (\@foo); # barは要素を一つ持つ配列。その唯一の要素は配列への参照(リファレンス)
push @bar, [4, 5, 6]; # barの要素は二つになった。　[ expr, ...] は配列へのリファレンスのリテラル表現

print $bar[0][0]; # barのindex 0をデリファレンス。 1が表示される。
print $bar[1][2]; # 同様に、6が表示される。
$bar[0][0] = 0; # 代入も同様

少しは分かってもらえたかな？
まぁこのあたりはPerlでもCでも凄く難しいところだよね。

443 ：デフォルトの名無しさん：02/08/15 19:15

なるほど、質問者とは別だけど
そういう風にやるのね…。

リファレンスって便利だね。

444 ：jpahたん死ね ◆KsLROhUY ：02/08/15 20:39

　　　　　＿＿ , ―― ' ￣￣￣￣`――､＿__
　／￣￣＿＿＿＿＿＿＿＿＿＿　)　）　）　`＼
（　　　 ,/' !　i　ｌ　ｌｌｌ | | | | ｌｌｌｌｌ !i`~ーー､､　　＼
　ヽ＿（〆――――-～//⌒~ヽヽミｼヽ､`ヽλ＿＿ｌ
　､　 ~　　　　　　　　　 λλ___､丶ヽ/'~ヽ､。~ﾊｗｗヾ　　　　　〉〉
　`､ー―――――-丶// /⌒~⌒ヽ､ヽ､　　`ーヽく〃　　　　,//
　　￣￣￣￣￣￣~`（ | λ＼ヽ冫ﾉ,冫~　　　　　　　　　《丿/
　　　､､＿＿＿＿＿__| | ＼__丶´/ｌノ冫　　　　　　　　　ｌ　/
　　　　` ー――ヽニ_ーｌ＼＿､＼＼＼冫　　　　　　　／,〆
　　　　　　　　　　　　`ヽｌ＼___￣　＼ヽ＼　　　　／ノ／
　　　､`――――――ヽ＼__￣￣､, ＼ヽ＼　　,／イ／
　　　　￣￣`――､＿ー､!＼_￣￣ノ　　＼ヽ∨'〃／
　　　　　　　　　　　　￣＼　〉ノ〉　　　　ヽο冫
　　　　　　　　　　　　　　　,〉// ノ,|　　　　　 ~~
　　　　　　　　　　　　　　 (/,/　 '/'ｌ
ったく馬鹿がつられやがって、この板で決着つけようか？

445 ：foobar：02/08/15 23:09

>>439
@array1=(0.5, 1.0, 1.5, 2.0);
@array2=(1, 2, 3);

for $i (@array1) {
for $j (@array2) {
print "($i, $j), ";
}
}

446 ：デフォルトの名無しさん：02/08/15 23:16

@array = (
　　[0.5, 1.0, 1.5, 2.0],
　　[1, 2, 3],
);

foreach my $foo (@array) {
　　foreach my $bar (@$foo) {
　　　　print "($foo,$bar), ";
　　}
}

日本語キーボード超ウゼー

447 ：デフォルトの名無しさん：02/08/15 23:17

>>446
あ、適当に書いたけど、これじゃ全然ダメだな…
$fooに入ってるのはリストへのリファレンスだ
俺のアホ

448 ：デフォルトの名無しさん：02/08/15 23:25

@array = (
　　[0.5, 1.0, 1.5, 2.0],
　　[1, 2, 3],
　　# これ以上増えたら、下のコードじゃ対応できない。ヘボいね。
);

for (my $a=0 ; $a<@{$array[0]} ; $a++) {
　　for (my $b=0 ; $b<@{$array[1]} ; $b++) {
　　　　print "($array[0]->[$a],$array[1]->[$b]), ";
　　}
}

これでいいか…
日本語キーボード超ウゼー

449 ：438：02/08/16 11:38

>>442
むむむ、では、
@test[0]=[1,2,3]
@test[1]=[4,5,6]
ではなく
@test=([1,2,3],[4,5,6])
が正解なんですね。で、さらに配列を追加するには push を使う、と。
@var=(7,8,9,10)
push @test,(\@var)

なーるほど。なんかすごく納得できました。どうもありがとう!!
あとはこれを全部なめるやり方を考えるだけかな。
と言ってもそれが一番面倒そうだけど。

>>448 さんも書いているけど、不特定の配列要素を全部なめるとなると
普通に for を使うだけではダメですよね。

450 ：448：02/08/16 12:38

sub recursive ($$$) {
　　my ($matrix, $left, $stratum) = @_;

　　foreach my $oe (@{$matrix->[$stratum]}) {
　　　　my @tube = (@$left, $oe);

　　　　if ($stratum+1 >= @$matrix) {
　　　　　　print (join(',', @tube), "\n");
　　　　} else {
　　　　　　recursive ($matrix, \@tube, $stratum+1);
　　　　}
　　}
}

my @matrix = (
　　[1, 2, 3],
　　['a', 'b', 'c'],
　　['X', 'Y', 'Z'],
);

recursive (\@matrix, [], 0);

これでmatrixが二次元配列である限り大丈夫かな

451 ：デフォルトの名無しさん：02/08/16 13:08

ねえ、

http://pc.2ch.net/tech/kako/1017/10177/1017736187.html

この過去ログと、このスレってどういう関係にあるの?
もう、なくなったのかと思ってたこのスレ。

452 ：デフォルトの名無しさん：02/08/16 13:21

>>451
pc鯖からpc3鯖に移転したんだよ。

453 ：デフォルトの名無しさん：02/08/16 14:43

>>449
@test = ($ref1, -> [1,2,3]
$ref2) -> [4,5,6] (概念図、コードとしては不正)

で、配列の要素は配列じゃなくて、それを指すリファレンス(スカラーの一種)です。
それから、配列の要素を指定する場合は接頭記号が$になります。
@test[1] じゃなくて $test[1] です。

>>さらに配列を追加するには push を使う、と。
>>@var=(7,8,9,10)
>>push @test,(\@var)

の場合、配列を追加してるわけじゃなくて、リファレンスを追加しているのです。
分かってたらおせっかいスマソ。

454 ：438：02/08/16 16:08

>>450
おお、すごい!!
そっか、再帰的に関数を呼び出すと言う手が使えるんですね!!
うーん、しかし、すぐにはわけわからんですな。少し考えてみます。

455 ：デフォルトの名無しさん：02/08/16 20:41

>>375
遅レスだが
foreach $key (sort {$hash{$b} <=> $hash{$a}} keys %hash){
// some operations
}
でどうか

456 ：：02/08/16 20:45

>>455
本当に遅レスだな
>>381で既に答えが出ているのに(藁

457 ：デフォルトの名無しさん：02/08/17 11:56

いろんなソースを見たほうが勉強になる。

458 ：デフォルトの名無しさん：02/08/17 23:49

>>456
失敬失敬。問題だけ見て他の人の解答を見てなかったよ。

459 ：デフォルトの名無しさん：02/08/18 09:46

LWP::UserAgentをつかってProxyのテストをするスクリプトを書いたのですが、
$ua->timeout('30');としても30秒で終わらない（へたすると何分もかかる）状態
になります。

たぶん、$ua->timeout()はHTTPでリクエストを送信するときにヘッダに
timeoutを指定して送るだけだからなんじゃないかと思うんですが、
30秒したら、強制的にコネクションを切断して次のプロクシのテストを
したいときにはどうすればよいでしょうか？

callbackというのを使えばいいのかとも思ったのですが、これだと
何バイトか返ってくるたびにサブルーチンを呼び出すということなので、
ぜんぜん返事が返ってこない場合は意味のないような気もします。

どなたかヒントだけでもお教えくださいませ。よろしくお願いします。

460 ：デフォルトの名無しさん：02/08/18 11:36

LWPは忘れてalarm関数とかを使ってみる、とかかしら。

うまくいったらフラグをたてとくようにして一定時間後にそれを見ると。

461 ：デフォルトの名無しさん：02/08/18 14:01

なるほどー

my $res;
eval {
local $SIG{ALRM} = sub { die "timeout" };
alarm $TIMEOUT;
# Pass request to the user agent and get a response back
$res = $ua->request($req);
alarm 0;
};
if ($@ =~ /timeout/) {
print STDERR "time out\n" if $DEBUG;
return;
};

こんな感じで書いて見ました。
ただ、これでもたまに1分ほど固まるときがあるんですよね。。
はじめてalarmを使ったので使い方を間違えてるのかな？
もうちょっといろいろ試してみます。どうもありがとうございました。

462 ：デフォルトの名無しさん：02/08/26 01:00

CGIをPOSTモードで呼び出したいんですが、どうすればよいでしょうか？
GETなら簡単ですけど、それはなしで。
print "Location: hoge.cgi\n\n";
こういうのつかうのかな？

463 ：デフォルトの名無しさん：02/08/26 09:20

print "Location: hoge.cgi; post=mode\:form\n\n";
とかやってみたけどダメだ～。
それとも不可能でしょうか？

464 ：デフォルトの名無しさん：02/08/26 09:49

>>463
ちゃんとCGIの勉強したほうがいいかと。
Locationヘッダは関係ないよ。
POSTは標準出力から読み込むんだから。

465 ：棄教者 ◆witdLTi2 ：02/08/26 10:01

<FORM ACTION="./hoge.cgi" METHOD="post">
糞スレを立てた奴の名前を入れて下さい<INPUT TYPE="text" NAME="kusosure">
<INPUT TYPE="submit">
</FORM>

466 ：デフォルトの名無しさん：02/08/26 10:05

うむ、そうですね。
>>465
いや、CGIから呼び出したいんですが。

467 ：デフォルトの名無しさん：02/08/26 12:28

やっぱりわからないなぁ。
参考になるサイトありませんか？

468 ：棄教者 ◆witdLTi2 ：02/08/26 12:34

CGIから? CGIを? どっち?

469 ：デフォルトの名無しさん：02/08/26 13:27

CGIからCGIを
です。

470 ：棄教者 ◆witdLTi2 ：02/08/26 14:03

---foo.cgi---
print <<"__EOM__";
Content-type:text/html

<HTML><BODY>
<FORM ACTION="./bar.cgi" METHOD="post">
糞スレを立てた奴の名前を入れて下さい<INPUT TYPE="text" NAME="kusosure">
<INPUT TYPE="submit">
</FORM></BODY></HTML>
__EOM__

これで bar.cgi を POST メソッドで呼べるＹＯ！

471 ：棄教者 ◆witdLTi2 ：02/08/26 14:04

×これで bar.cgi を POST メソッドで呼べるＹＯ！
○これで foo.cgi から bar.cgi を POST メソッドで呼べるＹＯ！

472 ：デフォルトの名無しさん：02/08/26 14:44

そのformにnameとかidとかを入れてやって、
<script language="JavaScript">
document.form[hoge].submit
</script>
的なJavaScriptを差してやれば目的のことができるのでは?

473 ：デフォルトの名無しさん：02/08/26 16:19

Content-type:text/html

<HTML><BODY>
<FORM name="form1" ACTION="./hoge.cgi" METHOD="post">
<INPUT TYPE="text" NAME="txt">
<INPUT TYPE="submit" name="btn">

<script language="JavaScript">
document.FORM[form1].submit[btn]
</script>

</FORM></BODY></HTML>

あわせるとこんな感じだが・・
動いてくれない。
Javaはさっぱりでして。

というかこういう方法しかないんでしょうか？

474 ：デフォルトの名無しさん：02/08/26 17:43

単にパイプ付きでopenすればいいだけぢゃねーの？

環境変数に適当なものを与えれば、コマンドプロンプトで実行できるのと同じで。

475 ：デフォルトの名無しさん：02/08/26 19:45

お。

パイプ付きでopen・・・

すみません、全然分かりませんです。

476 ：デフォルトの名無しさん：02/08/26 20:42

えーと、今手元にperlがないので、間違えているかもしれないが。
open(CGI, "|post.cgi");
print CGI "hoge=hage";

みたいなことでは？
POSTはcgiに標準入力を食わせることになるから、
そのcgiプログラムを元のperlのcgiから直接実行してやる、と。

477 ：デフォルトの名無しさん：02/08/26 21:20

おお、核心に近づいてきた気がするな。

っていうかPOSTってCGIのことだったのか・・・

でもActivePerlのファイルをみるとpost.cgiってファイルは無いようです。
CGIの呼び出しはどこにいれるのやら
print "Location: hoge.cgi\n\n";
open(CGI, "post");
print CGI "mode=form";
こういうことではないですよね？

478 ：デフォルトの名無しさん：02/08/26 21:21

>>476
それだと同一サーバ上のプログラムを呼んでるだけ。
CGI プログラムを POST で呼ぶには、Web サーバの port 80
とかに Socket 繋いで HTTP でお喋りしなきゃダメ。

もし環境に恵まれているなら、LWP 使うのが楽。

475 はペリカン本 (O'REILLY 「Web クライアントプログラミング」)
読むべし。細かい部分は RFC 2616 参照。

479 ：いらすま：02/08/26 21:24

　　いらすまですう

　　　せいきひょうげんというのわぁ

　　おちんちんとかぁ

　　おまんことかぁ

　　/$.*^/とかぁ

480 ：デフォルトの名無しさん：02/08/26 22:16

は～。
難しそうですねぇ・・

っていうか、
ログイン→データ一覧表示→データ削除→
”削除しました”画面表示→元のデータ一覧表示に戻る

ってやるとページの有効期限切れってなっちゃうじゃないですか。
それをどうにかしたいってことだったのですが。

481 ：デフォルトの名無しさん：02/08/26 23:11

>>473を見ると、自サーバかなと思ったけど、実際はどうなん？
元質の>>462の発言が、どれかわからない。あげてるやつか？

482 ：478：02/08/27 00:24

>>480
Perl の話じゃないから板違いだが…。
有効期限切れ? JavaScript で back してない?

1. ログインページから login.cgi を呼ぶ
2. login.cgi でログイン処理後、処理終了ページを出力
3. 処理終了ページから list.cgi を呼ぶ
4. 出力されたデータ一覧ページから delete.cgi を呼ぶ
5. delete.cgi でデータ削除後、処理終了ページを出力
6. 処理終了ページから list.cgi を呼ぶ
7. 出力されたデータ一覧ページから…

2. や 5. で処理終了ページを一々出したくなかったら、
login.cgi や delete.cgi に list.cgi と同じ機能を持たせれば OK。
データ持ち回りたかったら Cookie なり隠しフォームなり。

483 ：デフォルトの名無しさん：02/08/27 02:29

はじめまして。
当方文系でプログラム全然わかんない人ですが、恥を忍んでうかがいます。

ネットで公開されているスクリプトを使いたくて
ActivePerlをインストールしたんですが、
スクリプトの実行方法がよくわかりません。

プログラミングをしない単なる利用者として
perlの仕組みを勉強したインですが、
おすすめの本・サイトがあったら
教えてもらえませんでしょうか…（一応ｸﾞｰｸﾞﾙで検索したんですが）

484 ：デフォルトの名無しさん：02/08/27 02:33

ちなみにそれはどんなスクリプトなのでしょう。
それがわかると説明しやすいんじゃないかな。

485 ：482：02/08/27 10:13

>484さん
　　さっそくのレス、恐れ入ります。
　スクリプトの内容は、
　辞書データを間引くスクリプトです。

　perlはＤドライブにインストールしてあるんですが、
　スクリプトをＤＬ・解凍した後どこに持っていけばいいのかとか
　スクリプトを実行する書式とか
　わかんないことだらけで･…

486 ：デフォルトの名無しさん：02/08/27 10:52

>>485
まず perl そのものが実行できるかどうか
これはコマンドプロンプトから perl -v と入力して反応があるかどうかを調べる。
バージョン番号などの反応があれば、次へ、無ければパスの設定をする。

次にそのスクリプトを実行する。
付属ドキュメントにインストール方法が書いてなければ、
これは適当なディレクトリに *.pl ファイルを放り込み、
perl スクリプト名　を入力すれば実行できる。

モジュールを別にインストールする必要があるばあいは、
付属ドキュメントによく目を通すこと。

487 ：462：02/08/27 11:38

>>482
それだとログインしたっていうじょうほうをクッキーに書き出すってことでしょうか？
ちなみにテストとして自サーバーというか、自分のパソコン上でやってますが
実際はPlalaサーバーで動かします。

>>483
多分CGIうごかしたいんじゃない？
http://www.st.rim.or.jp/~nakata/
のhttpdとかいれるとよいのでは？

488 ：デフォルトの名無しさん：02/08/27 12:05

i-mode絵文字対応フォームメールを設置したいのですが、
文字化け対策がうまく行きません。
（文字化けする絵文字としない絵文字がある。）
処理をうまくしてる人はどうやってやってます？

489 ：482：02/08/27 18:16

>>487
Cookie でログイン済フラグを持たせるのも一つのやり方だね。
何にしても、

・具体的にどんなシステムを作りたいのか
・どの程度厳密に制限しなくてはいけないのか
・誰が利用して誰が保守するのか

が分からないと、これ以上アドバイスしようが無い。

>>488
化ける文字と化けない文字、それぞれの共通点を調べてみたら?

http://www.google.co.jp/search?q=imode+%E7%B5%B5%E6%96%87%E5%AD%97+%E6%96%87%E5%AD%97%E5%8C%96%E3%81%91&ie=UTF-8&oe=UTF-8&hl=ja&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja

462 も 488 も、WebProg 板辺りに質問をまとめ直して投げた方が
答えてくれる人多いと思うよ。ここは「Perl」のスレで「CGI」のスレじゃ
ないからね。

490 ：485：02/08/28 00:27

>486さん
　　アドバイス、ありがとうございます。
　ご指導の第一ステップはクリアできているみたいです。
　もうチョット調べれば、なんとかなりそうです。
　助かりました。

491 ：デフォルトの名無しさん：02/08/28 01:18

windowsで子プロセスを起こした場合
プロセスの終了を親プロセスで知ったり、あるいは出力をうけとったり
できないでしょうか．

492 ：491：02/08/28 01:26

説明不足でした

親プロセスも子プロセスもパールスクリプトで
systemは子プロセスの終了待ちをしますから、
まずいです。
Win32::Processモジュールを使って、子プロセスを
作っているんですが、、、、

493 ：488：02/08/28 11:29

>489

参考になりました。
ありがとうございます。

494 ：デフォルトの名無しさん：02/08/29 12:59

2ちゃん用ブラウザで読める掲示板を作ろうとしているんですが、なかなかうまく読めません。
大抵のブラウザで読めるようにするために、最低限必要なファイルはなんでしょうか？

今作ったのが、read.cgi、index2.html、subback.html、read[1-9].datです。
datファイルの名前が良く分からなかったので、read1.dat～read9.datまでとりあえず作りました。

495 ：：02/08/29 23:41

>>494
0ch参考にしてみ。ソース公開してるんで。

496 ：デフォルトの名無しさん：02/08/31 22:32

MacOS8.6で、WEB共有とMacJPerlを使ってローカルでCGIを動かしています。

Linuxサーバーなどでは、スクリプト中で外部のサブルーチンなどを呼ぶ場合は
require './sub.txt';　　などと記述しますよね。
これをやりたいのですが、Macだとディレクトリを:で表すせいなのか
require './sub.txt';　や　require '.:sub.txt';　ではエラーになってしまいます。

エラー内容は
# sub.txt did not return a true value.
File 'Macintosh HD:Desktop Folder:test:index.cgi'; Line 3
です。

どのように記述すればいいのでしょうか？

497 ：初心者：02/08/31 23:27

Perlやってみたいんですけど、何を落とせばいいんでしょうか？
あと、エディターは何がいいですか？

498 ：デフォルトの名無しさん：02/08/31 23:30

>>497
Unix系OSを入手、Perlが標準で入っている。
そうなるとエディタはEmacsかvi、好きな方使え。

499 ：初心者：02/09/01 00:19

Unixってなんですか？Linuxのパクリですか？

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

500 ：デフォルトの名無しさん：02/09/01 00:47

>>499
ナイスボケ。

501 ：デフォルトの名無しさん：02/09/01 03:44

書いてあるじゃん。原因が。

> エラー内容は
> # sub.txt did not return a true value.
> File 'Macintosh HD:Desktop Folder:test:index.cgi'; Line 3

なんでしょ。
「sub.txt did not return a true value」だって。

ラクダ本の641ページ見てごらんよ。持ってないなら本屋で。

あと、この板の上のほうに「CGI は Web プログラミング板へ。」って書いてありますけど。

502 ：デフォルトの名無しさん：02/09/01 14:54

>>501
!=499だけども

らくだ本はやっぱり基本だし買っといたほうがいいかなぁ。
技術評論者のCGI/Perlしかないし。
CGI以外にも結構便利なんだが。

503 ：デフォルトの名無しさん：02/09/02 05:58

>>502
＞sub.txt did not return a true value
の意味がその本読んでもわからないようだったら、
らくだ本買ったほうがいいね。
ただし、今らくだ本は新版の翻訳中。

504 ：デフォルトの名無しさん：02/09/02 21:22

Formで渡された値が半角英数かどうかを
判断したいんだけど...
検索してもなかなか見つからないので
誰か知ってる人、知恵を貸してください。

505 ：デフォルトの名無しさん：02/09/02 21:28

>>504
man ascii

506 ：デフォルトの名無しさん：02/09/03 01:19

if ($hoge =~ /^[a-z]+$/) { print "HANKAKU EISUU DESU"; }

507 ：デフォルトの名無しさん：02/09/03 01:38

>>506
不合格

508 ：デフォルトの名無しさん：02/09/03 01:46

[^\W_]

509 ：名無し：02/09/03 02:28

申し訳ありませんが、どなたか教えて下さい。
perlからservletを呼び出せるのでしょうか？
例えば、「http://*****/*****/servlet」を呼びだしたい場合
$ret = "http://*****/*****/servlet"
と記述したら、「$ret」にservletの戻り値が入るのでしょうか？

510 ：デフォルトの名無しさん：02/09/03 02:37

...

511 ：デフォルトの名無しさん：02/09/03 02:50

use LWP::Simple
$ret=get('http://*****/*****/servlet');

これで。$retにservletの戻り値が（アワワ

512 ：名無し：02/09/03 03:03

>>511
早速のスレ有難うございます。
現在テスト環境がないので、明日試してみたいと思います。
有難うございました。

513 ：５０４：02/09/04 00:17

505-508
出来ました！ありがとうございました！
man ascii も勉強になったよ～

514 ：デフォルトの名無しさん：02/09/04 21:31

datファイルに出力する際、

open OUT,">>datfile.dat";
print OUT "aaaaaa\n";
close OUT;

これで実行すると、datfile.datの中に元々あった文章の下の行にaaaaaa\nが入りますよね。
これを1番上の行に挿入したいのですがどうすればいいでしょうか？

515 ：デフォルトの名無しさん：02/09/04 21:51

>>514
ファイルの途中に挿入するのは原理的に無理じゃない？

516 ：514：02/09/04 22:04

>>515　無理なんですか…残念です。

もう一つ質問なのですが、
open IN,"datfile.dat";
while(<IN>){
（省略）
でファイルを読み込んだ時、datfileの上の行から読み込みますよね。
それを下の行から読み込むことは出来ますか？

517 ：デフォルトの名無しさん：02/09/04 22:15

>516
seek とか使えば出来ないことはないと思うけどちょっとしんどいかな......
datfile がそんなに大きくないなら

open FH, "datfile.dat";
@file = <FH>;
for ( $i = $#file; $i >= 0; $i-- ) {
print $file[$i];
}

518 ：：02/09/04 23:21

素直にreverse使え。

519 ：デフォルトの名無しさん：02/09/05 01:58

>>514
open TMP, ">datfile.tmp" or die;
open DAT, "<datfile.dat" or die;
print TMP "aaaaaa\n";
print TMP <DAT>;
close TMP;
close DAT;
rename "datfile.tmp" => "datfile.dat" or die;

一番上に追加できりゃ、>>516 の処理はしなくていいと
読んだんだけど。これでいい?

520 ：newbie：02/09/05 10:21

1234567,犬,222,1
2345678,猫,333,2

というCSVファイルを食わせて、最後の数字の行だけ
前から三つまでのフィールドを書き出したいのですが、
どうやったらよいのでしょうか

ちなみにMacPerlのドロップレットにしようと思ってます

521 ：棄教者 ◆witdLTi2 ：02/09/05 12:15

tail と sed をつかったらどうよ。

522 ：デフォルトの名無しさん：02/09/06 01:40

PerlスレッドはWebProgに隔離されます。
おまえら半端言語のくせに生意気だ。

523 ：デフォルトの名無しさん：02/09/06 02:03

perlのコマンドが一覧で乗ってるところを教えてください。
もしくは初心者用ページを。

524 ：名無しさん＠Ｍｅａｄｏｗ：02/09/06 05:53

>>523
多分ActivePerlを入れたんでしょ。なら、documentが付いてるYO
英語じゃいやなら、http://www.harukaze.net/~mishima/perl/
あたりから辿れば、関数一覧なんかいろいろなところにあるよ。

525 ：デフォルトの名無しさん：02/09/06 17:55

2chのトリップと同じ処理ができるスクリプトを作りました。
しかしサーバーのOSがFreeBSDだったため、cryptの処理がLinuxと違い、困っています。

なにかうまく同じ処理結果を出す方法はないでしょうか？

526 ：デフォルトの名無しさん：02/09/06 18:36

>>525
Linuxのソースからcryptだけとってくるか、
FreeBSDのLinuxエミュレータ使えばいいんじゃねーの？

527 ：デフォルトの名無しさん：02/09/06 19:31

>>526
cryptってみんな同じ結果でるんじゃなかったっけ？
ためしにこれコンパイルしてみてよ。
http://davesource.com/Projects/DEStiny/x.c.html

・・つーかスレ違いだな

528 ：デフォルトの名無しさん：02/09/06 19:43

ある変数に格納されているテキストを，
外部コマンドに標準入力から入れ，結果をまた
別の変数に格納したいのですが，良い方法ないでしょうか．

$result = `echo '$a' | foo`;

としたのですが，$aに「'」が入っていたりすると，まずいようです．
何か良い方法があれば，教えてください．

529 ：デフォルトの名無しさん：02/09/06 20:01

DESのとMD5のとあるんじゃなかったけ。

530 ：デフォルトの名無しさん：02/09/06 20:22

>>529
ごめん。そだね。

>>525
cpanにcryptモジュールがいくつかあるからそっちでやってみて。
ちなみに、linuxでもDebianはDES、MandrakeはMD5みたい。

531 ：デフォルトの名無しさん：02/09/06 21:38

>528
どうして $a を ' で括る必要があるの？

532 ：デフォルトの名無しさん：02/09/06 21:47

>531
$aはHTML文書で，spaceやら"&"などを含んでいるのです．．．
何かいい方法は無いでしょうか？

533 ：デフォルトの名無しさん：02/09/06 21:50

^"^？"
^"^？？" かな？

534 ：デフォルトの名無しさん：02/09/06 21:59

>532
" で括るようにしてもダメ？
それか、\Q$a\E とか......

535 ：デフォルトの名無しさん：02/09/06 22:11

>534
\Q$a\Eでいけました．
ありがとうございました．

536 ：デフォルトの名無しさん：02/09/06 22:49

#!/usr/bin/perl

print<<"HERE";
Content-type: text/html

<html><body>
■□■□■　index　■□■□■
</body></html>
HERE

exit;

こういうスクリプトを書いてサーバーに送った所、サーバーエラーになりました。
その後、■□■□■　index　■□■□■の部分の「　index　」の
全角スペースを取った所、正常に動くようになりました。■□■□■index■□■□■

これはPerlの仕様でしょうか？それとも、サーバー側の問題でしょうか？

537 ：デフォルトの名無しさん：02/09/07 00:10

>525
もう解決したのかな、、
これとかはだめ？
http://www.mikeneko.ne.jp/~lab/perl/des/

538 ：525：02/09/07 00:45

>>537の方法でうまくいきました。
皆さん、どうもありがとうございました。

539 ：デフォルトの名無しさん：02/09/07 07:25

全角の空白の二バイト目に「@」が入ってるからエラーになるんじゃないかな。
Perlの仕様だね。全角の空白以外の文字でも運が悪ければエラーになると思うよ。

Perl5.8.0だと面倒なことしないでスクリプト中にUnicodeとかで日本語書いて
ラクーにシフトJISに直して出力できたりするんだろうか?

540 ：デフォルトの名無しさん：02/09/07 18:55

crypt で暗号化されたものを
なんとか解析したいんですけど・・・
やはり無理ですか？

541 ：デフォルトの名無しさん：02/09/07 19:24

>>540
不可能ではないが、難しい

542 ：デフォルトの名無しさん：02/09/07 22:48

実質不可能と考えてよい。

543 ：デフォルトの名無しさん：02/09/08 00:09

>>540
賞金かけてみれば？

544 ：デフォルトの名無しさん：02/09/08 00:59

ん? ちゃんと計算せずに勘で書くけど、
賞金出すほど大変?

Perlで適当にやっても一ヶ月ぐらいで何とかなったり
する程度の分量だったりしないのかな。

545 ：デフォルトの名無しさん：02/09/09 21:03

だれか5.8使ってる人いる？

546 ：デフォルトの名無しさん：02/09/10 14:11

ログのを変換する作業をしています。
Sep 9 14:06:24 hogeという感じで表示されるので
if (/^(\w+ \d+ \d+:\d+:\d+ )
という感じに拾っています。

しかし10日から31日の間は
Sep 10とログが出るようです。
if (/^(\w+ \d+ \d+:\d+:\d+ )これでしか拾えません

差がSepと日にちの間が1日から9日の間は半角スペース二つ
10日から31日の間は一つになってしまいます。
どのように書けば両方とも拾えるようになりますでしょうか？
教えてください。

547 ：デフォルトの名無しさん：02/09/10 14:24

if (/^(\w+ {1,2}\d+ \d+:\d+:\d+ )

548 ：棄教者 ◆witdLTi2 ：02/09/10 14:25

\s+で1個以上の空白文字になる。

549 ：棄教者 ◆witdLTi2 ：02/09/10 14:26

>>547
{1,2}って手があったか。
(氏ね){1,999}

550 ：foobar：02/09/10 15:08

>>545
移行作業にかかりっきりです

551 ：546：02/09/10 15:39

ありがとうみなさん
{1,2}と\s+どちらでもいけました。
でもスペースが一つか二つと限定されてるので一応{1,2}でやってみました。
ありがとうございました。

552 ：デフォルトの名無しさん：02/09/10 18:55

>>545
Gentooだとデフォルトで5.8だよ

553 ：デフォルトの名無しさん：02/09/11 04:18

>>552
システム総入れ替えはいくらなんでもしんどいよ。

>>550
xs関係以外でなにか問題出てる？
unicodeをフルに使いたい用途があるんで移行したい気持ちはあるんだけど、
なぜか周りに移行するって人が全然いないんで、ちょっとびびってた。
移行が一段落したらどんな感じがレスしてくらはい。

554 ：デフォルトの名無しさん：02/09/11 06:54

PerlスレはWebProgに逝け。
さもないと荒らすからな

555 ：棄教者 ◆witdLTi2 ：02/09/11 08:19

>>554
WebやるときはC/C++で、テキストファイルの一括処理やるときはPerl使ってますが何か?

556 ：デフォルトの名無しさん：02/09/11 08:37

>>554
Webやるときもテキストファイル、データベースもPerl使ってますが何か?

557 ：デフォルトの名無しさん：02/09/11 08:57

>>554
Perlのことよく知らないんだろうなこいつは。。

558 ：デフォルトの名無しさん：02/09/11 09:48

まあ正規表現書き方教室みたいのは向こうでやってほしいが

559 ：デフォルトの名無しさん：02/09/11 09:51

厨房言語は隔離板でやってほしい。

560 ：デフォルトの名無しさん：02/09/11 10:07

>>559
そういう発言は他所でやってくれ

561 ：デフォルトの名無しさん：02/09/11 16:14

>>560
パチパチパチ\(^_^)／

562 ：デフォルトの名無しさん：02/09/11 17:53

foreach (@tmp) {
　　if(/hoge/) {
　　　　インデックス+= 3;
　　}
}

とかする事はできないのでしょうか？
つまり

for ($i = 0; $i< @tmp; $i++ ) {
　　$_ = $tmp[$i];
　　if(/hoge/) {
　　　　$i += 3;
　　}
}
の様な事がforeachで記述できないでしょうか？

563 ：デフォルトの名無しさん：02/09/11 18:18

for (;;)な形式で書けば良いじゃん。。。

564 ：デフォルトの名無しさん：02/09/11 18:37

糞スレ
PerlはWebProgへ

565 ：デフォルトの名無しさん：02/09/11 19:53

>>564
CGIってどういう意味か知ってます？
CGI=Perlって脳内変換されてるなら病院逝ったほうがいいですよ。

566 ：デフォルトの名無しさん：02/09/11 20:00

PerlなんかCGI以外の用途はないだろヴォケが
Rubyとは違うんだよ。Perl糞厨房ども

567 ：円楽：02/09/11 20:34

ずいぶんヘタクソな煽りが現れたね。山田君、566の座布団全部もってって。

568 ：デフォルトの名無しさん：02/09/11 20:46

少しぐらい間違えてもC言語みたいに暴走しないし、
標準入出力、ファイル入出力、文字列操作等使いやすいし、
UNIX系のマシンには高い確率でインストールされてるし、
ちょっとした処理にはとても使いやすいよPerl。
（だからCGIに向くのかも、、）

569 ：デフォルトの名無しさん：02/09/11 21:29

Perlで2chのスレを読んでますよ。

570 ：デフォルトの名無しさん：02/09/11 21:44

>564はム板のrubyスレでPerl隔離運動やってるよ。
どうも賑わっているPerlスレが気に入らなくて仕方ないようだ。
目障りだから、そのうち書込み禁止にしてもらった方がいいだ
ろうけど・・・

571 ：デフォルトの名無しさん：02/09/12 02:25

shigeが復活したようだ

572 ：デフォルトの名無しさん：02/09/12 03:56

プログラム板でのRubyスレの惨状は全てPerlユーザの責任なんだから
WebProgにでも逝って反省の念を示したらどうだ？糞虫ども

573 ：デフォルトの名無しさん：02/09/12 07:41

Rubyファンってこんなに下品なの。
Rubyスレ行ってみて書き込みの品の悪さに読む気もしなかった。

574 ：デフォルトの名無しさん：02/09/12 09:03

言語のチョイスと性格って関連あるような気がするんだけどどうだろ。

Java == あたらし物好き
Perl == 化石
C == 堅実
.NET関係 == 寄らば大樹の陰
LISP == 屁理屈こねるメガネ
Pascal == 杓子定規
SQL == 5時から男

さてRubyは・・・?

575 ：デフォルトの名無しさん：02/09/12 09:04

Ruby == 真のUNIXハッカー

576 ：デフォルトの名無しさん：02/09/12 09:08

なるほど。ワナビーが寄り付くわけね。

577 ：デフォルトの名無しさん：02/09/12 10:47

おれはこうだと信じて疑わないが。

Java == 流行に流されやすく主体性が無い。
C == 井の中の蛙の危険性アリ。
.NET == 盲目的な期待を抱きがち。
Ruby == Perlの真似しかできない。

もち、仕事で使わざるをえないケースは別。
Javaまわりは「押さえとかなっ」といった強迫観念が
うまくループしているが、それがいつまで続くかは謎。

578 ：デフォルトの名無しさん：02/09/12 16:49

>>572
お前の責任だよ。

579 ：デフォルトの名無しさん：02/09/12 23:40

むしろ、>>572 == >>573 じゃないかなあ。

580 ：デフォルトの名無しさん：02/09/13 22:01

foreach (<IN>) {
　($id, $data1, $data2) = split /\t/;
　%data = ($id => { data1 => $data1, data2 => $data2});
}
として、$data{0}{data1}みたいにアクセスしたいのですが、
%dataに最後に読み込んだ物しか保存されてないようです。

0 256 256
1 128 128
とあったとき、0を読み込んだ直後だと$data{0}で中身が取り出せるのですが、
1を読み込むと0が消えてしまいます。
なにかおかしい（勿論私が）と思うのですが、なにがまずいのか教えて下さい。
ちなみに、@data[$id]とした場合は動いています。

581 ：デフォルトの名無しさん：02/09/13 22:01

ageます

582 ：デフォルトの名無しさん：02/09/13 22:32

それだと、ループの中で毎回ハッシュを初期化してしまいます。

$data{$id} = { data1 => $data1, data2 => $data2};

とするとうまくいきますた。

583 ：デフォルトの名無しさん：02/09/13 22:35

RubyとPHPって、なんであんなに嫌われるんだろう。

584 ：デフォルトの名無しさん：02/09/13 22:37

>>582
即レス感謝です、ありがとうございました。

585 ：584：02/09/13 22:40

しかし、配列だと初期化されないんですね。
ちょっと納得いくような行かないような。

586 ：デフォルトの名無しさん：02/09/13 22:45

>>562
あんたのコードでちゃんと動きましたが、何か?

@tmp = ('hoge', 'moge', 'boke', 'giko', 'mona', 'hoge');
$counter=0;

foreach (@tmp) {
if(/hoge/) {
$counter += 3;
}
print "$counter", "\n";
}

print "result $counter", "\n";

結果は6。

587 ：582：02/09/13 22:50

>>585
%data = ですと、「ハッシュ全体」みたいな意味になります。
@data[$id] ですと、「配列の要素」って意味です。
(しかしこの書き方だとワーニングが出るはずです。正しくは$data[$id])
$data[$id]にあたるのが、$data{$id}ということです。

確認してませんけど、@data = ($id, $data1, $data2);
なんて書くとやっぱり毎回消えるはずです。

588 ：584：02/09/13 23:02

丁寧にありがとうございます。
>しかしこの書き方だとワーニングが出るはずです
ワーニング出ませんでした、スカラーコンテキストだから$が正しいんですね。
全然気にしてませんでした。

ちなみに、ActivePerl v5.6.0 Build616使ってます。
古いかも知れませんが。

589 ：デフォルトの名無しさん：02/09/13 23:04

>>588
-wオプションをつけてみては？
> perl -wc hoge.pl
みたいな感じで。

590 ：デフォルトの名無しさん：02/09/13 23:48

base64形式でエンコードされたeuc文字列$keyをもとの
eucに戻すには：
$keyw =~ s/%(..)/pack('c', hex($1))/ge;
と１行で済みますが、

base64形式でエンコードされたshift-jis文字列$key
を簡単にもとのshift-jis文字に戻すperlコードを教え
ていただけないでしょうか？（Jcode.pmでやろうと
しましたが、うまく行きません...）

591 ：デフォルトの名無しさん：02/09/14 00:14

単にtosjis関数かませばいけたはずだけど

592 ：デフォルトの名無しさん：02/09/14 01:01

RubyもPHPも別に嫌われていないし。
単に 2ch 上で、嫌われるように仕向けている奴がいるだけで。
>>583 はその張本人か、そうでなければ嘘を嘘と見抜けなくて 2ch に向いていない
かどっちか。

593 ：デフォルトの名無しさん：02/09/14 01:28

いや、だから、
>>単に 2ch 上で、嫌われるように仕向けている奴がいる
なんでこういうのがいっぱいいるのかなと。他の言語よりはるかに目立つ。

594 ：デフォルトの名無しさん：02/09/14 01:38

・実際に嫌っている奴が結構いる
・嫌っているヤシが必死

くらいしかありえないんじゃないの

595 ：デフォルトの名無しさん：02/09/14 01:51

＞・嫌っているヤシが必死

こっちのほうがありそう。
ほかに常駐してるスレでたったひとりのためにひどい雰囲気になったことがあって、強制IDに変更されたとたんにまともに戻ったりしたよ。

596 ：てすた：02/09/14 16:06

　　　　　＿＿＿＿
　　　／∵∴∵∴＼
　　 /∵∴∵∴∵∴＼
　　/∵∴∴,（･）（･）∴|
　　|∵∵／　　 ○　＼|
　　|∵ /　　三　|　三　|　　／￣￣￣￣
　　|∵ |　　　＿_|＿_ 　|　＜　うるせー馬鹿！
　　＼|　　　＼＿/　／　　＼＿＿＿＿
　　　　＼＿＿＿_／

597 ：デフォルトの名無しさん：02/09/15 13:17

>>591
> 単にtosjis関数かませばいけたはずだけど
tosjis関数の前に、base64をデコードする必要とあるはず
ですが、この方法が分かりません。

perldoc Jcodeの説明を参考にして、次のようなコードを
作りました
#$sjkeyは、base64に変換されたshift-jis文字列
$jcode = Jcode->new($sjkey);
$jcode->mime_decode;
$euc = $jcode->euc;

これで、$eucには、eucに変換された文字列が入るはず
なのですが、実際には次のようなbase64のままの文字
しか$eucには入りません。

%uFF95%uFFFA%uFF91%uFF97

base64をデコードして、それをeucに変換する、のは
cgiの基本の基本のはずなのですが、分かりやすい書籍
などでも、分かりやすく説明したものが見つかりません。

ご指導いただけると、助かります。

598 ：デフォルトの名無しさん：02/09/15 13:44

「CGI は Web プログラミング板へ。」
って書いてあるのにしつこくしつこく
CGIの話をし続けるのはどうしたわけだろうか。

ていうか、シフトJISなのか? それ。

599 ：デフォルトの名無しさん：02/09/15 14:06

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

(1) %uFF95%uFFFA%uFF91%uFF97
>ていうか、(1)はシフトJISなのか?
上のコードは「放送」という文字に対応しています。
MacOSX用Internet Explorer5.2で「放送」をperl/cgiで
処理する過程で出てきたものです。シフトJISではないかも
しれませんが、とにかく(1)をeucに戻したいのです。

MacOSX用Netscape7.0だと素直なbase64/eucでは、
「放送」は、
%CA%FC%C1%F7
でした。

600 ： ◆JAPH9PWA ：02/09/15 14:16

なんか物凄い勘違いというかまるでわかってない気がするんだけど。
%xxx%xxx...ってのはbase64じゃないよ？
それは普通URIエンコードとかURIエスケープとか呼ばれる物だけど。
しかももしかしてJavaScriptでエンコードしてる？
%uFF95はShift_JISでもなくEUC-JPでもなくUnicodeだよ。

601 ： ◆JAPH9PWA ：02/09/15 14:28

…ってUnicodeじゃないじゃん…？
じゃあそのuは何だろう。謎だぁ…。
とりあえず以下のコードでデコードできるけど、どうやってエンコードしてるのさ？

$s1 = '%uFF95%uFFFA%uFF91%uFF97';
$s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;

print $s1;

602 ：デフォルトの名無しさん：02/09/15 15:08

>>600
> しかももしかしてJavaScriptでエンコードしてる？
その通りです。私が作成しているソフトでは、文字列を
cgi/perlへ渡す際に、

(1) <FORM METHOD="get" ACTION="$main::myname">
から直接、perl/cgiに渡す方法、と
(2) Internet Explore5.2のJavaScriptでエンコードして、その
エンコードした値をCookieに保存して、そのCookieをperl/cgi
が読み込む、という方法、

の２つを採用しています。

MacOSX用IE5.2では、
(1)の方法では、「放送」とうい文字が：
%CA%FC%C1%F7 (euc)
なのに、(2)の方法では、
%uFF95%uFFFA%uFF91%uFF97 (unicode)
となり、混乱してしまいました。

> $s1 =~ s/%uFF([A-F0-9]{2})/pack 'H*', $1/eg;
ご指導ありがとうございます。これで成功しました。

この問題を解決するのに数十時間を費やし、書籍も２冊購入し、
googleで何十回も検索しましたが、どれも無駄でした。

この掲示板の皆様からのご指導がなければ、解決できませんで
した。深くお礼を申し上げます。

603 ：デフォルトの名無しさん：02/09/15 19:44

先生、教えて。

ファイルハンドルから実際のファイル名を取得できますか？
perl5.0系です。

604 ：デフォルトの名無しさん：02/09/15 20:00

JavaScriptでescapeしたものはブラウザによってUnicodeだったりSJISだったりするよ、ちなみに。

605 ：デフォルトの名無しさん：02/09/15 20:06

SJISで書いてね。。。

606 ：デフォルトの名無しさん：02/09/15 22:50

>>603
そのファイルハンドルはどうやって取得したの?

607 ：603：02/09/15 23:33

>>606

open( INFILE, "test.txt" ) ;

で。

別にあるサブルーチンで、このINFILEを受け取って、そのファイル名を
取得したいのです。（もちろん、引数でファイル名指定ってのはナシで）

608 ：デフォルトの名無しさん：02/09/16 02:11

引数でファイル名指定ってのがナシな理由がわからない

609 ：デフォルトの名無しさん：02/09/16 02:50

Win2kじゃ使えないんですか？>Perl

610 ：デフォルトの名無しさん：02/09/16 02:56

>>609
え？ネタ？

611 ：デフォルトの名無しさん：02/09/16 03:27

ああ、使えないんですね。ありがとうございました。

612 ：デフォルトの名無しさん：02/09/16 03:35

>>611
逆。アクティブパールってのがある。
http://www.activestate.com/Products/Download/Get.plex?id=ActivePerl&_x=1

613 ：デフォルトの名無しさん：02/09/16 03:57

>>612
"No additional requirements"

と、あるみたいですが・・・。

614 ：デフォルトの名無しさん：02/09/16 04:07

あ、そういうことでしたか。
翻訳してみて漸く分かりました。
お世話様でした。
NTのやつでいいんですよね？

615 ：デフォルトの名無しさん：02/09/16 04:11

>>614
落ち着いてプログラムするように（藁

616 ：デフォルトの名無しさん：02/09/16 04:14

ありがとうございました。
以前、Win98対応のやつしか入ってない本を買いまして、
自分のPCがWin2kだったため諦めてたんです。
これで本が無駄にならずに済みそうですｗ
明日からPerl始めてみます。

617 ：デフォルトの名無しさん：02/09/16 04:18

>>616
じゃ、ついでに。ここのＴｉｐｓ参考になるかな？
http://www.officeamuse.co.jp/tips/perl/index.html

618 ：デフォルトの名無しさん：02/09/16 04:26

>>617
ありがとうございます。
お陰様で今週はPerl週間になりましたｗ
ソースいじりながら参考にさせて頂きます。

619 ：デフォルトの名無しさん：02/09/16 04:28

>>617
このページ参考になりそうです。
ありがとうございました。

620 ：デフォルトの名無しさん：02/09/16 04:29

>>618
がんばれ。
もしＨＰで使うならインストールディレクトリは合わせといたほうがいいよ。
’\usr\bin’とか

621 ：デフォルトの名無しさん：02/09/16 22:38

activeperlについて質問させてください。
chdir("../");
ってactiveperlでも動くんですか？
linuxだと普通に動いてるんだけどactiveperl
だと動いてないっぽいのは気のせいでしょうか。

622 ：デフォルトの名無しさん：02/09/17 04:54

>>621
どうやって「動いてないっぽい」事を確かめたの?

use Cwd;
@dir = qw(foo bar baz);
mkdir $_, 777 and chdir $_ for @dir;
print(cwd(), "\n"), chdir '../' for @dir;

↑コレ走らせたら、ActivePerl build 522 on Win98SE
で問題なく動作したけど。

623 ：デフォルトの名無しさん：02/09/17 10:28

きっとIISのCGIつかったスクリプトで
カレントディレクトリが予想外の場所にあったんだよ。

624 ：デフォルトの名無しさん：02/09/17 21:25

鼻毛が出る程くだらない質問かと思いますが…

サブルーチンの中で my 宣言された変数は、そのサブルーチンを抜けた時点で消滅しますよね？
「メモリの節約」は、my を使う事によって得られる恩恵の一つと考えて良いのでしょうか？

625 ：デフォルトの名無しさん：02/09/17 21:28

>>624
> サブルーチンの中で my 宣言された変数は、そのサブルーチンを抜けた時点で消滅しますよね？

とは限らない。

626 ：624：02/09/17 21:32

>>625
見事に鼻毛が出たという訳ですね。
ちなみに、どういった場合に消えずに残るのでしょうか？

627 ：デフォルトの名無しさん：02/09/17 21:52

>>626
>>625はメモリ上から消えるとは限らないと言っているだけなんじゃないの？
使えるとは思えないんだけど・・・

628 ：627：02/09/17 21:53

あ・・・・でもデータがメモリー上に残っていたとしても、変数は消えるか・・・・

629 ：624：02/09/17 21:58

「変数の消滅 = メモリの開放」…とは限らないという事でしょうか？

630 ：デフォルトの名無しさん：02/09/17 22:08

じゃぁオレも便乗。

無名{}で一度だけのループを作ってその中でmyとかlocal宣言したら
そのブロックを抜けたら使えない＝メモリの節約になりますよね？

631 ：デフォルトの名無しさん：02/09/17 22:12

うわぁ、ログが中途半端に取得されてて
オレだけ間抜けみたいじゃないか。

632 ：デフォルトの名無しさん：02/09/17 22:22

closure というのがあるので my に関しては
「消滅」しない場合があるということかな。
perldoc -q closure
man perlref
とか

633 ：624：02/09/17 22:30

>>632
なるほど、そういう物があるのですか…
ちょっと調べてみます、ありがとうございました。

634 ：デフォルトの名無しさん：02/09/17 22:42

ふらっと寄ってみた。MSNメッセンジャー作ってるのどこー?

>>624
% perl -le 'sub main{ my $a = 1; $b = \$a; } main(); print $$b;'
1

"変数"は消滅するが"値"は消滅しない、とか細かいことはしらん。

>>632
perldoc ややこい...

635 ：デフォルトの名無しさん：02/09/17 23:32

微々たるメモリの節約を気にしなきゃいけないような条件下なら
スクリプト言語なんて使わない。

636 ：：02/09/17 23:36

sub a
{
my $a = 0;

b();

print "a=$a\n";
}

sub b
{
my $a;

$a = 10;
}

で結果に a=10 と表示されたんですが、これは正常なんですか？

637 ：デフォルトの名無しさん：02/09/18 00:15

正常に a=0 と表示されたけど

638 ：デフォルトの名無しさん：02/09/18 00:25

>>627
リファレンスがあれば使えるよ。
単に my のスコープの外に出れば my した変数名で参照できなくなるだけで、
リファレンスカウントが０にならない限りデータそのものは消えないし
リファレンス経由で使うこともできる。

639 ：　　：02/09/18 03:52

キーボード入力って
while(<>){
if($_ =~ /aaa/)
}
とかやるじゃないですか。
でも、このスクリプトを実行する際に引数を渡すとその引数をファイル名として
そのファイルの中身が読み込まれてしまうんです。
たとえば、
%test.pl filename
とか実行するとfilenameのファイルが読み込まれてしまう。
キーボード入力とコマンドライン引数の両立の方法ってないのですか？

640 ：デフォルトの名無しさん：02/09/18 04:01

>639
while (<STDIN>)
下記のページが詳しい。
http://tohoho.wakusei.ne.jp/

641 ：デフォルトの名無しさん：02/09/18 20:00

>>639
>>640とはちょっと視点を変えて。
undef @ARGV; とかで引数を失くしちゃえば？
引数を他の用途で利用したいならshift使えばいい。

642 ： ◆JAPH9PWA ：02/09/18 20:59

最初に<>を使う前にgetopt等で@ARGVを加工してやればいい。

643 ：：02/09/18 23:55

WebProgのperlスレよりも建設的なム板のperlスレ。

644 ：デフォルトの名無しさん：02/09/19 04:31

そろそろWebProgに移住しよう！

645 ：デフォルトの名無しさん：02/09/19 05:01

>>643
CGI 関係を排除しているからだろうな。

646 ：デフォルトの名無しさん：02/09/19 05:48

Perl = CGIは定説
WebProgに引きこもってろよカスども

647 ：デフォルトの名無しさん：02/09/19 05:56

↑
また出てきたぞ、こいつ

648 ：デフォルトの名無しさん：02/09/19 06:00

WebProgにいけ。
それがプログラム板の総意だ。糞虫ども

649 ：デフォルトの名無しさん：02/09/19 06:02

> それがプログラム板の総意だ
ぷぷぷ
そればっかり

650 ：デフォルトの名無しさん：02/09/19 06:03

CGI以外に存在意義のない言語なんかム板から消え失せろ

651 ：デフォルトの名無しさん：02/09/19 06:07

---------------------------------------------------------------
　　　　　　　　　　　　　　　　　　終了
---------------------------------------------------------------
続きはWebProgで

652 ：デフォルトの名無しさん：02/09/19 06:10

>>650
Perlは、windowsAPIや各種データベースとの連係、自然言語処理
(例えばChasen）などに幅広く利用されている。

一般的には、Perl＞Ruby
圧倒的なライブラリ数、世界的な広がり、速度などの点で
Perlが勝る。Rubyはオブジェクト指向プログラミングを
簡単にできるようにしたが、スクリプト言語で作成する
規模のプログラムではそれほど必要不可欠な部分ではない。

653 ：デフォルトの名無しさん：02/09/19 06:10

>>651
おまえだけ行ってこい

654 ：デフォルトの名無しさん：02/09/19 06:16

Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Perl
お前らがどんなに現実逃避しようがこれは事実。ぷぷぷ

655 ：デフォルトの名無しさん：02/09/19 06:21

>>652
馬鹿の典型
糞Perlに出来ることは全てRubyでもできますが。しかも遙かにエレガント且つ迅速に。

656 ：デフォルトの名無しさん：02/09/19 06:36

>>655
できるけどできてないよな
Rubyは所詮Perlの後追いよ

657 ：デフォルトの名無しさん：02/09/19 06:41

Perlは糞えｒぴおえｒｙひおうーい４５ｗｙｇ：ｗ５４「８３ｙ」ｗ「＠・ｇかにの゛かきけいすんくすかむれりく゜゛えおのなみ゛やちまらいきく゜よにうてむせいひんくうえん゛くえう

うかうあかうあせまかわなんきいぼはのひせしとのひらしとみひにいてれすらんかきれあせうまらかせあうすかうあかあうまかうな゛あういなはとしはほとにはたてあのれもねけてるれしけいてもれきりかすまくきんすいにらｇ

658 ：デフォルトの名無しさん：02/09/19 07:03

それぞれ、「開発陣の勢い/厨房のわめき声」をS/N比として定義してみよう。
質の良い方はどっちになるだろう。

659 ：デフォルトの名無しさん：02/09/19 07:14

Ｒｕｂｙです。

660 ：デフォルトの名無しさん：02/09/19 07:32

Perlﾃﾞｽ

661 ：デフォルトの名無しさん：02/09/19 13:17

ｼﾞｻｸｼﾞｴﾝの粘着基地外は置いといて、、

>>624
実用Perlプログラミング(オライリー)という本の第１章
データリファレンスと無名のメモリ領域
のp.13あたりがそのものズバリの説明なので一度読んでみるとよろし。

662 ：デフォルトの名無しさん：02/09/19 16:20

Perlは糞
お前らも糞

663 ：デフォルトの名無しさん：02/09/19 17:40

Perlで料理のレシピを登録して、料理名や使用材料で検索できるようなものが作りたいです。
テキストの全文検索は自前でやったことあるけど、こーゆーのはSQLとか使ったほうが楽ですよねー？
SQLの構文自体は分かります。ただ、Perlが初めてなだけで(汗)普段はC++。

664 ：デフォルトの名無しさん：02/09/19 17:54

>>663
ﾔｯﾄ,ﾏﾄﾓﾅｼﾂﾓﾝｶﾞｷﾀｰ!!

665 ：デフォルトの名無しさん：02/09/19 17:57

>>663
実行環境は？

666 ：663：02/09/19 18:02

実行環境はRedHat6とかでしょうか。
Webで公開するためのCGIサーバは後で用意するつもりなので。
今はWinのActivePerでやります。

オススメの環境とかあれば、便乗させてもらいます。

667 ：デフォルトの名無しさん：02/09/19 18:09

>>663
なにがアンケート調査CGIじゃ
ヴぉけが

668 ：デフォルトの名無しさん：02/09/19 18:12

Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!
Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!Ruby!

669 ：デフォルトの名無しさん：02/09/19 18:15

>>666
普段c使ってるならcでやんなよ。
>>663の処理ならコーディングの手間を減らせるメリットと
慣れない言語を扱うことのデメリットを天秤にかけりゃ
そのほうがて手っ取り早い。

670 ：デフォルトの名無しさん：02/09/19 18:28

>>669
まあそうだがRedHatなら定番MYSQL＋PHPというのもある。
彼のスレを読んでる限りじゃデータベース使うならどうせ覚えることは多いし
参考書籍はこっちのほうが多い。

671 ：663：02/09/19 18:39

>>669
別に、早く仕上げたいという気持ちは無いです。
半分は勉強目的です。

>>670
MYSQLですか・・・。ちょっと調べてみます。
OSに標準で入ってるか、もしくはどこのプロバイダでも
アクセスを許可しているような感じのものであれば使ってみたいです。

672 ：デフォルトの名無しさん：02/09/19 18:46

>>671
レンタル鯖？
海外なら大抵使えるよ。
自宅に置いてWEBサーバのCGIでアクセスってのもある。

673 ：デフォルトの名無しさん：02/09/19 18:58

>>671
いずれにせよ、板違いだ。
WebProg板へいきな。

674 ：663：02/09/19 19:00

>>672
海外はまったく考えていなかったです。

WEBサーバのCGIでアクセスするのは面白いかもしれませんね。
処理速度が落ちるとは思いますが、今回の規模ならそれでも十分です。

外部のDBと連携するのではなく、Perlプログラム中に組み込むような
形のデータベースエンジンって無いんですかね？

675 ：デフォルトの名無しさん：02/09/19 19:30

半角カタカナが入力されたらエラーがでるような
チェックサブルーチンを作りたいのですが、
jcode.plを使わずにShiftJISのままで
それを作るにはどうしたらよいですか？
お知恵を貸して下さい。

676 ：デフォルトの名無しさん：02/09/19 19:37

文字コード表とか検索してみ。

677 ：672：02/09/19 19:38

>>674
WebProg板の初心者質問スレにレス移動したのでよろしく。

678 ：デフォルトの名無しさん：02/09/19 20:31

二度と戻ってくるな。

679 ：和尚：02/09/19 20:54

>>675 純粋な質問だが本気でお知恵を借りたいと思っているのか?
思っているなら貸さないでもないのだが。

680 ：675：02/09/19 20:56

>679
思ってない

681 ：６７５ ◆iuNtvKQI ：02/09/19 21:18

>>679
思ってます?。今もまだ出来なくて調べてました。
0x00A0-0x00DFが半角カタカナのコードらしい、まで調べたのですがそれで
チェックしてみると全角カタカナがチェックの対象になってしまって…

>>680
偽者

682 ：デフォルトの名無しさん：02/09/19 22:00

>>681
半角カナって１バイトじゃなかったっけ ?

683 ：デフォルトの名無しさん：02/09/19 22:01

ばかばっか

684 ：デフォルトの名無しさん：02/09/19 22:12

>>682
EUCじゃ2バイトだよ

685 ：デフォルトの名無しさん：02/09/19 22:39

>>684

仕様書は､ちゃんと読めよ。

>>675
> ShiftJISのままで

686 ：デフォルトの名無しさん：02/09/19 22:52

（　´_ゝ`）ﾌｰﾝ

687 ：デフォルトの名無しさん：02/09/19 22:55

>>677, >>679, >>683, >>684, >>686
これらの発言は、Perlを憎む某によって書き込まれています
気にしないで下さい

プログラム板のRubyスレとPerlスレ見れば分かる
例えば：http://pc3.2ch.net/test/read.cgi/tech/1028906179/206-

688 ：棄教者 ◆KIKYO7cg ：02/09/20 08:30

自治厨うざい。
Perl は WebProg へ逝けというのなら、
CGI に使える言語なら Ruby でも C/C++ でも
WebProg に逝かないといけないね。
神とか漢とか言われてる人は CGI を C で書くでしょ。

689 ：デフォルトの名無しさん：02/09/20 09:10

>>688
DBIの具体的な使い方の話ならともかく、
cgiサーバがどうしたなんて話は完全に板違い。

690 ：デフォルトの名無しさん：02/09/20 09:58

>>688
PerlにCGI以外の＊まともな＊使い道ってあるの？嘲笑

ないだろ？ばぁぁか

691 ：デフォルトの名無しさん：02/09/20 10:00

>>690

Perlは結構使えますよ。
こないだ生ゴミ燃やすのに使いますた。

692 ：デフォルトの名無しさん：02/09/20 10:06

>>690
おれは688ではないが、ここはプログラム板だから使い道うんぬんの話だけじゃない。
そういう話こそWebProgやプログラマ板でやればよい。
でも、PerlはCGIの実行に使われるのが多いのも確か。
688は質問者のその辺を理解してやれよ。すぐ板違いというのはちょっとイタイ。

693 ：デフォルトの名無しさん：02/09/20 10:08

>>692
688→689ｽﾏｿ

694 ：デフォルトの名無しさん：02/09/20 10:09

>>690
２ちゃんのスレッドをGETしてNNTPにPOSTするというデーモンを動かしてます。

695 ：デフォルトの名無しさん：02/09/20 10:14

>>690

商用Java Servlet engineのResinで、サーバを起動するのに使うな＞Perl
http://www.caucho.com/resin/

696 ：棄教者 ◆KIKYO7cg ：02/09/20 10:16

TeX2HTML はどの言語で書かれていますか(ﾌﾟ
Ruby で書かれたプログラムがあったら教えてください

697 ：デフォルトの名無しさん：02/09/20 10:24

気づいているのか知らんが、WebProg板へ行けとかいっているやつは
自治厨でもなんでもなく単なる荒らしだから相手をするな。
しかもｼﾞｻｸｼﾞｴﾝしまくりなので注意。

698 ：デフォルトの名無しさん：02/09/20 17:14

RD >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> perldoc=糞豚

699 ：　　：02/09/20 17:15

IO::File("-");
とやると標準入力のファイルハンドルが作られますが、
同じように標準出力、標準エラー出力のファイルハンドルはどう作るんでしょうか？

700 ：_gunzip：02/09/20 17:56

stdout ">-"
stderr ">&STDERR" ないし $io_obj->fdopen(fileno(STDERR), "w") など

701 ： ◆JAPH9PWA ：02/09/20 19:00

STDIN, STDOUT, STDERRはそれぞれIO::Handleオブジェクトとして扱えるから
require/use IO::Handle;でSTDOUT->print(...)というふうにメソッドを呼んだりできるよ。

# 今更気付いたけど、 "-"や">-"はfdの複製はしないんだね。

702 ：デフォルトの名無しさん：02/09/20 19:30

PerlはUnix系OSでは根幹部分にも多く使われていて、
それ無しではインストールでも苦労すると思うのだが。

703 ：699：02/09/20 20:08

あ、質問がまずかった。ごめんなさい。
やりたいこととしては
STDERR
を読み込んでそれをもとに処理を行いたいのです。
$io_obj->fdopen(fileno(STDERR), "r")
でいいのでしょうか？

704 ： ◆JAPH9PWA ：02/09/20 20:53

なんだ、そういうことか。
それは「標準エラー出力のファイルハンドルを作る」のとは何の関係も無いよ。
読み込みモードでfileno(STDERR)を開いても望みの結果は得られないでしょ。
やってみれば一発で分かると思うけど。

とりあえずそれをするにはIO::Scalarが使える。Perl5.6じゃないと多分失敗するけど。
#!perl
use IO::Scalar;
my $stderrbuff;
tie *STDERR, IO::Scalar => \$stderrbuff;
warn "warn 1";
warn "warn 2";
die "die";
END{ print $stderrbuff; }
__END__

Version500.5以下だとSTDERRを他のファイルにリダイレクトするしかないかも。

705 ： ◆JAPH9PWA ：02/09/20 20:55

Version500.5 -> Version5.005

706 ：デフォルトの名無しさん：02/09/20 23:01

perlってﾀﾞｻｲ

707 ：デフォルトの名無しさん：02/09/20 23:03

またきみか。

708 ：デフォルトの名無しさん：02/09/21 15:38

俺がお前らのことをどれだけ憎んでいるかお前らには分かるまい
perlユーザは死ねperlユーザは死ねperlユーザは死ねperlユ
ーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねp
erlユ
ーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死ね
perlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザ
は死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザ
は死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死
ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねperlユ
ーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは死ねpe
rlユーザは死ねperlユーザは死ねperlユーザは死ねperlユーザは
死ねperlユーザは死ね

709 ：デフォルトの名無しさん：02/09/21 15:39

Ｒｕｂｙ　＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞＞　Ｐｅｒｌ

710 ：デフォルトの名無しさん：02/09/21 15:47

webprogに引きこもっているなら許してやる。
プログラム板で糞言語の話をするな！

711 ：デフォルトの名無しさん：02/09/21 17:37

　　　　　　　　　　　　　　　　　　　　　　　　　　／<<Ruby使い
　　　　　　　　　　　　　　　　　　　　　　　　　/　　　＿
　　　　　　　　　／◎）､__＿＿＿＿＿∠ｌ　/　　　/◎ヽ
　　　　　　　　 |　「....;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| |,,.　　　` -_´/
　　　 .彡⌒ｰ／|　　＼＿＿＿;;;;;;;;;;;;;;;;;;;;;;| |;;;;,　　　"　　　 i￣￣i
　　　　　／´⌒ヽ＿＿＿＿＿＼￣￣￣ .|;;;;;;,　　　　　　/Ruby ﾞ､
　　　　,/´　　　　!　ヲ＝℃／￣　　　　　　|;;;;;;;;,　　　　 /_,-..‐..-､_ﾞ､
　　　/_レ‐ｰ――‐"￣￣）　　　　　　　　　ヾ;;;;;;;;,,,..　　/':::::::::::::::::::::`i
　　／　　　__　　 r'~￣　　　　　　　　　　　ヾ;;;;;;;;;;;;,,,.トー――――-!
　/　　　　　　　＿）　　　　　　　　　　　　　　　ヾ;;;;;;;;;;;;;;,,,,....
　|　　　　　､　　ノ　　　　　　　　　　　　　　　　　ヾ;;;;;;;;;;;;;;;;;;;;;;;;;,,,,....
　ﾞ､;;;,,..　　　￣"　　　　　　　　　　　　　　　　　　　）;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.......

712 ：perl.c,c++,java,lisp(emacs lispだけど)ユーザ。：02/09/22 00:49

どうして、、、、こんなことを、、
rubyユーザさん、、かわいそうな人。
あなたは人から愛されたことが無いのでしょう。

713 ：デフォルトの名無しさん：02/09/22 00:52

PerlもRubyも使うが、どうして言語をこんなに憎めるのか理解不能。

714 ：デフォルトの名無しさん：02/09/22 00:56

RubyユーザのふりをしてPerlをののしり、Rubyユーザの評判を落とそうと仕向けている
粘着基地外がいます。放置をお願いします。騙されたり煽られたりした人がいたら
フォローしてあげてください。

715 ：デフォルトの名無しさん：02/09/22 10:17

perlには言語実装としての美意識が全くありません
書かれたコード！それは世にも醜い姿を晒します
悲劇はperlプログラマはそう思っていない事です
あとインタープリタ方式で遅いのによく使っていられることです
サーバの資源を無駄に使うperlを使うのをやめましょう
せめてJava ServletまたはCが書けるようになってください
ちなみに私は 709 ではありません 706です

716 ：デフォルトの名無しさん：02/09/22 10:48

「インタープリタ方式」(w

「perlプログラマ」(w

「Java ServletまたはC」(w

突っ込みどころ満載だな。
Perl使いこなしてる奴だってこれが
美しいと思って使ってる奴はいないよ。

717 ：デフォルトの名無しさん：02/09/22 11:01

>>715-716
> Perl使いこなしてる奴だってこれが
> 美しいと思って使ってる奴はいないよ。

そうか ? C 程度には、きれいに書けるよ。確かに、いくらでもぐちゃ
ぐちゃに書けるけど、それって C でも同じだろ ?

718 ：デフォルトの名無しさん：02/09/22 11:06

そんなあなたにDelphiです！！
どんなｳﾞｧｶでも同じようにしか書けません

COBOLには負けるけどなー

719 ：デフォルトの名無しさん：02/09/22 11:15

確かにCだって、ぐちゃぐちゃにかけるんだけど、人によるよね。

仮にCを美しいとしたときに、Perlは言語の仕様自体が美しくないと
俺は思うけどな。
美しくないお陰で使い勝手がいい(ことになっている)というか。

720 ：デフォルトの名無しさん：02/09/22 11:19

>>715
インタープリタ方式で遅いのに＝＞rubyはコンパイル言語でしたか。
>>719
使い勝手がいい＝＞上等。

721 ：デフォルトの名無しさん：02/09/22 11:20

#!/usr/bin/perl

study, write, study,
do review (each word) if time.
close book. sleep? what's that?

722 ：717：02/09/22 11:36

>>719
> 確かにCだって、ぐちゃぐちゃにかけるんだけど、人によるよね。
まあね。どんな言語でもぐちゃぐちゃに書く奴はいるのは確か。

> 仮にCを美しいとしたときに、Perlは言語の仕様自体が美しくないと
> 俺は思うけどな。
ほぼ同意。
> 美しくないお陰で使い勝手がいい(ことになっている)というか。
いいか ? まあ、作者はいいと思ってるんだろうからから問題ないけ
どね。

723 ：デフォルトの名無しさん：02/09/22 12:27

遅いって言われてもなぁ。
グリグリの3DゲームをPerlで作ってるわけじゃないし、、
普通の人はPerlで十分の内容のときにPerlを使い、スピードがほしい時に
C++使ったり用途に分けて使い分けてると思うが。

724 ：デフォルトの名無しさん：02/09/22 12:40

お前ら釣られすぎ。

725 ：715：02/09/22 15:10

>>723
俺はcgiもCで書くけどね
最近はApacheで動かすmod_isapi Cで遊んでいるよ

726 ：デフォルトの名無しさん：02/09/22 16:20

726:名前：デフォルトの名無しさん
>>725
だから？

727 名前：715[] 投稿日：02/09/22
>>726
ネタにマジレスｶｺｲｲ(・∀・)ｲｲ!

、、、( ﾉ ≧∇≦ )ﾉ　ぷはははっ！

727 ：デフォルトの名無しさん：02/09/22 19:36

CGIをCで書くことは滅多にないなぁ。
もしもポインタ周りのバグがあると大変だし。

PerlとかphpだのCだのは必要に応じて使い分けないと。

728 ：デフォルトの名無しさん：02/09/22 21:11

envp操作して
文字コード周りのめんどうさえみれば
ソケットも自在に使えるし
作ったあと美しい
perlだと軽自動車みたいな品のないコードが嫌い
ポインタとバッファオーバフローのチェックができない
Cプログラマが多すぎるからね
だからそういう人たちのためのperlなんだろうけどね
727は見込みありそうだけど
726は低脳そうだね

729 ：デフォルトの名無しさん：02/09/22 21:16

Q.具体的にどの辺が美しくないですか？＜perl

730 ：デフォルトの名無しさん：02/09/22 21:45

>>729
> Q.具体的にどの辺が美しくないですか？＜perl

switch 文がない。
同じ動作をする書き方のバリエーションが多すぎる。(書き易いけど、読み難い。)
sort() が $a, $b を使ってしまう。
多次元配列が無い。
構造体が無い。
ファイルハンドの扱いが特殊。(通常の変数じゃなくて、独自の名前空間をもつ。)

最近、Perl 使ってないから、今のバージョンだったら改善されているところはあるかもしれない。また、個人の好みによるところもある。とりあえず、今すぐ思いつくのはこんなところ。

731 ：デフォルトの名無しさん：02/09/22 21:53

まあ、多次元配列、構造体的な役割のものは増改築の温泉宿的に使えなくはないんだけど、
ほとんど同意。

同じ動作のバリエーションが多いっていうところが、
英語圏の人が「こう書けたら便利かなー(もしくは面白いかなー)」と
思って付け加えたんじゃないのか? って感じのところが美しくないんだな。
とってつけたような。

732 ：デフォルトの名無しさん：02/09/22 21:55

sort が $a, $b を勝手に使うって仕様はかなりびっくらこいた。

733 ：デフォルトの名無しさん：02/09/22 22:05

構造体もどきではだめ？
某サイトからパクッたサンプルソース
push @persons, { "name" => "tanaka", "age" => 24 };
push @persons, { "name" => "suzuki", "age" => 28 };
foreach $person (@persons) {
print "$person->{'name'} $person->{'age'}\n";
}

734 ：730：02/09/22 22:18

>>732
だよねー。俺もこの仕様が一番違和感ある。

>>733
> 構造体もどきではだめ？
ダメ。メンバの名前間違えても、コンパイルエラーにならないし、構造体の配列とか、
配列を含む構造体とかになると収拾がつかなくなるから。

735 ：デフォルトの名無しさん：02/09/22 22:20

>>733
常識だよ。リファレンスで多次元配列が無名ハッシュで構造体が扱える。
>>730
switch文なんてifの羅列で十分。gotoもあるけど。
バリエーションが多いから書きやすい＝上等。
ファイルハンドルは別のほうが便利。

736 ：デフォルトの名無しさん：02/09/22 22:26

いいぞ。もっとperlを叩け！

737 ：デフォルトの名無しさん：02/09/22 22:28

>>732
予約語と思えば、、、

738 ：デフォルトの名無しさん：02/09/22 22:29

おとなしくSwitch.pm(>5.8)使え

739 ：デフォルトの名無しさん：02/09/22 22:30

Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞
Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞Perlは糞

740 ：デフォルトの名無しさん：02/09/22 22:31

ばーぁ>>Perler

741 ：デフォルトの名無しさん：02/09/22 22:36

程度低すぎるよ。この糞スレ。
おとなしくWebProgに逝ったら？

742 ：デフォルトの名無しさん：02/09/22 22:45

>>714 の指摘があって以来Rubyをほめなくなったね

743 ：デフォルトの名無しさん：02/09/22 22:46

>>735
> バリエーションが多いから書きやすい＝上等。

と言うわりには、switch が無いのが謎なんだなー。

> switch文なんてifの羅列で十分。

と言うなら、for/foreach どっちかにしろよ。ここら辺の、いいかげんさがちょっと嫌い。

> ファイルハンドルは別のほうが便利。

まあ、これに尽きるね。要は、書きやすい事にかなり比重を置いている。これは、これでいいとは思うけど、その分保守はやりにくい。(= 大規模開発にはダメ言語)
従来 awk なんかで書いていたちょっとしたツールや、GCI から呼び出されるプログラムなんかにはなかなか便利。

744 ：デフォルトの名無しさん：02/09/22 22:49

Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

745 ：デフォルトの名無しさん：02/09/22 22:49

俺の中ではforはiを使って繰り返し、foreachは配列の要素をいじる、
って感じで使い分けるので必要。

746 ：デフォルトの名無しさん：02/09/23 00:13

万人にとって万能な言語なんかないのはあたりまえだが、やっぱり不満はいろいろ
あるもんだな。

Perl は、たしかに書きやすいけど読みにくい。でもそれをわかってて適所に使う
分には良いものだと思う。

あと自分で作るプログラムなら、スタイルを決めて書けばそれなりに保守しやすい
ものにもできる。それなりにセンスや経験はいるかもしれないけど。

747 ：デフォルトの名無しさん：02/09/23 01:54

このすれの人って
いい人多いね
がんばれ

748 ：デフォルトの名無しさん：02/09/23 04:30

つうか、複数でコーディングする場合って、言語を問わず
コーディングスタイルを統一しないか？普通。
一貫したコーディング規約を維持できればかなり読みやすいと思うんだが＜Perl

749 ：デフォルトの名無しさん：02/09/23 13:35

めっちゃ低レベルなプログラムの質問していいですか
スキルがないもんで、、、、

750 ：デフォルトの名無しさん：02/09/23 13:43

そなこと書かんで早くやれYo

751 ：デフォルトの名無しさん：02/09/23 13:46

ああ、もう待ちくたびれた。俺はもう答えん。

752 ：デフォルトの名無しさん：02/09/23 13:49

俺は待ってるよ。どんとこい

753 ：デフォルトの名無しさん：02/09/23 14:42

matsuda math
matsuda hiro
saito masa
saito hiro
inoue maithi
これに
while(<STDIN>){
/(\$+) (\$+)/;
$m = $2;
$m =~ tr/a-z/A-Z/;
print "$2, $1\n";
}
これをやったら
何も出てこないのですよ、

754 ：デフォルトの名無しさん：02/09/23 14:51

入力をこれ↓に差し替えるといいかも
$$$$$$$ $$$$
$$$$$$$ $$$$
$$$$$ $$$$
$$$$$ $$$$
$$$$$ $$$$$$

755 ：デフォルトの名無しさん：02/09/23 14:52

これでOK？

while(<>){
/([^ ]+) (\w+)/;
my ($fam, $name) = ($1, $2);
$fam =~ tr/a-z/A-Z/;
print "$name, $fam\n";
}

756 ：デフォルトの名無しさん：02/09/23 14:58

>>756さん
ありがとうございます
STDINを抜くっていうのは何かしら利点があるのでしょうか
後二行めがよく分らんです、、、
勉強不足ですいません、、、

757 ：デフォルトの名無しさん：02/09/23 15:01

正規表現については自分で調べてください。
[^abcd]はabcd以外 \wはワードマッチ

758 ：a5：02/09/23 15:04

どうもありがとうございました。
sage忘れてました、
申し訳ありません

759 ：デフォルトの名無しさん：02/09/23 19:41

使用可能文字：半角英数
最大文字数：20桁

を全て表示するプログラムを教えてください！！
おながいします！！

760 ：デフォルトの名無しさん：02/09/23 19:44

馬鹿まるだしだな
セキュ板にでも帰れ
もしくは隔離板(php板）へどうぞ

761 ：デフォルトの名無しさん：02/09/23 19:46

>>759
> 使用可能文字：半角英数
> 最大文字数：20桁
> を全て表示するプログラムを教えてください！！

最大文字数って何のだ ? 表示幅のことか ? だったら...

print "0123456789ABCDEFGHIJ\n";
print "KLMNOPQRXTUVWXYZabcd\n";
print "efghijklmnopqrstuvwxyz\n";

でいいと思うが。

762 ：デフォルトの名無しさん：02/09/23 20:06

perl -e "print A .. Z, a .. z, 0 .. 9"

763 ：デフォルトの名無しさん：02/09/23 20:38

764 ：747 ◆VaEdQZq. ：02/09/24 00:24

みんな
HTMLタグをperlに埋めるときどうしてるの?
エディタでごりごり書くの?
それが知りたいYO

765 ：デフォルトの名無しさん：02/09/24 00:44

>>764
ゴリゴリは書かん。
１．テキストエディタでブリブリ書く。
２．HTMLエディタでプリプリ書き、
　　print ＜＜XXXXX のところにペーストする。

766 ：747 ◆VaEdQZq. ：02/09/24 01:01

>>765
なーる
だるい方法でがんばってるんだね
printのところにペーストするときって
結構ｺﾏｲ作業で悲しくなったりしない?
変換するツールとか使ってないの?

767 ：デフォルトの名無しさん：02/09/24 01:04

なんで？

print <<'EOF'

hogehoge

EOF

でいいじゃん。

768 ：デフォルトの名無しさん：02/09/24 01:04

>>766
↓ここを
http://tohoho.wakusei.ne.jp/wwwperl1.htm#EOF

769 ：765：02/09/24 01:15

全然関係ないけど << って普通に書き込めるんですね
Aboneで下が化けたもので全角にしてしまった。
print <<XXXXXXX

770 ：747 ◆VaEdQZq. ：02/09/24 01:32

>>768
ん
タグ変換ツールどこにあるの?
HTMLをデザインしたら
ごそっとprint文にはさんでくれるようなつーるって無いの?
リンク先みたかぎりじゃないようだけど

771 ：デフォルトの名無しさん：02/09/24 01:37

まっとうなエディタ使って頭使えば
そんなツールは要らんけどね。

772 ：デフォルトの名無しさん：02/09/24 01:44

>>770
そのままペーストすればいい、変換する必要ない。
print <<XXXXX
<HTLM>
<HEAD>
うんたらかんたら
</HEAD>
<BODY>
ちんらかんたら
</BODY>
</HTML>
XXXXX;

773 ：デフォルトの名無しさん：02/09/24 01:48

間違った下記ね
print <<XXXXX;
<HTLM>
<HEAD>
うんたらかんたら
</HEAD>
<BODY>
ちんらかんたら
</BODY>
</HTML>
XXXXX

ようは、print <<XXXXX;　から　XXXXX　までをそのまま標準出力してくれる。

774 ：デフォルトの名無しさん：02/09/24 01:52

>>773
そっか
perlだとごそっとこぴぺできるんだ
perlの美点があったじゃない
Cだとprintf("<html>...............</html>");
にはさむから長くなると醜くなるからある程度で細切れにしないと
いけないその点perlのほうがよいね

775 ：デフォルトの名無しさん：02/09/24 01:55

>>774
これを美点と見るかどうかは人それぞれ。

776 ：デフォルトの名無しさん：02/09/24 01:56

まぁPerlはsed,awkやらから受け継いでる部分もあるし。

777 ：デフォルトの名無しさん：02/09/24 02:04

>使用可能文字：半角英数
>最大文字数：20桁

>を全て表示するプログラムを教えてください！！
>おながいします！！

ん？全ての組み合わせって事か？
パスワードでもクラックするのか？（藁

778 ：777：02/09/24 02:25

ちなみに漏れは分からんがな･･･。
ヘタレなのでsage

779 ：デフォルトの名無しさん：02/09/24 02:27

>>778
簡単だよ。
print "00000000000000000000\n";
print "00000000000000000001\n";
print "00000000000000000002\n";
　　　：
　　　：
print "zzzzzzzzzzzzzzzzzzzy\n";
print "zzzzzzzzzzzzzzzzzzzz\n";

780 ：777：02/09/24 02:38

一桁からって事じゃないのか？
print "0\n";
print "1\n";
print "2\n";
　　　：
　　　：
print "a\n";
print "b\n";
　　　：
　　　：
print "zzzzzzzzzzzzzzzzzzzy\n";
print "zzzzzzzzzzzzzzzzzzzz\n";

まぁ、どちらにしても漏れには分からん。っていうか質問が意味不明だＹＯ!!

781 ：デフォルトの名無しさん：02/09/24 02:39

ていうかfor文をいっぱい使うだけだろ。。

782 ：デフォルトの名無しさん：02/09/24 02:47

>>777-781
あんたらがこの板を見てる理由がｻﾊﾟｰﾘわからん

783 ：デフォルトの名無しさん：02/09/24 09:42

>>774
リテラルに設定しておけばいい。
printfでだらだら書くなど愚の骨頂。

784 ：デフォルトの名無しさん：02/09/24 09:47

Perl2exeで変換の仕方どうスルんですか？

785 ：デフォルトの名無しさん：02/09/24 11:11

#!/usr/bin/perl
#main()
{
　　....
　　....
}

と、c言語風に書く俺は邪道ですか？
こういうインデントがついてないと読みづらいから。

786 ：デフォルトの名無しさん：02/09/24 11:41

>>782
ここは質問箱だろ。疑問を投げかける前に質問に答えれ！！

787 ：デフォルトの名無しさん：02/09/24 11:46

>>785
どうせなら
sub main(@)
{
　　blah blah blah...
}
unshift @ARGV, $0;
main @ARGV;

788 ：デフォルトの名無しさん：02/09/24 12:02

VisualPerlって VisualStudio.NETいれないと使えないの？

789 ：デフォルトの名無しさん：02/09/24 13:05

>>787
それいいですね、今度から使わせてもらいます。

790 ：デフォルトの名無しさん：02/09/24 13:40

perlではハッシュの値としてリストを突っ込む事はできないんですか？

791 ：デフォルトの名無しさん：02/09/24 13:53

程度の低い糞スレ

792 ：デフォルトの名無しさん：02/09/24 14:45

それを見てるお主も糞尿

793 ：デフォルトの名無しさん：02/09/24 15:33

ﾌﾝﾆｮｰｯ!!! ｷｬﾊ★

>>790

$hoge{abc} = [0, 1, 2, 3];
みたいな。

んで、
@list = @{$hoge{abc}};

みたいな。

794 ：棄教者 ◆KIKYO7cg ：02/09/24 16:34

八種のリファレンスだよね。

795 ：デフォルトの名無しさん：02/09/24 19:50

リファレンスになってるのは配列で、
ハッシュの値が配列のリファレンス。

796 ：デフォルトの名無しさん：02/09/25 10:49

Java ServletもServlet engineをちゃんと選ばないと遅いよ。
FFのサイトはTomcatつかってたけどありゃアホだね。

797 ：デフォルトの名無しさん：02/09/25 10:53

Perlにswitchが無いのはLarryの趣味というかポリシーを反映した結果だよ。

if .. then .. else ..とかは英語的に読むことができるが、
switchは唐突に分野の違う言葉だからキモイ

みたいなことをカンファレンスで言ってた

798 ：790：02/09/25 12:07

>>793さん
ありがとうございます。昨日からPerlを使いはじめたばかりで
あたふたしていました。リファレンス使えばよいんですね。

799 ：棄教者 ◆KIKYO7cg ：02/09/25 14:11

>>797
Perl はぼくの好きな言語だけどたまに開発者の趣味が露骨に現れるから嫌い
C に似せてあるくせに break; が last; になっていたり、
continue や next のあたりの名前の付け方が違う。
一ヶ月に一度は last を break と書いて半日潰す。

800 ：デフォルトの名無しさん：02/09/25 15:14

禿同。

便利なんだか不便なんだかね。入り口が入りやすいだけに。

あと、これを書くと荒れるのかもしれないが、
オブジェクト指向の実装が微妙にヘンなのもなあぁ。

どうせとってつけたようになるんだから
Objective Cみたいなｶｯﾁｮｴｰのにしてほしかったな。

801 ：デフォルトの名無しさん：02/09/25 21:31

>>797
> if .. then .. else ..とかは英語的に読むことができるが、
> switchは唐突に分野の違う言葉だからキモイ
> みたいなことをカンファレンスで言ってた

それは、そうだが普通の人には perl の構文の方が唐突に分野の違う言葉ではないかと...。

802 ：デフォルトの名無しさん：02/09/25 22:10

Perlについて質問です。

$a1 ～ $a10 までの関数があるとします。
これをforループなどで全ての関数に対して同じ処理をしたいと思います。
$a$i ←このようなイメージです。$iを１～１０まで変化させるわけです。
このような場合、どのような記述をすればよいのでしょうか？

803 ：デフォルトの名無しさん：02/09/25 22:29

>>796
FF のサイトってファイナルファンタジーの公式サイト? そりゃ Tomcat じゃ
無理だろ。っていうかそれは道具の選定を間違ってるだけで道具に罪はない。

804 ：デフォルトの名無しさん：02/09/25 22:39

>>802

関数? 変数じゃなくて?

805 ：デフォルトの名無しさん：02/09/25 22:43

>>804
すみません。変数でした。

806 ：デフォルトの名無しさん：02/09/25 23:01

それは、 ${"a$i"} こんなふうにかいてたとえば

for ($i = 1; $i <= 10; $i++) {
print ${"a$i"} . "\n";
}

こんなふうにできなくはないんだけど
配列変数を使うように全部書き直したほうがいいと思うよ。

応用の利くテクとしては

for ($i = 1; $i <= 10; $i++) {
eval("print \"\$a$i\\n\";");
}

とかも。

807 ：デフォルトの名無しさん：02/09/25 23:18

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

808 ：：02/09/25 23:57

なぜ配列を使わない？

809 ：デフォルトの名無しさん：02/09/26 00:34

>>808
>>806 さんの言われた通りに配列を使ったプログラムに書き換えました。

810 ：デフォルトの名無しさん：02/09/26 00:54

>>809
ズコー

811 ：棄教者 ◆KIKYO7cg ：02/09/26 08:33

sub func0 { .... };
sub func1 { .... };
...
sub func9 { ... };
に対して、
@funcref = ( \&func0, \&func1, ..., \&func9 );
てすることで、

foreach( @funcref ) {
　　&{$_}( @arguments );
}
とすれば、複数の関数に対して一括処理を行うことができます。
なお、 @arguments というのは &func0, &func1, ..., &func9
に食べさせたい引数です。

812 ：棄教者 ◆KIKYO7cg ：02/09/26 08:35

漏れは C のポインタの概念がわからなくて苦労しましたが、
Perl のリファレンスを使っているうちに逆に C のポインタが理解できるようになりました。
まんせー。

813 ：デフォルトの名無しさん：02/09/26 09:03

>>812
お、すげー。

814 ：デフォルトの名無しさん：02/09/26 09:06

>>812
すごすぎ
僕の目標です

815 ：デフォルトの名無しさん：02/09/26 09:36

>>806
for $i (0 .. 9) {
$a_ref = "a$i";
print $$a_ref, "\n";
}
でもいいでしゅか？

816 ：デフォルトの名無しさん：02/09/26 10:30

>>801
んー気持ちはわかる。
事実折れもCで書いてる時間違ってlastとか書いちゃうことあるし。

んでもそこを突くのはちょっと違うような気もする。
「同じようなニュアンスで使える」別の言語なんだもん。
他の言語に慣れてるなら perltrap.podを声に出して熟読は必須でしょ。
http://www.perldoc.com/perl5.8.0/pod/perltrap.html

817 ：デフォルトの名無しさん：02/09/26 12:22

サブルーチンＡの引数にサブルーチンＢを指定して
使いたいんですがどうにもうまくいかないようで・・・・。
どうやればよでしょうか？アドバイスお願いします。

sub FuncB
{
　　#.............
}

sub FuncA
{
　　$Func = $_[0];　　#？
　　&{$Func}();　　　　#？
}

&FuncA(FuncB);　　　#？

818 ：デフォルトの名無しさん：02/09/26 12:27

>>812
perl のリファレンスは宣言がない分､文法的にすっきりしていると思ふ。

819 ：デフォルトの名無しさん：02/09/26 12:44

>>817
ヒント。 >>811

820 ：817：02/09/26 12:52

>>819
どうもです。

821 ：デフォルトの名無しさん：02/09/27 00:20

Windows98SEでFile::findを使ったプログラムを書こうとしているのですが、
「ソ」「予」「能」などの文字が入ったディレクトリ名だと、そのディレクトリ以下を
検索してくれません。
原因は、Shift-JISの2バイト目にバックスラッシュ文字が入っているためだと思うのですが、
これを回避するためのFile::findに対するパッチなどはありますか？

使っているperlは、ActivePerl5.6.1 BinaryBuild 633です。

822 ：デフォルトの名無しさん：02/09/27 11:44

>>821
パッチはないと思う。
自力で\x5cを追加しておくれ。

823 ：デフォルトの名無しさん：02/09/27 12:00

>>821
jperl使ったら？

824 ：デフォルトの名無しさん：02/09/27 16:26

ラクダ本新しいの買った？なんで洋書の2倍の厚さと値段で
同じページ数なのyo!
(洋書の方が紙が薄い)

825 ：デフォルトの名無しさん：02/09/27 22:34

PerlerはCurlをやれば
もう馬鹿にされない(と思う)
がCurlが主流にならなければ馬鹿にされてしまう

826 ：デフォルトの名無しさん：02/09/27 22:39

>>824
策略

827 ：スンスンブラクラできたよー（・∀・）：02/09/27 22:45

@sun = ('スン','スーン','( ゜Д゜)ハッ');

for ($sunn=0; $sunn<1; $sunn--){
　　　$sn = "$sun[0],$sun[1],$sun[0],$sun[2]\n";
　　　print "$sn\n";
}

828 ：デフォルトの名無しさん：02/09/27 22:47

ブラクラの意味すら知らんのか。

829 ：デフォルトの名無しさん：02/09/27 22:48

Curlに誰も反応しないところが
Perlerなんだよな
だからDel厨やその他でPerlよりはいいよなとか言われてまうやないけ
もう氏ねとは言わせるなPerler立ち上がれ

http://curl.fc2web.com/

830 ：デフォルトの名無しさん：02/09/27 22:50

自作自演ですか？

831 ：デフォルトの名無しさん：02/09/27 22:55

curlは絶対に、はやらない

832 ：スンスンブラクラできたよー（・∀・）：02/09/27 22:56

>>828 いや、実行してみたらそんな気分になったわけで…
　　　　止め方がわからないわけで…
　　　　

833 ：デフォルトの名無しさん：02/09/27 23:05

>>829
Curl は終わっている言語だし。

834 ：デフォルトの名無しさん：02/09/27 23:19

>>833
ｱﾌｫ
でてきたばかりで終わってるはないんじゃないの?
だいたい833は言語仕様の概要程度でもいいから知ってるの?
もちろん漏れは知らないけどね

835 ：デフォルトの名無しさん：02/09/27 23:22

>>834
ていうか2chのスレでは去年の夏ごろにおまえの紹介した
ホームページそのままの内容がコピペされてるだろうが。

ということは、それから一年以上もまったく更新のされていないページを
おまえはこのスレッドで紹介したことになる。

そんな言語を「死んだ」言語だといって何か問題があるのか？

836 ：デフォルトの名無しさん：02/09/28 13:51

>>824
日本語版出たのかっ？！

837 ：デフォルトの名無しさん：02/09/28 13:54

@sun = ('スン','スーン','( ゜Д゜)ハッ');
$"=',';

while (1) {
　　　print "@sun\n";
}

838 ：スンスン：02/09/28 15:30

@sun = ('スン','スーン','( ゜Д゜)ハッ');

foreach (@sun){
print "$_";
}

839 ：デフォルトの名無しさん：02/09/28 15:43

@sun = ('スン','スーン','( ゜Д゜)ハッ');

foreach (@sun) {
　　print;
}

840 ：デフォルトの名無しさん：02/09/28 15:45

print foreach ('スン','スーン','( ゜Д゜)ハッ');

841 ：デフォルトの名無しさん：02/09/28 16:03

>>840
そんなことできんの？

842 ：デフォルトの名無しさん：02/09/28 16:04

print join ',', @sun;

843 ：スンスン：02/09/28 16:30

$sun = 'スン';
@suun = ('スーン','( ゜Д゜)ハッ');

$surn[0] = $sun . $sun . $suun[0];
$surn[1] = $sun . $sun . $suun[0] . $suun[1];

foreach (@surn){
print "$_\n";
}

844 ：８３７へ。：02/09/28 19:32

@sun = ('スン','スーン','( ゜Д゜)ハッ');
$"=',';

while (1) {
　　　print "@sun\n";
}
を１０回繰り返すにはどうすればいいの？

845 ：デフォルトの名無しさん：02/09/28 19:44

for文にするなりカウンタ変数つけるなりすりゃいいじゃんか…

846 ：デフォルトの名無しさん：02/09/28 19:46

for( $i = 0; $i < 10; $i++ )
{
　　@sun = ('スン','スーン','( ゜Д゜)ハッ');
　　$"=',';

　　while (1) {
　　　　　print "@sun\n";
　　}
}

847 ：デフォルトの名無しさん：02/09/28 22:16

>>836
日本語フォント対応 2002/9予定
IDE 2002/12予定
日本語マニュアル Curl Programming Bible翻訳版 2002/12予定
だそうだ
お前見込みあるよ

848 ：デフォルトの名無しさん：02/09/28 22:52

@sun = ('スン','スーン','( ゜Д゜)ハッ');

print "何回スンスンしまっか？>";
$un= <STDIN>;

for ($suun=0; $sunn<$un; $count++){
　　print "$sun[0]$sun[0]$sun[1]$sun[2]\n";
}

849 ：棄教者 ◆KIKYO7cg ：02/09/29 00:16

>>848
for 文は
for( $suun = 0; $suun < $un; $suun++ ) { # $count++ じゃない
でしょ。

850 ：デフォルトの名無しさん：02/09/29 09:08

>>849 ２日前にやり始めたんで何が違うかわかりま千。

851 ：棄教者 ◆KIKYO7cg ：02/09/29 10:43

$count と $suun の違い。

852 ：デフォルトの名無しさん：02/09/29 12:05

すいません、アクセスカウンターを作ろうと、入門書をよみながらコードを書いたのですが
いざＣＧＩファイルを開いてみると、サーバーエラー、となってしまいます。
何が問題かさっぱりわかりませんコードは↓です

#! c:/perl/bin/perl

# カウントファイルの読み込み
open(IN, "<C:\Apache\htdocs\tendays\count.dat");
$count = <IN>;
close(IN);

++$count;

# カウントファイルへの書き込み
open(OUT, ">C:\Apache\htdocs\tendays\count.dat");
print OUT $count;
close(OUT);

# ヘッダー・HTML出力
print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">
<html>
<head><title>あくせすかうんたぁ</title></head>
<body>
<p>あなたは･････$count番目の訪問者です。</p>
</body>
</html>
END

853 ：852：02/09/29 12:07

すいません、コードのコピペ間違えました

#! c:/perl/bin/perl

# カウントファイルの読み込み
open(IN, "<./count.dat");
$count = <IN>;
close(IN);

++$count;

# カウントファイルへの書き込み
open(OUT, ">./count.dat");
print OUT $count;
close(OUT);

# ヘッダー・HTML出力
print <<END;
Content-type: text/html

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\">
<html>
<head><title>あくせすかうんたぁ</title></head>
<body>
<p>あなたは･････$count番目の訪問者です。</p>
</body>
</html>
END

854 ：>>37じゃねーけど：02/09/29 12:12

>>853
悪いことは言わんから、黙って WebProg 板へ行け。そっちの方がまともな回答が得られるぞ。

855 ：デフォルトの名無しさん：02/09/29 12:22

次スレはいらないぞ。

856 ：デフォルトの名無しさん：02/09/29 12:26

続きはWebProgへいけ
二度と戻ってくるな。

857 ：デフォルトの名無しさん：02/09/29 12:33

「超」がつく程の糞言語 = Perl

858 ：デフォルトの名無しさん：02/09/29 12:39

print "何回ｽｰﾝしますか？";
print (("ｽﾝｽｰﾝ ( ゜Д゜)ﾊｯ\n") x <STDIN>);

859 ：デフォルトの名無しさん：02/09/29 13:18

perlはVBよりも糞なんですか？

860 ：デフォルトの名無しさん：02/09/29 13:19

はい、糞です。
↓次、どうぞ

861 ：デフォルトの名無しさん：02/09/29 13:22

Ｒｕｂｙ愛甲！

862 ：デフォルトの名無しさん：02/09/29 13:30

perlはHSPよりも糞なんですか？

863 ：デフォルトの名無しさん：02/09/29 13:32

いぇｓ

864 ：デフォルトの名無しさん：02/09/29 13:32

はい、糞です。
↓次、どうぞ

865 ：デフォルトの名無しさん：02/09/29 13:55

>>853
勘で、、
count.dat のパーミッションに w 入れてる？

866 ：デフォルトの名無しさん：02/09/29 13:57

パーミッションに(w

867 ：デフォルトの名無しさん：02/09/29 16:43

サーバはunix系じゃないのか
アレがapacheだったらログ見ればある程度分かりそう

868 ：デフォルトの名無しさん：02/09/29 16:47

>>862
rubyプログラミングしたことないのに、ruby愛好家なのか

869 ：棄教者 ◆KIKYO7cg ：02/09/29 18:54

>>852
c:/perl/bin/perl
が変。
おたくのプロバイダーのCGIの説明書を読んで、
Perl のパスがどこにあるかを確認してください。
この件に限っては、荒らしが書いているとおり、 WebProg 板に逝った方が
親切な回答が得られそうです。

870 ：862：02/09/29 19:41

>>868 まちがったんなら訂正してくれよ。

とりあえずperlやめる。買った本も理解したんで。HSP以下の言語らしいし。
>>863 >>864 ←　二人もそういっているし。
ＣＧＩは始めっからやる気ないし。

871 ：デフォルトの名無しさん：02/09/29 19:51

はじめたりやめたりするほどご大層な言語じゃなかろう?
使う用事がないならさいしょっから無駄なことしなけりゃいいのに。
人生そんなのの繰り返しなんだろうなこの人。

872 ：：02/09/29 20:00

perlって、管理に使うとウマー。
一般ユーザアプリにはあんまり使えないけど、
それは糞だからというわけではなく、
適材適所名だけ。
HSPも管理にはつかいづらいんじゃない？
使ったことないからわからないけど。

873 ：854：02/09/29 20:41

>>869
> この件に限っては、荒らしが書いているとおり、 WebProg 板に逝った方が
> 親切な回答が得られそうです。

俺って、「荒らし」だったんだ...。

874 ：デフォルトの名無しさん：02/09/30 00:10

で話変わるけどさ
Apacheで使える
mod_なんたらのperlってあるのか貴様ら
IISはActivePerlだっけ?
多少速くうごくやつあるよね
って聞く態度じゃないなあ

875 ：デフォルトの名無しさん：02/09/30 00:26

http://perl.apache.org/

876 ：デフォルトの名無しさん：02/09/30 02:17

大きめのログファイルを末尾から一行ずつとりだすのに<>を使う方法ってないですか？

877 ：デフォルトの名無しさん：02/09/30 02:20

先頭から読むのと同じようにはできないね。
http://www.din.or.jp/~ohzaki/perl.htm#File_Reverse

878 ：デフォルトの名無しさん：02/09/30 07:36

@lines = `tail hoge`
一行づつ読んでくるのは大変かも
単純に一回全部読み込んで、逆順で取り出すなら楽だろうけど

879 ：デフォルトの名無しさん：02/09/30 07:45

"大きめの"ってのがどれくらいかにもよるわな。

880 ：デフォルトの名無しさん：02/09/30 07:49

>>876
そんなニーズはほとんどないから無理。
素直に後ろからシークしていけ。

881 ：デフォルトの名無しさん：02/09/30 13:24

質問です。
携帯でも書き込み可能な掲示板で、PCとかiMなどの端末表示をしたいと思っています。

　#$modeを文字に変換
if($mode == 1){$tanmatsu = "iM"};
if($mode == 2){$tanmatsu = "JS"};
if($mode == -1){$tanmatsu = "EZ"};
if($mode == -2){$tanmatsu = "DX"};
if($mode == 0){$tanmatsu = "PC"};

　# タイムスタンプ生成
($sec,$min,$hour,$mday,$mon) = gmtime($gtime+$TIMEZONE*3600);
$timestamp = sprintf("%02d/%02d %02d:%02d <%s>",++$mon,$mday,$hour,$min,$tanmatsu);

$tanmatsuに端末の略称を入れて、$timestampに付加して表示させようとしてるのですが、
<%s>の部分だけごっそりなくなって表示されてしまいます。
どうすればいいのか教えて下さい。

882 ：デフォルトの名無しさん：02/09/30 13:33

$mode の値がなにかわからんけど、独立したif文にしないで elsifとelseも
使って書かないとデフォルト値を $tanmatsu にセットすることもできんのじゃ？

883 ：881：02/09/30 13:53

>>882
んー、その前にこんなのがあるから、こんな風に書いてみたんですけど…。

　# ---ブラウザ種別をチェック（iモード:1 EZインターネット:-1 PメールDX:-2 J-Sky:2 その他:0 ）
$user_agent = $ENV{'HTTP_USER_AGENT'};

if($user_agent =~ /DoCoMo\//) { $mode = 1; }# iモード
if($user_agent =~ /UP\.Browser\//) { $mode = -1; }# EZインターネット
if($user_agent =~ /PDXGW\/\d\.\d/) { $mode = -2; }# PメールDX
if($ENV{'HTTP_X_JPHONE_MSNAME'} ne '') { $mode = 2; }# J-SkyWeb (Ver3.10)

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　# PDAモード（ザウルス・コミパル・Dialo）
if($user_agent =~ /sharp pda browser/ || $user_agent =~ /Dialo/) { $pda = 1; }

884 ： ◆JAPH9PWA ：02/09/30 14:02

>>881
<hoge>がタグのように見えるから。
どうすればいいのかはHTMLの基礎を学んでください。

885 ：882：02/09/30 14:02

>>883
それなら変数$mode を使わずに直接 $tanmatsu にセットしたら？

if($user_agent=~ /DoCoMo/i){ $tanmatsu= 'iM'; }# iモード
elsif($user_agent=~ /UP\.Browser/i){ $tanmatsu= 'EZ'; }# EZインターネット
elsif($user_agent=~ /PDXGW/i){ $tanmatsu= 'DX'; }# PメールDX
elsif($ENV{'HTTP_X_JPHONE_MSNAME'}){ $tanmatsu= 'JS'; }# J-SkyWeb (Ver3.10)
elsif($user_agent=~ /sharp pda browser|Dialo/i){ $tanmatsu= 'PDA'; }
else { $tanmatsu= 'Other'; }

886 ：881：02/09/30 14:05

>>884
タグと認識されて消えてるってことですか。
わかりました、学んでみます。
ありがとうございました。

887 ：881：02/09/30 14:09

>>885
配布してるCGIに手を加えてるんですけど、他にも$modeってたくさん使ってるので…。ｗ
その部分に$modeと$tanmatsuを２つ書けば済む話なんですけど、
あとで修正箇所が分かりやすいように、別に書きました。

888 ：デフォルトの名無しさん：02/09/30 14:21

>>880
ニーズはあると思うが、、

889 ：デフォルトの名無しさん：02/09/30 14:39

>>888
あんたにとってはだろ

サイズ（データ全体）の分からないものの末尾から処理出来るわけ無いじゃん

890 ：デフォルトの名無しさん：02/09/30 14:44

>>889
perl -e 'print reverse <>'

891 ：881：02/09/30 14:47

試しに>>881の
$timestamp = sprintf("%02d/%02d %02d:%02d <%s>",++$mon,$mday,$hour,$min,$tanmatsu);
これを、
$timestamp = sprintf("%02d/%02d %02d:%02d %s",++$mon,$mday,$hour,$min,$tanmatsu);
に直してやってみたんですけど、まだ表示されません。

>>884さんの理由であってるんしょうか？

892 ：デフォルトの名無しさん：02/09/30 14:49

>>891
>>885

893 ：デフォルトの名無しさん：02/09/30 14:52

sprintf("%02d/%02d %02d:%02d $tanmatsu",++$mon,$mday,$hour,$min);
でホントに $tanmatsu に値が入ってるか確認。

894 ：デフォルトの名無しさん：02/09/30 14:53

>>889
>>890

ﾌﾟ

895 ：881：02/09/30 14:58

>>893
ありがとうございます。
それでも出ないですね。^^;

もしかしたら、$timestamp変数を代入する所ではなく、実際表示する部分(?)で何か細工があるのかな？と思ってみたり…。

896 ：デフォルトの名無しさん：02/09/30 15:00

>>895
おまえ意図的にレスを飛ばしてないか？
if文ですべて式が真じゃなくて偽だから値がセットされてないことに気づけ馬鹿。

897 ：881：02/09/30 15:07

>>896＝>>882(?)
一度は「elseif」を使った文も試してますよ。
でも、配布されてるCGIソース(>>883の部分)が正しいから、なくてもできると思ったのですが…。

898 ：デフォルトの名無しさん：02/09/30 15:09

elsifよりも最後のelse。または$tanmatsuを初期化しとけってこと。

899 ：881：02/09/30 15:14

>>898
初期化しても、何も出ないっす。
やっぱり、おそらく表示する所で何かあるのか…。

900 ：デフォルトの名無しさん：02/09/30 15:53

「CGI は Web プログラミング板へ。」って
書いてあるのにしつこくしつこくCGIの話をここでしようとするってのは
どういうつもりなのかね。

901 ：881：02/09/30 16:14

>>900
すいませんでした。

902 ：デフォルトの名無しさん：02/09/30 18:02

>>889
なんでニーズと技術的な話を混同させて話してるの？

903 ：デフォルトの名無しさん：02/09/30 19:07

889さんは房なんだから、いじめちゃかわいそうだよ。。。

904 ：デフォルトの名無しさん：02/09/30 19:20

ちなみに、while <>の逆順処理はforeach revese <>で可能。ただし、少し重い。

905 ：K：02/09/30 19:48

教えてください。
-fとか-dでファイルが実在するかどうかをチェックするさいに、その大文字、小文字を
区別しないようにしたいのですが、なにかよい方法はありませんでしょうか。
どのような関数を書けばいいのでしょうか？すみませんが教えてください。

906 ：デフォルトの名無しさん：02/09/30 19:53

大文字・小文字を区別しないシステムならそれでチェックできると思うが

907 ：デフォルトの名無しさん：02/09/30 20:10

>>906
糞は黙ってろ

908 ：デフォルトの名無しさん：02/09/30 20:11

>>905
それ難しいかもね。
てゆうか、ディレクトリ中にあるファイル名全部出してきて、
そのリストに対して比較するしか無いような気がする。
他にやり方あったら誰か書いてよ

909 ：デフォルトの名無しさん：02/09/30 20:22

>>908
それが一番スマートだな。

sub is_exists_file_in {
　local *DIR;
　opendir DIR, shift or return;
　my %file = map { lc, $_ } readdir DIR;
　closedir DIR;
　return map $file{$_}, grep $file{$_}, map lc, @_;
}

ファイル名を一文字ずつバラして正規表現組み立てるってのも
考えついたが、明らかに上に挙げた例の方が分かり易かろう。

910 ：デフォルトの名無しさん：02/09/30 21:43

初めて質問させていただきます。
sendmailで自動的にメールを送ります。
Windowsに送ると読めて，Macに送ると化けてしまうって時，
原因はどういったかんじでしょうか？

縺九ｉ縺ョ縺疲ウィ譁・「コ隱阪Γ繝シ繝ォ
こんなかんじ。

911 ：デフォルトの名無しさん：02/09/30 22:01

>>909
その糞コードは、わざとか？

912 ：デフォルトの名無しさん：02/09/30 22:06

911=906

913 ：デフォルトの名無しさん：02/09/30 22:17

>>912
いや、907=911

914 ：デフォルトの名無しさん：02/09/30 22:53

コードがわからないと原因なんてわからん

915 ：K：02/10/01 00:20

>>909様
どうもありがとうございます。
すみまんせが良く分からないのでさらに質問させてください。
これだと、ファイル名がFoo/hoge/AAA.gifとかいうようにディレクトリ階層が
何個かある場合にもうまくいくのでしょうか？？？Foo/hoge/AAA.gifというのを
引数で与えた場合にも例えばfoo/Hoge/Aaa.gifというファイルが実在していれば
trueを返すような関数がほしいのです。。。すみませんご教授ください。

916 ：デフォルトの名無しさん：02/10/01 02:17

すごいね。Perlスレなのに1000行きそうだね。

917 ：デフォルトの名無しさん：02/10/01 02:36

Perlのコンパイラって作れませんか？
Perl2exeみたいな偽者じゃなくて。

918 ：デフォルトの名無しさん：02/10/01 02:38

Perlcc

919 ：デフォルトの名無しさん：02/10/01 04:26

gpc

920 ：デフォルトの名無しさん：02/10/01 06:01

sub is_exists_file {
　 my @path = split m|/|, shift;
　 pop @path if $path[$#path] eq '';
　 if ($path[0] eq '') { $path[0] = '/' }
　 elsif ($path[0] !~ /^\.+$/) { unshift @path, '.' }

　 my $path = shift @path;
　 defined(($_) = is_exists_file_in($path, $_))
　　 ? ($path .= '/' . $_)
　　 : return
　　　 for @path;

　 return $path;
}

ところでこのコードがやってることは当然理解してるよな？
-f や -d 一発で済むところを、わざわざ重そうな処理を加えるんだ。
大文字小文字の区別をしないのがそれほど重要なことか、
もう一度考えた方がいいぞ。

921 ：デフォルトの名無しさん：02/10/01 22:42

readでファイルからバイナリデータを読み込ませたいのですが
0x19,0x1D,0x1Eが正常に認識されないみたいなのです。
printで表示した場合、

0x19 … 表示されず
0x1D,0x1E … 違う値が表示される

となります。
何故なんでしょうか？

922 ：デフォルトの名無しさん：02/10/01 23:00

違う値ってどういうのが？

923 ：デフォルトの名無しさん：02/10/01 23:13

コードをかけ

924 ：デフォルトの名無しさん：02/10/01 23:17

>>922
read(FILE,$data,2);
$num =unpack("n",$data);
print $num;

これを実行した時に
0x１A … 表示されず
0x001D … 173
0X001E … 174
と表示されてしまいます。

訂正：>>921で、"0x19 … 表示されず"と書きましたが0x1Aの間違いでした。

925 ：デフォルトの名無しさん：02/10/01 23:30

>>924
unpackの使い方がそれでは、、、結局どういうかたちで取得したいの？
文字？文字コード？

926 ：kalma ◆eRZ2quxw ：02/10/01 23:34

>>925
ネットワークバイトのshort型整数をファイルから取得したいのですが…
やり方が間違っているのでしょうか？

927 ：デフォルトの名無しさん：02/10/01 23:59

二次元配列に対してsplice関数を使用するにはどうすれば？

928 ：デフォルトの名無しさん：02/10/02 09:33

>>927
例えば、こんなこと？
$ar[0][0]="00";
$ar[0][1]="01";
$ar[1][0]="10";
$ar[1][1]="11";
$ar[2][0]="20";
$ar[2][1]="21";
splice(@ar,1,1);
for $i (0 .. $#ar) {
@tmp=$ar[$i];
for $j (0 .. $#tmp) {
print "$ar[$i][$j]\n";
}
}

929 ：デフォルトの名無しさん：02/10/02 11:23

>>924
binmode FILE;
じゃないか？

930 ：928：02/10/02 12:08

>>927
for(@ar) {
print "@$_\n";
}
でもいいよ。要するに無名配列は配列へのリファレンスってこと
わきまえてりゃどうやってもいい。

931 ：デフォルトの名無しさん：02/10/02 18:08

>>928
@tmp=$ar[$i]なんてやる必要ない。
for $j (0 .. $#{$ar[$i]}) {
ってしる。

932 ：デフォルトの名無しさん：02/10/02 22:40

>>929
binmodeは設定しています
一体何が悪いんでしょうか・・・

933 ：デフォルトの名無しさん：02/10/02 22:52

0x1Aの問題はMS-DOSのEOFコードが0x1Aだからだと判りました。
これの回避法ってあるんでしょうか？

934 ：デフォルトの名無しさんぺいです：02/10/03 01:05

tr/\x1a//d;

935 ：デフォルトの名無しさん：02/10/03 02:06

誰か、NamazuでZipファイルの中身を検索するフィルタを書いた人いないの？
gzip, bz2用はあるのに、zipのはないんだよねえ。

936 ：デフォルトの名無しさん：02/10/03 03:17

●●●●●●●●「オセロさえ納期内に作れない＝ＯＯ役立たず」祭り●●●●●●●
／|　　　　　　　 |　 |＿＿＿＿_ΦΦΦΦΦΦΦΦΦΦΦ||ΦΦΦ
　 |　　　　　　　 |　 |￣￣￣／|　　　　　　　　　　　　 ||
　 |　　　　　　　 |　 |　　　／／|TTTTTT　　 TTTTTTTTTT||TTTTT
　 |　　　　／＼　|　／|／|／|^^^^^^ |三三| ^^^^^^^^^^^||^^^^^^^
　 |　　　／　／　|／／／／|
　 |　　　／　／ |＿|／|／|／|／|
　 |　／　／　　|文|／／／／
　 |／　／.　＿.|￣|／|／|／　　　　　　　　　Λ＿Λ
／|＼／　／　／　|／／　　　　　　　　　　（＿＿_）
／|　　／　／　／ヽ　　　　　　　　　　　　/〔非OO 〕〕つ
　 |　　　|￣|　 |　|ヽ／l　　　　　　　　　　　｀/二二ヽ
　 |　　　|　 |／|　|__|／　　　Λ＿Λ　　　　 /　/（＿）
　 |　　　|／|　 |／　　　　　（　´∀｀）　　　（＿）　　　 Λ＿Λ
　 |　　　|　 |／　　　　　／/ /　 ^￣］ﾟ　　　　　　　　（｀　　　）
　 |　　　|／　　　　　　　ﾟ/￣￣_ヽ　　　　　　　　　⊂〔〔非OO 〕

937 ： ◆hMJAPH9PWA ：02/10/03 10:00

>>933
出力用ファイルハンドル(例だとSTDOUT)もbinmode()してる？

938 ：デフォルトの名無しさん：02/10/03 15:30

多次元配列の同じ場所を何度も参照するときには、
その値をローカル変数にコピーした方が効率がいい？
それともヘタに変数を増やすとメモリを喰って効率が落ちる？

# 1
if($array[0][0][0] == 0) {

} elsif($array[0][0][0] == 1) {

} elsif($array[0][0][0] == 2) {

}

# 2
my($copy) = $array[0][0][0];
if($copy == 0) {

} elsif($copy == 1) {

} elsif($copy == 2) {

}

939 ：厨房：02/10/03 15:43

本を見ながらPerlを勉強してるのですが、
環境がUNIX？でないせいか(WinでActivePerl＋httpdでやってますが)
本の通りに書いても<STDIN>で入力できません(？

上記の環境で<STDIN>を使ったスクリプトを試すにはどうしたらよいでしょうか？

940 ：棄教者 ◆egKIKYO7cg ：02/10/03 16:02

>>939
MS-DOSプロンプトを起動して
C:\>perl -v
って入力してみてください。
なんか出てきましたか?

941 ：厨房：02/10/03 16:28

>>940
This is perlうんちゃら…って出てきますが…？

942 ：デフォルトの名無しさん：02/10/03 16:31

リファレンスについて質問。

sub test {
　my(@array) = (1,2,3);
　$hash{'a'} = \@array;
　return;
}

@array[0]は当然null。
$hash{'a'}->[0]は1。

なぜこうなるのかが分かりません。

943 ：デフォルトの名無しさん：02/10/03 16:58

>>942
変数名は実際の「値」に付いている「名札」に過ぎず、
「値」自身はそれを参照する「名札」が全部消えるまで
メモリに残っているから。

その例だと test の中で (1,2,3) という各「値」に @array という
「名札」を付けている。@array は my で宣言されている「名札」なので
test の中でしか使えないが、$hash{'a'} という「名札」は
グローバルな「名札」なので、test のスコープから抜けた後でも
(1,2,3) という「値」を見る為に使える。

詳しくは「ガベージコレクション (GC)」「クロージャ」
「リファレンス (参照) カウンタ」といった単語で調べて。

944 ：名無しさん＠Ｍｅａｄｏｗ：02/10/03 17:57

>>943
>>942じゃないけど、明解レスありがと。
漏れも質問に答えてんだけど、質問者からの感謝がないのが
このスレの特徴かな。

945 ：棄教者 ◆egKIKYO7cg ：02/10/03 18:10

>>941
OKです。
UNIXで勉強するPerlの本にはコマンドプロンプト云々と書いてありますが、
MS-DOSがそのコマンドプロンプトになっています。

たとえば
---data.txt----
unko
chinko
manko
-------------
という三行のファイルを用意して
---hoge.pl----
while(<STDIN>) {
　print $_;
}
-------------
という Perl スクリプトを用意して
C:\>perl hoge.pl < data.txt
してください。
これで後は厨学生程度の大脳があれば STDIN は理解できるはずです。

946 ：デフォルトの名無しさん：02/10/03 18:17

厨学生程度の大脳があればコテを使わず
WebProg板にでも誘導するんだがな

947 ： ◆hG4XfSMGTg ：02/10/03 18:21

糞コテは死ね

948 ： ◆hG4XfSMGTg ：02/10/03 18:24

固定ハンドル=低スキル

949 ：デフォルトの名無しさん：02/10/03 18:24

荒らさないで！

950 ： ◆hG4XfSMGTg ：02/10/03 18:26

次スレは立てるなよ。WebProgにでも引きこもっていてくれ。

951 ：デフォルトの名無しさん：02/10/03 18:35

次スレ立てても良いけど自称「厨房」なんてのの相手はしないで欲しい。
あと、perldoc読めば済むような話を色々解説するのもどうかな。