今日覚えたことをメモっておけ

1 ：01/10/19 〜 最終レス ：2012/03/26

プログラミングに関して今日覚えたことをメモっておけ。

2 ：

終了

3 ：

>>1さん、分かりました。

4 ：

1が厨房だってことを覚えた

5 ：

カノジョのｵﾊﾟｰｲは92cmだった・・・

6 ：

それは聞き捨てならんな。

7 ：

１さん、今日は何を教えてくれるのですか？

8 ：

>>5
証拠写真きぼん

9 ：

>>8
禿同追加願

10 ：

use strict;
use Data::Dumper;
use KCatch;
die Dumper($value);

11 ：

MySQL-MAXだとトランザクションとロールバックが使えるみたい。

12 ：

test

13 ：

ログインできないときはCapsLockをチェック

14 ：

-w を使うと遅くなる。
use diagnostics だと桁違いに。
use strict はそうでもない。

15 ：

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 Lib
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

17 ：

if ($tgt & ~$tgt) { print 'STRING' }
else { print 'BINARY' }
うろ覚えの種類判別法。
Effective Perlあたりに書いてあったやつかな。

18 ：

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 ：

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 ：

>>5-9
笑った。

21 ：

>>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 ：

おRをいぢるとなんだかきもちいい

23 ：

>>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 ：

俺の彼女はRだった・・・

25 ：

それは聞き捨てならんな。

26 ：

１さん、今日は何を教えてくれるのですか？

27 ：

>>24
証拠写真きぼん

28 ：

>>27
禿同追加願

29 ：

×@hairetu[1]
○$hairetu[1]

30 ：

PHPで文字列の結合は「.」

31 ：

>>22
証拠写真きぼんぬ

32 ：

>>31
それはいらない。

33 ：

もうだめぽ

34 ：

らくだ本売り切れてた・・・

35 ：

それは聞き捨てならんな。

36 ：

海面浮上。

37 ：

おにゃにょこのからだはやはらかい

38 ：

それは聞き捨てならんな。

39 ：

１さん、今日は何を教えてくれるのですか？

40 ：

>>39
心霊写真きぼんぬ。

41 ：

>>40
禿同追加祓

42 ：

あげ

43 ：

いちいち上げんな。

44 ：

それは聞き捨てならんな。

45 ：

　　　　　 ｜｜
　　　　　 ｜｜
　　　　　 ｜｜
　　　　　 ｜｜
＝＝＝＝＝再下降＝＝＝＝＝

46 ：

まじめな質問したのに誰も答えてくれません。
とりあえずよるまで待ってみます（泣

47 ：

>46　どこのスレ？

48 ：

>47
スクリプト改造工房 Part3
http://pc.2ch.net/test/read.cgi/php/988808396/765
です・・・ﾍﾟｺﾘ

49 ：

それは聞き捨てならんな。

50 ：

１さん、今日は何を教えてくれるのですか？

51 ：

>>48
証拠写真きぼん

52 ：

>>51
禿同追加也

53 ：

今日はカツを食ったぞ。

54 ：

それは聞き捨てならんな。

55 ：

１さん、今日は何を教えてくれるのですか？

56 ：

>>53
証拠写真希望。

57 ：

>>56
禿禿同同追加願

58 ：

トイレ行きたい。

59 ：

それは聞き捨てならんな。

60 ：

１さん、今日は何を教えてくれるのですか？

61 ：

>>58
証拠写真はどうした？

62 ：

>>61
は げ ど う

63 ：

アイス3連食い。夏はこれだな。

64 ：

それは聞き捨てならんな。

65 ：

１さん、今日は何を教えてくれるのですか？

66 ：

>>58
証拠写真キボンヌ。

67 ：

>>66 今今今今今激しく同意。

68 ：

秋ともなると、風が甘いね。

69 ：

それは聞き捨てならんな。

70 ：

１さん、今日は何を教えてくれるのですか？

71 ：

>>68
証拠写真を見せろ。

72 ：

eq

73 ：

>>68
同意を隠せない。

74 ：

最近寒くなった。

75 ：

それは聞き捨てならない

76 ：

１さん、今日は何を教えてくれるのですか？

77 ：

ガラハドはRとアイスソードが手に入る

78 ：

>>74
証拠写真を希望切望。

79 ：

>>78
波介堂切望

80 ：

実はCD-RWは木琴でできているんだ。

81 ：

今日覚えたこと：
スーパーでレジ打ち間違えられて200円くらい損するとこだった。
これからは、絶対レシートを確認すること。

82 ：

それは聞き捨てならない

83 ：

１さん、今日は何を教えてくれるのですか？

84 ：

>>81
証拠写真を熱く見せろ。

85 ：

>>84
上の方だけデジタル写真で撮りました。
+----------------------------------+
| 2ちゃんスーパー |
|　アジひもの x 3 単価178 356.-- |
| 豆腐　x 2 単価98　 194.-- |
| 値引き 20% -71.-- |
| 豆腐　x 2 単価98　 194.-- |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
豆腐を計算してるときに、当日の一番高い買い物から
2割引する券を出した。そいで、アジひものを2割引いた。
豆腐を打ってないと勘違いして、豆腐を2回打ったらしい。

86 ：

>>85受けませんでしたね。
今日覚えたこと：
ネタにマジレスはだめぽ
後が続かんかな？

87 ：

流れを読めない>>85がいるのはこのスレですか？
時間をかけて成熟させてきた流れを潰しやがって！！

88 ：

>>87
波介堂

89 ：

唐揚げ弁当＠ほか弁のスパゲッティは邪魔だ

90 ：

１さん、今日は何を教えてくれるのですか？

91 ：

>>89
証拠弁当提出要求

92 ：

>>91
激しく空腹

93 ：

俺ってばアル中になったかもしれぬ。

94 ：

１さん、今日は何を教えてくれるのですか？

95 ：

なんか流れ狂ってるよ。
やっぱこれが入ってないと。


それは聞き捨てならない

96 ：

>>93
証拠酒希望

97 ：

（＾＾）

98 ：

何このスレ。

99 ：

それは聞き捨てならない

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

Mac OS X + PHP + MySQL (189)
俺専用の板 (139)
★ブラクラの製造方法を教えてください。 (142)
インストールマニアックス4 azure祭り (149)
ゲームを作ろう！【PHP】【Perl】【Ruby】【ASP】 (132)
美しいコードのCGIを愛でるスレ (159)
--log9.info------------------
Steria Free Webという糞厨鯖について (169)
★　無料レンタルサーバー　PC1.JP pc1.jp　★　 (107)
Ｄ＠Ｐ　無料ホームページ (196)
moon3.net FreeHosting Serviceってどう？ (159)
【月額300円】Cocoro-Net【独自ドメイン】 (186)
ライブドアがきたからaaacafeから移転するﾔｼの数→ (187)
Twodotsnet（ツードットネット）　ってどうよ？ (168)
神がかり的なスクリプト見つけました。 (123)
ｻｰﾊﾞｰﾊﾟｽ変更と脅迫 (143)
【ﾄﾞﾗﾜｻ】Poket-NetWorks【スペル間違い】 (121)
インフォシークは著作権違反を容認する悪質鯖 (161)
finitoが…。 (198)
そろそろレン鯖板の看板変えよう！ (111)
【急いで】電気通信事業法で初の摘発【届けろ】 (110)
【常時落ち】森鯖復活！【快遅】 (119)
inexファイル (134)
--log55.com------------------
加藤和樹の噂話10
玉木宏　と　上野樹里の噂　　16
【愚痴垢】妄想エイター観察所8【情報垢】 ★２
【あっちゃん】前田敦子の噂445
大 倉 の 噂 149
0223-1
223-13
ゆ ーと も() Part.5