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

1 ：01/10/19 〜 最終レス ：12/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 ：

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

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 ：

俺の彼女はだった・・・

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 ：

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

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元 削除依頼 ▲

ｵｻｰﾝのプログラミング奮闘記[PHP] (131)
【初心者】励ましあいながらサイト製作【PHP】 (170)
Perlコーディング初心者質問スレ Part 63 (798)
実力主義のCGIスクリプトは？ (286)
PHPで２ｃｈを真似てこんなモン作ってみますた。 (130)
KENT WEB 総合スレ Part2 (934)
--log9.info------------------
【関東】430MHz　実況　【ＦＭ】 (280)
消防無線＆救急無線Part12 (832)
JARL 日本アマチュア無線連盟　　豊島区巣鴨�U (646)
10mFM(29MHzFM)って、どうよ。 (347)
アパマンハムー工夫のHFアンテナ5階 (828)
FT-817について語ろう　その21 (160)
少し古めのリグの良さをしみじみと語りましょう・４ (379)
[歓迎]D-STAR のあれこれ[歓迎] (574)
【不法】パラフライヤー無線の世界35【違法 (159)
【元祖】ＢＣＬ総合スレッド　5局目【ヲタク】 (980)
北海道のスーパーステーション (253)
｛倒産｝ラジオクラ○○の被害者を救う会｛金返せ｝ (431)
KENWOOD TS-990を語るスレ (731)
CQ誌ウォッO・第27号◆ (641)
【KL1】リニア・リニア・リニア　【10本目】 (229)
今朝の１６０ｍ＊＊＊昨夜も含む＜ ５本目＞ (632)
--log55.com------------------
【沖縄】C日程市役所試験【鬼倍率】
東京都庁I類B Part137
【働きたい】国家一般職九州Part13【九州の地で】
現職市職員が色々答えるやで
《浦和大宮》さいたま市.35回目の受験《与野岩槻》
地方上級爆死スレ
【ホワイト】労働局内定者スレpart10【内定】
財務官、国家一般職、高卒受験した人！