01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
10:58:27 chalow$ perl bench.pl <ChangeLog
Benchmark: timing 100 iterations of p1, p2...
p1: 2 wallclock secs ( 1.95 usr + 0.00 sys = 1.95 CPU) @ 51.20/s (n=100)
p2: 77 wallclock secs (76.77 usr + 0.64 sys = 77.41 CPU) @ 1.29/s (n=100)
package QuietMode;
use strict;
use File::Spec;
sub new
{
my $class = shift;
my $self = bless {}, $class;
my $devnull = File::Spec->devnull();
open(STDOUT, ">$devnull");
return $self;
}
package main;
print "This is a pen.\n";
QuietMode->new;
print "This is a pencil.\n";
星野之宣版(講談社漫画文庫)もおすすめ[[ASIN:4063601641:image]]
#! C:/Perl/bin/perl -w
# Send trackback ping
use strict;
use Encode qw(encode decode);
use utf8;
use Net::TrackBack;
our $VERSION = '0.1';
our $base = 'http://blogger.main.jp/changelog/';
my $pingUrl = shift;
my $data = {
ping_url => 'http://手許のサーバ/tb/example-tbid',
url => $base,
blog_name => 'TerraFirma4th',
title => encode('utf8','WinChalow'),
charset => 'utf-8',
excerpt => encode('utf8','字が化けませんように!'),
};
my $p = new Net::TrackBack;
$p->send_ping($data);
my $msg = ($p->is_success) ? "SUCCESS!\n" . $p->message ."\n"
: "Failure\n";
print $msg;
トラックバック・サーバの画面
書式が気に入らなければソースを自分でいじれ、っていうことのようです。