【Perl】初心者コーナー Part19
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
03/01/11 13:52ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
あとは>>2-10にまかせた。
0628nobodyさん
03/01/28 20:07ID:???なるほど！！
じゃぁ1個目のWhile文のなかでFILEBをOPENするか、Seekで先頭にもどすかすれば
だいじょうぶかな？
こんど試してみます。今、環境がないんで。
0629nobodyさん
03/01/28 20:07ID:VjdgexrL一個目のwhile抜けた後でseek FILEB,0,0でもすれば？
0630腐れ厨房（ﾟ腐ﾟ）
03/01/28 20:53ID:EPPQeVDF僕の環境だとそれで逝けましたです。なんかネストしたらシクしないて不良品てカンジイです。
>>622
僕です。
0631nobodyさん
03/01/28 20:57ID:???フォームのサブミットボタンに表示させる文字って
VALUE=" "に書くやんかぁ？
でボタンにダブルクォート自体を表示させたい場合ってどうするん？
どうするん？
どうなん？
value='"こんなん"'
0634nobodyさん
03/01/28 21:08ID:???http://tohoho.wakusei.ne.jp/html/char.htm
0635nobodyさん
03/01/28 21:12ID:???ほぉー！
なるほど。
いやぁ実はPerlでCGI作ってて、フォームで入力してもらった文字列を
表示させる部分があるんですが、そのまんま表示してるんで < とか ”とか
入力されたら困ってたんですよね。
ほー！
こういうのを自動でチェック、変換してくれるよかモジュール知らんですか？
0638nobodyさん
03/01/28 23:22ID:???637の方法以外に \" \'
0639nobodyさん
03/01/28 23:26ID:0+yLIxs10640nobodyさん
03/01/28 23:28ID:???#!/usr/bin/perl
print"Content-type:text/html\n\n";
print<<EOF;
<html>
<body>
あああ
</body>
</html>
EOF
0641nobodyさん
03/01/28 23:38ID:6cWKDFOV#!/usr/bin/perl
→
#!/usr/local/bin/perl
にしてみた？
0644640
03/01/28 23:49ID:???サーバーは#!/usr/bin/perlなんです。
念のため#!/usr/local/bin/perl にしましたがダメでした。
>>642
>>640の書きこみはスペース入ってますが実際はスペースはありません。
一応書きなおしましたがダメでした。
#!/usr/bin/perl
print"Content-type:text/html\n\n";
print"あああ";
だと動きますが、
#!/usr/bin/perl
print"Content-type:text/html\n\n";
print<<EOF;
あああ
EOF
だと動きません。
0645nobodyさん
03/01/28 23:50ID:???の次の行に
;
とか。
改行コードがおかしいとか。
0648640
03/01/28 23:54ID:???知りませんでした。
0649nobodyさん
03/01/29 00:07ID:???それはPerlの構文的にヘンだなぁ。（俺が知らないだけかもしれんが）
ヒアドキュメントの終端文字列は << "EOF"; みたいにダブルクオートで括ったほうがいいよ。
0650640
03/01/29 00:13ID:???おぉ！！
<<"EOF";にしたら
最後の行に";"を入れなくても動きました！
基本的な事ですがかなり勉強になりました。
っていうか今まで全然プログラムが動かなかったのもこのせいか・・・
0651nobodyさん
03/01/29 00:13ID:???Internal Server Error ってのはCGIからの出力が来ないときにブラウザが出す
エラーだから、これを書かれても根本的な原因は一切分からないんだよ。
コマンドラインで実行させた結果を書いてくれるとすぐ分かる。
たとえばこんなの。（うちでは最後の行に ; をつけたらこう出た）
Can't find string terminator "EOF;" anywhere before EOF at test.cgi line 3.
0652651
03/01/29 00:17ID:???まあいいか。
0653nobodyさん
03/01/29 00:39ID:???0656nobodyさん
03/01/29 01:29ID:???使って掲示板くらいは１から自分で作れるレベルになったのですが、
まだ色々無駄があったりすると思うのです。
それで、コーディングが奇麗な、参考になる（初心者にも比較的読み
やすい）スクリプトは、どこかに公開されてないでしょうか？
0657nobodyさん
03/01/29 02:51ID:???0658nobodyさん
03/01/29 03:04ID:HsIeKX/p下記の様にそれぞれの変数に、同じ文字列を連結して
$a.='<table border="0">';
$b.='<table border="0">';
途中で処理が加わり$a,$bに違う値が連結され・・・
最後に下記の様に連結して締めようかと思います。
$a.='</table>';
$b.='</table>';
質問というのは同じ文字列を違う変数連結する場合、
１行にできないのかという事です。
($b,$a).='<table border="0">'; #イメージ・・・$bにだけ連結して駄目でしたが・・・
0659nobodyさん
03/01/29 03:30ID:KC7FDxMH期待してる回答とは違うとは思うが
map {$_ .= '<table>'} ($stringA,$stringB);
とか。
あと、$a,$bは普段から使うの避けといた方がいいかもね。
sortで使うから。
0660nobodyさん
03/01/29 09:25ID:???＞1.スクリプトが冗長だから省略するのに慣れてる人には読みにくい
＞2.メモリの利用効率が悪く、スクリプトも速くないからサーバに負荷をかける
＞3.CGIは起動コストがかかるのでHTMLファイルを生成した方がよい
メモリの利用効率というのは、スクリプト書く時に
どういうことに気をつければ良いのでしょう？
掲示板なんかだと、出力は極力HTMLファイルとして細かに保存していった方が良いのでしょうか？
0661nobodyさん
03/01/29 09:41ID:zyXgtkRr0662nobodyさん
03/01/29 11:16ID:tPWI6izk＞1.スクリプトが冗長だから省略するのに慣れてる人には読みにくい
＞2.メモリの利用効率が悪く、スクリプトも速くないからサーバに負荷をかける
＞3.CGIは起動コストがかかるのでHTMLファイルを生成した方がよい
↑ほんと難癖だなw
1.ある程度一般的な書き方だと思うし、もともとperlは制約が少ないんだから仕方ないべ。単に自分の書き方と違うから気に食わないだけだろw
2.ソースは？w
3.馬鹿の一つ覚えだな。
0663nobodyさん
03/01/29 12:34ID:???http://pc2.2ch.net/test/read.cgi/php/997199513/96
0664nobodyさん
03/01/29 13:01ID:22PcLDQjなるほど、なんとなくすっきりしました。
もっと一般的な簡単な方法があるのかなと思っておりました。
$aはたまに使ってますね・・・
気をつけます。
0665nobodyさん
03/01/29 13:28ID:???0666nobodyさん
03/01/29 13:31ID:???0668nobodyさん
03/01/29 16:54ID:XF7MERR2FTPソフトなどで作成したファイルを削除・変更しようとしても
権限がなくて実行ができなくなってしまいます。
ファイルを新規作成するときに何か特別な処理が必要なのでしょうか
もちろん調べまくったのですが原因がよくわからないのです。
よろしければ教えていただけないでしょうか？
0669nobodyさん
03/01/29 16:59ID:19DeFoXEファイルの所有者がnobodyとかapacheとかwwwとか、
とにかく自分のものではない場合CGIで作ったファイルはCGIで削除しないといけません。
0670nobodyさん
03/01/29 17:05ID:v+6haFSnif (open(MBOX, ">>".$votename)) {
print "ファイルを開きました。<br>\n";
} else {
print "ファイルを開けません。<br>\n";
die "Can't open mailbox: $!";
}
if (flock(MBOX,$LOCK_EX)) {
print "ファイルをロックしました。<br>\n";
} else {
print "ファイルをロックできません。<br>\n";
}
この結果、
ファイルを開きました。
ファイルをロックできません。
になりました。
0672nobodyさん
03/01/29 17:14ID:19DeFoXE＄LOCK_EX = 2;
が無い可能性大。
または、flock(MBOX,2)でどうよ
0674670
03/01/29 17:20ID:???スレ汚しすまそ
0676nobodyさん
03/01/29 17:27ID:XF7MERR2全削除のCGIでもいそいそと作成します
0677nobodyさん
03/01/29 18:00ID:???use Fcntl qw(:DEFAULT :flock);
flock(FILE,LOCK_EX);
な。
LOCK_EXはおおえす依存だから、ｼｿﾎﾞﾙはインポートするのが良い。
0678nobodyさん
03/01/29 18:16ID:zyXgtkRr0679nobodyさん
03/01/29 22:35ID:???$bufferという変数に"./hoge.dat"みたいな文字列を渡したのですが、
open(IN, "$buffer");
とやっても上手く開いてくれません
0680nobodyさん
03/01/29 23:07ID:???環境変数なら %ENV、
コマンドライン引数なら @ARGV、
標準入力なら<STDIN>
お好きなのをどうぞ。
0681貧乏パーラー
03/01/29 23:08ID:???シンプルcrond perl板、以下のUUEコードを開いてcrond.plが出来てるから
begin 666 crond.zip
M4$L#!!0````(`+.*.BZ8A!N!J`,``,8'```(````8W)O;F0N<&R555MOTT@4
M?HY_Q2$QQ%8=7](4[28UE(IRD1!")>*ES0K7GC2S./8P,Z98D/WM>\Y,'!)1
MJ<)JW9ES^<YW;N[@4=0H&=WP*A),EDZC&,SYFDVG[^H\*V'F",DK#:>G\[?S
M<[P.X`/:02[KJH#S%MZ$NO[":AC'\7&41,E3<`8KK<4TBN[N[D)V*^M&J#"O
MPW]%M.0E4]%%=3LZ-^'F7*CH1:-K<S"8$480B>$`+]D2\A7+O\!)VK),!I-T
M75?!<5ID;3!.5W4C@R1=\RJ(4\5R\AS#1YU)#1K]%[email protected]\8GCR8%@J
M&)49$)5K5[09OM8UOHIL"%P9>8O/>ET4Z*4TKVY]!,+'`!EB2F=K`=\RJ:9@
M==UC("&UMH:SP=\*D+U>!2989X.I'""0=M5LE29#`N"I]>=5HYDBD6)6A'D3
MA2LQ^8T?EH])ALW#O$=_G4SBF!(<)=N0X@3*^M:T1+"<+UM3GV?/#$Z(*I.V
M>+K`FDBE"10+JYB&5V\O/\XA=&@D'-7<P`>,^AH5/YS>N@6WP+ZEH%9\J7%B
M2.2YR#-PJ54N)A6XU$&7FNFVF?2MD2LTNE'G2IH]S[SI2GI2'J4$C9<'X%+8
MN7KHY\](>I0F?\?QC*SP2(@H))IFP)=>_W$\*?H[/F1WJ!V3%J5&BP'OT:+4
M:)'3/5J46F1^+S*WR-30W[4H):UDNI'5`^ECS3?.6:ETNBO#S''-=DG=+M/X
MX)8$]K+$B4H"N^W]5Z;C-`C751_X$AOXXO+UIZN31?I?](_I?X1\[E8X/5[B
M4^-5R9C`,[(\$X>Q>P3@L6_84Q=I75FL>+'PX1%.NI&+`[G_\Z>WH^4;_-XO
MFIA`;Q_ST!?2#M.(DGTTRG@+USNL2*\W&-A/AY!U3GK"90$M7T`K&=#6TK4.
M:,=QR+93[^T%.\9@,^O\P(1VSK&UW];]`BL^M5#CQ75%MA%Y16;@"&E*F%-"
MQ\YT7^<^;?W(;/WH4R:G1+"C:D@;^B81Q8P?Y7]#@V;(#X&V^`>XLJ05_#P,
M.P[;PV01#N'S#+KY>^[/-D-_!H335/@%43@A9]O"]ER6UP5+GV`$$VF;':&'
M_2[\'Y>HJ]%C2P)L%/B3:A&*&6;KRK[",!YVK/<'(K&VNY!PR;1LX3W[KO$+
MFZM?'\-P![RA]\:4A)7X;]2B%IQ!/Z]E582BA`LI:PG(>+S79>M/[OB+/TLT
M\5R.4^GR4]HE_'MTY%-_S/;P!?;(#CT>9QMG\S]02P$"%``4````"`"SBCHN
MF(0;@:@#``#&!P``"``````````!`"``MH$`````8W)O;F0N<&Q02P4&````
/``$``0`V````S@,`````
`
end
そいで毎朝８時に自分の携帯におはようメール送る例が以下
./crond.pl 2 8 'perl mailsnd.pl SMTPServer from-mailaddr "$pmo月$pda日おはよう" "８時です！"'
と打ってmailsnd.txtに自分の携帯メルアド入れとくこと
0682nobodyさん
03/01/29 23:10ID:???それだけじゃ分からんよ……
「外部」ってどこ？
「上手く開かない」って、どう上手く開かないの？
エラーが出てるならその内容も書いて欲スィ。
（Internal Server Error は書いても無駄なのでよろしこ）
0683nobodyさん
03/01/29 23:34ID:Fxyvk81T文字コードの変換のプログラムをいじくってたら
&jcode'sjis2jis(*value);
↑こんなのあったんですが、これってどういう意味ですか？
必要な情報が少ないかもしれませんがよろしくおねがいします。
0684nobodyさん
03/01/29 23:40ID:???http://www.mikeneko.ne.jp/~lab/kcode/jcode.html#h2-3
0685679
03/01/29 23:41ID:???FLASHがCGIを呼び出す時に"./hoge.dat"という文字列を渡し、
それをCGIが$bufferという変数に受け取ったのですが・・・。
下のようにしてFlashにmyDataとmyBufferという変数を返してみると、
myDataの中身は空っぽでmyBufferの中身は"./hoge.dat"という文字列でした。
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
open(IN, "$buffer");
$toFlash = <IN>;
close(IN);
print "Content-type: text/plain\n\n";
print "myData=$toFlash&myBuffer=$buffer";
ちなみに下のようにPerlに直接ファイル名を書けばちゃんとmyDataにファイルの一行目が表示されました。
$buffer = "./hoge.dat"
0686nobodyさん
03/01/29 23:42ID:???0690nobodyさん
03/01/29 23:55ID:???FLASHからのCGI呼び出しがいまいちよくわかんないけど、
GETメソッドで来てるってことはない？
そのソースだとPOSTでしか受け取れないよ。
$ENV{REQUEST_METHOD} の中身はどうなってる？
0691679
03/01/30 00:08ID:???やってみたのですが相変わらず何も返ってきませんでした…。
>>690
POSTで送りました、$ENV{REQUEST_METHOD}の中身もPOSTになっていました。
0692nobodyさん
03/01/30 00:18ID:???>myDataの中身は空っぽでmyBufferの中身は"./hoge.dat"という文字列でした。
>print "myData=$toFlash&myBuffer=$buffer";
$bufferの内容はカラだったの？
0693nobodyさん
03/01/30 00:31ID:???なら、
(undef, $buffer) = split(/=/, $buffer, 2);
かな。
Flashの仕様が判らないんで、すまそ。
(そうだとしたら、きちんと処理した方がいいと思う。)
0694679
03/01/30 01:25ID:???>>693
$bufferの内容：./hoge.dat
です。
すみません、実はCGIは勉強し始めてまだ数日なので基礎からなっていません。
もう少し自分でなんとかしてみます。
暫くは適当な値を送ってそれをCGIでif(あればcase)で判定し
その中に直接ファイル名を書いておきます。
(これだとファイルを加えたり名前を変えるたびにPerlを書き換えないといけないのですが・・・)
0695nobodyさん
03/01/30 01:28ID:???0696nobodyさん
03/01/30 01:37ID:???0697nobodyさん
03/01/30 06:56ID:???（>>695,696はそれが言いたいはず）
表示して確認するときは、前後に " なんかをつけてみるといいかも。
非表示文字がついてるかもしれないから、length で長さを表示して
見た目の長さと一致するか確認するという手もある。
0698nobodyさん
03/01/30 07:02ID:???として、$bufferと比較してみては
if($tmp eq $buffer){print "OK<br>";}
else{print "NG<br>";}
0700nobodyさん
03/01/30 14:28ID:NtdcRjvu変数名とかハッシュ名を変数で与えることって出来るんでしょうか?
for($i=0;$i<=$#avs;$i++) {
if ($avs[$i] =~ /^###(.+)_PROCESSING$/) {
$process_id = $1;
$process_id2 = "\L$process_id\E";
$avs[$i] = "${$process_id}{${$process_id2}}\n";
}
}
みたいな感じで、
###DEDOT_PROCESSING っていう行を、
$DEDOT{$dedot} で置き換えたいんですが、うまくいかないです。
何か根本的に勘違いしてますでしょうか?
jperl 5.005 です。
0701nobodyさん
03/01/30 14:45ID:???0702700
03/01/30 18:34ID:tRX1dMh1それだと $DEDOT{$dedot} っていう「文字列」にしかならんのでは...
私の書き方もアレでしたが、%DEDOT の $dedot の値で置き換えたいわけで....
0703679
03/01/30 18:46ID:???lengthで$bufferを調べてみたところ、
"./hoge.dat"だから10でなければいけないのに16になっていました。
chompを使ってみたのですが値は変わらなかったので、substrで1文字目を削ってみると
"2E/hoge.dat"という値が返ってきました。もしかしたらと思い4文字目までを削ると
"2Fhoge.dat"が、11文字目までを削ると"2Edat"が返ってきました。
どうも"."は"\2E"、"/"は"\2F"としてFLASHから送られていたようです(最初の文字が\かどうかは分かりませんが…)。
結局FLASHからは"hoge"だけを送り、CGIで
$buffer = "./$buffer.dat";
とすることで正常にファイルを読み込むことが出来ました。
本当にどうもありがとうございました。
0704nobodyさん
03/01/30 20:53ID:XHYONXXPCGIで行ってる処理が重すぎて処理が終わるまでに
ブラウザがタイムアウトしてしまいます。
そのためブラウザがタイムアウトしないように、
CGIで処理をしている間、ブラウザに30秒に1回データを送るとか
そんな方法でブラウザがタイムアウトするのを防げないですか？
0706nobodyさん
03/01/30 21:01ID:???処理が重いところってsystem関数でOSのコマンドを実行してて、
この1回のsystem関数を実行してる間にブラウザがタイムアウトするんです。
で、system関数でOSコマンド動かしながら同時にブラウザにデータ送れますか？
わかんないね！
0708nobodyさん
03/01/30 23:30ID:???$hashname="myhash";
$keyval="key1";
%myhash=( key1=>"key1value",);
$val = "${$hashname}{$keyval}\n";
print ":$val";
で
:key1val
と表示されたがこれじゃダメなのか？
0709nobodyさん
03/01/30 23:54ID:???シンボリックリファレンスを使いたいっていうことだね。
まず、これを理解しろ。
$a = 'DEDOT';
${$a}{key} = 1;
print $DEDOT{key};
で、本題に戻ると、$dedotが正体不明なんだけど、
$avs[$i] =~ s/^###(.+)_PROCESSING$/${$1}{lc $1}/;
もしかしてこうしたいとか?激しく意味不明だけど
0710nobodyさん
03/01/30 23:56ID:???それより気になるのがその処理内容なんだが……。
１つのハッシュに１つのキーしか入れないのでは、ハッシュの意味がないと思うんだけど。
あくまで例としてなら別にいいんだが、そうじゃないなら処理内容を見直したほうがいいかもよ。
日本語訳も記録して、日英かかわらず全ての投稿を母国語で閲覧でき、コミュニ
ケートできる、というような感じのものです。
で、掲示板スクリプト自体は簡単にできるのですが、やはり翻訳がネックとなって
います。自分で翻訳ソフト用意して、高価なサーバーをレンタルしたり、自宅で
専用線でサーバー立てたりすると、かなりの金額がかかってしまうと思うのです
（非商用の個人サイト運営程度には）。
できれば、オンラインの翻訳サービスを自分のスクリプト内で利用したいのですが、
個人で翻訳機能だけレンタルすると幾らくらいかかるんでしょう？ 無料でウェブ
翻訳、テキスト翻訳を公開しているところもありますが、そういう用途に
使うのは断り書きを出してもやはり不味いですかね？
0712nobodyさん
03/01/31 06:28ID:/ObcG1bj全然Perlと関係ないじゃん。
AMIKAIが翻訳サービスOEMの老舗だけど相当高そうだね。
自分で翻訳ソフト買ってもサーバとして使うにはライセンス料が
えらく高くなる。
結局のところ掲示板を見てもらうときにexcite翻訳を通して見てもらう
しかないのでは？掲示板に入る時にexcite翻訳へのリンクを作るとか。
自作CGIで勝手にexcite翻訳を使って翻訳することも可能だけど、
exciteの広告が表示されない利用方法は問題があるからやめた方がいい。
0713nobodyさん
03/01/31 07:08ID:6uKSmBl3★こんなサイト見つけました★
すいません。掲示板自体はperlで作っていたもので。
私の方では無論、広告やそのサイトのバナーを掲示板に表示させることは
まったく構わないのですが、向こうの方でそういう利用法を了承するかは、
やはり難かしいですかね。
翻訳は、例えばフリーのテキスト翻訳サービスを利用すると、form getを
使ってurlに投稿文を含ませたのを送って（trans.cgi?text=$body&lang=....）、
帰って来た翻訳をまたPERLで処理して出力する、という感じです。
単なる個人サイトなので、値段が年1万円を超えるようだと少し辛いです…
好きな様に利用できる本当にフリーの翻訳サイトは何処かに無いでしょうかね。
企業が無料公開しているようなのではなくて、教育機関や個人がGNUライセンスで
作ったような…
0715nobodyさん
03/01/31 07:58ID:0xsv6W8Z↑
これってアリ？
0716nobodyさん
03/01/31 08:00ID:/ObcG1bjhttp://www.excite.co.jp/world/agreement/
他のサービスでもたぶん同じ規約でしょう。
韓日混在の掲示板というのは見たことあるから、英日混在っていいうのも
探せばあるかも。そこがどういうやり方でやっているか。
技術的には易しいけど、翻訳サービスを安く利用するというのが難しそう。
0717712
03/01/31 08:05ID:???＞本サービスによる翻訳結果を公表、引用、改変等により使用する
＞ことはできません。
勿論、「営利目的」ではないですが、個人サイトの掲示板で使用するというのは
「私的利用」の範囲を超えるのか…個人利用する分にはCDコピーはいい（？）けど、
Napsterとかで公開するのはまずい、という感じに近いのか…。
0718712
03/01/31 08:29ID:???あ、スタンフォード大学にもありますね。
教育機関だし、どんなもんかな、、、
0720nobodyさん
03/01/31 10:13ID:NKGtpjno&を&に変換したいんですよ。
でもそうすると、♥とわざわざ入力したときに
&hearts;となってしまいハートとかを出せなくなってしまう。
どういう変換方法にすれば、
&→&
>→>
<→<
♥→♥（変換されない）
こういういい感じになるんでしょうか？
ちなみに2ちゃんはどうなってるんのかわかりますか？
よろしくお願いします。
0723nobodyさん
03/01/31 10:21ID:???0724720
03/01/31 10:31ID:???あまりにスマートな回答に感動しました。
私はまだまだ修行がたりないようです。
またどうしてもわからなくなったら相談させてください。
0726nobodyさん
03/01/31 10:46ID:???2chの特殊文字変換に翻弄されまくっている私。
0727nobodyさん
03/01/31 11:16ID:5ww5eJFmhttp://www.salut.ne.jp/bf/wmh/seminar/c010/index.php3
この
http://www.salut.ne.jp/bf/wmh/seminar/c010/enquetesys.txt
このプログラムを動かしたのだが、シンタックスえらーがでて困ってます。
■ このスレッドは過去ログ倉庫に格納されています