navigator.registerContentHandler("application/vnd.mozilla.maybe.feed",
                                 "http://www.theeasyreaderurl.com?feed=%s",
                                 "Easy Reader");

### Smarty
# usage: {{smarty('検索語')}}
sub smarty {
	my ($str) = @_;
	my $prefix = 'http://smarty.php.net/manual/en/search.php?query=';
	my $enc = url_encode($str);
	return qq(<a href="$prefix$enc">$str</a>);
}

$smarty->debugging = true;

$smarty->debugging = true;
$smarty->assign('_smarty_debug_output', 'html');

$smarty->debugging_ctrl = 'URL';

{debug} 

{debug output='html'} 

{$foo|@debug_print_var}

{$foo|@debug_print_var:2:100} 

my $diff = String::Diff::diff_fully('this is Perl', 'this is Ruby');
for my $line (@{ $diff->[0] }) {
    print "$line->[0]: '$line->[1]'\n";
}
# u: 'this is '
# -: 'Perl'

for my $line (@{ $diff->[1] }) {
    print "$line->[0]: '$line->[1]'\n";
}
# u: 'this is '
# +: 'Ruby'

my $diff = String::Diff::diff('this is Perl', 'this is Ruby');

print "$diff->[0]\n";# this is [Perl]
print "$diff->[1]\n";# this is {Ruby}

my $diff = String::Diff::diff('this is Perl', 'this is Ruby',{
    remove_open => '<del>',
    remove_close => '</del>',
    append_open => '<ins>',
    append_close => '</ins>',
});

print "$diff->[0]\n";# this is <del>Perl</del>
print "$diff->[1]\n";# this is <ins>Ruby</ins>

my $diff = String::Diff::diff_merge('this is Perl', 'this is Ruby'{
    remove_open => '<del>',
    remove_close => '</del>',
    append_open => '<ins>',
    append_close => '</ins>',
});
int "$diff\n";# this is <del>Perl</del><ins>Ruby</ins>

my $diff = String::Diff::diff_regexp('this is Perl', 'this is Ruby');
print "$diff\n";# this\ is\ (?:Perl|Ruby)

var p = new Poly9.URLParser('http://user:password@poly9.com/pathname?arguments=1#fragment');

/* OUT *
p.getHost() == 'poly9.com'
p.getProtocol() == 'http'
p.getPathname() == '/pathname'
p.getQuerystring() == 'arguments=1'
p.getFragment() == 'fragment'
p.getUsername() == 'user'
p.getPassword() == 'password'
*/

p.setURL('another.url.com');

/* OUT *
p.getHost() == 'another.url.com'
p.getProtocol() == ''
*/

[client]
# セキュリティ面から変更すべき
port = 3306

[mysqld]
# インデックスをバッファに保存する際のメモリサイズ
# MyISAMならOSキャッシュも使用するため，全メモリの30-40%を当てると良い．
key_buffer = 256M

# InnoDBはOSキャッシュを使用しないため，全メモリの70-80%を当てると良い．
innodb_buffer_pool_size =512M 

# データのキャッシュサイズ．I/Oを減らす．
# 数百のテーブルであれば，1024が良いらしい．
table_cache = 256

# スレッドの作成，削除は負荷が大きい．
# Threads_Createdの動きを見ながら変更．
thread_cache = 16

# あまり効果は無いらしい．
#innodb_additional_pool_size = 20M

# ログファイルのサイズ．
# 増やすとパフォーマンスが良くなるが，復旧に時間がかかる．
# 64-512M程度まで．
innodb_log_file_size = 64M

# ログのバッファサイズ
# 8-16Mまで．
innodb_log_buffer_size = 8M

# flush logをディスク，メモリに記録するか，記録しないかを設定する．
# 必ずメモリに記録するよう設定すること．
# 0 : flush log を記録しない．
# 1 : flush log をディスクに記録する．
# 2 : flush log をメモリに記録する．
innodb_flush_logs_at_trx_commit = 2

# 入力データ保持のための最大バッファサイズ
# 大きいファイルを扱う際に必須．
max_allowed_packet = 1M

# ORDER BYやGROUP BYのクエリ速度を上げる．
# メモリが多くない限り増やしても意味ないらしい．
sort_buffer = 1M

# インデックスを使わない際のクエリ速度向上
record_buffer  1M

# この秒数を超えるとslowクエリと認識される
long_query_time = 1

# join用バッファ
join_buffer = 131072

# クエリのキャッシュ量．
# 増やしすぎると更新が反映されない場合がある
# 32M-512Mくらいが良い．
query_cache = 32M

# aptitude update
...

Reading package lists... Done
W: There are no public key available for the following key IDs:
A70DAF536070D3A1
W: There are no public key available for the following key IDs:
A70DAF536070D3A1
W: There are no public key available for the following key IDs:
A70DAF536070D3A1
W: You may want to run apt-get update to correct these problems

# aptitude update
...

パッケージリストを読み込んでいます... 完了
W: 以下の鍵 ID に対して利用可能な公開鍵がありません:
A70DAF536070D3A1
W: 以下の鍵 ID に対して利用可能な公開鍵がありません:
A70DAF536070D3A1
W: 以下の鍵 ID に対して利用可能な公開鍵がありません:
A70DAF536070D3A1

#!/usr/bin/env perl
# -*- mode: cperl; -*-
use Test::Base;
use Net::SSL::ExpireDate;
use Regexp::Common qw(net);

my $Check_Duration;
# $Check_Duration = '15 years';

plan tests => 1 * blocks;

run {
    my $block = shift;
    my $ed = Net::SSL::ExpireDate->new( build_arg($block->name) );
    is($ed->is_expired($Check_Duration) && $ed->expire_date->iso8601,
        undef,
        $block->name);
};

sub build_arg {
    my ($v) = @_;
    if ($v =~ m{^(file)://(.+)}) {
        return $1 => $2;
    } elsif ($v =~ m{^(https)://([^/]+)}) {
        return $1 => $2;
    } elsif ($v =~ m{^$RE{net}{domain}{-nospace}{-keep}$}) {
        return 'https' => $1;
    } elsif (-r $v) {
        return 'file' => $v;
    } else {
        croak "$v: assume file. but cannot read.";
    }
}

__END__
=== rt.cpan.org
=== www.google.com

<object
    classid="clsid:25336920-03F9-11CF-8FD0-00AA00686F13"
    data="some.html">
	<p>backup content</p>
</object>

<object
    type="text/html"
    data="some.html">
	<p>backup content</p>
</object>

...
<body style="border:0;overflow:visible">
...

submission inet n      -       -       -       -       smtpd
	-o smtpd_sasl_auth_enable=yes
	-o smtpd_etrn_restrictions=reject

# chgrp postfix /etc/sasldb2
# chmod 640 /etc/sasldb2
# cp /etc/sasldb2 /var/spool/postfix/etc/

pwcheck_method: auxprop
mech_list: cram-md5

pwcheck_method: saslauthd
mech_list: plain login

smtpd_sasl_auth_enable = yes
smtpd_sasl_security_options = noanonymous
broken_sasl_auth_clients = yes
smtpd_recipient_restrictions = permit_mynetworks,
  regexp:/etc/postfix/recipient_checks.reg,
  check_sender_access hash:/etc/postfix/bad_sender,
  reject_rbl_client relays.ordb.org,
  reject_rbl_client spamcop.net,
  reject_rbl_client dynablock.wirehub.net,
  reject_rbl_client opm.blitzed.org,
  reject_non_fqdn_recipient,
  permit_auth_destination,
  permit_sasl_authenticated,
  reject_unauth_destination

smtp-amavis unix - - n - 2 smtp
    -o smtp_data_done_timeout=1200
    -o disable_dns_lookups=yes
127.0.0.1:10025 inet n - n - - smtpd
    -o smtpd_sasl_auth_enable=yes
    -o content_filter=
    -o local_recipient_maps=
    -o relay_recipient_maps=
    -o smtpd_restriction_classes=
    -o smtpd_client_restrictions=
    -o smtpd_helo_restrictions=
    -o smtpd_sender_restrictions=
    -o mynetworks=127.0.0.0/8
    -o strict_rfc821_envelopes=yes
    -o smtp_error_sleep_time=0
    -o smtp_soft_error_limit=1001
    -o smtp_hard_error_limit=1000

# telnet localhost 25
Trying 127.0.0.1...
Connected to localhost.
Escape character is '^]'.
220 example.com ESMTP Postfix
EHLO localhost
250-example.com
250-PIPELINING
250-SIZE 51200000
250-ETRN
250-AUTH NTLM LOGIN PLAIN DIGEST-MD5 CRAM-MD5
250-AUTH=NTLM LOGIN PLAIN DIGEST-MD5 CRAM-MD5
250 8BITMIME
quit
221 Bye
Connection closed by foreign host.

sasl_method=CRAM-MD5, sasl_username=xxxx

Aug 17 14:54:37 ns postfix/smtpd[3819]: sql_select option missing
Aug 17 14:54:37 ns postfix/smtpd[3819]: auxpropfunc error no mechanism available
Aug 17 14:54:37 ns postfix/smtpd[3819]: _sasl_plugin_load failed on sasl_auxprop_plug_init for plugin: sql

Nov 24 03:58:22 myhostname postfix/smtpd[12200]: warning: SASL authentication problem: unable to open Berkeley db /etc/sasldb2: Permission denied

# cp /etc/sasldb2 /var/spool/postfix/sasldb2
# chgrp postfix /var/spool/postfix/sasldb2
# chmod 640 /var/spool/postfix/sasldb2

require_once('Services/JSON.php');

$json = new Services_JSON();
$obj = array(
    'id'   => array(
       'foo',
       'bar',
       array('aa' => 'bb')
       ),
       'foobar' => $string,
       'a'   => 123 ,
       'b'   => true
);
$js = $json->encode($obj);
echo $js; 

use strict;
use warnings;
use utf8;
use Lingua::JA::Summarize::Extract;

my $extracter = Lingua::JA::Summarize::Extract->new;
my $text = "日本語の文章を沢山書きます";
my $result = $extracter->extract($text);
my $summary = $result->as_string;

utf8::encode($summary);
print $summary; #サマリーが出てくる．

<script type="text/javascript" src="prototype.js.gz"></script>

RewriteEngine on
RewriteCond %{HTTP_USER_AGENT} ".*Safari.*" [OR]
RewriteCond %{HTTP:Accept-Encoding} !gzip
RewriteRule (.*)\.jgz$ $1\.js [L]

AddType "text/javascript;charset=UTF-8" .jgz
AddEncoding gzip .jgz

# Enter your license key here
LicenseKey YOUR_LICENSE_KEY_HERE

# Enter your User ID here
UserId YOUR_USER_ID_HERE

# Enter the Product ID(s) of the database(s) you would like to update
# By default 106 (MaxMind GeoIP Country) is listed below
ProductIds 106

% geoiplookup example.com
GeoIP Country Edition: US, United States

p {
	font-size: 16px;
	line-height: 1em;
}
p em {
	font-size: 24px;
}

p {
	font-size: 16px;
	line-height: 1;
}
p em {
	font-size: 24px;
}

p {
	font-size: 16px;
	line-height: 1em = 16px;
}
p em {
	font-size: 24px;
	line-height: 16px;
}

p {
	font-size: 16px;
	line-height: 1 = 16px;
}
p em {
	font-size: 24px;
	line-height: 24px;
}

print if /[。-゜]/;

User-Agent: Yahoo! Slurp
Disallow: /*?sessionid
Allow: /*?$

User-Agent: Yahoo! Slurp
Disallow: /*.gif$
Allow: /*?$

<OpenSearchDescription>
	<ShortName>Google Code Search</ShortName>
	<Description>Google Code Search</Description>
	<InputEncoding>utf-8</InputEncoding>
	<Image width="16" height="16">http://www.google.com/favicon.ico</Image>
	<Url type="text/html" method="GET" template="http://www.google.com/codesearch?q={searchTerms}"/>
</OpenSearchDescription>