今日覚えたことをメモっておけ
プログラミングに関して今日覚えたことをメモっておけ。 use strict;
use Data::Dumper;
use KCatch;
die Dumper($value); MySQL-MAXだとトランザクションとロールバックが使えるみたい。 -w を使うと遅くなる。
use diagnostics だと桁違いに。
use strict はそうでもない。 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"; if ($tgt & ~$tgt) { print 'STRING' }
else { print 'BINARY' }
うろ覚えの種類判別法。
Effective Perlあたりに書いてあったやつかな。 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に記録する。 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 >>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__ >>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) ×@hairetu[1]
○$hairetu[1] ||
||
||
||
=====再下降===== まじめな質問したのに誰も答えてくれません。
とりあえずよるまで待ってみます(泣 今日覚えたこと:
スーパーでレジ打ち間違えられて200円くらい損するとこだった。
これからは、絶対レシートを確認すること。
>>84
上の方だけデジタル写真で撮りました。
+----------------------------------+
| 2ちゃんスーパー |
| アジひもの x 3 単価178 356.-- |
| 豆腐 x 2 単価98 194.-- |
| 値引き 20% -71.-- |
| 豆腐 x 2 単価98 194.-- |
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
豆腐を計算してるときに、当日の一番高い買い物から
2割引する券を出した。そいで、アジひものを2割引いた。
豆腐を打ってないと勘違いして、豆腐を2回打ったらしい。
>>85受けませんでしたね。
今日覚えたこと:
ネタにマジレスはだめぽ
後が続かんかな?
流れを読めない>>85がいるのはこのスレですか?
時間をかけて成熟させてきた流れを潰しやがって!! なんか流れ狂ってるよ。
やっぱこれが入ってないと。
それは聞き捨てならない ・Windows環境ではサイズのエンディアンが逆なので上位バイトと下位バイトを入れ替えて評価する。
・SOS(0xFF 0xDA)以降はEOI(0xFF 0xD9)が出てくるまでがデータとして扱われる模様。
・RSTmはデータ中に出現する特殊なマーカーなので、ヘッダを読むだけならSOI EOIだけに気を配ればよい。
あ 先頭1バイトだとMか。。
MZのシグネチャで始まるってことね データが4バイトに収まらない場合はデータ部はデータのあるオフセットを示すポインタである。
これはTIFFヘッダの先頭(IIorMM)からのオフセットである。 同じ値段ならば最新廉価機よりも一つ前の上位機種の方が満足度は高い。
(コンピュータなどCPUその他のスピードのみが評価基準の場合、ふちなし印刷など魅力的な機能が搭載されている場合を除く。) フックって案外簡単。メモリマップドファイルをカプセル化すれば便利だな。 Perlでも、CGI::Carpを使えば、実行時のエラーがちゃんとブラウザで見れる。 ええと、hello world!!って出てきた。perl。 子供が出来ると女が強気にNULL。
↓
そして『結婚しようと迫られる』(・A・)
↓
俺はしたくない( ´Д⊂ メモ:俺の後輩が高校中退した理由は彼女の妊娠が原因だった。 ━―━―━―━―━―━―━―━―━[JR山崎駅(^^)]━―━―━―━―━―━―━―━―━― >>122
漏れだけ、かも(鬱
//confをブラウザ上からいじれるようにならんかなぁ・・・誰か作ってそうだ・・
探し物はこちら
http://sagatoku.fc2web.com/
新商品・安売・キャンペーン・流行商品・ネット商品等10万点以上
ジャンル別・50音別で楽々探し物
PHPは、
PHP: Homepage Program
っていう名前の方がお似合い 進化してからこっそり名前からHomepageを消すずるさは許せない ∧_∧
ピュ.ー ( ^^ ) <これからも僕を応援して下さいね(^^)。
=〔~∪ ̄ ̄〕
= ◎――◎ 山崎渉
__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄ ∧_∧ ∧_∧
ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。
=〔~∪ ̄ ̄ ̄∪ ̄ ̄〕
= ◎――――――◎ 山崎渉&ぼるじょあ (⌒V⌒)
│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン Mono最強伝説
http://ja.wikipedia.org/wiki/XSP_(Web%E3%82%B5%E3%83%BC%E3%83%90%E3%83%BC) ∧_∧
( ・∀・) | | ガガッ
と ) | |
Y /ノ .人
/ ) .人 < >_∧∩
_/し' < >_∧∩`Д´)/
(_フ彡 V`Д´)/ / ←>>118
/ ←>>136 ★2ch勢いランキングサイトリスト★
☆ +ニュース
・ 2NN
・ 2chTimes
☆ +ニュース板新着
・ 2NN新着
・ Headline BBY
・ Unker
☆ +ニュース板他
・ Desktop2ch
・ 記者別一覧
☆ 全板
・ 全板縦断勢いランキング
・ スレッドランキング総合ランキング
☆ 実況込み
・ 2勢
・ READ2CH
・ i-ikioi
※ 要サイト名検索
お世話になります。
私、責任者の加茂と申します。以後、宜しくお願い致します。
http://www.apamanshop.com/membersite/27009206/images/kamo.jpg
浪速建設様の見解と致しましては、メールによる対応に関しましては
受付しないということで、当初より返信を行っていないようで、今後につい
てもメールや書面での対応は致しかねるというお答えでした。
このように現在まで6通のメールを送られたとのことですが、結果一度も
返信がないとう状況になっています。
私どものほうでも現在までのメール履歴は随時削除を致しております
ので実際に11通のメールを頂戴しているか不明なところであります。
弊社としましても今後メールでのやり取りを差し控えたく、浪速建設様
と同行の上でお会いさせていただきたい所存です。
・ブラックロックシューター
http://s-at-e.net/scurl/BRS.html
・ベヨネッタ
http://s-at-e.net/scurl/BAYONETTA.html
・風ノ旅ビト
http://s-at-e.net/scurl/JOURNEY.html
http://s-at-e.net/scurl/kabetokyojinto.html
・2012
http://s-at-e.net/scurl/2012.html
・プロメテウス
http://s-at-e.net/scurl/Prometheus.html
・アバター
http://s-at-e.net/scurl/Avatar.html 誰でも簡単にネットで稼げる方法など
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
CWQNWGXNVR ウクライナのウォロディミル・ゼレンスキー(Volodymyr Zelensky)大統領は25日、スイス・ダボス(Davos)で開かれている世界経済フォーラム(WEF)の年次総会(ダボス会議)のパネルディスカッションに出席し、ロシアから侵攻を受けている自国への防衛支援をめぐり、西側諸国の団結に疑義を呈した。
ゼレンスキー氏は「団結とは武器に関することだ。私の問いは、実際のところ、この団結というものがあるのかどうかということだ。私の目には見えない。われわれがロシアに大きく優勢を誇れるのは、われわれが真に団結した時だ」と述べた。
欧米各国は既に、数十億ドル相当の兵器をウクライナに供与しているが、同国は支援のさらなる強化を求めている。また、北大西洋条約機構(NATO)への加盟や、ウクライナ上空への飛行禁止区域の設定も要請している。
ゼレンスキー氏は、ウクライナはジョー・バイデン(Joe Biden)米大統領の支援に感謝していると述べた一方で、「わが国は欧州大陸にあり、団結した欧州の支援を必要としている」と述べて、欧州内で結束が遅れているとの考えを示唆した。
その上で、ウクライナが求めているロシア産石油の禁輸をめぐり、これに反対している隣国ハンガリーを名指しし、同国は「他のEU加盟国ほど団結していない」と述べた。
また、スウェーデンとフィンランドのNATO加盟申請をめぐっても、トルコの反発で意見統一が図れていないと指摘。「フィンランドとスウェーデンの加盟をめぐり、団結があるだろうか。いや、ない。では西側諸国に強い団結力があるだろうか。いや、ない」とゼレンスキー氏は述べた