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

[0001 nobodyさん 04/10/07 23:23:08 ID:kiEzDCJF]

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

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

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

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

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

[0728 nobodyさん 04/11/13 23:06:05 ID:???]

>>727
その文字化けの注意点は
710が思ってる文字化けの問題ではないと思われる

[0729 nobodyさん 04/11/14 00:51:05 ID:???]

>>710

my ($err);
my　$mailer = '/usr/sbin/sendmail';
my　$mlfr= 'xxx@xxx';
my　$mlto= '[e-mail]';
my　$mlsb= 'xxx';
my　$mlmsg = "あああああ";

my　$mlhd= "Reply-to: $mlfr" . "\n" . "MIME-Version: 1.0" . "\n" . "Content-Type: text/plain; charset=iso-2022-jp" . "\n" . "Content-Transfer-Encoding: 7bit" . "\n" . "From: $mlfr" . "\n" . "To: $mlto" . "\n" . "Subject: $mlsb" . "\n\n";

if (open( MAIL, "| $mailer -t -f'$mlfr'" ))
{
　 print MAIL $mlhd;
　 print MAIL $mlmsg;
　 print MAIL "\n";
　 close( MAIL );
} else {
$err = 1;
}

関係ないけど、こんなのどう？

[0730 nobodyさん 04/11/14 05:48:52 ID:???]

>>729
my　$mlhdの行がイモ過ぎる。
書き直してやれよ。

[0731 nobodyさん 04/11/14 09:59:57 ID:???]

my　$mlhd=<<EOF;
Reply-to: $mlfr
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
From: $mlfr
To: $mlto
Subject: $mlsb

EOF

[0732 nobodyさん 04/11/14 10:57:46 ID:???]

メールの改行コードって ￥r￥n じゃなくていいんだっけ？

[0733 nobodyさん 04/11/14 13:07:57 ID:???]

>>731
そのままprintしてもいいよね

print MAIL <<_EOF;
Reply-to: $mlfr
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
From: $mlfr
To: $mlto
Subject: $mlsb

_EOF

[0734 nobodyさん 04/11/14 19:41:44 ID:???]

>>732
sendmailがよきにはからってくれるが、明示的に
print MAIL <<_EOF;
Reply-to: $mlfr\r
MIME-Version: 1.0\r
Content-Type: text/plain; charset=iso-2022-jp\r
Content-Transfer-Encoding: 7bit\r
From: $mlfr\r
To: $mlto\r
Subject: $mlsb\r
\r
_EOF
とする方が望ましい。

[0735 nobodyさん 04/11/14 20:17:27 ID:???]

(；ﾟДﾟ)

[0736 nobodyさん 04/11/14 20:17:29 ID:???]

(my $mlhd = <<"EOF") =~　s/(?<!\r)\n|\r(?!\n)/\r\n/g;
Reply-to: $mlfr
...

EOF

[0737 nobodyさん 04/11/15 00:54:44 ID:Pp2G7AAw]

ここで質問してよいのか迷ったのですが、もし不都合でしたら御指摘ください。

perlのスクリプト中で、あるURLのhtmlファイルを取得して、そのファイルの
データを処理したいのですが、その取得方法がわかりません。

ぜひご教授お願いします。

[0738 nobodyさん 04/11/15 01:29:15 ID:???]

>>703
遅レスだが、ポータビリティを重視するならFile::Spec
使ったほうがいいんじゃない?

[0739 nobodyさん 04/11/15 01:40:44 ID:???]

>>734
本気で言ってるのか？

>>737
http://pc5.2ch.net/test/read.cgi/php/1097158988/351-

[0740 nobodyさん 04/11/15 02:56:46 ID:???]

ソートに関して…躓いています。

@data = (
'あ,1,A',
'い,2,B',
'う,3,C',
'え,4,D',
'お,5,E',
'か,6,F',
);

という例があったとして、これを数字でソートし、
さらに4にもっとも近い順からソートしたいのですが、これが上手くいきません。
方法があれば何卒教えて頂きたく思います。どうか宜しくお願いします。

[0741 nobodyさん 04/11/15 04:31:28 ID:???]

こんなんじゃ？
for(@data){
$data{$_}=abs(4 - (split(/,/,$_))[1]);
}
foreach (sort {$data{$a} <=> $data{$b}} keys %data){
print $_, "\n";
}

[0742 nobodyさん 04/11/15 07:00:56 ID:???]

my @new = map{ $_->[1] }
sort{ $a->[0] <=> $b->[0] }
map{ [abs((split(/,/))[1]-4), $_] } @data;

--
# 数字は8桁以内
my @new = map{ substr($_, 8) }
sort{ $a cmp $b }
map{ pack('A8A*', abs((split(/,/))[1]-4), $_) } @data;

--
# >>741さんと同じハッシュ使用
my %temp = map{ $_ => abs((split(/,/))[1]-4) } @data;
my @new = sort{ $temp{$a} <=> $temp{$b} } keys %temp;

[0743 nobodyさん 04/11/15 08:47:06 ID:???]

>map{ pack('A8A*', abs((split(/,/))[1]-4), $_) } @data;
map{ sprintf('%08d%s', abs((split(/,/))[1]-4), $_) } @data;
だね…。

[0744 nobodyさん 04/11/15 10:38:06 ID:???]

すみません、便乗でいいですか？
>740さんの例題をすこし弄って、

@data = (
'赤,あ,1,A,6',
'青,い,2,B,5',
'赤,う,3,C,4',
'青,え,4,D,3',
'赤,お,5,E,2',
'青,か,6,F,1',
);

これを>740さんの質問通り三つ目で四に最も近い数字でソートします。
この後が僕の質問なんですが、
これを更に一番目でソートし、最後に五番目でソート…
というのは出来ますでしょうか？
具体的にはこんな感じでしょうか？

@data = (
'青,え,4,D,3',
'青,い,2,B,5',
'青,か,6,F,1',
'赤,う,3,C,4',
'赤,お,5,E,2',
'赤,あ,1,A,6',
);

一応、>741さんや>742さんの解答を参考に頑張ってみたんですが、
やっぱり上手くいきませんでした。
複雑だし無理かもしれませんがどうかお願いします。

[0745 nobodyさん 04/11/15 11:14:04 ID:???]

sort { } の中身を工夫すればできる
できなければ駱駝本を買って sort 関数のところを読め

[0746 nobodyさん 04/11/15 12:09:37 ID:44z8JY7I]

jcode.pl v2.13 を使っているのですが、大量のバッチ処理をしていてふと
気付いたら、以下のようなメッセージが極々々まれに出てるのに気付きました。

Character in "C" format wrapped at [フルパス]/jcode.pl line 554.

行554には $s2e{$code} = pack('CC', $c1, $c2); とかかれているのですが、
恥ずかしながらなぜ警告(?)メッセージが出てるか自分でわかりません。

どなたか教えて頂けないでしょうか？
（ネットで探してみましたがちょっとよく分からくて）

[0747 nobodyさん 04/11/15 13:27:24 ID:???]

$c1と$c2の値がすでに文字列なんじゃないの。

[0748 nobodyさん 04/11/15 14:04:03 ID:???]

>>746
とりあえず診断メッセージがわからないときはperldiag(1)を
見るのがいいと思うのだが。

Character in "C" format wrapped in pack
(W pack) You said

pack("C", $x)

where $x is either less than 0 or more than 255; the "C" format is
only for encoding native operating system characters (ASCII,
EBCDIC, and so on) and not for Unicode characters, so Perl behaved
as if you meant

pack("C", $x & 255)

If you actually want to pack Unicode codepoints, use the "U" format
instead.

[0749 nobodyさん 04/11/15 15:03:24 ID:44z8JY7I]

>>748
ありがとうございます。英語力は全く無いのですが、
0〜255の範囲以外のが来てるのでエラーになっているのですね。色々試しています。

[0750 737 04/11/15 21:26:40 ID:YvLIGcES]

>>739

ありがとうございます。LWPを使ってうまくいきそうです
（何をやってるのか自分でまだ理解できてなかったりしますが・・・)

[0751 nobodyさん 04/11/15 22:45:40 ID:v6KPj5Kw]

漠然とした質問で申し訳ないんですが、1000行程度の１対１対応のデータを
１回のプロセスで何度も検索する場合、あらかじめハッシュを作った方が速くなるのでしょうか？
いまいちハッシュの性能というのが分からないのですが、検索キーをかえるたびに
１行目から値を探していくのと、ハッシュにキーを入れて値を得るのと、
ハッシュのほうが速そうな気がするんですが、やっぱり速いでしょうか？

[0752 nobodyさん 04/11/15 23:40:04 ID:???]

>>751
case by caseとしか言いようが・・・
行という言葉を簡単に使ってるけども、
実際には行の切り出しという処理が入るわけだし、
それなら固定長でデータを扱う方が早いわけだし、
ハッシュというか位置インデックスを作れば固定長の呪縛が無くなるし、
というか何度も検索する必要があるのか？という根本的な疑問も残るし、
長くなったがｵﾚの言いたいことはこれだね！
なんで試してみない？

[0753 nobodyさん 04/11/15 23:47:01 ID:???]

>>752
実際二つ作ってみるのが早いですよね。めんどくさがって申し訳ないです。
組み合わせの検索をする感じなんですが、大体2500〜40000くらいの組み合わせから
条件に合うものをピックアップする感じで、やはりとにかく試すことにします。
ありがとうございました。

[0754 nobodyさん 04/11/15 23:51:24 ID:???]

>>751
よくわからんが、もし言いたいことが

while($hairetsu[$index] ne $hikaku){ $index++; }

と

$index = $hash{$hikaku}

を比べたいのなら、後者の方が圧倒的に速い

[0755 751 04/11/15 23:54:50 ID:???]

>>754
バッチリそんな感じです。ハッシュの方から作ってみる事にします。

[0756 nobodyさん 04/11/16 00:01:02 ID:???]

>>754
えーと。。whileつーのは。。やっぱりいいや。
意味せんとしていることは伝わってるみたいだし。

[0757 751 04/11/16 00:18:23 ID:???]

>>756
ああ読み違えました！のかな？
今必要としているのは、キーと値の両方で、キーはただの行数とかじゃなくって
ユニークなデータなので、while($hairetsu[$index] ne $hikaku){ $index++;}
の方だと無理なのかもしれません。ごめんなさいよく分かりません。

[0758 nobodyさん 04/11/16 00:23:16 ID:???]

普通は、1000個もハッシュ作ってからindex検索するるより、
1000行ベタ検索した方が速い。30000行でもそうだったかな。

[0759 nobodyさん 04/11/16 00:35:13 ID:???]

ごめん、30000行のはSQL+pnamazuとベタとの比較で、
そりゃDBのが速いが、pnamazuが介在してるからか、
たいして変わらなかった。QDBMあたりでやったらどう
かな。こんどやってみるか。

[0760 nobodyさん 04/11/16 03:12:24 ID:???]

1回しか検索しないなら要素がいくつだろうがリニアサーチの方が速いけど、
何回も検索するならソートしてから二分探索するかハッシュ作った方が全然速い。
要素が1000個でも。

[0761 nobodyさん 04/11/16 06:55:09 ID:???]

>>760
1回の検索ではリニアサーチの方が速いんなら、何回やっても
リニアサーチの方が速いだろうが（ﾌﾟｯ
1*n < 1.2*n、ほれ回数が多くなるほど差は広がる。

[0762 nobodyさん 04/11/16 07:06:06 ID:???]

>>744
ソートというより、一番近い値を探すという感じだね。

>>745
絶対無理。

[0763 nobodyさん 04/11/16 08:47:34 ID:???]

>>761
mod_perlなんかならハッシュだな。つまり、何回も検索する際、
perlを起動しなおさない。作ったハッシュをメモリに保存しとく。
あと、namazuとかsufaryとかindexファイルを別に作っておくとか
すれば、>>760でOK.

[0764 nobodyさん 04/11/16 11:13:02 ID:???]

最初にハッシュを作るステップを抜きにすれば、
リニアサーチよりハッシュの方が速いということ？

[0765 nobodyさん 04/11/16 12:44:55 ID:???]

>>762
差分の絶対値でソートすればええやん

>>764
まあそういうことや

[0766 nobodyさん 04/11/16 16:53:03 ID:???]

みんな
require 'ファイル';
って最初の方に読んじゃってますか？

そのファイルが必要な処理がある直前(複数箇所)で
requireしてるんだけど問題ありますかね？
複数箇所と行っても一回の起動では一箇所しか呼び出しません。

[0767 nobodyさん 04/11/16 17:34:24 ID:???]

>>744
遅レス御免。
これで処理しても示されてる結果にはならないが、
条件が複数のソートはこんな感じでいいと思う。

$sort_routine = sub {
　my @La = split /,/, $a; my @Lb = split /,/, $b;
　abs(4 - $La[2]) <=> abs(4 - $Lb[2]) || $La[0] cmp $Lb[0] || $La[4] <=> $Lb[4];
};

@ahoo = sort $sort_routine @data;

[0768 762 04/11/17 06:08:04 ID:???]

ごめんなさい。質問を勘違いしてました。

質問内容は
・3の要素でソート
・1の要素で安定なソート
・5の要素で安定なソート
で、その順番を逆転させれば一回でできる訳ですね。
5の要素でソート、同じ値なら1の要素でソート、同じ値なら3の要素でソート。

use sort "stable";
my @new = map{ $_->[3] }
sort{ $a->[0] <=> $b->[0] or $a->[1] cmp $b->[1] or $a->[2] <=> $b->[2] }
# sort {$a->[1] cmp $b->[1] or $a->[2] <=> $b->[2] } # 3と1の要素だけでソート(例示と同じ結果を得る)
map{ my @v = split(/,/); [$v[4], $v[0], abs($v[2]-4), $_]; } @data;

>>745
つっこんでごめん。

[0769 767 04/11/17 07:36:26 ID:???]

なんだ、>>767の方法ってPerlメモってところで既出だったのか・・・。
せっかくその場で考えたのに、空しいぜ。
よく読んで頭冷やしてくるか。

>>766
条件などで読むファイルを変えたいときは、
途中に書いたことはあったけどね・・・。

何でもないときは、先頭に書くのが基本でしょ。
そのプログラムが、どのファイルに依存しているかを明示しておけば、
後々運用管理するのに楽になるし。

[0770 nobodyさん 04/11/17 17:56:42 ID:???]

Perlメモお世話になってます。

[0771 nobodyさん 04/11/17 18:32:44 ID:tQLRR4kH]

同じファイルハンドル（この場合$fh）から別ファイルに続けて書き出そうとすると
何も出力できません。

open (OUT,"> test/$test");

while(<$fh>){ #$fhはファイルハンドルが入っている
prin OUT $_;
}

close(OUT);

という処理を繰り返し実行すると２つ目のファイルは
なにも表示されません。

１回実行したあとファイルハンドル($fh)を表示してみましたが、
確かに指し示しているファイルは１回目と変わりません。
ファイルハンドルを書き出した後ファイルハンドルって
どうなってしまうのでしょうか？

[0772 nobodyさん 04/11/17 19:09:57 ID:???]

>>771
prin じゃなくて printだよね？
while は$_を操作しません。

[0773 771 04/11/17 19:13:30 ID:tQLRR4kH]

すいません。printです。
forでも同じでした。

[0774 771 04/11/17 19:20:12 ID:tQLRR4kH]

なんどもすいません。
できました。書き出す前にtellでファイルハンドルの場所を
取って来て、書いた後seekで戻す事によって解決しました。
お騒がせしました。

[0775 はなわlo 04/11/17 19:25:22 ID:???]

ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l
ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l ftp://l.l

[0776 nobodyさん 04/11/17 19:38:43 ID:GNPvE3vb]

htmlの部分とCGIの部分を分けてコーディングしたいです。
何かよいモジュールなどありませんでしょうか。

[0777 nobodyさん 04/11/17 19:39:43 ID:???]

HTML::Template

[0778 nobodyさん 04/11/17 20:00:07 ID:???]

>>775の[ここ壊れています]って初めて見た。

[0779 質問です 04/11/18 01:55:30 ID:U6GG0aJq]

$file = "file.xxx";

$size = -s "$file";

print "Content-Disposition: attachment; filename=\"$file\"\n";
print "Content-Length: $size\n";
print "Content-Type: application/octet-stream\n\n";

open(DAT, "$file");
while(<DAT>){
print;
}
close(DAT);

のようなコードで file.xxx をダウンロードしたいのですが、
ダウンロード画面はちゃんとでてダウンロードできるのですが、
ファイルが壊れて保存されます。これはなんででしょうか。
OSはwindowsでapacheで動かしてます。。

[0780 nobodyさん 04/11/18 02:59:31 ID:???]

>OSはwindowsでapacheで動かしてます。。
DATもSTDOUTもbinmode()せにゃあかんのでは？

[0781 779です。 04/11/18 04:26:15 ID:???]

すいません。そのとおりでした。
ありがとうございます。
感謝感謝。

[0782 nobodyさん 04/11/18 11:15:20 ID:???]

TO:[123] こんにちわ。

↑のような文字列から数値部分(123)だけを取り出す場合、どう書くのがスマートでしょうか？
TO:[数値] という書式は固定です。

[0783 nobodyさん 04/11/18 11:17:02 ID:???]

$string =~/^TO:\[(\d+)\]/;
$no = $1;

[0784 nobodyさん 04/11/18 11:23:07 ID:???]

>>783
できました！ありがとうございました！

[0785 nobodyさん 04/11/18 13:06:46 ID:If69CbzI]

s/"/"/g;
1 while s/<font([\s\w\=\#\"\'\+\-]+)>/<font$1>/i;
1 while s/<\/font>/<\/font>/i;

これは"が"に変換されてるデータ($_)から"を"に戻し、
fontタグを有効にする処理ですが、これでは$_内の全ての"が"に戻ってしまいます。
しかし、"に戻す必要があるのはfontタグの"のみです。
最初にいきなりs/"/"/g;などとやらず、fontタグの"だけを"に戻す方法すにはどの様にすれば良いでしょうか？

[0786 nobodyさん 04/11/18 13:10:17 ID:???]

すいません、書き直します・・・。；は全角です。

s/"；/"/g;
1 while s/<font([\s\w\=\#\"\'\+\-]+)>/<font$1>/i;
1 while s/<\/font>/<\/font>/i;

これは"が"；に変換されてるデータ($_)から"；を"に戻し、
fontタグを有効にする処理ですが、これでは$_内の全ての"；が"に戻ってしまいます。
しかし、"に戻す必要があるのはfontタグの"；のみです。
最初にいきなりs/"；/"/g;などとやらず、fontタグの"；だけを"に戻す方法すにはどの様にすれば良いでしょうか？

[0787 nobodyさん 04/11/18 13:13:42 ID:???]

馬鹿ですいません・・・。＆ｑｕｏｔ；は全角で書きましたが本来は半角です。

s/＆ｑｕｏｔ；/"/g;
1 while s/<font([\s\w\=\#\"\'\+\-]+)>/<font$1>/i;
1 while s/<\/font>/<\/font>/i;

これは"が＆ｑｕｏｔ；に変換されてるデータ($_)から＆ｑｕｏｔ；を"に戻し、
fontタグを有効にする処理ですが、これでは$_内の全ての＆ｑｕｏｔ；が"に戻ってしまいます。
しかし、"に戻す必要があるのはfontタグの＆ｑｕｏｔ；のみです。
最初にいきなりs/＆ｑｕｏｔ；/"/g;などとやらず、fontタグの＆ｑｕｏｔ；だけを"に戻す方法すにはどの様にすれば良いでしょうか？

[0788 nobodyさん 04/11/18 13:14:13 ID:???]

stylesheetが使われる可能性も考えろよ

[0789 nobodyさん 04/11/18 13:32:05 ID:???]

そもそもなんでFONTタグ内の " が &quot; に変換されとるの？

[0790 nobodyさん 04/11/18 13:38:18 ID:???]

>>789
説明不足ですいません。
BBSのログで、保存する時点ではタグに関わる記号&;<>は全てデコードしてあります。
で、読み出して表示する際に許可したタグのみ有効にする仕組みになってて、fontタグのみ有効にしてます。

[0791 nobodyさん 04/11/18 13:45:00 ID:???]

>>790
×　&;<>
○　&"<>
でした・・・。

[0792 ７８９ 04/11/18 13:54:44 ID:???]

だったら、<> の２種類だけをエンティティーコードに変換すりゃええやん。

[0793 nobodyさん 04/11/18 14:08:47 ID:???]

s!(?<=<font)([^>]+)!my $s = $1 ; $s =~ s/&quot;/\"/g ; $s!ieg ;

こうかなあ。

[0794 nobodyさん 04/11/18 15:02:37 ID:???]

>>793
うまいこといかないっす・・

[0795 nobodyさん 04/11/18 16:41:16 ID:???]

すいません。色々悩んだ挙句、ログに記録する時点でダブルクォートは＆ｑｕｏｔ；に変換しない
って事にしました。

[0796 nobodyさん 04/11/18 17:13:54 ID:???]

(´д｀)

[0797 nobodyさん 04/11/18 17:54:10 ID:???]

&hearts; → そのまま。

&hiroyuki; → &amp;hiroyuki;

みたいに実態参照が定義されていない場合のみ & をエスケープしようと思ったら、
定義されているやつを全部リストとかで持ってないとダメなんだろうか。

使えるモジュールとかありますか?

[0798 nobodyさん 04/11/18 18:15:24 ID:???]

>>797
HTML::Entities

decode_entitiesに食わせて変化するか(定義されていれば変化する)

または、

%entity2charハッシュのキーにあれば定義されている

といったあたりでいけると思う。

[0799 nobodyさん 04/11/18 18:48:22 ID:???]

>>794
なんで>>793のでうまくいかないんだ？
俺っちも考えたが、793と同じような形になったし。
もしかしてネタ？

[0800 nobodyさん 04/11/18 19:09:44 ID:???]

>>798
ありがとう。うまくいってるようです。
でも借りてるサーバーには HTML:: が無いんだけど、まあコピーして置いとけば動くだろう。

[0801 nobodyさん 04/11/18 19:59:02 ID:???]

>>799
すいません。<>も＆ｌｔ；＆ｇｔに変換された状態なのを説明してませんでした。
<>のままの状態だと>>793さんので出来ました。

[0802 nobodyさん 04/11/18 21:45:59 ID:???]

>>801
s!&lt;(/?font\b.*?)&gt;! (my $s=$1) =~ s/&quot;/\x22/g; "<$s>" !egis;
ではどう？
<font **>と</font>の両方を < > も含めて戻せると思うんだけど。

[0803 nobodyさん 04/11/18 21:57:39 ID:???]

>>802
ばっちり復元出来ました！すげー！
FONTタグで囲まれたデータ部分の＆ｌｔ；＆ｇｔ；＆ｑｕｏｔ；はそのままで、
タグの記述部分だけちゃんと変換されてます。
ありがとうございました！

[0804 nobodyさん 04/11/19 08:46:55 ID:???]

超初心者な質問です。

telnetモジュールを使用して、リモートコンピュータに接続してから、
・screen起動
・外部プログラム起動
・CTRL-A　d　で[detached]
という操作をperlで実行したいのです。

色々サイトを回って調べて、telnet接続まではできたのですが、
上記手順の「CTRL-A　d　で[detached]」で行き詰っております。
CTRL-Aという操作をperlのtelnetモジュールで行うには、
どういう記述をすればよいのでしょうか？

[0805 804 04/11/19 10:44:06 ID:???]

説明が悪かった気がします。

何でscreenを使用したいかというと、
webブラウザ上で、サーバのプログラムを起動させ、常駐させたいからです。
通常のデーモン（inetdなど）であれば、わざわざscreenなど使わなくても
telnetモジュールで接続させ、コマンドを実行させればよいのですが
今回起動させたいプログラムは、バックグラウンドで動作してくれないため、
常にコンソールを開いておく必要があるのです。
なので、仮想的に常駐させるためにscreenを選んだというわけです。
当方、UNIX系OSに触れて1週間足らずなので、
「screenなんて使わなくても　この方法でいいだろバカ」
という意見なども助かります。

[0806 nobodyさん 04/11/19 10:59:05 ID:n9OG7mgX]

swfからcgiをたたいて、画像の縦横サイズを変更し、
swfに表示するということをやっております。
画像は正しくロードできるのですが、ファイルサイズが取得できず、
ローディング表示ができなくて困っています。

詳しく説明します。
まずswf内で
_root.[object].loadMovie("hoge.cgi", "POST");
を使い、ロードの要求をします。
するとhoge.cgiでimageMagickというモジュールを使い、
縦横サイズを変更します。ここでPOST送信されている
stageWとstageHとranはswfから送られてくる変数です。

[0807 806 04/11/19 10:59:50 ID:n9OG7mgX]

つづきです。
---
use Image::Magick;
if($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
}else {
$query = $ENV{'QUERY_STRING'};
}
foreach $pair (split(/&/, $query)){
my ($key, $value)=split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$form{$key}=$value;
}

$i = Image::Magick->new;
$img="img/cover$form{'ran'}.jpg";
$i->Read($img);
($width, $height)= $i->Get('width', 'height');
if($width/$height>=$form{'stageW'} / $form{'stageH'}){
$newwidth =$width*$form{'stageH'}/$height;
$i = $i->Transform(geometry=>$newwidth);
}else{
$newwidth= $form{'stageW'};
$i = $i->Transform(geometry=>$newwidth);
}
print "Content-type: image/jpeg\n\n";
binmode(STDOUT);
$i->Write("jpeg:-");
undef $i;
exit;
---

[0808 806 04/11/19 11:00:52 ID:n9OG7mgX]

つづき２です。
--
そして戻ってくる画像データをswf内にて
getBytesLoaded()やgetBytesTotal()で調べています。
するとロードされたバイト数はしっかり取得できているのに
対し、総ファイルサイズはロード中はずっと0になっていて、
ロードが完了すると総ファイルサイズが表示されます。

OS FreeBSD
perl 5.8.x
Flash ver.6.0

どうか、よろしくお願いいたします。

[0809 nobodyさん 04/11/19 12:30:01 ID:???]

ヘッダじゃない？ Content-Length

[0810 nobodyさん 04/11/19 13:49:59 ID:???]

$alldataが空じゃなく、$ENV{'CONTENT_LENGTH'}が空の状態で

read STDIN,$alldata,$ENV{'CONTENT_LENGTH'};

を実行したら$alldataの中身は変わってませんでした。
原因はどこですか？

[0811 810 04/11/19 14:33:50 ID:???]

すいません、ちゃんと空でした。

[0812 nobodyさん 04/11/19 15:43:47 ID:???]

これを設置してみたんですが、発言がややアイコンの右下に表示されるのが嫌です。
真横に表示させることはできないのでしょうか？
ttp://spiral.lib.net/cgi/mc/

[0813 nobodyさん 04/11/19 15:47:41 ID:???]

右下じゃなくて右上でした

[0814 nobodyさん 04/11/19 16:12:25 ID:???]

>>805 >/dev/null 2>&1
他にもnohupとか。

>>812
作った人に言え

[0815 nobodyさん 04/11/19 16:17:03 ID:???]

>>814
無理なんです今は・・

[0816 nobodyさん 04/11/19 19:45:10 ID:???]

perlで変数を()でくくって宣言しているのをしばしば見かけるのですが、
($tmp) = "hoge";
とか。
これは何の意味があるんでしょう？

[0817 nobodyさん 04/11/19 20:16:23 ID:???]

>>816
その例ではまったく無意味かと
($foo, $bar) = @_;
とかやると
$foo = $_[0];
$bar = $_[1];
の効果が得られる。
多分書いた人の癖じゃないか？

[0818 nobodyさん 04/11/19 20:26:47 ID:???]

>>817
レスありがとうございます。
某ﾚｽＱのCGIにしばしば出現てて悩みました。()の中はスカラ変数が一つだけなんです。
実際は右辺はサブルーチンだったりするんですが、配列は戻ってこない。
($ret) = &getMessage("$filename$EXT");#戻り値は0か1
とか。
悩むのやめときます。

[0819 nobodyさん 04/11/19 22:09:11 ID:???]

ていうかレスキューなんか参考にするのやめれ

[0820 804 04/11/19 22:47:11 ID:???]

>>814

レスありがとうございます。
/dev/nullについて調べて、実際に動かしてみました。
要するに出力をポイっとやるわけですよね？

末尾の2>&1は何でしょうか？色んなサイト調べてみましたが、
nullの動作に触れてるところばかりHITしたらしく。。orz

nohupもためさせてもらいました。
動作的にはscreenと似ているので、助かります。
しかし、nohupすると、私のUNKサバではかなり重くなってしまいます。。

出力を書き込んでいるからでしょうか？

あと、nohupや　＆での開始だと、telnetモジュールを切断させた後
ジョブをフォアグラウンドに復帰させる方法が見当つきません。。

我侭ばかりですいません。よろしくお願いします。

[0821 804 04/11/19 22:50:33 ID:???]

論点がPerlからズレてきているようなので、質問を訂正します。

割り込みキー入力（今回の場合はCTRL+A）を
perlからコンピュータに送信する方法はあるのでしょうか？

板汚し申し訳ないorz

[0822 nobodyさん 04/11/19 23:02:34 ID:???]

>>818
そうやっておくと、もし２つ以上の返り値があった場合に
最初の値だけ取って、残りを捨てるということができる。
安全策ってわけだな。
あまり誉められたものではないと思うけど。

[0823 nobodyさん 04/11/19 23:08:43 ID:???]

>>821
試してないけど\x01送るんじゃ駄目？

[0824 nobodyさん 04/11/19 23:09:06 ID:???]

だからさ、２つ以上の返り値があるのかどうかわかんなくなっちゃうでしょ

[0825 823 04/11/19 23:20:43 ID:???]

>>821
おっと2>&1についてもついでに答えるんだった・・・
「標準エラー出力を標準出力に纏める」という意味。

nohupが重くなる理由はmanに書いてあったぞ
> スケジューリング優先度は 5 増やされるので、
> 実行の割り当て時間はやや小さくなる。
そんなに大きく変わるかは知らないが

[0826 804 04/11/20 00:21:15 ID:???]

>>823,825

レスありがとうございます。
大変貴重な情報をいただきました。
若干板違いな質問にも丁寧に答えてくださって、感謝です。

[0827 nobodyさん 04/11/20 04:13:04 ID:???]

質問です.
ある, 改行コードがCR+LFのテキストファイルがアップロードされた際, 改行コードをLFに
変換し, そのファイルを保存するcgiを書きたいのですが, 以下のように書いてみましたがうまくいきません.
LFに変換されずCR+LFのまま保存されてしまいます.
#!/usr/bin/perl
use CGI;
$query = new CGI;
Content-type: text/html\n\n

$fn = $query->param('filename');
$type = $query->uploadInfo($fn)->{'Content-Type'};

if($type =~ /^text\//){
　　open(FILE,">test.txt");
　　while (<$fn>) {
　　　　$temp = $_;
　　　　$temp =~ s/\r\n/\n/;
　　　　chomp($temp);
　　　　print FILE "$temp\n";
　　}
}
どのようにしたらいいでしょうか？宜しくお願いします.