sironekotoro

## remove_file.sh
ls | perl -nlE'say $_ if length $_ == 40' | xargs rm

## mojo_livedoor_weather.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
use HTTP::Tiny;
use JSON::PP;

my $json;
my $location_list = [ [ '東京' => '130010' ], [ '大阪' => '270000' ] ];

get '/' => sub {
    my $c = shift;

## gcp_language_analyze_sentiment.pl
use strict;
use warnings;
use utf8;
use JSON;
use HTTP::Tiny;

# Goolge Cloud Natural Language API analyzeSentiment
my $GOOGLE_API_URL
    = 'https://language.googleapis.com/v1/documents:analyzeSentiment';

## Calc.pm
package Calc;
use strict;
use warnings;

sub new {
    my $class = shift;
    my @argv  = @_;
    my $self  = bless { nums => \@argv }, $class;
    return $self;
}

## mojo_send_line_by_ifttt_api.pl
#!/usr/bin/env perl
use Mojolicious::Lite;
use HTTP::Tiny;
use JSON;

# ピザ会課題
# mojoliciousから、IFTTTのwebhookに経由でLINEを送る

# IFTTT経由でLINEにメッセージを送る処理
# IFTTT側での準備が必要

## get_file_over_basic_auth_http_tiny.pl
#! /usr/bin/env perl
use strict;
use warnings;
use HTTP::Tiny;
use MIME::Base64 qw/encode_base64/;

my $url           = 'BASIC認証越しにあるファイルのURL';
my $user          = 'user';
my $password      = 'password';

## fizzbuzz.go
package main

import "fmt"

func main() {
	for i := 1; i <= 100; i++ {
		if i%15 == 0 {
			fmt.Println("fizzbuzz")
		} else if i%3 == 0 {
			fmt.Println("fizz")

## fizzbuzz-use-switch.go
package main

import "fmt"

func main() {
	for i := 1; i <= 100; i++ {
		switch {
		case i%15 == 0:
			fmt.Println("fizzbuzz")
		case i%3 == 0:

## myapp.pl
#!/usr/bin/env perl
use Mojolicious::Lite;

# 本来の書き方
# get '/' => sub {
#   my $c = shift;
#   $c->render(template => 'index');
# };

# サブルーチンリファレンスを作る

## helloworld.userscript.js
// ==UserScript==
// @name         Hello, World(Yahoo)
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  try to take over the world!
// @author       You
// @match        https://www.yahoo.co.jp/
// @grant        none
// ==/UserScript==
	#!/usr/bin/env perl
	use Mojolicious::Lite;
	use HTTP::Tiny;
	use JSON::PP;

	my $json;
	my $location_list = [ [ '東京' => '130010' ], [ '大阪' => '270000' ] ];

	get '/' => sub {
	my $c = shift;
	use strict;
	use warnings;
	use utf8;
	use JSON;
	use HTTP::Tiny;

	# Goolge Cloud Natural Language API analyzeSentiment
	my $GOOGLE_API_URL
	= 'https://language.googleapis.com/v1/documents:analyzeSentiment';
	package Calc;
	use strict;
	use warnings;

	sub new {
	my $class = shift;
	my @argv = @_;
	my $self = bless { nums => \@argv }, $class;
	return $self;
	}
	#! /usr/bin/env perl
	use strict;
	use warnings;
	use HTTP::Tiny;
	use MIME::Base64 qw/encode_base64/;

	my $url = 'BASIC認証越しにあるファイルのURL';
	my $user = 'user';
	my $password = 'password';
	package main

	import "fmt"

	func main() {
	for i := 1; i <= 100; i++ {
	if i%15 == 0 {
	fmt.Println("fizzbuzz")
	} else if i%3 == 0 {
	fmt.Println("fizz")
	#!/usr/bin/env perl
	use Mojolicious::Lite;

	# 本来の書き方
	# get '/' => sub {
	# my $c = shift;
	# $c->render(template => 'index');
	# };

	# サブルーチンリファレンスを作る
	// ==UserScript==
	// @name Hello, World(Yahoo)
	// @namespace http://tampermonkey.net/
	// @version 0.1
	// @description try to take over the world!
	// @author You
	// @match https://www.yahoo.co.jp/
	// @grant none
	// ==/UserScript==