今日覚えたことをメモっておけ
■ このスレッドは過去ログ倉庫に格納されています
0001能無しさん@お腹いっぱい
01/10/19 19:58ID:???0002名無しさん@お腹いっぱい。
01/10/19 20:27ID:???0003名無しさん@お腹いっぱい。
01/10/19 20:40ID:???0004名無しさん@お腹いっぱい。
01/10/19 21:17ID:OVqw2yVJ0005名無しさん@お腹いっぱい。
01/10/19 22:08ID:heTMfKdhカノジョのオパーイは92cmだった・・・
0006名無しさん@お腹いっぱい。
01/10/19 22:15ID:???0007名無しさん@お腹いっぱい。
01/10/21 00:32ID:???0008名無しさん@お腹いっぱい。
01/10/21 13:31ID:???証拠写真きぼん
0009名無しさん@お腹いっぱい。
01/10/22 23:51ID:???禿同追加願
0010名無しさん@お腹いっぱい。
01/11/11 01:40ID:???use Data::Dumper;
use KCatch;
die Dumper($value);
0011WEB-DB
01/11/14 14:28ID:???0012てすと
01/11/15 11:31ID:???0013名無しさん@お腹いっぱい。
01/11/15 21:02ID:???0014【Perl】
01/11/15 23:04ID:???use diagnostics だと桁違いに。
use strict はそうでもない。
0015【Perl】
01/11/19 06:09ID:???$Data::Dumper::Indent=0;
#配列スライス
my @ary = (0..9);
@ary[5,6] = ('abc', 'def');
print Dumper(\@ary), "\n";
#ハッシュスライス
my %hash = (D=>'Develop', A=>'Alpha', B=>'Beta');
@hash{A,B} = (1,2);
print Dumper(\%hash), "\n";
0016【Perl】
01/11/19 12:58ID:???http://bulknews.net/lib/
OOP,DB,mod_perl他
http://bulknews.net/lib/columns/00_bulknews/column.html
http://bulknews.net/lib/doc-ja/etoys.ja.html
http://bulknews.net/lib/archives/Filter-Pyuuta-0.01.html
0017【Perl】
01/12/21 01:39ID:???else { print 'BINARY' }
うろ覚えの種類判別法。
Effective Perlあたりに書いてあったやつかな。
0018名無しさん@お腹いっぱい。
01/12/27 03:05ID:???{ my ($t0,$t1);
BEGIN {$t0 = new Benchmark;}
END {
$t1 = new Benchmark;
open LOG, '>> ./bench.log';
my $body = timestr timediff $t1, $t0;
print LOG localtime(time)."\t$body\n";
close LOG;
}
}
実行時間のログをbench.logに記録する。
0019名無しさん@お腹いっぱい。
02/01/03 18:43ID:???なくさないようにここに張らせてもらおう。
コマンドラインから
> perl ./pmbench FileHandle English
で使えた。
#!/usr/local/bin/perl
use Benchmark;
@module = ('IO::File', 'CGI', @ARGV);
$count = '2500';
foreach (@module) {
print "$_\n ";
timethis($count, "require $_; import $_;");
}
__END__
うちのだとこんな結果。
IO::File
timethis 2500: 4 wallclock secs ( 4.15 usr + 0.03 sys = 4.18 CPU)
CGI
timethis 2500: 1 wallclock secs ( 0.70 usr + 0.02 sys = 0.71 CPU)
FileHandle
timethis 2500: 7 wallclock secs ( 6.96 usr + 0.02 sys = 6.98 CPU)
English
timethis 2500: 12 wallclock secs (12.42 usr + 0.03 sys = 12.45 CPU)
perl 5.005_03: FreeBSD 4.4R
0020名無しさん@お腹いっぱい。
02/01/05 12:46ID:???笑った。
0021名無しさん@お腹いっぱい。
02/01/05 14:26ID:???それだと殆どimportの時間を計るだけじゃん。
%INCをクリアしないと。
#!/usr/local/bin/perl
use Benchmark;
use Getopt::Std;
use strict;
getopts('ic:' => \my %opt);
my $count = ($opt{c} - 0) || 100;
foreach (@ARGV) {
unless(eval "require $_"){
$@ =~ s/at .*?\n$//;
warn $@, "\n";
next;
}
print "$_ version ", ($_->VERSION || '(unknown)'), "\n";
timethis($count,
qq{%INC=();require $_;}
. ($opt{i} ? qq{$_->import;} : "")
);
}
__END__
0022名無しさん@お腹いっぱい。
02/01/05 15:19ID:???0023名無しさん@お腹いっぱい。
02/01/05 15:20ID:???すっかり忘れてた。
ありがと、参考にしますわ。
pmbench -i CGI IO::File FileHandle English の結果。
CGI version 2.46
timethis 100: 17 wallclock secs (16.85 usr + 0.59 sys = 17.44 CPU)
IO::File version 1.06021
timethis 100: 27 wallclock secs (25.16 usr + 1.02 sys = 26.18 CPU)
FileHandle version 2.00
timethis 100: 29 wallclock secs (27.68 usr + 0.88 sys = 28.55 CPU)
English version (unknown)
timethis 100: 6 wallclock secs ( 5.88 usr + 0.20 sys = 6.07 CPU)
0024名無しさん@お腹いっぱい。
02/01/05 17:24ID:KwMybqpF0025名無しさん@お腹いっぱい。
02/01/05 17:46ID:???0026名無しさん@お腹いっぱい。
02/01/05 21:01ID:???0027名無しさん@お腹いっぱい。
02/01/05 22:42ID:???証拠写真きぼん
0028名無しさん@お腹いっぱい。
02/01/05 23:00ID:???禿同追加願
0029名無しさん@お腹いっぱい。
02/01/05 23:32ID:???○$hairetu[1]
0030名無しさん@お腹いっぱい。
02/01/06 00:26ID:???0031名無しさん@お腹いっぱい。
02/01/06 00:36ID:???証拠写真きぼんぬ
0032名無しさん@お腹いっぱい。
02/01/06 00:45ID:???それはいらない。
003322
02/01/06 02:14ID:???0034名無しさん@お腹いっぱい。
02/01/06 06:00ID:???0036名無しさん@お腹いっぱい。
02/01/10 13:56ID:???0037名無しさん@お腹いっぱい。
02/01/10 15:23ID:???0038名無しさん@お腹いっぱい。
02/01/10 17:00ID:???0039名無しさん@お腹いっぱい。
02/01/10 18:05ID:???0040名無しさん@お腹いっぱい。
02/01/10 18:05ID:???心霊写真きぼんぬ。
0041名無しさん@お腹いっぱい。
02/01/10 18:09ID:???禿同追加祓
0042名無しさん@お腹いっぱい。
02/01/12 04:41ID:???0043名無しさん@お腹いっぱい。
02/01/12 22:27ID:???0044名無しさん@お腹いっぱい。
02/01/12 22:32ID:???0045名無しさん@お腹いっぱい。
02/01/13 16:13ID:???||
||
||
=====再下降=====
0046名無しさん@お腹いっぱい。
02/01/23 15:24ID:Gdq9JiCfとりあえずよるまで待ってみます(泣
0047名無しさん@お腹いっぱい。
02/01/23 15:34ID:???0048名無しさん@お腹いっぱい。
02/01/23 15:35ID:Gdq9JiCfスクリプト改造工房 Part3
http://pc.2ch.net/test/read.cgi/php/988808396/765
です・・・ペコリ
0049名無しさん@お腹いっぱい。
02/03/14 15:21ID:???0050nobodyさん
02/03/14 16:31ID:???0053nobodyさん
02/07/15 17:12ID:???0054nobodyさん
02/07/16 14:36ID:???0055nobodyさん
02/07/17 18:56ID:???0058nobodyさん
02/07/22 06:49ID:???0059nobodyさん
02/07/23 12:49ID:???0060nobodyさん
02/07/24 08:39ID:???0063nobodyさん
02/08/10 08:57ID:???0064nobodyさん
02/09/04 13:07ID:???0065nobodyさん
02/09/05 11:00ID:???0068nobodyさん
02/09/11 08:25ID:???0069nobodyさん
02/09/12 08:10ID:???0070nobodyさん
02/09/15 07:38ID:???0072nobodyさん
02/09/17 00:37ID:???0074nobodyさん
02/09/19 16:40ID:???0075nobodyさん
02/09/22 11:24ID:???0076nobodyさん
02/09/22 14:16ID:???0077nobodyさん
02/09/22 22:41ID:???0080nobodyさん
02/10/05 11:02ID:???0081デフォルトの名無しさん
02/10/05 13:38ID:???スーパーでレジ打ち間違えられて200円くらい損するとこだった。
これからは、絶対レシートを確認すること。
0082nobodyさん
02/10/05 21:13ID:???0083nobodyさん
02/10/06 08:55ID:???0085デフォルトの名無しさん
02/10/08 20:24ID:???上の方だけデジタル写真で撮りました。
+----------------------------------+
| 2ちゃんスーパー |
| アジひもの x 3 単価178 356.-- |
| 豆腐 x 2 単価98 194.-- |
| 値引き 20% -71.-- |
| 豆腐 x 2 単価98 194.-- |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
豆腐を計算してるときに、当日の一番高い買い物から
2割引する券を出した。そいで、アジひものを2割引いた。
豆腐を打ってないと勘違いして、豆腐を2回打ったらしい。
0089nobodyさん
02/12/02 13:14ID:???0090nobodyさん
02/12/18 13:36ID:???0093nobodyさん
03/01/06 16:23ID:???0094nobodyさん
03/01/09 18:05ID:???0095nobodyさん
03/01/10 17:25ID:???やっぱこれが入ってないと。
それは聞き捨てならない
0097山崎渉
03/01/15 13:43ID:???0098nobodyさん
03/01/17 16:58ID:EWv5NWMb0099nobodyさん
03/01/17 18:44ID:BIc4KCgY0100nobodyさん
03/01/17 22:41ID:???・SOS(0xFF 0xDA)以降はEOI(0xFF 0xD9)が出てくるまでがデータとして扱われる模様。
・RSTmはデータ中に出現する特殊なマーカーなので、ヘッダを読むだけならSOI EOIだけに気を配ればよい。
0101nobodyさん
03/01/18 16:28ID:???■ このスレッドは過去ログ倉庫に格納されています