Perlコーディング初心者質問スレ Part 49

**nobodyさん** · 2006/05/31(水) 04:32:28

Perlのコーディングで困ってる人のスレです。

【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。

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

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

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

**nobodyさん** · 2006/05/31(水) 18:47:06

でも、クックブックみたいな逆引き系マニュアル持ってないと
まず目的ありきの時に、どの関数・どのモジュールを使えばいいかわからないよね

オライリー有用だけど高いよ('A`)　貢ぎましたけど・・・

**nobodyさん** · 2006/05/31(水) 18:53:43

つぐぐる

**nobodyさん** · 2006/05/31(水) 18:57:04

>>21
ｱｰｯ!!　　　　　　　　　　いや　　　ほら　　　　クックブック　　あると　便利よ・・・　　うん

**nobodyさん** · 2006/05/31(水) 19:08:04

HTTPレスポンスヘッダに206を指定しファイルをCGI経由でDL
させようとすると、500エラーが出てしまいます。
具体的には下記のようにしております。

print "HTTP/1.1 206 Partial Content\n";
print "Last-Modified: Wed, 24 May 2006 18:41:30 GMT\n";
print "Pragma: no-cache\n";
print "Accept-Ranges: bytes\n";

my $range = $ENV{'HTTP_RANGE'};
if($range =~ m/^bytes=(\d+)\-(\d+)$/){
my $offset = $1;
my $end = $2;
my $len = $end - $offset + 1;

print "Content-Range: bytes $offset-$end/$len\n";

$filesize = $len;
}

print "Content-Length: " . $filesize . "\n";
print "Content-Type: $content_type\n\n";

print while(<IMG>);
close(IMG);

エラー内容は「Bad header=HTTP/1.1 206 Partial Content」ですので
これを外せばエラーは出ないのですが、206を返す手段があれば
ご教示いただきたく思っております。
宜しくお願いいたします。

**nobodyさん** · 2006/05/31(水) 19:29:32

>>23
Status ヘッダ
http://www.nilab.info/docs/cgi/draft-coar-cgi-v11-03-clean-jp.html#7.2.1.3

以後 CGI の話は以下のスレへ。
CGI: Common Gateway Interface part 13
http://pc8.2ch.net/test/read.cgi/php/1126436361/

**nobodyさん** · 2006/05/31(水) 19:45:57

>>24
すみません。
誘導先で質問させていただきました。有難うございました。

**nobodyさん** · 2006/05/31(水) 20:06:46

投稿されたテキスト本文の最後に、無駄な空白と改行が入っている
場合、これを取り除いて別の著名などを挿入したいのですが
取り除くにはどうしたらいいか教えてください

**nobodyさん** · 2006/05/31(水) 20:18:04

>>26
$text =~ s/\s+$/$chomei/s;
別の著名ってなんだ？

**nobodyさん** · 2006/05/31(水) 20:25:57

>>27
有り難うございます
日付、新規なのか更新（修正）なのかです
本文の最後に付けると見栄えが良いので

**nobodyさん** · 2006/05/31(水) 20:29:54

>>28
本文の最後に空白がない場合にも著名を挿入したい場合は、
$text =~ s/\s*$/$chomei/s;
な。それから、著名でなくて署名じゃないのか？

**nobodyさん** · 2006/05/31(水) 20:31:16

>>20
クックブックの方が便利なの？
これ↓を買おうと思っているんだけど。。

Perl/CGI逆引き大全 600の極意
http://www.amazon.co.jp/gp/product/4798010774/

**nobodyさん** · 2006/05/31(水) 20:31:30

すみません

**nobodyさん** · 2006/05/31(水) 21:14:12

>>17
@b = eval $a;
で万全。

**nobodyさん** · NG

>>30
その本持ってる。旧版だけど。

**nobodyさん** · 2006/05/31(水) 21:29:39

>>33
ちょーだい

**nobodyさん** · 2006/05/31(水) 21:58:58

俺は技術評論社の perl リファレンス使ってる

おらいりーは有用だけど余計な文が多くてあまり馴染めんかった

**nobodyさん** · NG

>>35
それも持ってるわ

**nobodyさん** · 2006/05/31(水) 23:33:41

書式だけ確認したいときはラクダはちょっと邪魔かも

**nobodyさん** · 2006/05/31(水) 23:36:50

リファレンスは perldoc 一本に絞った。
ラクダ本は、必要な所だけスキャンして処分(ボロボロだったので)。
現在うちにあるPerlの本はAdvanced Perl のみ…。

**nobodyさん** · 2006/05/31(水) 23:39:11

紙で見る利便さは捨てない方がいい

**nobodyさん** · 2006/06/01(木) 00:00:48

書式だけなら手書きでも充分！(｀･ω･´)

**nobodyさん** · 2006/06/01(木) 00:14:11

わろすｗｗｗ

17 · 2006/06/01(木) 11:55:18

>>32
$aが
$a = "あいうえお,かきくけこ,さしすせそ";
みたいな時は、無理でしょうか？

**nobodyさん** · 2006/06/01(木) 12:09:27

>>42
>>18を無視するな…>>32はネタだ。
@splited = split /,/, $csv
まあ要するに>>19。split(とeval)を提示された時点で検索していれば、
splitが求めるものだとすぐ分かるはずなのにそれを怠っているとしか思えない。

**nobodyさん** · 2006/06/01(木) 14:17:44

しょうがないよ>>17超初心者なんだから

**nobodyさん** · 2006/06/01(木) 18:57:05

めんどくさいので答えちゃいますよ～
>17=42
my @array = split(/,/, $string);

split　→　文字列(第２引数)を区切り子(第１引数)で分断し、その配列を返します。
my　→　変数の局所化
/,/　→　正規表現でカンマ区切りを指定
$string　→　ここではカンマで区切られた文字列が入ってると仮定
@array　→　split関数によって返された配列が入る

以上

スクリプトを組む上で必ず使うような関数は、書式を完全に覚えろとは言いません。
せめてやりたいことから関数名を連想（要は逆引き）できるようにしませう。

**nobodyさん** · 2006/06/01(木) 19:05:28

>>45
あんた優しすぎｗ

**nobodyさん** · 2006/06/01(木) 19:24:16

>>45
こ、これが大人の余裕ってやつなのか…？

**nobodyさん** · NG

ここのリンク貼るだけでええやん
http://perl.misty.ne.jp/function02/split.html

**nobodyさん** · 2006/06/01(木) 19:41:05

.htmlで

cgiからの書込み

って出来るのを最近知ったんですがどういう風に書くんですか？
ネットで探してもこのスクリプトが載ってないのだが・・・。

**nobodyさん** · 2006/06/01(木) 19:45:57

SSI exec でぐぐれ？

**nobodyさん** · 2006/06/01(木) 19:48:35

SSIは関係無い

テンプレートとなるHTMLを１行ずつ読み込む
が現れたら処理開始
が現れたら処理終了

そんなことよりも（すごい巨大なデータでなければ）
とかを置換した方がスマートかな

**nobodyさん** · NG

意味不明情報小出な質問大杉

**nobodyさん** · 2006/06/01(木) 19:56:54

質問が意味分からないのに良く答えるなぁ

**nobodyさん** · 2006/06/01(木) 19:57:40

>>51
む？
「 .htmlで」って拡張子でかいてるから、HTMLファイルにアクセスしてやりたいってことじゃないの？
エスパー失敗？

**nobodyさん** · 2006/06/01(木) 20:09:17

テンプレートファイルを用意して、それをCGIでごにょごにょしてから表示する方法
を求めてると判断した次第

>54
SSIだったらって表記をするはずだし、startとendとペアで記述するもんじゃないから
SSIは違うんじゃね？と思った

よく見たらいきなりスバっと書きすぎてたかな
気分を害してたらｺﾞﾒ

**nobodyさん** · 2006/06/01(木) 20:51:11

本人だが>>55の言うとおりです。
そんな感じのを教えてほしいわけです。
宜しくお願いします。

**nobodyさん** · 2006/06/01(木) 20:55:56

HTML::Template でも使えばええがな('A`)

**nobodyさん** · 2006/06/01(木) 20:57:12

>>56
多くの住人もエスパーさんも「そんな感じの」ではわからんのです。
>>55の冒頭が「やりたいこと」だったら、>>51とか。

「だから>>51のやりかたを…」とか言われると果てしなく続くのです。

**nobodyさん** · 2006/06/01(木) 21:03:32

>>58
その辺の事が分からないので詳しく教えてほしいのです。

**nobodyさん** · 2006/06/01(木) 21:04:54

>56
>57でもOKだけど
一応考え方の参考って事で・・・（略記だけど）
my %template;
$template{##TITLE##}="あ～";
$template{##BODY##}="う～";
open(FH, "テンプレートHTML"); read(FH, $templatehtml, (-s FH)); close(FH);
foreach(keys(%template)){
　$templatehtml=~s/$_/$template{$_}/g;
}
print $templatehtml;

HTML には挿入したい場所に##TITLE##とかを書いておけばOKです

**nobodyさん** · NG

放置すればいいのに

**nobodyさん** · 2006/06/01(木) 21:09:47

60だけど、これ以上は書かないつもり
これ以上書くならテンプレート形式を使ってるスクリプトを眺めろとしか言えないし

**nobodyさん** · 2006/06/01(木) 21:10:01

be付けてる人って、いつも煽ってばっかりだよね。

**nobodyさん** · 2006/06/01(木) 21:10:34

>>63
ﾆｭﾙｰしてあげるのもやさしさですｗ

**nobodyさん** · NG

うわぁ…

**nobodyさん** · 2006/06/01(木) 21:42:09

ではこのような事をなんと言うのかお教え下さい。

**nobodyさん** · 2006/06/01(木) 21:50:08

>66
散々単語が出てきてるのに・・・おまえもう来るなｶｽ

**nobodyさん** · 2006/06/02(金) 00:14:24

テキストに[A-z]を書き出すにはどうすればいいですか？

**nobodyさん** · NG

print a..z;

とか

**nobodyさん** · 2006/06/02(金) 00:43:27

>>69
できましたありがとうございます

[Aa][Aa]などのような場合はどうすればよいでしょうか？

**nobodyさん** · 2006/06/02(金) 00:45:57

日本語でおｋ

**nobodyさん** · 2006/06/02(金) 01:30:15

ここでESPを発揮！

print lc().uc() for (a..z);

**nobodyさん** · 2006/06/02(金) 01:31:18

>>72
いやいや敢えてこんな感じで。

my $m = 25;
$_ -= $m--, print chr $_ - 32, chr and --$m for reverse 97..122;

**nobodyさん** · 2006/06/02(金) 01:43:41

なかなかやるな！

**nobodyさん** · 2006/06/02(金) 02:16:24

>>72 >>73
ありがとうございました

それから、マイドキュメントにあるホームページアップ用のhtmlファイルのjpgを全てpngにしたいんですが
どのようにすればよいですか？
いちおうこんな感じにやってみたんですがウンともスンともいいませんでした

open IN,"./1.html";
while ( $word = <IN> ){ $words .= $word;}
close IN;
open ADD,">./1.html";
$words =~ s/jpg/png/g;
print ADD "$words";
close ADD;

どこがミスってますか？

**nobodyさん** · NG

拡張子変えるだけでいいの？

**nobodyさん** · 2006/06/02(金) 02:37:17

>>76
はい！
htmlのソースの中にあるjpgをpngに変えるのが目的です

**nobodyさん** · 2006/06/02(金) 03:12:56

じゃ今度は僕がテレパス化に挑戦。

>>77
全部の open と close の後に or die $! って書いてみよう。

open IN, "./1.html" or die $!;
...中略...
close IN or die $!;

というふうにね。
困った時に時々原因を教えてくれるおまじないだよ。
これからは必ず付けるようにしてね♪

**nobodyさん** · 2006/06/02(金) 03:29:31

>>78
うーん、、、やはりなにも起こりません。

**nobodyさん** · 2006/06/02(金) 03:49:36

問題を細かくする事がデバッグのコツ。

まず、置換・書き込み部分はコメントアウトして、読み込んだ後に
$words を print して正常に読み込めているか確かめる。

正常に読み込めているのを確認したら、置換部分を有効にして、置換した後に
$words を print して本当に置換されているか確かめる。

正常に置換されていたら、書き込み部分を有効にして、書き込みファイル名を変えてみる。
・書き込み先のパスをフルパスで指定してみて、正常に書き込めるか確かめる
・存在しないファイル名を指定して、新規作成してみる
・既存のファイル名を指定して、上書きしてみる

これだけやれば原因がわかるはず。

79 · 2006/06/02(金) 04:02:27

>>80
とりあえずこんな感じでテストしてみました
デスクトップのaフォルダの中に1.htmlとtest.pl
# test.plの中身
$name = "./1.html";
open OUT,">>$name";
print OUT "test\n";
close OUT;

これでコマンドプロンプトから実行してもだめでした

**nobodyさん** · 2006/06/02(金) 04:43:31

一応聞くけど、hello world は動くの？
でなけりゃ一回ファイル名変えてやってみ。
たまに自分のアホなスクリプト実行したせいでファイルがロックされてる場合がある。
ソース自体は普通みたいだから、絶対なんかヘンなことしてるしｗ

**nobodyさん** · 2006/06/02(金) 04:59:21

openのあとｴﾗｰﾄﾗｯﾌﾟしてみたら？
open errorだったりして…

**nobodyさん** · 2006/06/02(金) 05:32:21

関連付けされてねぇんじゃ？

**nobodyさん** · 2006/06/02(金) 09:47:40

$a1 ="あ";
$a2 ="い";
$a3 ="う";
～
$a50="ん";

このスカラー変数を、連結して表示したい場合、
print $a1.$a2.$a3.～$a50;

perlでは、このような表記の仕方しかないでしょうか？

**nobodyさん** · 2006/06/02(金) 09:55:34

$sname='a';
while(1..50){
　$tmpsname = $sname . $_;
　$val = \${$tmpsname};
　$renketu .= $val;
}

すげぇテキトーｗ
つかね、配列使ってください

**nobodyさん** · 2006/06/02(金) 10:15:26

最近みんな優しいなあ・・・

**nobodyさん** · 2006/06/02(金) 10:54:24

my @Hiragana = qw(
　　あいうえお
　　かきくけこ
....
　　わをん
);
local $, = "";
print @hiragana;
qwはタブも改行もスペース扱いしてくれるぞ

**nobodyさん** · 2006/06/02(金) 10:55:50

あ、
print @Hiragana;
ちなみに$a50="ん";にはならんぞ。５０音て５０個じゃないから

**nobodyさん** · 2006/06/02(金) 10:59:55

>>86は間違い
リファレンスを連結している
my $sname='a';
print join '', map { ${"$sname.$_"} } (1..50);

動かしてないがこれでよくね？

**nobodyさん** · 2006/06/02(金) 11:22:34

最近 use strict してたから、そういう記法もあったの忘れてたな・・・。

とりあえずグローバル変数やたら定義すると面倒で適わんね。

**nobodyさん** · 2006/06/02(金) 11:25:06

今携帯だから確認出来ないけど、\ は要りませんでしたか。

… 実は map の使い方というか使う意義がわかんねｗ
あとでリファレンス立ち読みしてみるかにゃ

**nobodyさん** · 2006/06/02(金) 11:35:03

日本語が不自由な質問に携帯から答えたおまいは優しいな･･･

**nobodyさん** · 2006/06/02(金) 13:54:21

この優しさが怖い

**nobodyさん** · 2006/06/02(金) 14:26:56

my @hiragana = qw(あいうえおかきくけこ
さしすせそたちつてとなにぬねの
はひふへほまみむめもやゆよ
らりるれろわをん);
print map{${$_->[0]} = $_->[1]}map{['a'.$_ ,$hiragana[$_-1]]}(1..46);

なんか質問の主旨とは違うよーな気もするが

**nobodyさん** · 2006/06/02(金) 15:05:28

なんでデリファレンスやねん

**nobodyさん** · 2006/06/02(金) 15:25:35

>90
ん～、エラーっすねぇ
Can't use string ("a.1") as a SCALAR ref while "strict refs" in use at /test.cgi line 16.

${"a$_"} にしたら
Can't use string ("a1") as a SCALAR～
で同じエラー

俺にゃ難しい宿題だｗ

**nobodyさん** · 2006/06/02(金) 16:09:13

$s = "aあいうえおかきくけこ";
${"@{[substr($s,0,1]}$_"}=substr($s,$_*2-1,2)for(1..length($s)/2); #ここまでセットアップ

print join '', map ${"a$_"}, (1..10); # 好きな数だけloopすれば？

**nobodyさん** · 2006/06/02(金) 16:18:21

>>85
print eval(join('.', map{ '$a'.$_ } (1..50)));

**nobodyさん** · NG

Perl臭ぇーッ!!

**nobodyさん** · 2006/06/02(金) 17:16:07

>>97
当然 no strict 'refs';の前提だが。
シンボリックリファレンス使ってるだろ？

**nobodyさん** · 2006/06/02(金) 17:22:15

あ、コピーしたときにドット入ったんだな。抜いてくれ

no strict 'refs';
my $sname='a';
print join '', map { ${"$sname$_"} } (1..50);

**nobodyさん** · 2006/06/02(金) 18:06:46

>>100
文句多いな。
local $r = sub{((@_[0] > 1) ? $r->(@_[0]-1) : ''). eval('$a'.@_[0])};
print $r->(50);

**nobodyさん** · 2006/06/02(金) 20:13:53

やったー Hello World できたよ＼(＾o＾)／

sub p { my $n = shift; my $p; ($p = sub { print chr($n += shift); $p })->() }

p(0x48)->(0x1D)->(0x07)->(0x00)->(0x03)->(-0x43)->(-0x0C)->
(0x57)->(-0x08)->(0x03)->(-0x06)->(-0x08)->(-0x43)->(-0x17);

**nobodyさん** · 2006/06/02(金) 20:16:51

$test=1; # この状態ではシンボリック
print $test; # ここで実体化(ハード)
代入する段階でハードリファレンスってどうやるの？

**nobodyさん** · 2006/06/02(金) 20:22:18

日本語でおｋ

**nobodyさん** · 2006/06/02(金) 20:22:33

日本語でおｋ

**nobodyさん** · 2006/06/02(金) 20:23:28

久々にｹｺｰﾝしたｗ

**nobodyさん** · 2006/06/02(金) 20:24:21

ふつつかものだけど幸せにしてね('A`*)

**nobodyさん** · 2006/06/02(金) 20:25:29

男同士だったらどうすんだよ

**nobodyさん** · 2006/06/02(金) 20:35:06

問題なく結合します。
use Tie::Man::And::Man;
my $happy = tie $res106, Tie::Man::And::Man, $res107;

**nobodyさん** · 2006/06/02(金) 20:37:13

my $happy = tie $res106, Tie::Man::And::Man, $res107; # この状態ではシンボリック
$happy->insert(); # ここで実体化(ハード)
挿入する段階でハードリファレンスってどうやるの？

**nobodyさん** · 2006/06/02(金) 20:43:35

>>105 が聞きたかったのはこういう事かな？　と ESP を発揮！

$test = \1; # リテラルスカラー値に対するハードリファレンス
print $$test; # デリファレンス

多分シンボリック＝リテラルだと思ってるのかな　と想像。

シンボリック＝実体はただの文字列。文字列をデリファレンスするとシンボルテーブルから
　　　　　　　　　その名前を持つモノをひっぱってきてくれる。

**nobodyさん** · NG

エスパーすげー

**nobodyさん** · 2006/06/02(金) 21:01:00

エスパースレいる？

**nobodyさん** · 2006/06/02(金) 21:46:32

ﾘﾃﾗﾙとかﾊｰﾄﾞﾘﾌｧﾚﾝｽとかｼﾝﾎﾞﾘｯｸとかわかんね～!!!詳しく解説してるとこｷﾎﾞﾝ

**nobodyさん** · 2006/06/02(金) 22:15:15

>>116
俺もよくわかんなくて、ｶﾞﾝｶﾞｯってｸﾞｸﾞったよ。
ここ↓とかどう？　perl-解説ってとこ。

山口家の逆襲
http://kabocha.org/jelfe/

**nobodyさん** · 2006/06/02(金) 22:23:29

もうやめたｗ

**nobodyさん** · 2006/06/02(金) 22:38:40

ｗｗｗｗｗ