FC2 ブログに記事を投稿する Perl モジュール作った

はい。タイトルのまんまです。 github.com 元々は、ちょっと表に出せないような欲望から始まったんですが、その途中でブログに投稿できるモジュールが欲しいなー、ということになり、気づいてみると欲望置き去りにして完成してたのがこのモジュールです。目…

2021-01-31

Windows のバッチファイルにファイルをドラッグ＆ドロップして、Perl でなんか処理する

Windows 使ってますお仕事で使う経理ソフトが Windows 版のみリリースされている iPhone / iPadの母艦兼動画見る用マシンが Windows ということもあり、これらの Windows には Strawberry Perlストロベリーパールを入れています。 strawberryperl.com Wi…

2021-01-27

Perl つかって 8 年目でディレクトリをコピーをしようとしてハマる

ディレクトリをコピーする機会がなかった意外なことに、いままでディレクトリのコピーをする用件がなかった。で、ハマった。 Perl でファイルコピーと言ったら File::Copy という標準モジュール。それで事足りてきた 8 年間。だもんで、File::Copy でディ…

2021-01-24

Perl入学式オンライン 2020 第4回お疲れ様でした

Perl入学式

受講された方、サポーターの方、お疲れ様でした。講師をやったパーカーの人です。講義に利用したスライド・動画類は以下 Perl 入学式の公式サイトで公開しています。参加された方も、参加できなかった方も、ぜひ復習に使ってください。 appslideshare.tugo…

2021-01-10

Mac で Ansible によるインストール時にエラーが出るようになった

エラーが出る前にやったこと多分これが原因かなぁ。 $ brew update ここで、 git -C /usr/local/Homebrew/Library/Taps/homebrew/homebrew-core fetch --unshallow するようにメッセージが出たで素直に従う。ただ、これはエラーには関係ないかな、多分。つ…

2021-01-08

Perl5 で Exercise に挑戦してみる（追記あり）

ってことで、巷で話題の Exercise に挑戦してみました。もちろん Perl5 で。 anatofuz.hatenablog.com うちは手元にある Macでやってみます。まだ Big Sur にあげておらず、Catalina です。 Exercism への登録は GitHub の ID と連携しました。 ecercism コ…

2020-12-13

Perl入学式オンライン 2020 第3回お疲れ様でした

Perl入学式

受講された方、サポーターの方、お疲れ様でした。講師をやったジャージの人です。講義に利用したスライド・動画類は以下 Perl 入学式の公式サイトで公開しています。参加された方も、参加できなかった方も、ぜひ復習に使ってください。 www.perl-entrance.…

2020-12-06

Perl で Chatwork API を使って添付ファイルをダウンロードする

チャットツール変更お仕事で使うチャットツールを Chatwork から Slack に変更することになりました。ユーザーも作り、運用ルールはメルカリさんの物をちょっと変えて・・・メルカリさんありがとうございます。 mercan.mercari.com さて、これでめでたしめ…

2020-11-23

Perl で Google Sheet API をつかってセルに値を書き込む

さくっとやりました！と言いたいところなのですが Google Sheet API 叩き職人の朝は早い「'status' => '400', 'reason' => 'Bad Request', これが出てからが本番ってことさ」この道3ヶ月の sironekotoro はそう言って笑う— sironekotoro (@sironekotoro) 202…

2020-11-22

Perl で Google Sheet API をつかってセルの値を取得する

これも GET だけでできるのでお手軽ー説明よりもコードを読んでもらったほうが早い気がする。配列リファレンスの中の配列リファレンス、てな形でデータが取得できるので、csv にするなりなんなり後は自由自在ですね（力量による）ちょっと詰まったところ …

2020-11-21

Perl で Google Sheet API をつかってタイトルを変更する

なんか、適当に文言を入れ替えて自動生成したみたいなタイトルになってきたなぁ・・・それはそれとして、Google Drive API に引き続き、Google Sheet API を使ってホゲホゲするってやつです。以前、モジュールを使ってやってみたんですが、せっかく Web AP…

2020-11-19

Perl で Slack API を使ってユーザー一覧を取得する（追記あり）

Slack のユーザー一覧を取得せよ！ってなお仕事が降ってきたものの、Slack のメニューとか探したど見当たらず。これは API 使えってことなのかなぁ・・・使うんはいいけど、普通の非テックな会社だと厳しいんでは。もっと高い料金プランだと出てくるのか…

2020-11-16

Perl で Google Drive API をつかって特定のファイルを削除する

ファイルの上書き終わったところでこのシリーズ（シリーズ？）終わらせようと思っておりました。しかし CRAD：Create, Read, Add, Delete の一角たる Delete やらないっていうのはないんじゃないか？どうせ後で必要になりそうだし・・・あぁ、でも面倒〜。…

2020-11-15

Perl入学式オンライン 2020 第2回お疲れ様でした

受講された方、サポーターの方、お疲れ様でした。講師をやったジャージの人です。講義に利用したスライド・動画類は以下 Perl 入学式の公式サイトで公開しています。参加された方も、参加できなかった方も、ぜひ復習に使ってください。 www.perl-entrance.…

2020-11-14

Perl で Google Drive API をつかってフォルダーを作成する

はい、慣れてきました。 API の URL と mimeType 以外はそのまんまです。 my $GOOGLE_DRIVE_API = "https://www.googleapis.com/upload/drive/v3/files?create"; # （中略） `mimeType => 'application/vnd.google-apps.folder',` developers.google.com To …

2020-11-13

Perl で Google Drive API をつかって特定のファイルを更新する

特定のファイルを更新するちょっと前、ファイルを Google Drive にアップロードした時は、同名のファイルがある場合でもアップロードが可能でした。・・・可能でした、っていうか完全に不意打ちでしたが・・・ sironekotoro.hateblo.jp しかし、ファイルを…

2020-11-12

Perl で Google Drive API をつかって特定フォルダ配下のファイル一覧を取得する

特定のフォルダ配下にあるファイル一覧を表示するこちらは GET アクセスなので簡単だろう〜・・・とナメてかかって、割と引っかかりました。 url でパラメータを組み立てる時に 2 回 URL エンコードしてしまったというもの。 Google Drive API v3 で特定の…

2020-11-11

Perl で Google Drive API のアクセストークンを更新する

今日も Perl から Google Drive API v3 をやっていきます。リフレッシュトークンを使ってアクセストークンを更新する Google の発行したアクセストークンは 3600 秒、つまり 1 時間で失効します。失効する都度、アクセストークンを発行しても良いのですが…

2020-11-08

Perl で Google Drive API を使ってファイルをアップロードする

Google Drive API を使ってファイルをアップロードしたい！これが超苦労しましたん・・・先に blog で書いたとおり、自分の環境（と技能）では、Google Drive を操作するモジュールを使うことができませんでした。しかし！ Google Drive API は REST API …

2020-11-07

Perl で Google Drive API を使ってファイル一覧を取得する

さて、Google Cloud Platform で利用する ACCESS TOKEN と REFRESH TOKEN を手にしたからには、次の段階へ向かわねばなりません。そもそも、なんか OAuth いじるの楽しくなって色々やってしまいましたが、これは目的と手段が逆転するいつものパターンです。…

2020-11-05

Mojolicious::Lite で Google Drive API のアクセストークンを表示する

そろそろ前に進まないとと思いつつここしばらく、Google の提供する API を扱うためのことやってきたんですが、やりつつ一つの疑念がありました。途中で Web にアクセスして URL を貼り付けるところ、そのまま HTTP の GET で良いのでは？いちいちブラウ…

2020-11-03

CircleCI で Perl のテストをローカルでやってみた

環境構築からこの本を参考にしました。 gihyo.jp Perl の例は掲載されていないですが、他の言語での例は豊富です。なので、そっから応用していけるのではないか、していきたい！という気持ち。 $ brew install circleci バージョン確認 $ brew info circle…

2020-11-01

Perl から Google Drive にファイルを「上書きっぽい感じ」でアップロードする

ここまで（ 7 時間くらい）のあらすじ前回の Google Drive の続きをやろう。Google Drive の特定のフォルダの配下にあるファイルを上書きアップロードしよう。 Google Drive は同名ファイルをフォルダ内に作成できる。このため、同じファイルを続けてアッ…

2020-10-31

Lenovo 製 M75q-1 Tiny の USB Recovery Creator で大変だった（追記あり）

まとめ：Lenovo 製 M75q-1 Tiny の USB Recovery Creator でメディア作成に失敗し続ける人へ購入した Lenovo 以外の、他の Windows 機で USB Recovery Creator を動かしてメディアを作ってみたら成功した。 BUFFALO 製 USB メモリでは USB からのブートに失…

2020-10-25

Perl から Google Drive にファイルをあげたりダウンロードしたり一覧を取ったり

Google OAuth のクライアントIDとクライアントシークレットを入手するまずは Google Cloud Platform でプロジェクト作成から。もちろん、既存のプロジェクトに Google Drive API の利用権限を与えてもokです。プロジェクトの作成が終わったら、左上のナビ…

2020-10-20

Perl から Google Sheet を読み書きする

「Perl から Google Sheet を読み書きする・・・ための3種の TOKEN を手に入れる」の続きです。 sironekotoro.hateblo.jp 編集対象の Google Sheets を用意する API で書き込みを行う Google Sheet を一つ用意します。用意した Sheet の URL から、以下の場…

2020-10-19

Perl から Google Sheet を読み書きする・・・ための3種の TOKEN を手に入れる

いやもう、ほんと大変だったわ・・・（以下おっさんの一人語りが続くのでカット）「かつての自分」に教えるつもりで「APIを利用する前」から始めます。その1：Google Cloud Platform で CLIENT ID と CLIENT SECRET を手に入れる Google Cloud Platform に…