トップページ⇒php
1001コメント318KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん2007/05/30(水) 11:34:01ID:???
Perlのコーディングで困ってる人のスレです。

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

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

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

お勧めサイトは >>2-10

前スレ　http://pc11.2ch.net/test/read.cgi/php/1171102883/
過去ログ倉庫　ttp://user.ftth100.com/mirrorhenkan/perl/
0002nobodyさん2007/05/30(水) 11:34:51ID:???
ム板Perlスレより 1 of 2

[プログラミング自体の経験が無い奴はまずココを読め]
Perlプログラミング講座: ttp://www.site-cooler.com/kwl/perl/

[本]
リャマ: ttp://www.oreilly.co.jp/books/4873111269/
駱駝: ttp://www.oreilly.co.jp/books/4873110963/
Effective Perl: ttp://www.ascii.co.jp/books/detail/4-7561/4-7561-3057-7.html
クックブック: ttp://www.oreilly.co.jp/books/4873112028/

[オンラインマニュアル] (追加)
最新のドキュメント: ttp://search.cpan.org/dist/perl-5.8.8/
perl5.8.xのドキュメント(一部): ttp://www.kt.rim.or.jp/~kbk/perl-5.8/
perl5.005_03 のドキュメント: ttp://www.kt.rim.or.jp/~kbk/perl5.005/
日本語ドキュメント検索: ttp://www.cpan.jp/search.cgi
perldoc.jp: ttp://www.perldoc.jp/
Perldoc.com: ttp://www.perldoc.com/
0003nobodyさん2007/05/30(水) 11:35:17ID:???
ム板Perlスレより 2 of 2

[モジュール]
CPAN.com: ttp://search.cpan.org/
河馬屋二千年堂: ttp://homepage3.nifty.com/hippo2000/

[テクニック]
Perlメモ: ttp://www.din.or.jp/~ohzaki/perl.htm
Perlのページ: ttp://homepage1.nifty.com/nomenclator/perl/
Perlの小技: ttp://homepage3.nifty.com/hippo2000/perltips/index.htm

[Perl5.8Unicodeメモ]
ttp://www.pure.ne.jp/~learner/program/Perl_unicode.html
ttp://www.namazu.org/~tsuchiya/perl/perl-5.8.html
ttp://www.lr.pi.titech.ac.jp/~abekawa/perl/perl_unicode.html
0004nobodyさん2007/05/30(水) 14:47:32ID:???
質問です。
web（charset=euc-jp）から入力された内容を送信し、Jcodeを通して、utf8でテキストファイルを
作成しています。
入力時に、例えば「りゅうべい（立方メートルの記号）」などを登録すると、＆＃13221;のような
記号でデータが送信されます。
この文字列（＆＃99999;）から、Jcodeを通してutf8の文字列を取得するには、どうすればいいでしょう？

my $result = Jcode->new(■)->utf8;

■の部分をどうにかすれば可能かと思うのですが、どうすればよろしいでしょうか？
0005 ◆TWARamEjuA 2007/05/30(水) 19:15:21ID:????2BP(6824)
(´-`).｡ｏＯ(実体化すればよいだけのような。。。)
0006nobodyさん2007/05/30(水) 21:42:29ID:???
こっちがホントの次スレか。
言われるまで気付かなかったよ。
0007nobodyさん2007/05/31(木) 02:45:33ID:???
>>4
use CGI;
use Jcode;

my $q = CGI->new;
my $result = Jcode->new($q->param('hoge'), 'euc')->utf8;
0008nobodyさん2007/05/31(木) 04:54:07ID:???
use Unicode::String qw(utf8 ucs2);
...
$result =~ s/？(\d+);/ucs2(pack('n', $1))->utf8/eg;

こういうことかしらん。
000942007/05/31(木) 12:37:01ID:???
>>5-8
レスありがとうございます。>>8さんの方法でうまくいきました。
有難うございました。
0010nobodyさん2007/05/31(木) 18:33:42ID:5ZmU8rMz
１:ＣＧＩでフォルダの中のものすべてのコピーをしたい。
#!/usr/bin/perl
print "Content-type: text/html", "\n\n";
$folda = 5555;
opendir(DIR , '.');
@view = readdir(DIR);
$xx = pop @view;
until ($xx eq ()) {
$xx = pop @view;
if ($xx == $id) {
print "elrr end2";
exit;
}
open(IN,"./$xx");
while(<IN>){
$aaa .= $_;}
close(IN);
open(OUT,"> ./$folda/$xx");
print OUT $aaa;
close(OUT);
$xx = pop @view;
}
print "elrr end";
このようにやってみましたが、ファイルは出来てもフォルダができません。
0011nobodyさん2007/05/31(木) 18:35:50ID:F65+C5fx
そりゃできんだろ・・・
0012nobodyさん2007/05/31(木) 19:29:38ID:???
>>10
再帰的にコピーするPerlモジュールがあった気がするが、Googleで
30秒探して見付からなかったので諦めた。邪道も道。

#! /bin/bash
mkdir 5555;
cp -fR ./* 5555/;
echo "Content-Type: text/html";
echo "";
echo "mission complete.";
0013nobodyさん2007/05/31(木) 19:53:59ID:???
>>12
スレタイ半分読んで100年ROMってろ
0014nobodyさん2007/05/31(木) 20:08:01ID:???
2chなんてROMってもアホになるだけだがGoogleは偉大だった。
----
#! /usr/bin/env perl
use File::Copy::Recursive qw(dircopy);
dircopy(".", "5555/");
print "Content-Type: text/html\n\n";
print "mission complete.";
----
うちのActivePerlにはモジュールが入ってないので入れた。
ppm install File-Copy-Recursive
0015nobodyさん2007/05/31(木) 21:38:40ID:???
ム板にスレ立てたキチガイが暴れてるのかｗ
0016nobodyさん2007/05/31(木) 22:06:41ID:oHHUgLPV
掲示板へのポストをサーバサイドでRSAの公開鍵で暗号化して保存し、
秘密鍵を入力したユーザだけが参照可能にしたいのですが、
何か良い方法はありますでしょうか？
0017nobodyさん2007/05/31(木) 23:17:43ID:???
そこまで流れ分かってるなら分かりそうだが…
0018nobodyさん2007/06/01(金) 12:46:18ID:nf+wPUUR
$str = 'AAACCBBBBBAEDAACCCCB';
という文字列（最大5種の半角英文字の羅列で最長50バイト）を
「A3コ、C2コ、B5コ、A1コ、E1コ、D1コ、A2コ、C4コ、B1コ」
というように、文字列の先頭から連続している部分を一区切りとして取り出したいんですが
何か良い方法はないでしょうか？
正規表現で可能かとも思って、チャレンジしてみたんですが頭が足りずできませんでした・・・。
答えに直結するレスがもらえれば最高ですが、
答えに近づくアドバイス（参考書籍・サイト等）でも構いませんのでよろしくお願いします。
0019nobodyさん2007/06/01(金) 13:00:54ID:???
$hoge =~ s/((.)\2*)/$1\n/g;
print $hoge;
0020182007/06/01(金) 13:17:33ID:???
>>19
ありがとうございます！希望通りできました。
こういうのは、センスなんでしょうか、慣れなんでしょうか。
単に私の努力と勉強がまだまだ足りないだけかもしれませんが・・・。
本当にありがとうございました。
0021nobodyさん2007/06/01(金) 13:32:29ID:???
my @r = $str =~ /((.)\2*)/g;
print join ',', @r[map $_*2,(0..$#r/2)];
>>19のほうがいいな。
0022nobodyさん2007/06/01(金) 18:28:10ID:???
質問させていただきたいのですが、
コマンドラインから引数を渡してPHPファイルに生成されるprint文（HTMLタグ含む）を
また別のperlファイルで読み込んで使用したいのですが、
HTMLに表示させるところまではうまくいくのですが、
表示させる場所を思い通りの場所に配置することができません。
というか、<html>〜</html>の外（直前）に出力されてしまいます。

perlファイルのソースは、
$i = 引数
open(FP,"| /hoge/file.php $i");
while(<FP>){ $s .= $_; }
close(FP);
return $s;
としています。

http://flex.ee.uec.ac.jp/texi/perl/perl_86.html
こちらのページで、別プロセスに〜と書いてありますが
何かいい方法はありますでしょうか。
0023nobodyさん2007/06/01(金) 18:37:34ID:???
俺はニュータイプになれそうにもないな
0024nobodyさん2007/06/01(金) 18:43:46ID:???
>>23
う・・・・

ちなみに上で長々と書きましたが、
open(|FILEHANDLE,EXPR)としたときの返り値はサブプロセスの pid になるので
うまくperlファイルで扱えないのですが、
対応方法を教えていただきたく書き込みました・・・。

またエスパーですね・・・
0025nobodyさん2007/06/01(金) 18:55:51ID:???
ファイルから読み込んで要素数が1000個の配列（1要素は1KBもありません）を作るのと、
必要になるたび（といっても3回程度ですが）ファイルを読み込むのとどっちがいいですかね？
0026nobodyさん2007/06/01(金) 19:13:11ID:???
>>22
> open(FP,"| /hoge/file.php $i");
|を置く場所が違う。それじゃデータの流れがperlからサブプロセス。
その結果、出力をperlが受け取ることなくその場で表示される。
正しくはこの位置
open(FP,"/hoge/file.php $i |");
# ちなみに、openじゃ入力と出力両方を接続することは出来ない。
# そういう用途ではIPC::Open2とかが必要
0027nobodyさん2007/06/02(土) 06:39:37ID:L1OVX2UL
フラッシュ（swf）から変数を受け取って、HTMLのフォームからデータを送ったときに、
POSTの中身って自分で調べることが出来るんでしょうか？
cgiのURLはソースを見れば、バレバレなんですが、変数の中身はswfから受け取ってるので、
htmlのソースには書かれてないんです。

フラッシュ内にパスワードとかを書いておきたいのですが、見られると意味ないので…。
■ このスレッドは過去ログ倉庫に格納されています