sironekotoro

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

sub handler{
    return {
        string => 'Hello, Perl! from Lambda!!'
    }
}

sironekotoro

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

use Imager;

# 変換元と変換先のファイル名を決めておく
my $input_file  = 'input.png';
my $output_file = 'output_imager_filter_autocrop.png';

sironekotoro

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

use Imager;

# 変換元と変換先のファイル名を決めておく
my $input_file  = 'input.png';
my $output_file = 'output_imager_trim.png';

sironekotoro

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

use Imager;

# 変換元と変換先のファイル名を決めておく
my $input_file  = 'input.png';
my $output_file = 'output.png';

sironekotoro

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

use Imager;

# 変換元と変換先のファイル名を決めておく
my $input_file  = 'input.png';
my $output_file = 'output_imager_manually_crop.png';

sironekotoro

#!/usr/bin/env perl
use strict;
use warnings;
use JSON;
sub handler {

    return {
        statusCode => 200,
        headers => {
            'Content-Type' => 'text/plain',

sironekotoro

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

sub handler {
    my ($payload, $context) = @_;

    # 応答のハッシュに追加してみる
    $payload->{hello} = "World!"; 

sironekotoro

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

sub handler {
    my ($payload, $context) = @_;
    return $payload;
}

1;

sironekotoro

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

# https://twitter.com/sironekotoro/status/1316671830745214978?s=20

use utf8;
use Net::Google::Spreadsheets::V4;

my $CLIENT_ID      = "";

sironekotoro

// https://www8.cao.go.jp/chosei/shukujitsu/gaiyou.html
const holidays = [
  "2020/8/10",
  "2020/9/21",
  "2020/9/22",
  "2020/11/3",
  "2020/11/23",
  "2020/12/29", // 従業員就業規則 第二十条 (4) 年末年始（12月29日〜1月3日）
  "2020/12/30", // 同上
  "2020/12/31", // 同上