今日覚えたことをメモっておけ (155ﾚｽ)
上下前次1-新
1(1): 能無しさん＠お腹いっぱい [age] 01/10/19 19:58 ID:??? AAS
プログラミングに関して今日覚えたことをメモっておけ。
2: 名無しさん＠お腹いっぱい。 01/10/19 20:27 ID:??? AAS
終了
3: 名無しさん＠お腹いっぱい。 01/10/19 20:40 ID:??? AAS
>>1さん、分かりました。
4: 名無しさん＠お腹いっぱい。 01/10/19 21:17 ID:OVqw2yVJ(1) AAS
1が厨房だってことを覚えた
5(2): 名無しさん＠お腹いっぱい。 01/10/19 22:08 ID:heTMfKdh(1) AAS
カノジョのｵﾊﾟｰｲは92cmだった・・・
6(1): 名無しさん＠お腹いっぱい。 01/10/19 22:15 ID:??? AAS
それは聞き捨てならんな。
7(1): 名無しさん＠お腹いっぱい。 [ ] 01/10/21 00:32 ID:??? AAS
１さん、今日は何を教えてくれるのですか？
8(2): 名無しさん＠お腹いっぱい。 01/10/21 13:31 ID:??? AAS
>>5
証拠写真きぼん
9(1): 名無しさん＠お腹いっぱい。 01/10/22 23:51 ID:??? AAS
>>8
禿同追加願
10: 名無しさん＠お腹いっぱい。 01/11/11 01:40 ID:??? AAS
use strict;
use Data::Dumper;
use KCatch;
die Dumper($value);
11: WEB-DB 01/11/14 14:28 ID:??? AAS
MySQL-MAXだとトランザクションとロールバックが使えるみたい。
12: てすと 01/11/15 11:31 ID:??? AAS
test
13: 名無しさん＠お腹いっぱい。 01/11/15 21:02 ID:??? AAS
ログインできないときはCapsLockをチェック
14: 【Perl】 01/11/15 23:04 ID:??? AAS
-w を使うと遅くなる。
use diagnostics だと桁違いに。
use strict はそうでもない。
15: 【Perl】 01/11/19 06:09 ID:??? AAS
use Data::Dumper;
$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";
16: 【Perl】 01/11/19 12:58 ID:??? AAS
Perl Lib
外部ﾘﾝｸ:bulknews.net
OOP，DB，mod_perl他
外部ﾘﾝｸ[html]:bulknews.net
外部ﾘﾝｸ[html]:bulknews.net
外部ﾘﾝｸ[html]:bulknews.net
17: 【Perl】 01/12/21 01:39 ID:??? AAS
if ($tgt & ~$tgt) { print 'STRING' }
else { print 'BINARY' }
うろ覚えの種類判別法。
Effective Perlあたりに書いてあったやつかな。
18: 名無しさん＠お腹いっぱい。 01/12/27 03:05 ID:??? AAS
use Benchmark;
{ 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に記録する。
19(1): 名無しさん＠お腹いっぱい。 02/01/03 18:43 ID:??? AAS
UNIXの練習にモジュールロードのベンチマーク作ってみた。
なくさないようにここに張らせてもらおう。
コマンドラインから
> 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
20: 名無しさん＠お腹いっぱい。 [age] 02/01/05 12:46 ID:??? AAS
>>5-9
笑った。
21(1): 名無しさん＠お腹いっぱい。 02/01/05 14:26 ID:??? AAS
>>19
それだと殆ど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__
22(2): 名無しさん＠お腹いっぱい。 02/01/05 15:19 ID:??? AAS
おちんちんをいぢるとなんだかきもちいい
23: 名無しさん＠お腹いっぱい。 02/01/05 15:20 ID:??? AAS
>>21
すっかり忘れてた。
ありがと、参考にしますわ。
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)
24(1): 名無しさん＠お腹いっぱい。 02/01/05 17:24 ID:KwMybqpF(1) AAS
俺の彼女は処女だった・・・
25: 名無しさん＠お腹いっぱい。 02/01/05 17:46 ID:??? AAS
それは聞き捨てならんな。
26: 名無しさん＠お腹いっぱい。 02/01/05 21:01 ID:??? AAS
１さん、今日は何を教えてくれるのですか？
27(1): 名無しさん＠お腹いっぱい。 [age] 02/01/05 22:42 ID:??? AAS
>>24
証拠写真きぼん
28: 名無しさん＠お腹いっぱい。 02/01/05 23:00 ID:??? AAS
>>27
禿同追加願
上下前次1-新書関写板覧索設栞歴
あと 127 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.022s