sironekotoro

# 松山観光

- 広島港～松山観光港
  - スーパージェット（水中翼船）
    - 高くて早い
    - https://setonaikaikisen.co.jp/kouro/superjet/
  - フェリー
    - 安くてゆっくり
    - https://setonaikaikisen.co.jp/kouro/cruise/
  - 広島を出て呉の手前で、音戸の瀬戸（おんどのせと）という狭い海峡を通る

sironekotoro

use strict;
use warnings;
use HTTP::Tiny;
use Encode qw/decode/;
use Web::Query;

my $temp = HTTP::Tiny->new->get('https://hayabusa9.5ch.net/news/');

my $str = decode('ShiftJIS' , $temp->{content} );

sironekotoro

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Encode qw/decode/;

my %era = (
    慶応 => 1865,
    明治 => 1868,
    大正 => 1912,

sironekotoro

#!/usr/bin/env perl
use strict;
use warnings;

use Win32::OLE;

# https://perldoc.jp/docs/modules/libwin32-0.26/Win32/OLE.pod

# use existing instance if Excel is already running
my $excel;

sironekotoro

#!/usr/bin/env perl
use strict;
use warnings;

use HTTP::Tiny;
use JSON::PP;

my $webhook_url = 'ここに貼り付ける';

my $options = {

sironekotoro

#!/usr/bin/env perl
use strict;
use warnings;

use HTTP::Tiny;
use JSON::PP;   # 追加

my $url
    = 'https://www.jma.go.jp/bosai/forecast/data/overview_forecast/130000.json';

sironekotoro

// GAS + clasp
{
  "compilerOptions": {
    /* Visit https://aka.ms/tsconfig.json to read more about this file */

    /* Projects */
    // "incremental": true,                              /* Enable incremental compilation */
    // "composite": true,                                /* Enable constraints that allow a TypeScript project to be used with project references. */
    // "tsBuildInfoFile": "./",                          /* Specify the folder for .tsbuildinfo incremental compilation files. */
    // "disableSourceOfProjectReferenceRedirect": true,  /* Disable preferring source files instead of declaration files when referencing composite projects */

sironekotoro

#!/usr/bin/env perl
package Mufj;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self  = bless { code => '0009' }, $class;
    return $self;
}

sironekotoro

requires 'IO::Socket::SSL';
requires 'Net::SSLeay';

sironekotoro

#!/usr/bin/env perl
use strict;
use warnings;
use HTTP::Tiny;

my $url = 'https://www.yahoo.co.jp/';
           
my $ht = HTTP::Tiny->new();

sub handler{