Perl 初心者コーナー Part23

**nobodyさん** · 03/05/16 11:18

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

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

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

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

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

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

**nobodyさん** · 03/05/28 18:53

>>519
山崎渉は透明あぼ～んに登録して桶

**nobodyさん** · 03/05/28 19:24

文章の１行目から３行目までを指定して
改行を取り除きたいのですが、
どのようにすればいいのでしょうか？
改行を取り除くのは
$body =~ s/\n//g;
これでできるのですが、
$bodyの中の１行目から３行目までだけの
改行を取り除きたいと思っています。

**nobodyさん** · 03/05/28 19:46

>>522
@bodys = split (/\n/, $body);
chomp ($body[0], $body[1], $body[2]);

いくら初心者のためのスレだと言っても、
最低基礎くらい覚えてこい！

**523** · 03/05/28 19:51

@bodys = split (/\n/, $body);
@head = splice (@bodys, 0, 3);
$body = join ("\n", @bodys);

ｽﾏﾝ、俺も、ちゃんと勉強しておく。。。

**nobodyさん** · 03/05/28 20:15

>>523
はぁ？じゃマジ初心者はどこいったらいいのよ？
お前スレタイ読んで出直してこいや（ｗ

**５２５** · 03/05/28 20:16

すまねぇ・・・ちゃんと過去ログ読むわ・・・

**nobodyさん** · 03/05/28 20:29

>>523

ありがとう。
でも配列使えないんですよ。
ポインタみたいな物使ってるので。
$body_item->{'body'}
これの中身の最初の\nから３つ目の\nまで消したいんです。

**nobodyさん** · 03/05/28 20:31

あとstrict使っているのでグローバル変数は使えないんです。

_ · 03/05/28 20:32

http://homepage.mac.com/hiroyuki43/hankaku01.html

**nobodyさん** · 03/05/28 20:37

ﾖｸﾜｶﾗﾝｹﾄﾞ
for($i=0; $i<3; $i++){
　　$body_item->{'body'}[$i] =~ s/\n//g;
}

**nobodyさん** · 03/05/28 20:38

>>528
use vars

**nobodyさん** · 03/05/28 20:44

>>530
>531
ありがとう
use vars

for($i=0; $i<3; $i++){
　　$body_item->{'body'}[$i] =~ s/\n//g;
}
Unrecognized character \x81 at user_lib/xxxx/xxx.pm line 198.
というエラーが出ます。

**nobodyさん** · 03/05/28 20:46

しるかぼけ！
198行目がなんなのかもわからんのに

**nobodyさん** · 03/05/28 20:49

use vars
@body_item->{'body'} = split (/\n/, $body_item->{'body'});
@head = splice (@body_item->{'body'}, 0, 3);
$body_item->{'body'} = join ("\n", @body_item->{'body'});
これだと

Global symbol "@body_item" requires explicit package name at user_lub/xxx/xxx.pm line 196

このようなエラーが出ます。

**nobodyさん** · 03/05/28 20:49

\x81 。。。。

**nobodyさん** · 03/05/28 20:54

ただ先頭から３つの\nを取り除くだけも結構大変ですね。

**nobodyさん** · 03/05/28 20:57

>>534
馬鹿なのか回答者をおちょくっているのか・・・

**nobodyさん** · 03/05/28 20:58

ここのせいでオナニーしすぎだよまったく・・・
　　　　　　　　　↓

　http://www.dvd-yuis.com/index2.html

**nobodyさん** · 03/05/28 20:58

>>537
全然おちょくってないです。
本当に困ってるんですよ。

**nobodyさん** · 03/05/28 21:00

何か他に案はないでしょうか？

**nobodyさん** · 03/05/28 21:01

substr使っても駄目だったし本当にどうすればいいんだろう・・・

**nobodyさん** · 03/05/28 21:05

>>539
use vars ここにグローバル変数にしたい変数を羅列;

use vars qw($a @b %c);という感じで。

**動画直リン** · 03/05/28 21:10

http://homepage.mac.com/hitomi18/

**nobodyさん** · 03/05/28 21:12

>>542
ありがとう

use vars qw(@body_item->{'body'},@head);
@body_item->{'body'} = split (/\n/, $body_item->{'body'});
@head = splice (@body_item->{'body'}, 0, 3);
$body_item->{'body'} = join ("\n", @body_item->{'body'});

これだと
@body_item->{'body'},@head' is not a valid variable name under strict vars at user_lub/xxxx/xxx.pm line 196
こういうエラーが出ます。

**523** · 03/05/28 21:15

>>533
ﾜﾗﾀ

**nobodyさん** · 03/05/28 21:15

うわー。名前消し忘れてるし～。

**nobodyさん** · 03/05/28 21:15

>use vars qw(@body_item->{'body'},@head);

カンマ区切りじゃなくて、半角スペース区切りだろ

**nobodyさん** · 03/05/28 21:18

>>544
@head = splice (@{$body_item->{'body'}}, 0, 3);

**nobodyさん** · 03/05/28 21:18

>>547
半角スペースでも試しましたが駄目でした。

**nobodyさん** · 03/05/28 21:20

use vars qw(@body_item @head);
@{$body_item->{'body'}} = split (/\n/, @{$body_item->{'body'}});
@head = splice (@{$body_item->{'body'}}, 0, 3);
$body_item->{'body'} = join ("\n", @{$body_item->{'body'}});

いっぱい間違ってないかい？

**nobodyさん** · 03/05/28 21:20

use vars qw(@body_item @head);だと思うんだが。

**550** · 03/05/28 21:22

あ、最後の行
$body_item->{'body'} = join ("\n", @{$body_item->{'body'}});
↓
@{$body_item->{'body'} = join ("\n", @{$body_item->{'body}});
変更。

**nobodyさん** · 03/05/28 21:22

>>548
ありがとう
これだと
use vars qw(@body_item->{'body'} @head);
@body_item->{'body'} = split (/\n/, $body_item->{'body'});
@head = splice (@{$body_item->{'body'}}, 0, 3);
$body_item->{'body'} = join ("\n", @body_item->{'body'});

こういうエラーが出ます。
Type of arg 1 to splice must be array (not hash element) at user_lub/xxxx/xxx.pm line 199, near "3)"

**550** · 03/05/28 21:23

>>553

>>550＆>>552

**nobodyさん** · 03/05/28 21:23

>>522
1行目から3行目までを取り込み、全ての改行コードを削除してから残りの行を付け加えるのでは駄目なのか？

**550** · 03/05/28 21:24

>>555
俺も最初に思ったが、どしてもスカラー変数から改行を取り除きたいらしい。

**nobodyさん** · 03/05/28 21:25

>>556
そうか(^_^;)
で、配列も使いたくないらしいから、split+joinもだめなのね。

**nobodyさん** · 03/05/28 21:26

>>551
それだと
Bad name after body' at user_lub/xxxx/xxx.pm line 209.
というエラーが出ます。

**550** · 03/05/28 21:27

>>557
いや、厳密には配列に入ってるんだよ。
それが、ﾘﾌｧﾚﾝｽで入ってるんで、ちょっと扱いがわかってないっぽい。
要領は同じなんだけどね～・・・

って、雑談ぽくなってきたので、これにて。

**550** · 03/05/28 21:28

>>558
もういい・・・。
すべてのｿｰｽを晒せ。

**nobodyさん** · 03/05/28 21:28

>>552
こうすると

'@body_item->{'body'}' is not a valid variable name under strict vars at user_lub/xxxx/xxx.pm line 196
このようなエラーが出ます。

**nobodyさん** · 03/05/28 21:29

>>561
それ、ちゃんと変更できてない。
ソース晒せって。全部。
圧縮して、アプローダ。

**nobodyさん** · 03/05/28 21:30

>>555
それは出来ないんですよ。ソースが膨大でDatabase使ってますから。

**nobodyさん** · 03/05/28 21:31

>>563
掲示板で教えるのは限界がある。
・・・とにかく、@body_item->{'body'}ってのを、@{$body_item->{'body'}} へ、ちゃんと変更する。
全部。

**nobodyさん** · 03/05/28 21:34

>>563
って言うか、そのｴﾗｰ出てるﾓｼﾞｭｰﾙだけを晒してくれれば早い。

**nobodyさん** · 03/05/28 21:38

>>565
pakage使ってますから横の繋がりもあるんですよ。

**nobodyさん** · 03/05/28 21:39

>>566
それでもいいから。
ｴﾗｰは、そのﾓｼﾞｭｰﾙ局部的な物と見てる。
それとも、晒せないソースなのか？
今のペースだと、スレ１つ消化するくらい説明のやり取りが必要になるぞ。

**nobodyさん** · 03/05/28 21:40

at user_lub/xxxx/xxx.pm line 196
だったら、196行目だけ晒せばいいだろ！

**nobodyさん** · 03/05/28 21:41

>>563に違和感を覚える。

ソースって読み込み元のことか？

**nobodyさん** · 03/05/28 21:41

>>567
分かりました。
もうちょっとやって駄目ならそこの部分のソースを2chアップローダに
上げます。

**nobodyさん** · 03/05/28 21:41

>>568
196行目のエラーが無くなったら、別の行でエラーが出る罠。

**nobodyさん** · 03/05/28 21:43

>>568
196行目は
my $body;
です。

**nobodyさん** · 03/05/28 21:44

>>572
(T-T)(T-T)(T-T)(T-T)(T-T)(T-T)

**nobodyさん** · 03/05/28 21:55

$str =~ s/^(.*?)\n(.*?)\n(.*?)\n/$1$2$3/;

**nobodyさん** · 03/05/28 22:00

>>495
LWPモジュールでググれ。

**nobodyさん** · 03/05/28 22:02

>>517
$text = 'abc';
$regex = qr/$text/;

これでいいだろ？
んで、表示する時は$text使えばいいんじゃねーか。

**nobodyさん** · 03/05/28 22:04

Perl、何か宇宙語のようで読むのが大変ですｗ

**nobodyさん** · 03/05/28 22:09

>>574
完璧です。
それで完璧に出来ました。
ありがとうございます。

**nobodyさん** · 03/05/28 22:16

>>574
どこでそのような方法を勉強したのでしょうか？
perlのリファレンス見てもそのような表現方法は載ってなかったので
どうやって勉強したのか気になります。

**nobodyさん** · 03/05/28 22:18

>>579
処理のｱﾙｺﾞﾘｽﾞﾑ。
勉強したけりゃ、人が書いたソース読め。

**nobodyさん** · 03/05/28 22:23

>>580
そうですか。
人のソースで勉強したのですか。
人の書いたソースでも、あの表現方法を理解するのは
私には難解です。
まだまだ勉強が足りないですね。

**nobodyさん** · 03/05/28 22:27

$str =~ s/^(.*?)\n(.*?)\n(.*?)\n/$1$2$3/;

ちなみにこれについて教えていただきたいのですが、
$1$2$3というのは変数だと思いますが、strict内で変数宣言しなくても
エラーが出ませんでした。どうしてなのでしょうか？
普通は　my $1;などと変数宣言しないといけないはずですが。

**nobodyさん** · 03/05/28 22:37

>582
http://www.google.com/search?num=100&hl=ja&ie=UTF-8&oe=UTF-8&as_qdr=all&q=Perl+%E7%89%B9%E6%AE%8A%E5%A4%89%E6%95%B0+%241&lr=lang_ja

**nobodyさん** · 03/05/28 22:42

てゆーか、正規表現知らずにPerlやってるのが信じられんのだが

**nobodyさん** · 03/05/28 22:44

「～はずですが」←これが多いねぇ～

**nobodyさん** · 03/05/28 22:47

>>583
特殊変数だったのですね。
$n
最後に一致した正規表現内の()グループに相当する部分文字列が設定されるのですね。

正規表現を勉強しないといけませんね。

**nobodyさん** · 03/05/28 22:58

何はともあれ、ありがとうございました。

**nobodyさん** · 03/05/28 23:14

教科書に載っている以上のことができないっつーのも、なんかアレだな。
これもゆとり教育の弊害か｡

**nobodyさん** · 03/05/28 23:20

つーか正規表現載ってないperlのリファレンスってなんだ?

**nobodyさん** · 03/05/28 23:41

いきなりレスが増えたから荒されたのかと思ったよ。山崎
こんな香具師、いつもならスルーなのに今日はどうした？

**nobodyさん** · 03/05/28 23:53

$body =~ s/\n//;
$body =~ s/\n//;
$body =~ s/\n//;

完璧だ！

**nobodyさん** · 03/05/29 00:08

バカは放置しないと直らない

構うなよバカを

**nobodyさん** · 03/05/29 00:23

ここ(σ￣ω￣)σいいじゃん
http://homepage3.nifty.com/coco-nut/
ここ(σ￣ω￣)σ神がいます
http://jbbs.shitaraba.com/computer/2364/

**nobodyさん** · 03/05/29 00:58

バカのお祭りみたい

**nobodyさん** · 03/05/29 01:57

>>574
>>578
くそぉぉ！！
祭りに乗り遅れた！！
面白そうな祭りしてたんだな・・・

しっかし・・・ひどいな（ｗ

**nobodyさん** · 03/05/29 10:45

だって初心者スレだもん

**nobodyさん** · 03/05/29 10:56

1,UENO
2,SIBUYA
3,SHINJYUKU

という３行のCSVファイル「house.csv」があって、
それをHTML::Templateモジュールの<TMPL_LOOP>を使って表示させたいのですが、
いかんせん、リファレンスのことが理解できず（通算１５時間以上読んでいるのですが（泣））、
やり方がわかりません。どのようにすればいいのでしょうか？

open(IN, "< house.csv");
　　while ($line = <IN>){
　　　　chomp $line;
　　　　$values = split(/,/, $line);
　　　　#不明箇所その１($values[0]、$values[1])をどうすりゃいいか
}
#--------------------------------------------------------------------
# HTMLテンプレートをオープン
my $template = HTML::Template->new(filename => './tmpl/search_result.html');
# パラメータを埋める
$template->param(SEARCH_RESULT => [
　　　　{ id => '1', station => 'UENO' },
　　　　{ id => '2', station => 'SIBUYA' },
　　　　{ id => '3', station => 'SHINJYUKU' },
　　　　#不明箇所その２
　　　　#今は、ここを、直接idとstationを書いているが、これを、
　　　　#CSVファイルからもってきた値に変えたい
　　]
);
あと、リファレンスについて、猿でもわかる解説ってないでしょうか・・・？

**bloom** · 03/05/29 11:10

http://homepage.mac.com/ayaya16/

**nobodyさん** · 03/05/29 11:51

くだらないことで一日悩んでるくらいなら、らくだ本買いなよ。

**nobodyさん** · 03/05/29 11:54

>>599
なぜ、ラクダ本を薦めるのかがわからん。
たしかに最強の本だが、ラクダ本で理解するのは難しいだろ。
ある程度分かってからなら、さらに深く理解できると思うけど。

お勧めは、「新Perlの国へようこそ」
俺は、これでリファレンス＆オブジェクトを勉強した。

**nobodyさん** · 03/05/29 12:00

そこまで言い切ってしまうなら、本なんて買わずにそこら辺のサイトで
十分と思われ。
まあ漏れもラクダ本は好きじゃないけど、これくらい買う気にならないと
どうせやっても頓挫するよ、くらいの目安にはなると思う。

ちなみに漏れは「初めてのPerl」みたいなタイトルの本買って勉強しますた。

_ · 03/05/29 12:01

http://homepage.mac.com/hiroyuki43/hankaku01.html

**nobodyさん** · 03/05/29 12:18

より高度なスクリプトを書きたい、と思い立つまでは、
入門もリファレンスもネット上で足りるよな。

それでも理解不能な超初心者向けの本というと何だろう。
もはやPerl以前のところから説明してそうだけど。

**597** · 03/05/29 12:34

>>600
おれが一番読んでいるのは、その「新Perlの国へようこそ」です・・・
やばいのかな、おれって
いや、リファレンス以外はらいたい、その本で理解できたつもりなんですけどね

**nobodyさん** · 03/05/29 14:19

ソ　ー　ス　嫁　。

**nobodyさん** · 03/05/29 14:42

良質なソースｷﾎﾞﾝﾇ

**nobodyさん** · 03/05/29 14:59

Content-Disposition: attachment; filename=name.xxx;\r\n
を使ってダウンロードさせるプログラムがあって、
そいつをNetScape７でダウンロードさせると、ファイル名のケツに.cgiがつくんです。
対処方法はありますか？

**nobodyさん** · 03/05/29 15:10

perlってペールって読むの？
それともパール？
どうなのＹＯー

**nobodyさん** · 03/05/29 15:17

>>608 pearlを最初使おうとしてたらしいからパールでいいんで無かろうか？

まぁ、俺は駱駝本は欲しいなと思ってはいるけど、
入門段階で本を買ったら覚えれるという発想も安直だと思うのだが如何だろう？

**nobodyさん** · 03/05/29 15:41

ペールです

**nobodyさん** · 03/05/29 15:49

ベッケンバウアーです

**nobodyさん** · 03/05/29 15:51

Activeperlでsslのかかったサイトにアクセスしたいのですがどうすればよいでしょうか？

いちおうNet::SSLeayというモジュールが必要ということで
ppm install Nea::SSLeay　としてやってみたもののうまくできません。
どうすればよいでしょうか？

perl初心者ですが申し訳ありません。

**nobodyさん** · 03/05/29 17:15

perlはぱるる。urlはうるるだ。

**nobodyさん** · 03/05/29 17:48

とにかく問題は、潜在的な理解能力には差があるということ。

らくだ本を読めば理解できる人が全てというわけでは無いんだから、少し配慮しよう。

**nobodyさん** · 03/05/29 17:50

潜在的ってか、やる気の問題だろ。
質問の内容がアホすぎる奴が多い。
いかにも「とりあえず聞いてます」みたいな奴。

ちったあ調べて来い！　ってんだ。

**nobodyさん** · 03/05/29 21:40

>>603
Perl以前っていうか、
Perlの開発者の説明やPerlの元々の意味が載ってた本なら見た事ある

**nobodyさん** · 03/05/29 22:00

すぐわかるperlが２００円で買える。。。でも送料、振込み金
考えるとあんま安くないな...。
あ、簡単なperlの本は読んだんですけど必要ないですかね？
掲示板とか作るところでつまずいたんで買おうと思ってるんですけど。

**nobodyさん** · 03/05/29 22:03

↑↑↑
あ、スレ違いでした。すいません。

**nobodyさん** · 03/05/29 23:22

Socketについて１から詳しく教えてる優良なサイトってありますか？
よければ教えて下さい。検索に出なかったもので、、

**nobodyさん** · 03/05/30 00:11

>>619
http://www.google.com/search?num=50&hl=ja&ie=Shift_JIS&q=Socket+perl&lr=lang_ja
ちゃんと調べたのか・・・。
検索したら、山ほど引っかかるが？
これ、全部読んでもダメなら本探しに行くがよろし。

**sample** · 03/05/30 02:10

>>597
my @list;
open(IN, "house.csv");
while (<IN>){
　　chomp;
　　my ($id, $station) = split /,/;

　　my %list;
　　$list{id} = $id;
　　$list{station} = $station;
　　push @list, $%list;
}

my $template = HTML::Template->new(filename => './tmpl/search_result.html');
$template->param(
　　LIST => \@list
);

search_result.htmlの該当部分例
<TABLE>
<TMPL_LOOP NAME="LIST">
<TR><TD><TMPL_VAR NAME="id"></TD><TD><TMPL_VAR NAME="station"></TD></TR>
</TMPL_LOOP>
</TABLE>