HOMMEZ(オムズ)は男性の心と身体の健康を支援し、一人でも多くの人が子供を得る幸せや男性としての喜びを享受できる社会の実現を目指しています。男性の妊活、活力にまつわる情報や商品の力で性や妊活に悩む男性が効率的に納得感を持って活動できる機会を創出します。
HOMMEZ(オムズ)は男性の心と身体の健康を支援し、一人でも多くの人が子供を得る幸せや男性としての喜びを享受できる社会の実現を目指しています。男性の妊活、活力にまつわる情報や商品の力で性や妊活に悩む男性が効率的に納得感を持って活動できる機会を創出します。
名前¶ File::Slurp - ファイル全体の効率的な読込/書込 概要¶ use File::Slurp; my $text = read_file( 'filename' ) ; my @lines = read_file( 'filename' ) ; write_file( 'filename', @lines ) ; 説明¶ このモジュールは1つの簡単な呼び出しによりファイル全体を読み込み、 書き込みを可能にするサブルーチンを提供します。これらは簡単に使え、 柔軟な方法でファイルの内容を渡したり、取得できるように、そして 非常に効率よくなるように設計されています。またディレクトリに 入っている. と ..を除く全てのファイルを読み込むサブルーチンも 提供します。 これらの丸呑み/吐き出しサブルーチンはファイルにのみ機能し、パイプや標準入出力には 機能しないことに注意してください
Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers Time::HiRes - 高精度のalarm, sleep, gettimeofday, インターバル・タイマー 概要¶ use Time::HiRes qw( usleep ualarm gettimeofday tv_interval ); usleep ($microseconds); ualarm ($microseconds); ualarm ($microseconds, $interval_microseconds); $t0 = [gettimeofday]; ($seconds, $microseconds) = gettimeofday; $elapsed = tv_interval ( $t0, [$seconds, $
http://iandeth.dyndns.org/mt/ian/archives/000624.htmlとか見てて、GTopって便利だなあとかと思ってみていたわけだが、残念ながら自分が働く職場ではなんでもかんでもモジュールをインストールして試してみるわけにはいかない。(ポリシーとかどーとかこーとか、いろいろ細かい理由がある) というわけでなんちゃってだけどGTop使わずにモジュールをuseした時のメモリ使用量をメモ。特別なことは何もなし。 #!/usr/bin/perl use strict; use warnings; my $module = $ARGV[0]; my $before_mem_size = mem_size(); eval "use $module"; if($@){ die "$module sonna module naicchuunen!"; } my $aft
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, システム開発 - そんなテーマのサイトdeth. gtop.plx #!/usr/bin/perl use strict; use warnings; use GTop; my $gtop = GTop->new; my $before = $gtop->proc_mem($$)->size; eval $ARGV[0]; die $@ if $@; my $after = $gtop->proc_mem($$)->size; my $diff = GTop::size_string($after - $before); print "$diff : $ARGV[0]\n"; 例) CGIモジュールのメモリ増加量は... $ ./gtop.plx 'use CGI' 704k :
まず同じディレトクリにある場合は動きます.これは,モジュールのあるディレクトリを持つ@INCにカレントディレクトリ“.”があるためです.例えば,以下のsam.plとsam.pmを同じディレクトリに置き,sam.plを実行します. --sam.pl-- #!/usr/bin/perl -w use strict; use Sam; package main; my $aSam=Sam->new; print '$aSam: '.$aSam->print."\n"; --sam.pm-- #!/usr/bin/perl -w use strict; package Sam; sub new{ bless return {},$_[0]; } sub print{ return "hello."; } 1; 実行結果はこのようになります. bash-2.05$ ./sam.pl hello. s
if - 条件分岐する(もし・・・ならば) else - 条件分岐する(さもなくば) elsif - 条件分岐する(あるいは・・・ならば) unless - 条件分岐する(もし・・・でなければ) while - 繰り返す(・・・のあいだ) for - 繰り返す(・・・から・・・のあいだ) foreach - 繰り返す(配列の全要素に対して) last - ループを抜ける next - 次のループを繰り返す redo - 今のループを繰り返す goto - ジャンプする do - 処理を実行する eval - 処理を実行する exit - スクリプトを終了する die - スクリプトを終了する dump - コアダンプする
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く