【Perl】初心者コーナー Part16
レス数が950を超えています。1000を超えると書き込みができなくなります。
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あたりを見よう。
0855849
02/10/10 12:02ID:ZvzQ38ZZ画像でもオフィス文書でもメールに添付するときにはMIME BASE64というエンコード
で、テキストに変換しているのです。 Outlook Expressなどのメーラは、そういう生の
データを見る方法があるのかどうなのかしりませんが、
------------92AECG1NXU3WZAT
Content-Type: audio/x-midi;
name=Setup.exe
Content-Transfer-Encoding: base64
Content-ID: <B1i55vjBs7G1k>
TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAA4AAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1v
ZGUuDQ0KJAAAAAAAAABxdTv8NRRVrzUUVa81FFWvTghZrzEUVa+2CFuvNxRVr90LX68gFFWv3QtR
rzcUVa9XC0avPhRVrzUUVK+OFFWv3QterzoUVa+NElOvNBRVr1JpY2g1FFWvAAAAAAAAAABQRQAA
TAEDAF1Flz0AAAAAAAAAAOAADwELAQYAAMAAAAAQAAAAQAYAQA0HAABQBgAAEAcAAABAAAAQAAAA
AgAABAAAAAAAAAAEAAAAAAAAAAAgBwAABAAAAAAAAAIAAAAAABAAABAAAAAAEAAAEAAAAAAAABAA
添付書類はこういう感じになって普通の文章の後ろについています。
だから、そういったメールを見て、ちょうど何文字くらいで切れているとか
何行くらいで切れているとかというのがわかれば、そこらへんに原因が
あるのかなぁと。
0856nobodyさん
02/10/10 12:05ID:ZvzQ38ZZまあ、とりあえずここでも読んでください。
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&oe=UTF-8&q=Jcode%2Epm+%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB
0857しろうと
02/10/10 12:14ID:???ありがとうございました．要点は，システムへのインストールが必要なので，
root に頼んで，きちんとインストールしてもらわなければならないものだと
いうことですよね？
何となく分かってきました．ありがとうございました．
0858848
02/10/10 12:31ID:0YXqHo+tあ、やっぱ、ソレだったんですか・・・
852から始まって、最後5行が、
・
・
・
MARSRR"27;+(PO:&I3L<>^T4Q3IA<3#$C+IUL\\TXYZSSK36AP^+.0`<M]-!$
J`]VSLT4GK?323#>-%[email protected]%17$FWU(R[]?/767'?M]==@AZU:(``[
`
end
-------------------------------7d238f34a0412--
↑こんな感じなんですが、コレじゃあわかんないですよね？
あ、コレ、Yahoo!のトップの画像なんですけど、（main7.gifってやつです）
0859848
02/10/10 12:45ID:???> 852から始まって、
は
>>852の
> -------------------------------7d238f34a0412
> Content-Type: application/octet-stream; name="main7.gif"
> Content-Transfer-Encoding: X-uuencode
> Content-Disposition: attachment; filename="main7.gif"
>
> begin 644 main7.gif
> ・
> ・
> ・
から始まって・・・って意味です
0860849
02/10/10 13:48ID:???メールが途切れていることはないと思います。となると一から考え直しですが、
ぐちゃぐちゃになった画像ファイルはサイズも変わっていますか?
0861848
02/10/10 14:10ID:084tFYZPYahoo!Top画像（main7.gif） 6.67 KB (6,837 バイト)
メールを通したもの 6.63 KB (6,792 バイト)
です。若干縮んでますね。
0862nobodyさん
02/10/10 14:41ID:???サーバの OS は? Win系だったら
231: if (!open(OUT,"| $nkf -j | $sendmail -t")) { &error('Error'); }
232: binmode OUT; # 追加
233: $host = $ENV{'REMOTE_HOST'};
かも知れない。Win でパイプなんて使った事ないから、
binmode 要るのかどうか知らんけど。
0863nobodyさん
02/10/10 14:41ID:Nn4CcN7jcgiスクリプトの
if (-e "$tmp$filenum") { unlink("$tmp$filenum"); }
をコメントにして、アップロードが正常に出来ているか確認してみては。
./tmp/ディレクトリにアップされた画像を表示してみる。
異常だったらアップロードが変
正常だったらuuencodeが変
0864質問
02/10/10 14:44ID:???ログ200行の中からwhileで10行処理するのとは
スピードは変わらないんですか？
具体的なソースを出してくれなきゃ、「そんなにかわらない」としか
言えない。けど、いまどきのコンピュータで100行の処理と200行の
処理で違いがでるほどのことがあるのかな。
0867862
02/10/10 14:59ID:???413: if (open(UU,"$UUENCODE $tmp$filenum $filename |")) {
414:
415: @UUFILE = <UU>;
見つからない、とかいうケースだと違いは大幅に出ますが、先頭10行出力、程度だと
ほとんど変わらないでしょうね。
0869848
02/10/10 15:05ID:???で、>861さんのをやってみたんですが、
ちゃんと表示されてました。
ってことは、uuencodeなんですよね？ヴァージョンでしょうか？
でも、レンタル鯖にお願いすることもできないですし・・・
このまま、tmpのんをコメントアウトしといて、
自分でダウンしに行くっていう手をとるしかないかなぁ・・・
何はともあれ、理由が解ってホッとしました。
有難う御座いますた！
あ、もし「こうしたら？」みたいなのがあれば、
書き込んでくれると、嬉しいです。
0870nobodyさん
02/10/10 15:06ID:???1;
__END__
これなんですか。
0873nobodyさん
02/10/10 16:11ID:???use Socket; は大抵のサーバーで使えるんですよね？
use IO::Socket; これは使える確立が低いんですよね？
0874nobodyさん
02/10/10 16:16ID:???Socket はperl5の標準モジュールですが、 IO::Socketは別途インストールする必要が
ありますから、使える可能性は低いですね。
0876nobodyさん
02/10/10 17:36ID:???IO::Socketも標準だけど…(少なくとも5.005の時点では)
しかもIO::SocketはSocketのラッパーに過ぎないので、
Socketが使えてIO::Socketが使えないという状況は考えにくいよ。
0878873
02/10/10 20:35ID:???0880nobodyさん
02/10/11 13:44ID:???「\$\w+」この書き方であってますか？
でもこれだと $abc123 とかいう変数は123に反応しないんで間違ってるみたいなんですが。
0881nobodyさん
02/10/11 13:53ID:???0882nobodyさん
02/10/11 13:56ID:ZUcC5F8u0883nobodyさん
02/10/11 15:08ID:3YhC7jcnまずは、ヘッダの取得とボディの取得。たとえば、
Recieved: ヘッダは複数行にわたることがありますし、同じヘッダ名で複数
存在することがあるので、これは複数行を一つにまとめ、配列にいれる。
](例)
Received: 1
2
3
Received: a
b
c
だったら、以下のように格納したいです
$header{Received][0] = "1 2 3";
$header{Received][1] = "a b c";
0884nobodyさん
02/10/11 15:10ID:3YhC7jcn本文は @0body に格納したいです。
以上を、まずやって、各行の内容をチェックして・・・・。
とおもっているのですが、いまだ超初心者のため、全然
うまくいきません
どなたかおしえていただけませんか？
0885nobodyさん
02/10/11 15:55ID:CDmI7Jp8print;
}
変数$nameにマッチするかどうかチェックするには
こんな書き方でいいんですか?正規表現でも$が使わ
れてるからよくないとは思うのですが。
うまくいったりいかなかったりするので、こういう
場合の正しい書き方教えてください。
0886nobodyさん
02/10/11 16:10ID:dKGHWOFuhttp://www.geocities.co.jp/Milkyway-Aquarius/4378/
北朝鮮の彼氏を持つ女の子のＨＰ
具体的に何を教えて欲しいのかはっきりしてくれませんか？
Perl超初心者でも人間の初心者、日本語の初心者でなかったら、
何をやろうとして、こういうことをしたんだけど、こういう結果がでて
ほしいのに実行結果はこうなりました、くらい書けないのか。
0888nobodyさん
02/10/11 20:15ID:5ek4fUJV入門本に載っているいちばん単純なソースをエディタで打ち込んで
ブラウザからアクセスすると、500 Internal Server Errorとなります。
どこが悪いのでしょう？
#!/usr/bin/perl
use CGI qw(:satndard);
print header;
print start_html('Hello');
print h1('This is hello.cgi');
print end_html;
0889nobodyさん
02/10/11 20:51ID:???0890nobodyさん
02/10/11 20:53ID:???まずCGIの問題とPerlの問題に切り分けてください。
まずCGIがきちんとお約束どおりになっているかどうか
確認してください。プロバイダによっては、
#!/usr/bin/perl なのか #!/usr/local/bin/perl かに分かれますし、
ファイルのパーミッションもプロバイダから指定された通りになって
いるのかどうかを調べてください。
ＣＧＩだとエラーメッセージはｗｅｂサーバのログに
でますから、もしも自分でサーバを立てているとかで
サーバのログが見れるのでしたら、そこを見てください。
それが無理なら、
use CGI qw(:satndard);
use CGI::Carp qw(fatalsToBrowser);
という風にCGI::Carpをつけるとエラーメッセージがブラウザに
出ますので、とりあえずそれを見てください。
0891nobodyさん
02/10/12 01:31ID:???消えることがあるのはなぜですか？
自作でアクセスログ取得機能付きのカウンタをつけてみたのですが，
3日に一度はカウンタ数などを記録するファイルが消えてしまいます．
消えないように気をつけるための注意点などあれば教えてください．
0893nobodyさん
02/10/12 01:42ID:???http://www.makoto.ath.cx/~uploader/source/up0143.txt
0894892
02/10/12 01:51ID:???のように、読み込みなのに書き込み用ロックを実行している。
＞open(OUT, "> $logfile");
のように、いきなりファイルを空にしている。
0895nobodyさん
02/10/12 01:58ID:???では，ひとつめはflock(IN,1)にすれば良いだと思います．
でも，ふたつめはどのように解決したらいいんでしょうか…
0896892
02/10/12 02:02ID:???flock(OUT, 2);
truncate(OUT, 0);
seek(OUT, 0, 0);
print OUT "hogehoge\n";
close(OUT);
みたいな感じかな・・・
0897nobodyさん
02/10/12 02:07ID:???早速そういうふうにしてみます．
それでもダメでしたらまた来ますのでよろしくお願いします．
0898nobodyさん
02/10/12 02:13ID:???0899892
02/10/12 02:15ID:???0900nobodyさん
02/10/12 02:23ID:???0901nobodyさん
02/10/12 02:30ID:???http://www.puni.net/~mimori/rfc/rfc3092.txt
0902nobodyさん
02/10/12 02:35ID:???どうも．fooとbarはわかりましたが，hogehogeはホゲホゲなんですか？
なんか変ですね．かくかくしかじかみたいな感じか．
0903nobodyさん
02/10/12 02:38ID:???http://pc.2ch.net/test/read.cgi/php/1012141548/l50
0904nobodyさん
02/10/12 02:41ID:???0905nobodyさん
02/10/12 13:13ID:kfRJ7swR#! c:/perl/bin/perl
$LOGPATH = './log/'; #ログ保存ディレクトリ
$EXPIRES = 3; #アクセスログ保存期間
# 日付の取得
$tm = time;
($sec, $min, $hour, $mday, $mon, $year,) = localtime $tm;
$year += 1900;
++$mon;
# アクセス情報の整形
$in = "$hour\t$min\t$ENV{'REMOTE_HOST'}\t"
. "$ENV{'HTTP_REFERER'}\t$ENV{'HTTP_USER_AGENT'}\n";
# ログファイルへの書き込み
open(FILE, ">>$LOGPATH$year$mon$mday.dat") or die("ERROR: open log-file.");
eval{ flock(FILE, 2) };
seek(FILE, 0, 2);
print FILE $ln;
close FILE;
# 古いログファイルの削除
$tm -= $EXPIRES * 60 * 60 * 24;
($sec, $min, $hour, $mdoy, $mon, $year) = localtime $tm;
$year += 1900;
++$mon;
$delfile = "LOGPATH$year$mon$mday.dat";
if(-e $delfile) {
unlink $delfile;
}
0906905
02/10/12 13:14ID:kfRJ7swRどこがおかしいのでしょうか？
エラーログは
[Sat Oct 12 13:06:54 2002] [error] [client 127.0.0.1] Premature end of script headers: c:/apache/htdocs/tendays/4-2.cgi
です。
0907nobodyさん
02/10/12 13:19ID:???0908905
02/10/12 13:25ID:kfRJ7swRえっ！？
それではこのエラーは何が原因ですか？
0909nobodyさん
02/10/12 13:41ID:???まず、こんなの効かないっしょ。
＞#! c:/perl/bin/perl
あとここね。2行に分かれてるけど行末に転送時に\rが入っちゃってんじゃ
ねえの。
＞# アクセス情報の整形
＞$in = "$hour\t$min\t$ENV{'REMOTE_HOST'}\t"
＞. "$ENV{'HTTP_REFERER'}\t$ENV{'HTTP_USER_AGENT'}\n";
0910nobodyさん
02/10/12 13:42ID:???Win？
出力はないんですね？
0912911
02/10/12 13:53ID:???ログ内容からして、ヘッダが出力されていないよーって言ってます。
0913905
02/10/12 13:59ID:kfRJ7swRしかし・・・・
ヘッダ出力させるにはどうすれば・・・
0914nobodyさん
02/10/12 14:25ID:???0915nobodyさん
02/10/12 14:52ID:???引数の文字列が日本語か英語かの判断ってどうやるのですか？
｢参考」
http://bulknews.net/lib/utils/eijiro/
0916915
02/10/12 14:54ID:???のほうがいいかも
0917nobodyさん
02/10/12 16:47ID:???aaa bbb ccc
ddd fff ggg
% foreach i (`cat aaa`);echo $i;end
aaa
bbb
ccc
ddd
fff
ggg
%
とバラバラにしてperlの@lines=<>;でそれを
aaa bbb
ccc ddd
fff ggg
のように変形してSTOUTに出したいのですが……
書き方が判りません。
助けてくださいませ。
0918nobodyさん
02/10/12 17:00ID:???0919%d%d%d%d%d%d%d%d%d
02/10/12 18:25ID:???36007 36045 36103 36115 36118 36136 36142
% perl -ane 'printf("(%d|%d|%d|%d|%d|%d|%d)\n",@F)' aaabbbbbbbbb
(36007|36045|36103|36115|36118|36136|36142)
といつもやってますが、%dを何度も書きたくないので、省略して書きたいです。
0920nobodyさん
02/10/12 18:45ID:???0922nobodyさん
02/10/12 20:53ID:???こっちにしとこ
open(OUT, "+< $datafile");
flock(OUT, 2);
seek(OUT, 0, 0);
print OUT "$data\n";
truncate(OUT, tell(OUT));
close(OUT);
http://homepage1.nifty.com/glass/tom_neko/web/web_04.html#output
0923nobodyさん
02/10/12 23:16ID:???に
『活動中のエクセルシートから１行抜き出す』
という記述があるが
AppleScript 使えば、
起動しているEXCELからデータ取れるのかな？
0924nobodyさん
02/10/13 01:15ID:yxI3IEPSif($ent_rate_extra && $line[12] < $ent_rate_border){ push(@line_temp, "$_\n"); next; }
この行の前に、
$ent_rate_border = 10;
を追加するとエラーが出ます。
javaをちょっとやった初心者ですが、
数値を代入しちゃ不味いですか。
0926nobodyさん
02/10/13 01:31ID:???$ent_rate_border = 10;
を書き足すと、if文内が実行されるからエラーが出る。
next; は不要だから削除するとエラーは出なくなるよ。
0927924
02/10/13 01:41ID:???レスサンクス。
サーバで直接実行しているので、具体的なメッセージはわかりません。
あーん、怒らないでね。
>>926
if文内が実行されるのですね。
やっぱり、しったかじゃ改造は無理みたいですね。
基本から勉強し直します。
0928924
02/10/13 01:47ID:???$line[12] < 50
で区分されるのを、10で区分したかったんです。
＞if文内が実行
きっと今は、htmlから読み出された時に実行されるのですね。
0929924
02/10/13 04:16ID:???if($ent_rate_extra && $line[12] < 10){ push(@line_temp, "$_\n"); next; }
で、意図する物ができました。
お騒がせしました。
0930nobodyさん
02/10/13 17:54ID:???例
1（改行）
2
3
ローカルでfor($i=0;$i<100000;$i++)で配列作成と一回毎にファイルへの書き込む二通りをやってみたのですが、7000個（行）程度で新規ファイルを自動的に作成し、その後その新規ファイルを7000毎に更新して結局1～7000、93000～100000
の二つのファイルしかできませんでした。
次にfor文をネストして7000×15のファイルを作ろうと思い組んでみたのですが、ファイル名に変数が使えないため実現できませんでした。
６桁以上の連番ファイルを作成するにはどうしたらいいのでしょうか？
ファイル名に上手く変数を使う方法や別の方法がありましたら教えてください。
言語はscriptとJavaなどを少しかじった程度です。
0931nobodyさん
02/10/13 18:01ID:???なにをしたいのかなにを聞きたいのかさっぱりわからん。説明する能力って大事ね。
0932bloom
02/10/13 18:02ID:7jsv3n6xhttp://homepage.mac.com/leverage/
0934nobodyさん
02/10/13 18:16ID:???print $_,"\n";
}
0935930
02/10/13 18:23ID:???0936830
02/10/13 19:03ID:???レスしてくださった方すみませんでした。
そもそもこのテストの意味から勉強しようと思います。
例えば、 /usr/bin/make -- OK
Running make test
PERL_DL_NONLAZY=1 /usr/bin/perl -Iblib/arch -Iblib/lib -I/usr/lib/perl5/5.6.0/i386-linux -I/usr/lib/perl5/5.6.0 -e 'use Test::Harness qw(&runtests $verbose); $verbose=0; runtests @ARGV;' t/*.t
のように
makeが成功すると
t/f000....ok
t/f001....ok
t/f002....ok
のようにテストが始まりますが、
t/f** のはすべてOKですが
t/m004....ok
t/m005....FAILED test 5
Failed 1/30 tests, 96.67% okay
t/m006....ok
のように t/m005でエラーが出ます。
エラー表示はFailed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/m005.t 30 1 3.33% 5
Failed 1/48 test scripts, 97.92% okay. 1/2710 subtests failed, 99.96% okay.
make: *** [test_dynamic] エラー 11
/usr/bin/make test -- NOT OK
といった感じです。
0937830
02/10/13 19:05ID:???0938830
02/10/13 19:26ID:???perl -d -Iblib/arch -Iblib/lib t/m005.t
を実行しました。何かわかることあるでしょうか。
ok 4
main::(t/m005.t:42): $n++;
DB<1>
main::(t/m005.t:44): Date::Calc->date_format(2);
DB<1>
main::(t/m005.t:45): Date::Calc->language(11);
DB<1>
main::(t/m005.t:48): local($date->[0][2]) = undef;
DB<1>
main::(t/m005.t:48): local($date->[0][2]) = undef;
DB<1>
main::(t/m005.t:49): if ("$date" eq '4 1-ago-2001')
DB<1>
main::(t/m005.t:50): {print "ok $n\n";} else {print "not ok $n\n";}
DB<1>
not ok 5
0939nobodyさん
02/10/13 20:04ID:sWhCrFb+0940nobodyさん
02/10/13 20:06ID:???/￣ l | ／￣￣￣￣￣￣￣￣￣￣
■■-っ ＜ 呼んだ？
´∀｀/ ＼＿＿＿＿＿＿＿＿＿＿
＿_／|Ｙ/＼.
Ё|＿_ | / |
| У.. |
0941nobodyさん
02/10/13 20:09ID:sWhCrFb+でもタモさんでもいい！おしえてっ迅速に！
0942nobodyさん
02/10/13 20:17ID:???sub urlenc {
my($x) = @_;
$x =~ s/([\W])/sprintf("%%%02X",unpack("C",$1))/ge;
return $x;
}
かえ？
0944nobodyさん
02/10/13 21:56ID:???0946nobodyさん
02/10/13 22:01ID:???ベスト？ベターじゃない？
それ、お大尽スクリプトって言ってた人いたな。
メモリが許しゃ同じことだろうけど、あとの処理は、
かえって面倒じゃん。for(@log)でループでしょ。
0948nobodyさん
02/10/13 22:04ID:???「7.4.2 空間の効率を上げるためのヒント」
・配列操作やファイル全体を読み込むことを避ける。
「7.4.3 プログラマの効率を上げるためのヒント」
・配列全体をいじったり、ファイル全体を一気に読み込んだりする。
0949944
02/10/13 22:14ID:???$#log=298;
とかやるだけでログ行数が制御できるので配列を使おうと思ったんですが
どかっと @log=<LOG>; とかやっちゃまずいのかなと。
それともどのみち全部配列に入れるなら同じなのかなと。
0952nobodyさん
02/10/14 00:19ID:???1000行あるログファイルの100行目から199行目を処理する時、
@log = <LOG>;
@log = @log[99..198];
なら1000行分 + 100行分のメモリを必要とする。
while (<LOG>) {
push @log, $_ if $. == $start .. $end == $.;
}
なら1行分 + 100行分のメモリを必要とする。
…と理解してたんだが、もしかして違いますか?
レス数が950を超えています。1000を超えると書き込みができなくなります。