Masanori Ohgita mugifly

## japan-prefectures-roman-hepburn.csv

          
            北海道
            ほっかいどう
            hokkaido

            
              青森県
              あおもり
              aomori

            
              岩手県
              いわて
              iwate

            
              宮城県
              みやぎ
              miyagi

            
              秋田県
              あきた
              akita

            
              山形県
              やまがた
              yamagata

            
              福島県
              ふくしま
              fukushima

            
              茨城県
              いばらき
              ibaraki

            
              栃木県
              とちぎ
              tochigi

            
              群馬県
              ぐんま
              gumma

## arch-cfs10-kernel-rebuild.pl
#!/usr/bin/env perl
# Arch Linux - Linux kernel rebuild script for Let's note CF-S10 series
# https://gist.github.com/mugifly/9582654/
# Required: perl 5.x
use strict;
use warnings;
use utf8;
use Cwd;
use File::Path;

## ArduinoProMini_FelicaPlug_Type3_RW.ino
/**
  ArduinoProMini_FelicaPlug_Type3_RW.ino
  Felica PlugのArduino向けライブラリに付属されているサンプルを基に改変
  (ライブラリ: http://blog.felicalauncher.com/sdk_for_air/?page_id=2419)
**/

#define CONFIG_FELICA_PLUG_EEPROM
#include <EEPROM.h>
#include <FeliCaPlug.h>
#include <inttypes.h>

## gist-clone-ssh.pl
#! /usr/bin/env perl
# Gist ssh-clone script
# Help: $ perl git-clone-ssh.pl --help
# (c) Masanori Ohgita (http://ohgita.info/) - 2013, MIT License.

use warnings;
use strict;
use utf8;

use File::Basename qw//;

## git-branch-clean.pl
#! /usr/bin/env perl
# Git branch cleaner ( Delete a branches that not exist on remote repository)
# If you have not ran the 'git fetch --plune' command, please try it before this script.
# Useful case (maybe): If can't delete a branches using 'git fetch --plune' command.
#
# Usage: $ perl git-branch-clean.pl --help

use warnings;
use strict;
use utf8;

## arduino_bluetooth-serial_led.ino
#include <SoftwareSerial.h>

#define LED_PORT 13
#define BT_RX 11
#define BT_TX 10
// TX(RBT-001) <-> 11(Arduino)

#define PWM_WIDTH 500
// roop = 2ms

## bayon_simple_webapi.pl
#!/usr/bin/env perl
# Bayon Simple WebAPI (with Mojolicious::Lite)
# https://gist.github.com/mugifly/5222608
use Mojolicious::Lite;
use utf8;
use Mojo::JSON;
use Mojo::ByteStream;
use Mojo::Asset::File;
use Text::Bayon;
use Encode;

## blink.css
/* Blink for Webkit and others
(Chrome, Safari, Firefox, IE, ...)
*/

@-webkit-keyframes blinker {
  from {opacity: 1.0;}
  to {opacity: 0.0;}
}
.blink{
	text-decoration: blink;

## github_webhook_updater.cgi
#!/usr/bin/env perl
# GitHub Webhook receiver & updater cgi (for Hosting-web-server)
# https://gist.github.com/mugifly/5087897/

use strict;
use warnings;
use utf8;

use lib 'lib'; # for local lib directory
use CGI;

## backup-script-README.md

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                mugifly
                / backup-script-README.md
            
            
              Last active
              December 22, 2021 22:02
            
              
                backup-script.pl - Backup script for UNIX servers.
(昔作った AmazonS3へのバックアップ用スクリプトです。一応動きますので公開しますｗ)
              
          
    backup-script.pl - Backup script for UNIX servers.

Amazon S3へのバックアップ用スクリプトです。ディレクトリおよびMySQLデータベースのバックアップができます。
以前に作ったもので、やっつけ仕事で汚すぎるコードですが、一応動きますので公開しますｗ サーバのcrontabにでも登録してご自由にご利用ください。
ファイルシステムはSquashFSを用いてアーカイブされます (MySQLデータベースは、tar.gz)。
必要なパッケージ


CentOS/Fedora:
北海道	ほっかいどう	hokkaido
青森県	あおもり	aomori
岩手県	いわて	iwate
宮城県	みやぎ	miyagi
秋田県	あきた	akita
山形県	やまがた	yamagata
福島県	ふくしま	fukushima
茨城県	いばらき	ibaraki
栃木県	とちぎ	tochigi
群馬県	ぐんま	gumma
	#!/usr/bin/env perl
	# Arch Linux - Linux kernel rebuild script for Let's note CF-S10 series
	# https://gist.github.com/mugifly/9582654/
	# Required: perl 5.x
	use strict;
	use warnings;
	use utf8;
	use Cwd;
	use File::Path;
	/**
	ArduinoProMini_FelicaPlug_Type3_RW.ino
	Felica PlugのArduino向けライブラリに付属されているサンプルを基に改変
	(ライブラリ: http://blog.felicalauncher.com/sdk_for_air/?page_id=2419)
	**/

	#define CONFIG_FELICA_PLUG_EEPROM
	#include <EEPROM.h>
	#include <FeliCaPlug.h>
	#include <inttypes.h>
	#! /usr/bin/env perl
	# Gist ssh-clone script
	# Help: $ perl git-clone-ssh.pl --help
	# (c) Masanori Ohgita (http://ohgita.info/) - 2013, MIT License.

	use warnings;
	use strict;
	use utf8;

	use File::Basename qw//;
	#! /usr/bin/env perl
	# Git branch cleaner ( Delete a branches that not exist on remote repository)
	# If you have not ran the 'git fetch --plune' command, please try it before this script.
	# Useful case (maybe): If can't delete a branches using 'git fetch --plune' command.
	#
	# Usage: $ perl git-branch-clean.pl --help

	use warnings;
	use strict;
	use utf8;
	#include <SoftwareSerial.h>

	#define LED_PORT 13
	#define BT_RX 11
	#define BT_TX 10
	// TX(RBT-001) <-> 11(Arduino)

	#define PWM_WIDTH 500
	// roop = 2ms
	#!/usr/bin/env perl
	# Bayon Simple WebAPI (with Mojolicious::Lite)
	# https://gist.github.com/mugifly/5222608
	use Mojolicious::Lite;
	use utf8;
	use Mojo::JSON;
	use Mojo::ByteStream;
	use Mojo::Asset::File;
	use Text::Bayon;
	use Encode;
	/* Blink for Webkit and others
	(Chrome, Safari, Firefox, IE, ...)
	*/

	@-webkit-keyframes blinker {
	from {opacity: 1.0;}
	to {opacity: 0.0;}
	}
	.blink{
	text-decoration: blink;
	#!/usr/bin/env perl
	# GitHub Webhook receiver & updater cgi (for Hosting-web-server)
	# https://gist.github.com/mugifly/5087897/

	use strict;
	use warnings;
	use utf8;

	use lib 'lib'; # for local lib directory
	use CGI;