【Perl】初心者コーナー Part16
■ このスレッドは過去ログ倉庫に格納されています
00013PIO ◆3pIoOHKo
02/09/15 15:11ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
CGIだけど、なんか質問ある？ Part 6 （その2)
http://pc.2ch.net/test/read.cgi/php/1025930486/
参考書籍の話題は【【Perl,CGI】参考書籍 第２版】
http://pc.2ch.net/test/read.cgi/php/988809842/
その他の雑多な話題は、【CGIに依存しないPerlの話題一般】
http://pc.2ch.net/test/read.cgi/php/991313362/
スクリプトの改造依頼は 【スクリプト改造工房 Part4】
http://pc.2ch.net/test/read.cgi/php/1012839651/
過去ログ、その他の役立ち情報は>>2-10あたりを見よう。
0731nobodyさん
02/10/05 01:28ID:2qdJnT+h２チャンネルを携帯電話で見ているときに、画像のリンクがあった場合、画像の種類が携帯電話で見れないものだったり
サイズオーバーだった場合に自分のサーバに保存して、後で見るみたいな使い方をしたかったのですか…。
そんなのってないのでしょうか？
0733nobodyさん
02/10/05 01:31ID:???ウンドウズのCHMファイルなんてないですよね〜。
0736nobodyさん
02/10/05 04:30ID:???$_ =~ s/($value)/<b>$1<\/b>/og;
※$_,$valueは共にShift_JISです
といった置換処理をしたいのですが
$valueの2byte文字列内に【\x5b="["】が入ると、
メタ文字扱いされてしまい置換に失敗してしまいます。
Source部分に変数が来る場合のメタ文字エスケープは
どうしたらいいのでしょうか？
0737736
02/10/05 04:31ID:???×Source部分
○Pattern部分
0739nobodyさん
02/10/05 05:55ID:???0740736
02/10/05 05:59ID:???ｷﾞｬｰ!!!
完結にありがとうございます！
子一時間、文字コード変えたりして
対応できるか試していたんですが無理で聞いてしまいました…
よくマニュアル嫁って感じでしたね…
0741nobodyさん
02/10/05 07:57ID:???物凄く穴だけど
#! perl
my $cmd = "wget -q $ENV{QUERY_STRING}";
my $pid;
if( !defined($pid = fork) ){
die;
}elsif($pid){
print "content-type: text/html\n\n$cmd\n";
exit;
}else{
close(STDIN);close(STDOUT);close(STDERR);
exec($cmd);
}
1;
>>733
最近は
http://www.perldoc.jp/
http://www.cpan.jp/
http://member.nifty.ne.jp/hippo2000/
ここらかな
0742:
02/10/05 11:32ID:lD9sCbwyおまえ小学生か？もっかい割り算ならってこい
0743nobodyさん
02/10/05 11:42ID:???http://www.bekkoame.ne.jp/~bero/docj/module_/15/WWW_Search_HotBot.html
http://www.bekkoame.ne.jp/~bero/docj/module_/15/CGI_Form.html
などのモジュールでコーディングしてる時に入力を補完する
emacsのモード（viでも可）､ってないですか。
0744nobodyさん
02/10/05 11:54ID:???Spreadsheet::ParseExcel
について情報を扱っているナイスなサイトってどこですかぁ？
２ｃｈで話題になったことってありますこ？
0745nobodyさん
02/10/05 13:37ID:???http://www.wvware.com/#wv
0746nobodyさん
02/10/05 13:48ID:???極悪様の
http://homepage1.nifty.com/dune/PerseExcel.html?
にもあるよん。
0747nobodyさん
02/10/05 13:53ID:???perl-modeが.pmとかでも効くように.emacsに設定しる。
(setq auto-mode-alist
(append '(("\\.pm\$" . perl-mode))))
か？やってみそ。
0748nobodyさん
02/10/05 18:09ID:17DAoS9d500サーバーエラーが出てしまいます。ドコモおかしくないと思うのですが、
分かる方いらっしゃいますか？
0749nobodyさん
02/10/05 18:39ID:???取り敢えず、20行目を見よ。
0751nobodyさん
02/10/05 19:01ID:???何もおかしくないと思うんですが。
>>750
どこの最後でしょうか？］
構文チェックすると
Can't find string terminator "EOF" anywhere before EOF at "perl.cgi" line 29.
と出たのですが、40行目にちゃんとEOFで閉じてるのでおかしくないと思うんですが。
0752751
02/10/05 19:08ID:???おかしくなってたようです。
あと、時刻の取得がうまくいかないようなのですが、
（表示が正確に出ない）
どう直せばよいでしょうか？(;´Д`)
0753nobodyさん
02/10/05 20:34ID:???PerlはCGIのためだけの言語ではありません。
Perlはとても柔軟で簡単なためCGIで最も多く使われていますが
CGIのために作られた言語ではなく、その他の学問的・業務的・
日常的な用途に広く利用されています。ご存知かもしれませんが
そのことをわきまえておいてください。ここで質問しても回答者
がいれば構いませんが、本当は、CGIに特化した質問は、>>1に書い
てあるように、この板にある以下のスレで質問してください。
CGIだけど、なんか質問ある？
【スクリプト改造工房 Part4】
CGIとかPerlとか初心者なんだけど
0754nobodyさん
02/10/05 21:05ID:???スクリプトを見た限り、「時刻の取得がうまくいかない」、「（表示が正確に
出ない）」というのは理解できません。うまくいくはずです。表示が正確に出
るはずです。どこがどううまく行かないのか説明しないと答えられません。
0755nobodyさん
02/10/05 21:21ID:???0756nobodyさん
02/10/05 21:29ID:apJJAmbiどう書けば出きるでしょうか？
0757nobodyさん
02/10/05 22:29ID:EJw02ifJつまんない質問なんですけどFILEアップロードするプログラムなんですけど
<input type=FILE>でUPするとたしかにプログラムは動くのですが
ファイル名を表示することができません。
cgi.libをつかっています
＄IN｛’’｝でとってきてprintとすると文字がばけます
エンコードするのですか？
よくわかりません。初心者です。
0758nobodyさん
02/10/05 22:47ID:???色々<SPAN>fiarla</SPAN>日本語<SPAN>tegsgs</SPAN>何か
<SPAN>aretgsda</SPAN>テスト<SPAN>aretgsda</SPAN>マトリックス<SPAN>vxchgf</SPAN>
と言う文字列を 色々日本語何か\nテストマトリックス
だけにしたいのですが
s/<span><\/span>//ig;
にすると "色々何か\nテストマトリックス" になってしまいます。
どうしたらいいでしょうか？
0759nobodyさん
02/10/05 22:52ID:???かな・・・
0760太郎
02/10/05 22:58ID:JyTnPr2r情報量は知り合いの友達よりも結構多いです。
あと、このサイトの正式タイトルを考案中ですので応募してみては。
あとアンケートにも答えてみては。
http://www31.tok2.com/home/sanche/
0761nobodyさん
02/10/05 23:01ID:ojGyzDqf困っています。
どなたか以下の文をわかり易く説明ください。
パソはウィンドウズ２０００です。
＞public_html (ホームディレクトリ) の下に、「bbsディレクトリ」を作成し、
さらにその下にロックファイル用ディレクトリ「lockディレクトリ」と過去ログ用ディレクトリ
「pastディレクトリ」を作成します。
ホームディレクトリってどこにあるのですか？
0762nobodyさん
02/10/05 23:17ID:???http://www5a.biglobe.ne.jp/~n_rieko/perl/8.htm
ここを参照にして試行錯誤したのですが、上手くいかなくて・・・
ありがとうざいました。
0763nobodyさん
02/10/06 00:14ID:???「multipart/form-data」について検索後、
不明な点をまとめて適切な板・スレで再度質問して下さい。
>>761
「ドキュメントルート」について検索後、
不明な点をまとめて、その掲示板プログラムの作者のサイトか、
適切な板・スレで再度質問して下さい。
>>755
「GNU」「UNIX」「Perl」「CGI」について検索後、
適切な比喩を再度考え直して下さい。
0764nobodyさん
02/10/06 08:40ID:???メインCGIから$incfn{'ファイルを受け取るキー名'}
でファイル名自体にアクセスできる。
イレギュラーで気持ち悪い利用に仕方でよければ。
0765nobodyさん
02/10/06 09:57ID:???>「GNU」「UNIX」「Perl」「CGI」について検索後、
>適切な比喩を再度考え直して下さい。
ばーかばーぁ
0766nobodyさん
02/10/06 13:01ID:???print "Content-type: zip/i\n\n";
print;
このようにブラウザで表示しないコンテンツタイプを与えているのですが
unixだと動くのですが、Winだと空ファイルになってしまいます。
よい方法はございませんでしょうか？
0767nobodyさん
02/10/06 13:08ID:???0768nobodyさん
02/10/06 18:31ID:93CgaJbgCGIでできることを(商品注文フォーム、カート）などをあえてPHPや
CFでやりたいと思いますが、どっちの方が初心者に易しいでしょうか？
0769nobodyさん
02/10/06 19:09ID:???http://pc.2ch.net/test/read.cgi/php/1032704121/l50
>>768
http://pc.2ch.net/test/read.cgi/php/1006006800/l50
0770nobodyさん
02/10/06 19:14ID:MFc5Z8S/CFってなんだ？ｓｅｎｄｍａｉｌか？
0771nobodyさん
02/10/06 19:17ID:TUOpefL4ファイルの削除をしたかったので
$deletecount = unlink( $DeleteFileName );
こう書いたんですが反応なし。戻り値も０。
ファイル名は相対パスで正しい。
削除できない理由は何でしょう？
0772nobodyさん
02/10/06 19:44ID:???http://pc.2ch.net/test/read.cgi/php/988191427/
>>771
unlink の戻り値の意味は分かってるんだよね?
-f $DeleteFileName が真なら大抵↓が原因だと思う。
ttp://www.begi.net/linux/reading/linux_basic_knowledge/permission2.html
0774771
02/10/06 19:54ID:TUOpefL4レスありがとうございます。
しかし。読み書きできて削除が出来ないということがありますか？
削除できないのでしょうがなくこうしました。
open( OUT, "> $DeleteFileName");
close( OUT );
こう書くとちゃんとファイルサイズを０（ゼロ）にはできるんですけど。
ちなみに、削除したいファイルは同じcgiが過去に吐いたファイルです。
0775nobodyさん
02/10/06 19:56ID:E7XA3HNJJSPが途中で切れてコケます。
でもプロキシ通して同じJSPを表示させると切れません。
なにか考えられることってありますか？
0776771
02/10/06 20:14ID:TUOpefL4パーミッションの問題ではないような‥‥？
ftpから削除することは可能です。
0777nobodyさん
02/10/06 20:34ID:MFc5Z8S/たぶん、なにか見落としがあるんだよ。
単純にテストするだけのスクリプト書いて実行してみ。
ファイル名も変えて、相対パスもやめてカレントでopen,unlinkを実行。
0778nobodyさん
02/10/06 20:45ID:???http://pc.2ch.net/test/read.cgi/php/984840356/l50
>>776
unlink 後の $! は確認した?
0779771
02/10/06 21:04ID:TUOpefL4うおー！
$!をprintしてみたら"No such file or directory"でした！
しかし、なぜだっ！？
if ( -e "$DeleteFileName" ) {
print "$DeleteFileName は存在します。" ;
} else {
print "$DeleteFileName 存在しません。" ;
}
としてみたら、たしかに「存在しません。」のほうがprintされるけど。
なぜだっ？！
なぜ書き込みは出来るのか‥‥？
カレントのファイルを扱うようにしてみましたが症状は改善してません。
んでもこれで手がかりが見つかったような、気が。
ありがとうございます。もーちょい研究してみます。
0780775
02/10/06 21:04ID:E7XA3HNJそのスレ死んでましたのであきらめます＾＾；
0781775
02/10/06 21:08ID:E7XA3HNJ逝ってきます。
0782771
02/10/06 21:08ID:???ファイル名の最後に空白文字が入ってました。
printさせても見えないから気付きませんでした‥‥。
ありがとうございました‥‥。
0783771
02/10/06 21:09ID:???書き出すというのをやっているんですが、ファイルの更新日の新しい順に並べて出力したいんです。
stat()[9]の値を比較するんだと思うんですけどアホなのでそこから先に進めません。。
0788nobodyさん
02/10/07 11:49ID:???一個ずつ開いて、ファイル名とstat()[9]をハッシュに入れて閉じる。
ｆｏｒｅａｃｈでハッシュをvalueでsortしながらkeyをｏｐｅｎで
開きつつｐｒｉｎｔする。
0789nobodyさん
02/10/07 11:54ID:???注意汁。
0790nobodyさん
02/10/07 11:57ID:???こんな感じか？
my(@f_list,%files);
opendir(DIR,'.');@f_list = readdir(DIR);closedir(DIR);
foreach(@f_list){next if(/^[\.]+$/);$files{-M "$_"} = $_;}
foreach(sort {$a<=>$b} keys %files){
open(TXT,"$files{$_}");
while(<TXT>){
print;
}
close(TXT);
}
0791nobodyさん
02/10/07 12:53ID:UDwaJ+AD自分の持っている本独習perl、実践入門perl、CGI&Perlポケットリファレンスには
cronなど載っていませんでした。なぜでしょうか。
こんな感じ？
>>790とは違って先頭がピリオドで始まるファイルは全てスキップするけど。
opendir DIR, '.' or die $!;
foreach (sort { (stat $b)[9] <=> (stat $a)[9] } grep{ not /^\./ } readdir(DIR) ){
open IN, $_ or die $!;
# 適当に加工して出力
close IN;
}
closedir DIR;
>>790
/^[\.]+$/という正規表現は読みにくいよ。/^\.+$/で十分。
Perlとは何の関係も無いからね。書籍ならUnixのコマンドリファレンス系で調べてみてね。
あとはGoogleね。
0795nobodyさん
02/10/07 13:12ID:???opendir(DIR,'.');
while (readdir(DIR)) {
$files{$_} = -M $_; if !-d $_;
}
closedir(DIR);
foreach(sort {$files{$a}<=>$files{$b}} keys %files){
if (open(TXT,$_)) {
print while (<TXT>);
close(TXT);
}
}
0796nobodyさん
02/10/07 13:17ID:UDwaJ+AD調べたらUNIXで使えると書いてありましたが、自分はwindowsなんですけど
無理ってことですか？CGIを自動で動かしたいんですけど。
プロバイダーも許してるところが少ないらしいし。。
ごめんなさい、Windowsで同等の機能を持つものはわりません。
use IO::File;
use IO::Dir;
my %date;
my $dh = new IO::Dir('.') || die;
for(sort {($date{$a}||=-M $a) <=> ($date{$b}||=-M $b)} grep -f $_ , $dh->read ){
my $fh = new IO::File($_) || next;
print <$fh>;
}
>>792,797
（ ´,_ゝ`） ﾌﾟｯ
0801nobodyさん
02/10/07 15:25ID:???grep使うほうが無駄
っていうか、grep自体ループしてまわしてるのと変わらん
ファイルハンドルはwhileで一行づつ処理するのが
一番速いし、メモリーも食わない
print <$fh>とかが一番最悪
{($date{$a}||=-M $a) <=> ($date{$b}||=-M $b)}
はさらに無駄
ファイル演算子はコストでかいのよ
これだと、二回呼び出してるでしょ
Perl厨の自己満足オナニーコードにはほんと辟易するね
0802nobodyさん
02/10/07 15:34ID:???できたんですが、ファイルに保存しないで、ストリーム
っていうのかな、流れてきた文字列に日本語の単語一語の
検索かけて、それが入ってる文（。から。まで）だけを取
り出すようなことできますか？
よろしくおながいします。
なるほど確かにstatの結果はキャッシュするべきだね。
>>801
まあまあ落ち着きなさいって。
確かにprint <$fh>は好かないけど、
{($date{$a}||=-M $a) <=> ($date{$b}||=-M $b)}
これは問題ないでしょ。一度statしたファイルに対しては二度とstatしないから、
必要最低限のstatしか行わないよ。
CGIスレで質問したってことを一言断った方がいいかも。私は気にしないけどね。
LWPで"getline"相当のことは難しそうなんで、一旦splitするのが無難かなぁ。
my $contents = $res->as_string();
foreach (split /\n/, $contents) # while(<IO>)みたいなもの。ただし改行は含まれない
{
print $_, "\n" if /pattern/;
}
またはIO::Scalarを使うとか。
use IO::Scalar;
tie *SH, IO::Scalar => \$contents;
while (<SH>)
{
print if /pattern/;
}
そんなに急ぎの質問？
皆ボランティアで答えてるんだからもう少し気長に待ってもいいんじゃないのかな。
0808nobodyさん
02/10/07 16:02ID:???どもCGIでレス待ってたんですが途切れちゃったもんで。
いやー、お詳しいですね。２通りのやりかたでやってみる
ことにします。どうもありがとうございました。感謝の
気持ちです。ｍ（_ _）ｍ
／＼
／ｲﾖｰ ＼
／大統領! ＼
0810nobodyさん
02/10/07 16:14ID:???よく見てみますと、>>806では、受け取ったHPを$contentsとか
<SH>に格納するんですね。これが大容量になると（例えば100
ファイルとか）、やはりまずいかなーと。大きさはかって制限
すればいいことはいいですが。
漏れが考えてたのは、cat file | grep "string" みたいに、
ストリームで処理できないかなーということだったんです。
それは無理ですか。
0811nobodyさん
02/10/07 16:18ID:???たびたびスレ汚しスマソ。考えてみたら、受け取ったファイル1個
毎に上の処理すればいいので、>>806でできそうです。ありがとう
ございました。
0812787
02/10/07 16:36ID:???いろいろ試してみます｡
Perl厨の自己満足オナニーコードですみませんでしたm(__)m
0814nobodyさん
02/10/07 23:24ID:???map { $_->[ 1 ]}
sort { $a->[ 0 ] <=> $b->[ 0 ]}
map{ [ (stat $_)[ 9 ], $_]}
@files;
0815nobodyさん
02/10/07 23:48ID:???を実行した時に､初回だけ､ミラーサイトを選択するメッセージが出ますが､
後から､そのミラーを変更したい場合は ~/.cpan/ 以下のどのファイルの
どのエントリーを変更すればいいのでしょうか？
ほしいファイルが今のミラーにないようで､困っております。
0816nobodyさん
02/10/07 23:50ID:???1：自分はこう言う事がしたい。
2：それでこんな風にやってみたが･･･
3：それだとこんなエラーが出て上手く行かなかった。
1と3が無いと誰も答えられないよ。
良い回答は良い質問から。一緒に勉強しましょう。
0817_gunzip ◆eiH/XdoCNg
02/10/08 01:24ID:???/usr/lib/perl5/5.8.0/CPAN/Config.pm を $HOME/.cpan/CPAN/MyConfig.pm
にコピーし、`perldoc CPAN`の"CONFIGURATION"セクションを参考にしつつ適切に書き換えてください。
0818nobodyさん
02/10/08 13:12ID:???１．---- Unsatisfied dependencies detected during [A/AD/ADIE/Test-Exception-0.12.tar.gz] -----
とエラーがでる
２．Test::Exceptionをmake testして失敗した後、Sub::Uplevelというのを
make testして Test returned status 1 (wstat 256, 0x100)という結果になって
３．再度Test::Exceptionをmake testして
/usr/bin/make test -- NOT OK
Running make install
make test had returned bad status, won't install without force
となって終了します。どなたか同じこと経験された方いらっしゃいませんか？
0819nobodyさん
02/10/08 13:55ID:1one6uxb数字が５文字以上続いた場合はどう書けばいいですか。
0821nobodyさん
02/10/08 14:07ID:???[0123456789][0123456789][0123456789][0123456789][0123456789]+
0822nobodyさん
02/10/08 14:23ID:???ありがとうございます。
0823nobodyさん
02/10/08 14:41ID:???[0123456789][0123456789][0123456789][0123456789][0123456789][0123456789]*
0825nobodyさん
02/10/08 16:31ID:???[0123456789][0123456789][0123456789][0123456789][0123456789]+
これは長くて、コードは短いほどいいと思うんですけど、
[0-9]{5,}とどっちが優れてるんですか？
0826nobodyさん
02/10/08 16:44ID:???画像アプローダみたいな物を作りたいのです、
アップロードまではperlでできるというようなことはわかりました。
そのあと、jpgの画像をサーバー内で縮小させたりしたいのですが、
どんなものが必要ですか？
0827nobodyさん
02/10/08 16:51ID:???>>824はネタれす。ﾈﾀﾆﾏｼﾞﾚｽ、ｱﾘｶﾞﾄﾝ
コンパイルされるときは同じになるんじゃないかな。
省略記法の方が遅くなることえてしてあり。
私はWinだけど、問題なく成功してしまったなぁ…。
とりあえず、OSとPerlのバージョン、何のテストが失敗したか
くらないとアドバイスのしようがないよ。
0830nobodyさん
02/10/08 17:12ID:???すみません。
RedHat7.2
perl5.6
perl -MCPAN -e shellにおいて
install Test::Exception
とした場合に自動実行されるTest::Exceptionのmake testでエラーが出ました。
■ このスレッドは過去ログ倉庫に格納されています