Perlコーディング初心者質問スレ Part 50
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001nobodyさん
2006/06/26(月) 00:46:38ID:???【投稿する際の注意】
質問するときは内容をよく吟味してから投稿してください。
「コマンドの意味がわかんない」とかはマニュアル見ましょう。
回答者さんは何でも屋じゃありません。
1： 自分はこういう事がしたい。
2： それでこんな風にやってみたが･･･
3： こんなエラーが出て上手く行かなかった。
最低でも1と3が無いと誰も答えられないよ。
ソース貼る時は、全角スペースでインデント忘れずに。
良い回答は良い質問から。一緒に勉強しましょう。
過去ログやお勧めサイトは >>2-10
0877nobodyさん
NGNG0878nobodyさん
2006/07/22(土) 18:50:39ID:???$ perl 876.pl 2>/dev/null
Benchmark: timing 1000000 iterations of bare, quote...
bare: 2 wallclock secs ( 0.78 usr + 0.53 sys = 1.31 CPU) @ 762776.51/s (n=1000000)
quote: 1 wallclock secs ( 0.96 usr + 0.56 sys = 1.52 CPU) @ 657030.22/s (n=1000000)
$ cat 876.pl
use Benchmark;
my $foo = 'bar';
timethese(1_000_000,
{'quote'=>sub {print STDERR "$foo";},
'bare'=>sub {print STDERR $foo;},
});
0879nobodyさん
2006/07/22(土) 18:55:33ID:???魅力のひとつだと思う・・・
0880nobodyさん
2006/07/22(土) 19:40:53ID:???Benchmark: timing 1000000 iterations of bare, quote...
bare: -1 wallclock secs ( 0.11 usr + 0.00 sys = 0.11 CPU) @ 9090909.09/s (n=1000000)
(warning: too few iterations for a reliable count)
quote: -1 wallclock secs ( 0.20 usr + 0.00 sys = 0.20 CPU) @ 5000000.00/s (n=1000000)
(warning: too few iterations for a reliable count)
$ cat 876.pl
use Benchmark;
my $foo = 'bar';
timethese(1_000_000,
{
'quote'=>sub {$boo="$foo";},
'bare'=>sub {$boo=$foo;},
});
printしないとこんなかんじ
0881nobodyさん
2006/07/22(土) 21:43:50ID:???"" で括るのは、新しい文字列の生成という意味だから、最適化はされないよ。
-MO=Deparse 付けてみても、"$foo" そのまま。
0882nobodyさん
2006/07/23(日) 01:44:22ID:NrRWf3Mx「Perl・CGIコーディング初心者質問スレ」
に変えるべきだと思う。
0883nobodyさん
2006/07/23(日) 01:46:04ID:BeERA3x6念のため言っておくけどハッシュにすると遅いよ。
可読性があがるからコーディングが早いってだけ
でもハッシュ使っとけ
0885nobodyさん
2006/07/23(日) 02:19:16ID:???速さを求めたいならはじめに両方の要素をソートしておくことをお勧めする。
もちろんそれに応じたコーディングも必要だが要素数が多ければ目に見える効果があるはず。
0886nobodyさん
2006/07/23(日) 03:06:54ID:???if ($ENV{'PERLXS'} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\n";
print "Content-type:text/html\n";
}
という記述があったんですが意味がよく分かりません。
分かる人、翻訳お願いできませんか？
0887nobodyさん
2006/07/23(日) 03:31:22ID:???検索したらすぐに解ったが…
ttp://www.att.or.jp/perl/faq/perlwin32faq/perlwin32faq7j.html#My_CGI_scripts_don_t_seem_to_run
ttp://www.att.or.jp/perl/faq/perlwin32faq/perlwin32faq7j.html#How_does_my_script_know_if_it_s_
「ISAPIで実行されていたらステータス行とContent-Typeヘッダ吐き出せ」
0888886
2006/07/23(日) 03:35:53ID:???すみません。まさか検索で引っかかるとは思いが至らず・・・。
要は削除してしまっても問題ない箇所なんですね。
こんな時間にありがとうございました。
0889nobodyさん
2006/07/23(日) 03:44:25ID:671DuE1Hうざいよ、藻前。
>my $foo = "hoge";
>print "$foo";
>みたいに文字列を無駄なダブルクォートで囲う人が居なくなって欲しい。
上のは必要。下のは"$foo\n"が普通なので必要。ちなみに$foo,"\n"より速い。
0890nobodyさん
2006/07/23(日) 11:48:54ID:???>上のは必要
お前、何当たり前の事言ってんだ…。
>下のは"$foo¥n"が普通なので必要
コード違うじゃん。誰が改行付ける時の話してる？
0891nobodyさん
2006/07/23(日) 11:56:10ID:???0892nobodyさん
2006/07/23(日) 12:16:20ID:rog/ar/Gperl-5.8.8で、URLエンコーディングのデコードをやりたいと思っています。
以下の様にやってみました。
use encoding "euc-jp";
$str = "%C6%FC%CB%DC";
$str =~ tr/+/ /;
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
print $str;
が、何も出力されません。
use encoding "euc-jp" を除くと正しく出力("日本")されるのですが、
この部分は入出力の関係上できればのこしておきたいと思っています。
どうしたら解決できるか、どなたかお分かりの方教えてください。
0893速さ順
2006/07/23(日) 13:08:12ID:???"$foo\n"
$foo,"\n"
こんな感じか？それなら文字列連結でいいんじゃね
0894nobodyさん
2006/07/23(日) 13:30:13ID:???これじゃだめなの？
use encoding "euc-jp";
{
no encoding;
$str = "%C6%FC%CB%DC";
$str =~ tr/+/ /;
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
}
print $str;
0895nobodyさん
2006/07/23(日) 14:44:30ID:???なんかこないだから一人ずれてるのいるよね・・・。
>>892 がなんで use encoding 下でダメなのか説明おねがいえらいひと。
0896ヽ(´ー`)ノ ◆.ogCuANUcE
2006/07/23(日) 17:23:10ID:???解決法は >>894、もしくは use encoding を使わない。
理由は perldoc encoding の DO NOT MIX MULTIPLE ENCODINGS のあたりを参照。
use encoding "euc-jp";
my $str = '%C6%FC%CB%DC';
print "before: $str (" . length($str) . ")\n";
$str .= "\xFE";
print "after : $str (" . length($str) . ")\n";
use encoding については、作った本人が「使うな」と言ってる上に、
副作用が多すぎる。
新規で書くコードに関しては、Encode.pm で適宜変換するようにして、
文字リテラルには ascii しか書かないか、use utf8 をして utf-8 に
統一してしまうかの、どちらかを選択するべき。
古いコードで use encoding しているものは、no encoding で逃げるか、
駄目なら書き直すべし。
知ってる人間が use encoding 使ってたら、確実に殴る。
0897nobodyさん
2006/07/23(日) 17:35:06ID:???unko
HOGEHOGE
これの << ってなんだっけ
名称をどわすれした
0898nobodyさん
2006/07/23(日) 17:51:27ID:???0899nobodyさん
2006/07/23(日) 18:45:27ID:???ああ、そうか。 なるほどねー。
use encoding "euc-jp"; 下では
$str = "\xc6";
$str .= "\xfc";
$str .= "\xcb";
$str .= "\xdc";
こう書いても $str は "日本" ってはならないわけだな。 ic ic
0900nobodyさん
2006/07/24(月) 01:13:30ID:ga9J27XZ0901nobodyさん
2006/07/24(月) 02:23:23ID:???0902nobodyさん
2006/07/24(月) 10:35:48ID:78lGpjq9open FH,"+>>test.log";
seek FH,0,0;
print FH "$time","\n";
close FH;
test.logの先頭に一行新しく入れたいのですが、これだと末尾に一行追加されます・・・・
多分+>>のせいだと思いますが、先頭に入れようとしたら、
my @list=<FH>;
truncate FH,0;
print FH $time,"\n";
print FH @list;
とするしかないのでしょうか？
なんかいちいち一旦全部配列に入れてファイルを消してってのが嫌です。
0903902
2006/07/24(月) 10:39:56ID:78lGpjq9seek FH,0,0;
がないと@tempに何も入りませんね。
しかしなんでそこでのseekは効くのに、前者の方ではうまくいかないんだろう
0904902
2006/07/24(月) 11:25:03ID:78lGpjq90905nobodyさん
2006/07/24(月) 11:51:01ID:???0906nobodyさん
2006/07/24(月) 11:56:03ID:???こういうフォーマットの文字列を
11時53分11秒
に変換したいです。
なるべく短い記述ですませいたいのですが。
できれば2バイトずつで自動スプリットできればそのままsprintfに渡せるのですが。
substrを３個も書いてsprintfに渡すのはなえますよね。
0909nobodyさん
2006/07/24(月) 12:23:35ID:???>>907
そういえば正規表現でいけましたね。ありゃ()がミソでしたね確か。
396は本当になるほど！って感じです。
unpackはまるで使いこなせていないままでしたが便利なものですねこれ。
0910905
2006/07/24(月) 12:35:23ID:TyNTrbq3↑は見つけましたが1年ほど前なので、他にありますでしょうか？
0911nobodyさん
2006/07/24(月) 13:02:47ID:???基本的に内容消さないで最初の行に追加する方法は無いと思う。
解決法としては、逆に、使うときに、my @list = reverse <FH>;
とか、foreach(reverse <FH>)
とかするとか、・・・
0912nobodyさん
2006/07/24(月) 13:16:16ID:???0913902
2006/07/24(月) 13:20:39ID:78lGpjq9あきらめス。
ありがとうございす。
0914nobodyさん
2006/07/24(月) 15:16:26ID:???馬鹿、またそうやって全部メモリに読み込んで。
しかも foreach でもう一度展開して。
勘弁してくれ。
>>913
http://perldoc.jp/docs/modules/File-ReadBackwards-1.02/ReadBackwards.pod
>このモジュールはファイルを行単位で逆方向に読み込みます。
>使い方は簡単で、メモリの使い方は効率的で高速です。
>オブジェクトとtieされたハンドル・インターフェイスの両方を
>サポートしています。
使わない理由は無い。
0915nobodyさん
2006/07/24(月) 16:33:06ID:???正直メモリ展開とか実感できない・・・1ミリ秒か100ミリ秒かとか体感違いないので・・・
昔のコンピュータを使ったこと無いってのもあるかも・・・
0916nobodyさん
2006/07/24(月) 16:40:34ID:???cとかで実装するかなぁ・・・と思う、・・・（今のとこそういうプロジェクトの予定無し・・・
個人的にforeach(reverse <fh>){.....}なんかは見やすいのでがんがん使う。
まあ、遅いって言ってもせいぜい多項式オーダーの遅さだと思うので、あまり気にしない
指数オーダーだったら大変だが・・・ｗ
0917nobodyさん
2006/07/24(月) 16:58:47ID:???my @list=<FH>; はよろしくないけどｗ
0918nobodyさん
2006/07/24(月) 18:27:39ID:LY53xScL↑のように、パッケージファイル(List.pm)を更新しても、Webページで反映されません。
.cgiを持つ拡張子のファイルは反映されます。
これはどのようなことが原因ですか？
どのようにすればList.pmで書き換えた内容の更新が反映されるようになりますか？
0919nobodyさん
2006/07/24(月) 18:44:08ID:???んな訳ない
0920nobodyさん
2006/07/24(月) 18:46:52ID:???0921nobodyさん
2006/07/24(月) 18:58:52ID:???0922nobodyさん
2006/07/24(月) 19:16:35ID:???0923nobodyさん
2006/07/24(月) 19:24:17ID:???0924nobodyさん
2006/07/24(月) 19:40:51ID:???0925nobodyさん
2006/07/24(月) 19:46:47ID:???テンポラリファイル作って一行出力してから元ファイルから残りを追記後
リネームでもできるけど一緒にロックせにゃならんし残った後のこともあるな。
>>906
substr($str,0,2),substr($str,2,2),substr($str,4,2)
でもできるだろう。数字と判定してからのほうがよいと思うけど。
0927nobodyさん
2006/07/24(月) 20:13:17ID:???$date = "115311";
$date =~ s/(\d\d)(\d\d)(\d\d)/$1時$2分$3秒/;
0928nobodyさん
2006/07/24(月) 20:49:14ID:???0929nobodyさん
2006/07/24(月) 20:53:25ID:???0930nobodyさん
2006/07/24(月) 21:09:27ID:???0931ヽ(´ー`)ノ ◆.ogCuANUcE
2006/07/24(月) 21:16:05ID:???残念ながら、標準では入ってないが。
0933nobodyさん
2006/07/24(月) 22:22:30ID:IKH596diYY-BOARDを使っていますが最近英語の荒らし書き込みが増えちゃって困っています
そこで相談したところ「半角のみの投稿を禁止すればよい」という話を
聞いたのですが実際にスクリプトを変更する技術がなく出来ませんが
どなたか実際に使っている方などいたりしませんか？
アドバイスよろしくお願いいたします。
0934nobodyさん
2006/07/24(月) 22:46:14ID:???KENT WEB総合スレへﾄﾞｿﾞ。改造方法もあるでよ。
http://pc8.2ch.net/test/read.cgi/php/1078991985/450-
0936nobodyさん
2006/07/24(月) 23:59:23ID:cgyCzAHv見つけた内容は行いたい処理とは違う物しか発見できませんでした。
どなたか、下記の内容について処理方法を概要だけでも結構ですので
ご教授お願い出来ないでしょうか？宜しくお願い致します。
----
HTML内のフォームからファイルと時間を選択させて、
その時間になったら自動で指定ファイルをFTPで別サーバー
へ移動するという処理は可能でしょうか？
Perlでcrontabに書き出すことができればと思いましたが
レンタルサーバーでそれは許可されておりません。
cronを使用せずにperlにより指定時間になっているかどうかを
チェックして時間になっていたらFTPでファイルを移動
するような処理は可能なのでしょうか？
0937nobodyさん
2006/07/25(火) 00:19:33ID:???この場合プログラムが能動的に動くことは不可能。
ただスクリプトがアクセスされたときに指定時間になっているかをチェックすることは十分可能。
ほかはperlの機能としては全て可能だが、サーバーにより制限がかかっている場合もある。
0938nobodyさん
2006/07/25(火) 00:30:15ID:???0939nobodyさん
2006/07/25(火) 00:43:59ID:???0940nobodyさん
2006/07/25(火) 00:46:36ID:???0941nobodyさん
2006/07/25(火) 00:48:44ID:???最新版がインストールされますが、
昔のバージョンを指定し、かつ、そのバージョン
と依存関係のあるものをインストールすることって
できますか？
0942nobodyさん
2006/07/25(火) 01:08:00ID:???そうですか。有難うございます。
やはりcrontabに書かせるしかないのですね・・・
ホスティングでcrontabを変更できる所は日本であるのでしょうか？
>fork
forkで時間指定になるまで子供を常駐させるという事なのでしょうか？
もう少し詳しく教えていただけないでしょうか？
0943nobodyさん
2006/07/25(火) 03:11:29ID:???0944nobodyさん
2006/07/25(火) 09:30:20ID:???>この場合プログラムが能動的に動くことは不可能。
無限ループ内にsleepなり時間チェックの関数書いとけば可能。
ただ、>>937の言うように「サーバーにより制限がかかっている場合」に注意。
0945nobodyさん
2006/07/25(火) 10:15:47ID:???なにがしたいのかわからんけど。
0946nobodyさん
2006/07/25(火) 11:45:48ID:???パーミッションをいじられて実行不可にさせられるのが共有サーバー。
自鯖にするか占有を借りれば好きかってできるかと。
0947902
2006/07/25(火) 11:52:35ID:kxudY76Dせっかくなのですが。
ファイルの一番上の行に書き込む時より、全部を読み込んで処理して表示する時の
方が他にも処理があり、頻度も五分ですのでアｓｄｇｊな；ぐあｗｂんｒｇぅじぇｂんぎｌ
ファイルに書き込むときに最上部に書いた方が今回の場合はグラッリェなのです。
すいません。ありがとうおざいます。もう肌がヒリヒリしてたえられｒません。
病院にいきってててててててえてｔｗえまｓづあｓｄ。あｄｇｓｇｆｄｓあ
0948902
2006/07/25(火) 11:56:06ID:kxudY76D＞my @list=<FH>; はよろしくないけどｗ
どうしてですか？一見完璧に見えますが。実のところ落とし穴があるのでしょうか？
やっぱり違いますねこのスレは。なんかプロに教わってる感じで最高です。
お返事お待ちしております。とりあえず病院に行ってきます。
なんか肌がボロボロやぶれて血だらけになってしまいました。
なんですかね。これ・・・・orz
0949nobodyさん
2006/07/25(火) 12:06:57ID:???>無限ループ内にsleepなり時間チェックの関数書いとけば可能。
何か勘違いしてないか？
お前のサーバーでは無限ループの中にsleepなり時間チェックの関数書いたプログラムが勝手に立ち上がるの？
結局そのプログラム自体は誰かからアクセスされることによってしか起動し得ないわけでしょ？
そもそも時間がたてば普通にkillされるし。
0950nobodyさん
2006/07/25(火) 12:11:52ID:???0951nobodyさん
2006/07/25(火) 12:13:12ID:???0952nobodyさん
2006/07/25(火) 12:17:22ID:???あとは時間チェックとスリープ組み込んだ無限fork
絶対怒られるけど。
0954nobodyさん
2006/07/25(火) 13:25:59ID:???qmHandle って最新Ver1.2.0でDecember 10, 2003なんだけど、
今だったらもっといいスクリプトとかあるかな？教えてエロイひと
0955nobodyさん
2006/07/25(火) 13:55:36ID:???ィ㌔ｗ
@list って配列他に使わないのであれば、<FH> するより一気に read した方がいいよ、ってことかな。
0956nobodyさん
2006/07/25(火) 13:59:10ID:???0958nobodyさん
2006/07/25(火) 14:53:00ID:???open FH, 'example.data';
my @list = <FH>
foreach( @list ){
処理
}
より
open FH, 'example.data';
while( <FH> ){
処理
}
のほうが一般に高速、メモリの使用量も少ない。
前者はファイルに保存してある情報を全てメモリ上にぶちまけた上でその情報を使って処理するのに対して、
後者はそのときの処理に必要な部分のみをファイルからメモリに読み取って処理を行う。
ディスクアクセスのキャッシングは OS がシステム全体の状況に応じて行ってくれるので
間欠アクセスによるシークロスは気にする必要は無い。
0959nobodyさん
2006/07/25(火) 14:57:44ID:???use encoding qw(euc-jp);
use Encode qw(from_to encode decode);
my $str = "%C6%FC%CB%DC";
$str =~ tr/+/ /;
$str = encode("utf8", $str); # utfフラグを落とす
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
from_to($str, "euc-jp", "utf8"); # 変換
$str = decode("utf8", $str); # utfフラグを付ける
print $str;
でだめなん？
0960nobodyさん
2006/07/25(火) 16:17:48ID:p7nXlRS6問題なくアップできるのですが、100M近いものになると
「ページを表示できません。検索中のページは現在、利用できません。
Web サイトに技術的な問題が発生しているか、ブラウザの設定を調整
する必要があります。」
のエラーが発生してしまいます。
CGIでのファイル制限は設けていないのですがこのような症状になって
しまいます。どなたかご存知の方ご教授お願い致します。
0961nobodyさん
2006/07/25(火) 16:28:28ID:???0962nobodyさん
2006/07/25(火) 16:42:24ID:???timeoutはアップの途中でも起こることなのでしょうか？
もしそうだとしたらtimeoutを防ぐ（ごまかす？）手段などはありますか？
0963nobodyさん
2006/07/25(火) 16:50:00ID:???0964nobodyさん
2006/07/25(火) 17:04:06ID:???申し訳ありません。下記がログに残されているメッセージです。
CGI.pm: Server closed socket during multipart read (client aborted?).
0967nobodyさん
2006/07/25(火) 19:54:02ID:???みたいに適当な初心者が
>自分でparseしたら
ですか。
お前にCGIモジュール以上のものが書けるのかと問いたい問い詰めたい、小一時間ほど。
どうせおまえ KEMT からコピペするだけと違うんかと。
っていうか server も close も socket も during ...も中学レベルの単語じゃねぇか。
0968nobodyさん
2006/07/25(火) 20:00:23ID:???0970nobodyさん
2006/07/26(水) 10:23:21ID:???phpならphp.iniで入力サイズを増やす。
あと、perlならアップするファイルサイズの約二倍の物理メモリを。
そしてもう来るな
0972nobodyさん
2006/07/26(水) 11:37:01ID:???それはすごい perl ですね。
0973nobodyさん
2006/07/26(水) 11:37:58ID:???sub change{
my ($in) = @_;
my $sjis_str = '[\x81-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\x7F]|[\xA1-\xDF]';
my $target = '[\xF7][\x41-\x9B\xA1-\xFA]|[\xF9][\x41-\x9B\xA1-\xED]|[\xFB][\x41-\x8d\xA1-\xD9]';
$in =~ s/\G((?:$sjis_str)*)($target)/$1.'['.unpack('H4',$2).']'/ego;
return $in;
}
sjisとtargetがかぶってしまっています。$sjis_strから$targetを除くとどう表現できますかね？
文字コードテーブルはよーわからんヽ(+∇+)ノ
0974nobodyさん
2006/07/26(水) 12:04:59ID:JkK9HWj12006723,akjhkadghjhgiower
Text::CSV_XSを使ってCSV形式で保存してます。
アクセスログなので結構膨大です。
日付別に分別したいのですが何かいい案はありますか？
ハッシュのキーに数字のみが使えたらよかったですが。無理ですし。
で、まあdateとかつけようと思ったのですが。
push @$hash{date$temp[0]},$csv->string();
みたいな。
なんかうまくいきませんね。グローバルシンボルじゃボケエラーがでますが。
もちろんmy宣言はしてるのです。問題なく。
でりふぁれんす部分がおかしいかキーの中のやり方がおかしいかですね。
0975９７４
2006/07/26(水) 12:13:15ID:JkK9HWj1push @{$hash{$temp[0]}},$csv->string();
で動いた。
っていうかperlってキーに数字のみも使えるのね。便利すぎ
0976nobodyさん
2006/07/26(水) 12:13:57ID:???レス数が950を超えています。1000を超えると書き込みができなくなります。