Perl コーディング初心者質問コーナー Part26

**nobodyさん** · 03/07/24 19:48

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

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

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

関連スレ
【Perl上級者コーナーPart01】
http://pc2.2ch.net/test/read.cgi/php/1024741312/
CGI: Common Gateway Interface part 11
http://pc2.2ch.net/test/read.cgi/php/1055597189/
【Perl,CGI】参考書籍第三版
http://pc2.2ch.net/test/read.cgi/php/1030209573/
【スクリプト改造工房 PART 6　】
http://pc2.2ch.net/test/read.cgi/php/1047806915/

過去ログやお勧めサイトは >>2-10

**あぼーん** · NG

あぼーん

**あぼーん** · NG

あぼーん

**nobodyさん** · 03/07/31 22:47

自演うぜー。まじで。
いやなら無視すりゃいいのに。

**nobodyさん** · 03/07/31 22:57

結合演算子を使う技法ｗ

**nobodyさん** · 03/07/31 23:20

ていうか名前なんてあるのか

**nobodyさん** · 03/07/31 23:26

２行を１行にする技法

**nobodyさん** · 03/07/31 23:46

>>354
自演？
心配すな。
おまいも端役のひとりじゃ

**nobodyさん** · 03/08/01 00:33

>>354
>>339必死だな。

**nobodyさん** · 03/08/01 04:02

>>351
トリビア技法

**nobodyさん** · 03/08/01 04:05

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

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

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

最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。

**nobodyさん** · 03/08/01 04:09

ここって初心者スレのワリにレベル高いんですけど。

**nobodyさん** · 03/08/01 04:55

本漁ったりググって分かる疑問は質問するまでもないからでしょ

**nobodyさん** · 03/08/01 05:59

人に聞いているうちは初心者。
たいていのことを自分で解決できるようになれば、まずは初心者脱出ってこと。

**nobodyさん** · 03/08/01 08:23

364に勝手に追加

自分で調べる前に聞いているうちは一生初心者にすらなれない。

**nobodyさん** · 03/08/01 10:15

馬鹿高い本を買って自己解決する
安めの本を買って、足りない部分は周りを利用する

どっちが初心者だろうね

**nobodyさん** · 03/08/01 10:24

付属ドキュメントで自己解決する

**nobodyさん** · 03/08/01 11:27

初心者は「初心者の質問板」or「PC初心者板」へGo!!

**nobodyさん** · 03/08/01 12:33

安い本で慣れて高い本で補う。

**nobodyさん** · 03/08/01 14:09

先人たちの築いた知識を上手に利用して上達への近道を選ぶのは初心者でつか？

◆hMJAPH9PWA · 03/08/01 14:27

> 安めの本を買って、足りない部分は周りを利用する

「周り」が正規のマニュアルを指しているなら賛成だけど、
そうじゃないなら、たとえ馬鹿高くてもちゃんとした本を買うべきだと思う。

**nobodyさん** · 03/08/01 14:36

こんなところで質問するようなやつは上達しないってことだ

**nobodyさん** · 03/08/01 16:33

このスレ腐ったな

**nobodyさん** · 03/08/01 16:47

夏は腐りやすいのでご用心

**nobodyさん** · 03/08/01 16:48

>>364
>>365
だったら初心者は自分で調べるのにわからない香具師ですね

**nobodyさん** · 03/08/01 17:30

>先人たちの築いた知識を上手に利用して上達への近道を選ぶのは初心者でつか？
ヒントを乞う位なら構わんけどさ、自助努力の前にしつこく説明してクレクレ言う椰子は嫌だな。
一々誰かの時間を奪ってまで問答を求めるのは「上手な利用」とは言わない。
先人の知識ってのは先に書籍とかを当たった方がはやい。
それでも詰まったときに質問するのはアリ。
試行錯誤をめんどくさがり過ぎてるのがミエミエな奴はムカツク。

**nobodyさん** · 03/08/01 17:55

>>370
＞上手に利用
もちろんまず初めにGoogleだよな？？？

**nobodyさん** · 03/08/01 18:06

もちろんはじめに燃料投下

**nobodyさん** · 03/08/01 18:46

テンプレに(･∀･)ｲｲ!!質問者の例とｲｸ(･A･)ﾅｲ質問者の例を載せれよ

**nobodyさん** · 03/08/01 19:50

>>379

>>1 に書いてあるじゃん

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

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

最低でも1と3が無いと誰も答えられないよ。

これに反するような質問が悪い例

**nobodyさん** · 03/08/01 20:31

「例」という日本語が理解できてない香具師はけん

**nobodyさん** · 03/08/01 20:36

1. >>1嫁。
2. 過去ログ嫁。
3. ググるれ。

**nobodyさん** · 03/08/01 21:25

>>379
そんな事言う様なら質問以前の問題だと思う

**nobodyさん** · 03/08/01 21:44

このスレ、ちょっとPerl覚えた厨に汚染されて臭いね。
質問を乞うぐらいにならんと上達せんよ。
まあ、中途半端な奴に言ってもわからかな。はは。

**nobodyさん** · 03/08/01 21:47

Perl覚えたばかりでもいいからさ。
常識や礼儀を覚えてない奴は勘弁してくれ。

**nobodyさん** · 03/08/01 22:18

（　´∀｀）ここ２ちゃん

**nobodyさん** · 03/08/01 22:21

>質問を乞うぐらいにならんと上達せんよ。
マトモな質問者なら大歓迎なのれす。

**nobodyさん** · 03/08/01 22:50

>386みたいに思ってる奴は当然、２ちゃんだから嘘を教えられても文句言わないよな？

**nobodyさん** · 03/08/01 22:58

そんなアフォはほっとけや。イチイチ相手にしてるだけ無駄

**nobodyさん** · 03/08/01 22:58

正直、昔のほうが質問者叩きはひどかったわけだが。
普通に質問しても「氏ね」とか言われたもんだ。
ここまで丸くなった２ちゃんでまだ叩かれてるような奴って……

**nobodyさん** · 03/08/01 23:12

>>390
うれしげに・・・とかするなﾄﾞｱﾌｫ
言いたいことあるなら最後まで言ってくれ

**nobodyさん** · 03/08/01 23:17

アフォだらけ

**nobodyさん** · 03/08/01 23:28

>良い回答は良い質問から。
これが見事に実践されてるわけだな。
アフォな質問にはアフォな回答が。

**nobodyさん** · 03/08/01 23:48

初心者だらけだから仕方ないよ
質問するときは内容をよく吟味してから投稿してください。

**nobodyさん** · 03/08/02 00:46

以上、>>339=341の自作自演でした。

**nobodyさん** · 03/08/02 01:55

perl5ですけど
srand(time|$$);
を付けないと、rand が時間で決まってしまいます。
そんなもんなんですか？

**山崎渉** · 03/08/02 02:20

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**nobodyさん** · 03/08/02 03:19

>>396
>>1嫁

**nobodyさん** · 03/08/02 04:25

>>396
試してないけど

srand($$|time);

これじゃ、駄目か？ｗ

**ぼるじょあ** ◆ySd1dMH5Gk · 03/08/02 04:48

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

**398** · 03/08/02 04:51

(´･ω･｀)＜俺、日本語が不自由なんだよ。

**nobodyさん** · 03/08/02 08:53

あげ

**nobodyさん** · 03/08/02 10:06

>>401
ならば、お前が得意な言語でもいいぞ。

**nobodyさん** · 03/08/02 10:25

トッカロピ

**nobodyさん** · 03/08/02 11:24

>>396
while(time%60){
# wait..
}

print rand(), "\n";

をf複数のプロセスで動かしてみたけど、全部違う値になったよ。
WindowsXpHome ActivePerl 5.6.1/FreeBSD Perl 5.8.0/Linux Perl 5.6.1
実行環境と同じ値になる根拠をしめしてください。

**nobodyさん** · 03/08/02 12:52

>>396 の PC は時計が動いていないという罠

**nobodyさん** · 03/08/02 14:08

$tmp = $log[$i];
@dat = split(/<>/, chomp $tmp);

$log[$i] の改行コードを省いたものをカットして @dat に格納して処理したいんですが、
$log[$i] そのものの改行コードは残しておきたく、$tmp を使っています。
これを一発で表現する方法を教えてもらえませんか？

**nobodyさん** · 03/08/02 14:26

一発じゃないが
@dat = split(/<>/, $log[$i]);
chomp $dat[-1];

**nobodyさん** · 03/08/02 14:28

>>408
thx
そちらの方がスマートですね。参考になりました

**nobodyさん** · 03/08/02 20:02

**************************************************
***　　　Hello! Welcome to the 2ch World!　　　***
**************************************************

と表示しようとして、

#!/usr/bin/perl

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

print "**************************************************\n";
print "***　　　Hello! Welcome to the 2ch World!　　　***\n";
print "**************************************************\n";

とメモ帳に入力してmona.cgiという名前で保存し、tok2.comにffftpを使ってうｐしたのですが、
いざ結果を見てみると、

************************************************* *** Hello! Welcome to the 2ch World! ***
*************************************************

と言う風に表示されてしまいます。
どうしたら一番上のような結果にすることができるのでしょうか？
OSはWindowsです。どうかよろしくお願いします<(_ _)>

**nobodyさん** · 03/08/02 20:41

>>410
print "content-type: text/plain\n\n";

**410** · 03/08/02 20:53

>>411
レスありがとうございます。
早速、　print "content-type: text/html\n\n";を print "content-type: text/plain\n\n";
に直して再度うｐしてみたのですが、結果は同じでした(´･ω･`)ｼｮﾎﾞｰﾝ

誠にあつかましいのですが、他に良い方法は無いでしょうか？
どうかよろしくお願いします。

**nobodyさん** · 03/08/02 20:55

トクトクは勝手にヘッダ情報変えなかったっけ？

**nobodyさん** · 03/08/02 21:03

>>410
HTMLで出力。

**nobodyさん** · 03/08/02 21:04

<a href="http://i.2ch.net/">2ちゃんねる(巨大掲示板)</a>の<a href="http://book.2ch.net/poem/i/">詩・ﾎﾟｴﾑ板</a>
を、
2ちゃんねる(巨大掲示板)の詩・ﾎﾟｴﾑ板
としたい（ようは、リンクを取り除きたい）のですが、
どうすればいいのでしょうか・・・？

わからないながらに、やってみましたが、
$HTMLContents =~ s/<a href="http:\/\/(.*)">(.*)<\/a>/$2/g;
とすると、「詩・ﾎﾟｴﾑ板」しか$2に入りません。。。

**nobodyさん** · 03/08/02 21:06

>415
最小マッチングでぐぐれ。

**415** · 03/08/02 21:21

>>416
さんくすです。
ぐぐりました。

$HTMLContents =~ s/<a href="http:\/\/(.*?)">(.*?)<\/a>/$2/g;

で解決しますた。

**nobodyさん** · 03/08/02 21:40

CGIとは関係ないんだけど
@INCをコマンドラインで指定して実行する方法ってありましたっけ？

**nobodyさん** · 03/08/02 21:42

すみません。
-Iオプションですね。。。

**nobodyさん** · 03/08/02 21:43

>>418
何故ヘルプを見ない？
-Idirectory specify @INC/#include directory (several -I's allowed)

**nobodyさん** · 03/08/02 21:43

>>418=>>419
おっと失礼。>>420は無視しといて。

**nobodyさん** · 03/08/02 21:45

>>418
どうでもいいが、ここはCGIスレじゃないので一行目は余計。

**nobodyさん** · 03/08/02 23:01

>>412
print "**************************************************<BR>\n";
print "***　　　Hello! Welcome to the 2ch World!　　　***<BR>\n";
print "**************************************************<BR>\n";

**nobodyさん** · 03/08/03 01:14

\nはプロンプトでの改行
htmlの場合はソース内の改行
当然見た目を改行させるには<br>がいる

**412** · 03/08/03 09:51

>>411
>>413
>>414
>>423
>>424
できました！　こんなくだらない質問に答えてくれて皆さんどうもありがとう
ございました<(_ _)>

**nobodyさん** · 03/08/03 12:05

>>425
くだらないつーか。text/plainを勝手にtext/htmlと解釈することがあるという
IEの仕様にからむ、とても難儀な問題なのだよ。

**nobodyさん** · 03/08/03 12:21

text/plainにかぎらず、例えばimage/jpegでも中身がHTMLらしければ。

**nobodyさん** · 03/08/03 13:14

あるブラウザは Content-Type: を無視して送られてきたコンテントの
内容を走査して、勝手に振る舞ってるってことかな

**nobodyさん** · 03/08/03 13:26

>>428
そういう糞ブラウザは、image/png でハードディスクの内容を消去するバイナリが埋め込まれていると、
実行しちゃうんだろうなぁ。。。

**nobodyさん** · 03/08/03 15:35

&foo( %ENV, "sample", 123456 );

sub foo
{
my (%a, $b, $c ) = @_;
}

こうやっても、%a $b $c に何も入ってこないよ～
解らないよ～ヽ(´Д`；)ﾉ

**nobodyさん** · 03/08/03 15:49

return

**nobodyさん** · 03/08/03 15:59

リファレンス

**nobodyさん** · 03/08/03 17:33

初心者スレなんだからそんな答え方じゃ解らんだろう

&foo( \%ENV, "sample", 123456 );

sub foo
{
my ($a, $b, $c ) = @_;
my %a = %$a;
}

リファレンスについては http://www.kt.rim.or.jp/~kbk/perl5.005/perlref.html

**nobodyさん** · 03/08/03 17:42

>>433
先越された(´･ω･`)

んじゃ一応補足……$a->{HOGE} とやればハッシュをコピーしなくてもそのまま参照可能。
配列の場合も同じように。

**nobodyさん** · 03/08/03 17:47

>>430
ハッシュは(key1,value1,key2,value2・・・)となってるただの配列。
で、配列は展開されちゃうから、
my %hoge = (1=>'a', 2=>'b');
&foo(%hoge, "sample", 123456);

sub foo {
my (%a, $b, $c ) = @_;
}
と書くと、%aには(1,'a',2,'b',"sample",123456)が入り、$b,$cはからになる。
ちなみにリファレンスを使うのが普通だが、使わないでやりたいなら

my %hoge = (1=>'a', 2=>'b');
&foo("sample", 123456, %hoge);

sub foo {
my ($b, $c,%a) = @_;
}

とすることもできる。

**nobodyさん** · 03/08/03 17:50

>434に補足してみる。
$a->{HOGE}とやると参照渡しになるので、その中身を変更しようとすると実引数の中身も書き変わる。

$ENV{HOGE} = 'hage';
&foo( \%ENV, "sample", 123456 );
print $ENV{HOGE}; # higeが表示される

sub foo
{
my ($a, $b, $c ) = @_;
$a->{HOGE} = 'hige'
}

**nobodyさん** · 03/08/03 18:23

大きいハッシュや配列にリファレンスを使わないと
値を@_へコピーするのに時間がかかる(メモリも喰う)から、
なるべくリファレンスを使うのをお勧めします。

**nobodyさん** · 03/08/03 18:27

>>435
> ハッシュは(key1,value1,key2,value2・・・)となってるただの配列
ソースキボンヌ
つーか、ただの配列だったらでかいハッシュに対して$foo{bar}なんてことは気軽に出来ないから、間違いじゃねーの。

**nobodyさん** · 03/08/03 19:13

配列型(AV)とハッシュ型(HV)は別物。ただし代入はできます。

**430** · 03/08/03 19:27

レスどうもです。リファレンス…奥が深そうですね。

Cで言うと、アドレス（orポインター）渡しみたいなもんですか？
なんか、少し混乱気味ヽ(´Д`；)ﾉ

>>433-435 さんのレスを参考にコーディングしてみます。

**nobodyさん** · 03/08/03 19:34

>>440
ポインタを理解してるんなら、覚えるのは早いと思うよ。

**nobodyさん** · 03/08/03 19:45

リファレンスを使えるようになったら脱初心者といえますか？

**nobodyさん** · 03/08/03 20:01

>>438
ﾊｧ?
＞ただの配列だったらでかいハッシュに対して$foo{bar}なんてことは気軽に出来ないから
何をおっしゃってますか？
内部でハッシュ関数を呼び出して、得られた値をインデックスとして使っているのですよ。
配列はランダムアクセスできるからO(1)じゃん。

**nobodyさん** · 03/08/03 20:04

>>438
ああ、もしかしてC++で言うこところのlist<string>だと思ってるわけ？間違いじゃねーの。

**nobodyさん** · 03/08/03 20:46

>>438
%hogeは配列に見えるし、配列で代入できる。
けれど内部的にはハッシュ。何も問題なし。

**nobodyさん** · 03/08/03 20:50

>>443
「ハッシュは...となってるただの配列」は>>435の発言なのでお間違いなきよう。

**nobodyさん** · 03/08/03 21:55

html.gzファイルをopenして書き出してもブラウザにうまく表示されません。
Content-typeの表示が問題と思い、
なんとかEncoding:gzipかなんか書いたんですがだめでした。
何が問題と考えられるでしょう。

**nobodyさん** · 03/08/03 22:08

Content-Encoding

**nobodyさん** · 03/08/03 22:10

>>447
>>1を読まないのが問題。
2度と来るなとは言わんが、>>1を1日10回読んで1週間後にまた質問しに来い。
今日はもう書き込むな。

**nobodyさん** · 03/08/04 12:13

>>449
そういうの辞めて無視し。いい加減バカかと。

**nobodyさん** · 03/08/04 12:20

>>450
なら、文句をいわずに、お前が回答しろ。