memo.xight.org

### よかった探しリース
# usage: {{hyuki_wreath('id')}}
sub hyuki_wreath {
    my ($id) = @_;
    my $prefix = 'http://www.hyuki.com/ring/ring.cgi';
    my $left   = $prefix.'?mycmd=left&myid='.$id;
    my $right  = $prefix.'?mycmd=right&myid='.$id;
    return qq(
        <a href="$left">左手</a>
        <a href="$prefix">よかった探しリース</a>
        <a href="$right">右手</a>
    );
}

### 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>);
}

{{alps_map('東京都新宿区西新宿2-8-1')}}
{{alps_map('35/41/10.574,139/41/41.787')}}
 
{{alps_map('東京都新宿区西新宿2-8-1','LN')}}

sub maps_image{alps_map(@_)}

### キーボード
# usage: {{keyboard('Ctrl','Alt','Del')}}
sub keyboard {
	@result = map {'<kbd>'.$_.'</kbd>'} @_;
	return join('+',@result);
}

kbd {
	color: #333333;
	background-color: white;
	text-align: center;
	border-left: 1px solid #cfcfcf;
	border-top: 1px solid #cfcfcf;
	border-right: 2px solid #666666;
	border-bottom: 2px solid #666666;
	-moz-border-radius: 4px 4px 4px 4px;
	padding-left: 2px;
	padding-top: 1px;
	padding-right: 3px;
	padding-bottom: 1px;
	margin-left: 2px;
	margin-right: 2px;
	margin-top: 1px;
	margin-bottom: 1px;
	vertical-align: middle;
	font-family: sans-serif;
}

### 駅前探検倶楽部へのリンク
# usage: {{ekitan('中板橋')}}
sub ekitan {
	my ($str) = @_;
	my $prefix = q(http://www8.ekitan.com/norikae/Norikae1Servlet?ST=);
	my $enc = Jcode->new($str)->sjis;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix$enc" title="駅探検索 - $str着">$str</a>);
}
sub station {ekitan(@_)}

### Google 画像検索へのリンクプラグイン
# usage: {{google_image('keyword')}}
sub google_image {
	my ($str) = @_;
	my $prefix = q(http://images.google.com/images?q=);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix$enc" title="Google Images - $str">Google 画像検索 - $str</a>);
}

s/{{mapion/{{google_maps/g

sub maps {mapion(@_)}

sub maps {google_maps(@_)}

### Google ローカルへのリンク
# usage: {{google_map('東京都○○区○町00-0')}}
sub google_map {
	my ($str) = @_;
	my $prefix = q(http://maps.google.co.jp);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix/maps?q=$enc" title="Google ローカル - $str">$str</a>);
}

### Google Video検索へのリンクプラグイン
# usage: {{google_video('keyword')}}
sub google_video{
	my ($str) = @_;
	my $prefix = q(http://video.google.com/videosearch?q=);
	return qq(<a href="$prefix$str" title="Google Video - $str">Google 動画検索 - $str</a>);
}

#!/usr/bin/perl
@arr = (1,2,3,4,5);
foreach $a (@arr){
  print;
}
exit;

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

sub get_link_str {
	my ($a, $b) = @_;
	if ($a =~ /\.(jpg|jpeg|png|gif)$/i) { # [[http://nais.to/|image/nais.jpg]]
		# return qq(<a href="$b"><img src="$a" alt="画像" /></a>);
		return qq(<img src="$a" alt="クリックして拡大" onclick="popupImage('$b')" /><a href="$b">.</a>);
	} elsif ($b =~ /\.(jpg|jpeg|png|gif)$/i) { # [[自画像|image/sp.jpg]]
		return qq(<img src="$b" alt="$a" />);
	} else {            # [[トップページ|http://nais.to/]]
		return qq(<a href="$b">$a</a>);
	}
}

### Google音楽検索へのリンクプラグイン
# usage: {{google_music('キーワード')}}
sub google_music {
	my ($str) = @_;
	my $prefix = q(http://www.google.com/musicsearch?q=);
	return qq(<a href="$prefix$str" title="Google Music - $str">Google 音楽検索 - $str</a>);
}

### Google Local Plug-in
# usage: {{google_local('what','where')}}
sub google_local {
	my ($what,$where) = @_;
	my $prefix = q(http://local.google.co.jp);
 
	my $what_enc = q();
	$what_enc = Jcode->new($what)->utf8;
	$what_enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$what_enc =~ s/\s/+/g;
 
	my $where_enc = q();
	$where_enc = Jcode->new($where)->utf8;
	$where_enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$where_enc =~ s/\s/+/g;
 
	my $ret  = qq(<a href="$prefix/local?q=$what_enc&near=$where_enc" title="Google Local - $where の $what">);
	   $ret .= qq(Google Local - $where の $what);
	   $ret .= qq(</a>);
	return $ret;
}

### XML/SWF Charts Plug-in
# usage: {{chart('XML File','width','height','bgcolor')}}
sub chart {
	my ($xml,$width,$height,$bgcolor) = @_;
	my $charts = q(http://example.com/path/to/charts.swf);
	
	$ret = << "__CHARTHTML__"
<object
  classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"
  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
  width="$width"
  height="$height"
  id="charts"
  align=""
>
<param name=movie value="$charts?xml_source=$xml">
<param name=quality value="high">
<param name=bgcolor value="$bgcolor">
<embed
  src="$charts?xml_source=$xml"
  quality="high"
  bgcolor="$bgcolor"
  width="$width"
  height="$height"
  name="charts"
  align=""
  type="application/x-shockwave-flash" 
  pluginspage="http://www.macromedia.com/go/getflashplayer"
>
</embed>
</object>
__CHARTHTML__
;
	return qq($ret);
}

function replaceImage(img) {
	if (img.width == '1' && img.src.match(/\.01\./)) {
		img.src = 'http://images-jp.amazon.com/images/G/09/x-locale/detail/thumb-no-image.gif';
		img.width = 98;
		img.height = 140;
	} else if (img.width == '1') {
		img.src = img.src.replace('.09.','.01.');
	}
}

<script src="path/to/amazon.js" type="text/javascript"></script>

<img src="/path/to/image" onload="replaceImage(this)" />

### amazon リンクの作成 (画像タイトル付き)
# usage: {{amazon_image('ASIN', 'Title', 'num')}}
sub amazon_image {
	my ($asin, $title, $num) = @_;
	my $prefix  = "http://amazon.co.jp/o/ASIN";
	my $suffix  = "xight-22/ref=nosim"; # アソシID使用時
	my $prefix2 = "http://images-jp.amazon.com/images/P";
	my $suffix2 = "MZZZZZZZ.jpg";
	if ($num ne '01'){
		$num = '09';
	}
	return qq(<a href="$prefix/$asin/$suffix" title="$title"><img src="$prefix2/$asin.$num.$suffix2" title="$title" /></a>);
}

### Microsoft ダウンロードセンター へのリンクプラグイン
# usage: {{msdc('FamilyID','word')}}
sub msdc {
	my ($id,$str) = @_;
	my $prefix = q(http://www.microsoft.com/downloads/details.aspx);
	my $lang   = q(ja);
	return qq(<a href="$prefix?displaylang=$lang&FamilyID=$id" title="Microsoftダウンロードセンター - $str">Microsoftダウンロードセンター - $str</a>);
}
 
### Microsoft ダウンロードセンター への検索リンクプラグイン
# usage: {{msdc_search('word')}}
sub msdc_search {
	my ($str) = @_;
	my $prefix = q(http://www.microsoft.com/downloads/results.aspx);
	my $lang   = q(ja);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix?displaylang=$lang&freeText=$enc" title="Microsoftダウンロードセンター検索 - $str">Microsoftダウンロードセンター検索 - $str</a>);
}

### Wikipedia へのリンクプラグイン
# usage: {{wikipedia('word','country')}}
sub wikipedia {
	my $default = 'ja';
	my ($str,$country) = @_;
	if (!defined($country)){
		$country = $default;
	}
	my $prefix = qq(http://$country.wikipedia.org/wiki);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix/$enc" title="Wikipedia ($country) - $str">Wikipedia - $str</a>);
}

### Wikipedia へのリンクプラグイン
# usage: {{wikipedia('word')}}
sub wikipedia {
	my ($str) = @_;
	my $prefix = q(http://ja.wikipedia.org/wiki);
	my $enc = Jcode->new($str)->utf8;
	$enc =~ s/([^0-9a-z_ ])/'%'.unpack('H2', $1)/gei;
	$enc =~ s/\s/+/g;
	return qq(<a href="$prefix/$enc" title="Wikipedia - $str">Wikipedia - $str</a>);
}