sago35’s gists

sago35 / yapcasia2010_sample.txt

Created August 20, 2015 14:46

sago35 / clipx.pl

Created September 18, 2015 09:08

script for rewriting clipboard

	use strict;
	use warnings;
	use utf8;
	use Clipboard;
	use Path::Tiny;
	use Encode;


	my $cp932 = Encode::find_encoding("cp932");
	my $utf8 = Encode::find_encoding("utf8");

sago35 / append_test.pl

Last active October 15, 2015 11:02

sago35 / TOML-Parser-0.06 float.t fail

Last active March 21, 2016 13:58

	C:\Users\xxxx\.cpanm\work\1458568216.7268\TOML-Parser-0.06>perl --version

	This is perl 5, version 22, subversion 1 (v5.22.1) built for MSWin32-x64-multi-thread

	Copyright 1987-2015, Larry Wall

	Perl may be copied only under the terms of either the Artistic License or the
	GNU General Public License, which may be found in the Perl 5 source kit.

	Complete documentation for Perl, including FAQ lists, should be found on

sago35 / wc.pl

Created December 1, 2016 14:31

wc.pl : Sample code of Getopt::Kingpin

	use strict;
	use warnings;
	use Getopt::Kingpin;

	my $kingpin = Getopt::Kingpin->new($0, 'print the number of newlines, words, and bytes in files');
	my $flag = {
	lines => $kingpin->flag('lines', 'print the newline counts')->short('l')->bool,
	words => $kingpin->flag('words', 'print the word counts')->short('w')->bool,
	chars => $kingpin->flag('chars', 'print the character counts')->short('m')->bool,
	bytes => $kingpin->flag('bytes', 'print the byte counts')->short('c')->bool,

sago35 / 20170303_sago35.md

Created March 5, 2017 12:10

2017/03/03 突撃！隣の開発環境！(sago35)

開発環境をさらす人

事前に資料作ったら、突撃っぽくないのでは感

sago35 / gist:792f50b4773c2e8c8ba6aea72e92ef50

Created December 22, 2018 03:25

c7_4.html

	<html>
	<head>
	<style>
	rect{ stroke:black; stroke-width:1; }
	</style>
	</head>
	<body>
	<script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script>

	<script type="text/javascript">

sago35 / cd.pl

Created July 20, 2019 08:40

perl の hash / array ref の説明用に使った perl script

	use strict;
	use warnings;
	use utf8;
	#use Term::Encoding qw(term_encoding);
	#my $encoding = term_encoding;
	#
	#binmode STDOUT => "encoding($encoding)";
	#binmode STDERR => "encoding($encoding)";

	#my $name_takasago = "takasago";

sago35 / gist:3fa08d3bf5bb53659fd413d02b9fe302

Created November 30, 2019 08:21

sample.pl

sago35 / tinygo-adt7410

Created March 4, 2020 12:01