sironekotoro

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

my $url = 'http://abehiroshi.la.coocan.jp/';
my $ht = HTTP::Tiny->new();

sub handler{

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_imager_manually_crop.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 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      = "";