Junichiro Tobe junichiro

## pack.js
var MYAPP = {};

MYAPP.util = {
    getData: function () {
        var query_string = window.document.location.href.split('?')[1];
        var data = query_string.split('&');
        var result = {};
        var tmp;
        for(var i=0; i<data.length; i++) {
            tmp = data[i].split('=');

## doctype.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<body>
<div style="background-color:skyblue;padding-top:0px;">
  <div style="float:left;">
    <a href="#">
      <img src="http://sc.e-3.ne.jp/images/help.png" alt="help" />
    </a>
  </div>
  <br style="clear:both;" />

## padding.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
  <link href="reset.css" media="screen" rel="stylesheet" type="text/css" />
</head>
<body>
<div style="background-color:skyblue;padding-top:0;">
  <img src="http://sc.e-3.ne.jp/images/help.png" alt="help" />
</div>
</body>

## .zshrc
alias pmver="perl -le '\$m = shift; eval qq(require \$m) or die qq(module \"\$m\" is not installed\\n); print \$m->VERSION'"

## blog_create_link_region.pl
#!/usr/local/bin/perl

use strict;
use warnings;
use WWW::Curl::Easy;
use Encode;
use Encode::Guess qw/utf8 euc-jp shiftjis 7bit-jis/;

my $href = <>;
chomp($href);

## amazon_report_mail.pl
#!/usr/local/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Cookies;
use Email::Sender::Simple 'sendmail';
use Email::MIME;
use Email::MIME::Creator;
use Encode qw/encode decode from_to/;

## create_link_region.pl
#!/usr/local/bin/perl

use strict;
use warnings;
use Web::Scraper;
use URI;
binmode(STDOUT, 'utf8');

my $scraper = scraper { process 'title', 'title' => 'TEXT' };
my $href;

## seq_no_1.pl
perl -e 'print "$_\n" for (1..100)'

## create_image.sh
#!/bin/bash

cd /root
ec2-bundle-vol -d /mnt --privatekey [path of your private key(pk-XXXX.pem] ¥
 --cert [path of your cert(cert-XXXX.pem)] ¥
 --user [your user id(XXXX-XXXX-XXXX)] ¥
 --fstab /etc/fstab

## create_image_for_other.sh
#!/bin/bash

cd /root
ec2-bundle-vol -d /mnt --privatekey [path of other private key(pk-XXXX.pem] ¥
 --cert [path of other cert(cert-XXXX.pem)] ¥
 --user [other user id(XXXX-XXXX-XXXX)] ¥
 --fstab /etc/fstab
	var MYAPP = {};

	MYAPP.util = {
	getData: function () {
	var query_string = window.document.location.href.split('?')[1];
	var data = query_string.split('&');
	var result = {};
	var tmp;
	for(var i=0; i<data.length; i++) {
	tmp = data[i].split('=');
	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
	<body>
	<div style="background-color:skyblue;padding-top:0px;">
	<div style="float:left;">
	<a href="#">
	<img src="http://sc.e-3.ne.jp/images/help.png" alt="help" />
	</a>
	</div>
	<br style="clear:both;" />
	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
	<head>
	<link href="reset.css" media="screen" rel="stylesheet" type="text/css" />
	</head>
	<body>
	<div style="background-color:skyblue;padding-top:0;">
	<img src="http://sc.e-3.ne.jp/images/help.png" alt="help" />
	</div>
	</body>
	#!/usr/local/bin/perl

	use strict;
	use warnings;
	use WWW::Curl::Easy;
	use Encode;
	use Encode::Guess qw/utf8 euc-jp shiftjis 7bit-jis/;

	my $href = <>;
	chomp($href);
	#!/bin/bash

	cd /root
	ec2-bundle-vol -d /mnt --privatekey [path of your private key(pk-XXXX.pem] ¥
	--cert [path of your cert(cert-XXXX.pem)] ¥
	--user [your user id(XXXX-XXXX-XXXX)] ¥
	--fstab /etc/fstab