はてなブックマーク

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

この記事はPerl Advent Calendar25日目の記事です。 Perlは動的型付き言語として一般的に知られています。実は、そのデータ型の定義とその使い方は一般的な他の動的型付き言語とは考え方が全く異なります。 そして、残念ながらそのデータ型について正しく理解していらっしゃる方はそこまで多くいらっしゃらないと思います。 今回は、そんなPerlにおけるデータ型と、それを用いてデータを扱う上で非常に重要になってくる概念であるコンテキストについて簡単に解説します。 なお、自分は一般的な型システムの概念そのものを正しく理解できている自信はないので、そのあたりの説明に関しておかしな記述があればその点へのツッコミは特に歓迎します。 また、Type::TinyなどPerlの上に作られた型の仕組みについては今回は触れません。 一般的なデータ型 一般的なデータ型の定義としては、たとえばRubyでは以

Perl Advent Calenderなんと2020年になってもやってます。めでたいですね。 昨日は@narita_cppによるPaws::S3 で ECS タスクロールを用いてS3へファイルをアップロードするでした。 さて、今回はPerlワンライナー小技集ということで、先日Perl Hackers Hubに寄稿した記事の没ネタ落ち穂拾いです。 historyから引っ張ってきた小技をいくつか紹介します。 電卓 地味に面倒なのですがperlだと楽ちんです。 たとえば、$1.12/hourのSaaSを1ヶ月(30日)利用した際の日本円換算を雑にやるにはこう。

2019年の7月、YouTube にゲーム実況チャンネルを開設しました。 本記事では、YouTube 活動に際して発生した問題点の紹介と、ツールをつくってそれを解決しようとした話をします。 どのような YouTube チャンネルか。収録環境の説明 開設したチャンネルの特徴は以下です。 配信する内容はゲーム実況 2人で実況する 1人がプレイヤー、もう1人が Skype の画面共有を通じてゲームプレイを見て喋る 収録環境について、図にするとこのようになります。 本記事では「YouTube 動画撮影の問題点と、その問題点を解決するためのサービスを作ろうとした話」を紹介しますが、問題点というのはこれから説明する収録環境によるものです。 チャットツールは Skype, Discord を使っています。Skype はゲーム映像・音声の共有に、Discord は2人の通話に使っています。 ゲーム映像・音

Perl Advent Calendar始まりました！ @AnaTofuZ ありがとうございます！ 今年も元気にやっていきましょう！ さて、Perlも実はまだまだ進化しています。 今年はPerl6として開発されていた言語がRakuに名前を変えましたが、 Perl5はPerlとして今後も開発とメンテナンスが続けられていきます。 2019年にPerlを書くそこのあなた、最先端のものが必ずしも現場にマッチするとは限らないですが、最先端のものの多くは既存のものにある課題を解決しています。 どういったものをどう使って書けばよいのかなんとなく知っておくといざというときの助けになるでしょう。 前提 このへんつかっとくといいとおもいます strictures use strict だけでなく様々な強い制約を有効化します。 PERL_STRICTURES_EXTRA をtrueにしておけば no indir

突然ですが、みなさんはGoで何を書いていますか？ Webアプリ？APIサーバー？デーモンアプリケーション？コマンドラインツール？ライブラリ？ WebアプリやAPIサーバーの場合はGAE SE1などのPaaS環境かそれ以外かでも変わってくるでしょう。 ぼくはコマンドラインツール、APIサーバーとそれらで使うライブラリを最近は書いています。 直近だと、Microservices構成をGAE SE Goで構築しています。 さて、Microservices構成を取ると他のWeb APIを叩く機会が増えます。 コンポーネントによってはほぼ全てのエンドポイントで他のコンポーネントに依存することになることも珍しくはないでしょう。 そうなると、Web APIを呼び出すの実装の割合とその重要性が高まります。 つまり、数多のWeb APIを効率的に実装して叩ける、そして見通しの良いコードを書き、それが十分にテ

みなさん！Perlつかってますか！ ぼくは日常的に使ってます。 さて、PerlはCPANモジュールを駆使して適切な設計さえ行えば、大規模なWebアプリも構築できるほどパワフルな言語ではありますが、その本領はやはりコマンドラインツールやスクリプトとしての使われ方でしょう。 今回はコマンドラインツールとしてのperlの使い方を簡単に紹介します。 コマンドラインツール 多くのコマンドラインツールにはGNU系とBSD系の異なる実装が存在します。 たとえば、文字列置換によく使うsedはBSD系とGNU系でちょっとオプションが異なったりしますよね。 perlはsedやgrepの代替としても使うことができるわけですが、perlでそれら代替する最大の利点はOSが異なっても同じインターフェイスで扱えることでしょう。 一度覚えて手癖にしてしまえば急場でもOSの違いを気にせずにサッとログをまとめたりCSVなどを

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article? こんにちは。Mackerel歴がブランクあり2年弱くらいの@karupaneruraです。 Mackerelのプラグインとエージェントのリポジトリのpull-reqとissueを眺めるのが趣味です。(他にも気になっているリポジトリはだいたいWatchして眺めています。) そういうわけで、MackerelのAgentまわりのコードはある程度は読んでいるので実装で使われているライブラリの紹介をしてみようかと思っていたのですが、どちらかというとMackerelの導入/運用に関する話のほうが喜ばれるかなと思ったのでそっちの話を書いてみます。 な

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

今北産業 Memcachedではexpiration timeに絶対指定と相対指定をすることができる expiration timeに30日を超える秒数を指定すると絶対指定(epoch)として扱われる つまりexpiration timeに30日を超える秒数を相対指定のつもりで指定した場合、絶対指定として処理されて大抵の場合は死に至る Memcachedのexpiration Memcachedのexpirationには無効値とするまでの相対的な時間を秒数で指定する方法が一般的だ。 だが、実はMemcachedはepochによる絶対指定によるexpirationもサポートしている。 https://github.com/memcached/memcached/wiki/Commands#standard-protocol ドキュメントを引用: An expiration time, in

遅くなってごめんなさい。 こんにちはこんにちは！ みなさん元気に監視してますか？ Mackerelはご存知の通り（？）監視の手間を減らしてくれる大変便利なサービスなのですが、 今回はその機能のひとつであり、ぼくのお気に入りの機能である、plugin機能とその作り方を紹介しようかと思います。 Mackerelはマネージドサービスなのですが、それのpluginって作れるの？と思う方もいらっしゃるかもしれませんので今回はこれを紹介することにしました。 Mackerelそのものについて詳しく知りたい方はMackerelのWebサイトをご覧になってもらったほうがよいでしょう。 https://mackerel.io/ja/ 本記事ではMackerelそのものについては、簡単な解説と自分がなぜMackerelに魅了されたかを語るにとどめます。 Mackerelの構成 Mackerelは各マシンのメトリ

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?

遅刻してごめんなさい！ ここでは、「負荷が高い」とはリソースが枯渇した、あるいは枯渇しそうな状態で、かつそれがシステムに影響を及ぼしている、あるいは影響を及ぼしうる状態を指します。 負荷の傾向を見る snmpdが返す値や SHOW ENGINE INNODB STATUS などの値を見て負荷の傾向を見ましょう。 当社ではCloudforecastを使ってこれらの情報メトリクスとして収集しています。 メトリクスを常に計測しておき、通常の状態と異常な状態を可視化しておくことは非常に重要です。 CPUネックかIOネックか 負荷の原因としてどのリソースが不足しているのかを見極めます CPUが原因で詰まっているか、IOが原因で詰まっているか、という具合で大別できるのでまずそれを見ましょう。 CPUネックの場合はCPUを100%近く使いきっていることが多いです。 また、複数コアあって一部のコアを使い切

通知が多すぎて担当日を見逃してしまい、大遅刻。ごめんなさい！ Index Hintとは MySQLにはIndex Hint機能が実装されています。 ドキュメントから引用すると、こんな具合の構文ですが、要は使うINDEXを指定することができます。 tbl_name [[AS] alias] [index_hint_list] index_hint_list: index_hint [, index_hint] ... index_hint: USE {INDEX|KEY} [FOR {JOIN|ORDER BY|GROUP BY}] ([index_list]) | IGNORE {INDEX|KEY} [FOR {JOIN|ORDER BY|GROUP BY}] (index_list) | FORCE {INDEX|KEY} [FOR {JOIN|ORDER BY|GROUP BY}]

最近、HTTP負荷テストをしたいという要求が高まり、負荷テストツール/フレームワークを探しました。 要件としては、以下のような具合です。 シナリオを自由にかつ楽に組めること（できればコードで） 同時に複数のパスへのリクエストを送信できること（単体でリクエストも可能であること） 全てのリクエストに対してそれぞれ異なるリクエストヘッダやリクエストパラメータなどを付与できること 並列性があり、ある程度のパフォーマンスが出ること 依存が（少）なく、どこでも動かせるとうれしい JMeterやSiegeやwrkなどいろいろ見てはみましたが、なんかどれも帯に短したすきに長しという具合で微妙というかんじになってしまいました。 そこで、これらを全て満たすやつをGoで書きました。 Goで書いたのは依存を少なくするためと、並列性能に期待したからですが、Goを書いてみたかったからというのもありました。Goを試すに

#ifdef __cplusplus extern "C" { #endif #define PERL_NO_GET_CONTEXT /* we want efficiency */ #include <EXTERN.h> #include <perl.h> #include <XSUB.h> #ifdef __cplusplus } /* extern "C" */ #endif #define NEED_newSVpvn_flags #include "ppport.h" MODULE = Acme::MyModuele PACKAGE = Acme::MyModuele PROTOTYPES: DISABLE void hello() CODE: { ST(0) = newSVpvs_flags("Hello, world!", SVs_TEMP); } XSはCをベースに独自のマク

こんにちは！ Gitを使っているとプログラムからGitのメタ情報を取りたい！ってこと、よくありますよね？ でも、 git status をgrepしたりしていませんか？？ git rev-parse から取れる情報もたくさんあるんですよ！ というわけで git rev-parse のちょっと凝った使い方を説明します。 そもそも git rev-parse ってなによ？ Pick out and massage parameters とのことです。 ちなみに、Google翻訳によると「選ぶとマッサージパラメータ」って出てきました。 つまり、(与えられたモノが)何なのかを明らかにすることと、(gitの)パラメータを出力することができるやつってことです。（雑） git rev-parse objectのhashが取得できます。

この投稿は Perl 5 Advent Calendar 2015 の 1日目の記事です。 PerlのORM事情 PerlのメジャーなO/R Mapperの実装として、主に以下の2つがあります。 DBIx::Class Teng DBIx::Class DBIx::Class(DBIC)は、ざっくり言うと重厚だけど至れり尽くせりで便利って感じのやつです。 SYNOPSISから引用すると、以下のようにテーブルを定義できます。 package MyApp::Schema::Result::CD; use base qw/DBIx::Class::Core/; __PACKAGE__->load_components(qw/InflateColumn::DateTime/); __PACKAGE__->table('cd'); __PACKAGE__->add_columns(qw/ cdid

Atom はカーソルがある行の末尾のホワイトスペースを削除してくれない。 どういうことか 行を編集しているときにうっかり保存しちゃった場合に備えてこうしてあると思うんだけど、自分の場合だとこれはうっかりスペースを残してコミットしちゃうことにつながっていたので解決したくなった。 解決法 Atom はホワイトスペース系の処理を whitespace で行っている。このパッケージはデフォルトで入っているパッケージで、このパッケージの設定で解決できる。 Preferences... > Whitespace > Settings > Ignore Whitespace On Current Line のチェックを外す。 まとめ よかったー

まえがき 昔、Java を読めないときに「いきなり Android のコード書いてやれ！」と思って、初期生成されたコードに大量にある @Override が分からなくて萎えてやめたことがあった。 それがようやく入門書を読んで、@Override の意味がわかったのでメモ。 生成されるのはこういうコード。 package com.example.sample; import android.app.Activity; import android.os.Bundle; import android.view.Menu; import android.view.MenuItem; public class MainActivity extends Activity { @Override protected void onCreate(Bundle savedInstanceState) {

Yggdroot/indentLine 導入してない？ この問題を引き起こしてるのは、Vim の conceal という機能だ。conceal は、「視認性が良くないコードの見た目を変えて見やすくしようよ」という機能。 Yggdroot/indentLine はインデントラインの表示のために conceallevel = 2 を後から設定していて、それだと MacVim 標準の JSON Syntax でダブルクォーテーションが非表示にされてしまう。別に indentLine に限らず、そういうことをしているプラグインは多くあると思う。 適当な JSON ファイルを vim で開いて、:set conceallevel=0 にすればクォーテーションが表示されるのを確認してほしい。 パッと解決だけしたい人は ここまで スキップしてください。 解決法 自分は MacVim の記事作成時での最新

from django.http import HttpResponse from django.conf import settings class BasicAuthMiddleware(object): def unauthed(self): response = HttpResponse("""<html><title>Auth required</title><body> <h1>Authorization Required</h1></body></html>""", mimetype="text/html") response['WWW-Authenticate'] = 'Basic realm="Development"' response.status_code = 401 return response def process_request(self,request)

Cartonとは @miyagawaさんが作った、Rubyで言う所のBundlerに当たるツールです。 プロジェクト単位で依存モジュールを固定化して利用することができます。 高速化された実装 CPANにはXSを用いてCで実装されたモジュールが存在します。 しかし、コンパイルする必要があるため、環境の制約によっては使えない場合もあります。 そのため、幾つかのCPANモジュールはPerlのみの実装と、XSを用いた実装の2つを用意して、XSが利用可能であればそちらを利用するような仕組みを用意しています。 このような背景から、インストールしておくとそれだけで高速化に効くモジュールが幾つか存在します。 HTTP::Parser::XS このモジュールはh2oのHTTP1.0向けのParserであるpicohttpparserのPerlバインディングです。 Plack::HTTPParserがバックエ

だいたいどんな内容が見れるのか興味がある方はこちら。 http://perldoc.perl.org/perl.html http://perldoc.jp/docs/perl/5.16.1/perl.pod perldoc.jpとは しれっとperldoc.jpのリンクを滲ませましたがperldocの内容を日本語に翻訳するプロジェクトが存在します。それがperldoc.jpです。 有志の方々の努力により保守・運用されている、大変有難いものです。ドキュメントの原文と共に是非活用してください。 http://perldoc.jp/ 便利情報 Perl入学式で講師も務めた @xtetsuji さんがChromeで使える便利テクニックを紹介しています。http://post.tetsuji.jp/2014/01/perldoc-jp-shortcut-to-search/ こちらも是非ご活用下さ

Deleted articles cannot be recovered. Draft of this article would be also deleted. Are you sure you want to delete this article?