PerlでのMastdon toot

マストドンでの自動トゥート作った。 Perlは、https通信ができるように、必要な対応はしておいてください。 【参考】 engineer-milione.com <<インスタンス>>は、利用しているインスタンスのURLを入れてください。 <<アクセストークン>>は、マストドンの「ア…

MapBox Markerにclickイベント

GoogleMapでは、Markerにclickイベントを定義するときは、 const marker = new google.maps.Marker({ position: marker_loc, map: gmap, title: '赤ピン' }); //マーカークリックでclickEventを実行 google.maps.event.addListener(marker, 'click', clickEv…

Swift CSV作成

Swiftで、Arrayから、CSV形式のStringを生成するコードを作成しました。 使い方は、headerに行の項目名などをCSV形式で指定し、arrayにCSVにしたいデータを指定して、コールすると返り値がCSV形式のStringとなります。 ただし、Swiftは内部的に文字コードはU…

iOSはenableHighAccuracy:trueはお勧めしない

iOS端末で、navigator.geolocation.getCurrentPositionのオプションで、enableHighAccuracyをtrueにすると、環境によっては、なかなかcallbackされないことがありました。enableHighAccuracy:trueはお勧めしません。 //ユーザーの現在の位置情報を取得(位置…

Active Perl 5.8にCrypt::SSLeayインストールするときの注意事項メモ

WindowsからCrypt::SSLeayのインストール・詳細版 - 基本は根性ナシな日記にActive PerlへのCrypt::SSLeayのインストール方法が記載されていますが、これだけでは、うまくいきません。 IISからCGIでCrypt::SSLeayを利用する場合は、ssleay32.dll/libleay32.d…

TwitterAPI1.1 https対応の自動ツイートコード

ツイッターAPI1.1が、突然httpsにのみしか応答しなくなったので、Perlでのツイート用コードを修正しました。REQUEST_URIを変えただけです。 ただし、LWP::UserAgentモジュールがhttpsに対応するためには、Crypt::SSLeayか、Net::SSLeayモジュールが必要です…

EXIFのタグをJavascriptで読む

MOON GIFTに記載されているexif.jsでは、リトルエンディアンの場合、バグがありましたので、修正しました。 //MOON GIFT(http://www.moongift.jp/2012/05/20120502-2/)を一部改変 Exif = {}; (function () { var MARKER_SOI = 0xffd8; var MARKER_APP1 = 0xf…

Twitter API 1.1対応の自動ツイートコード

ツイッターAPI1.1に対応するPerlでのツイート用コードです。http://www.magicvox.net/archive/2010/12311401/のソースを一部改変しています。 use uft8;use strict; use warnings; use Encode qw(encode decode); use MIME::Base64; use LWP::UserAgent; use…