最近のPerlバイナリマネージャー Perl 編
Tomohiro Kimura LINE / System Engineering Team LINEではオンプレミス環境にプライベートクラウドを構築しており、仮想マシンだけでなくベアメタルサーバも提供しています。プライベートクラウドユーザにベアメタルサーバを提供するときにプライベートクラウド側でサーバの電源コントロールをし、RAID/Networkの自動設定、OSインストールを実行します。ベアメタルサーバをコントロールする箇所においてはWebAPIを開発し、すべてWebAPIを通じてコントロールしています。また、OSインストーラについては当初はOSディストリビューションのインストーラを使用していましたが、利用中にいくつかの問題が発生したため、自社開発に切り替えました。 本発表ではどのようにベアメタルサーバをコントロールしているのか、OSインストーラの実装方法についてお話します。
aws-lambda-perl5-layer 書いた - その手の平は尻もつかめるさ
[2018-12-05 追記] ビルド済みのLayerを公開しましたので，そちらを使うと便利です． See also: http://moznion.hatenablog.jp/entry/2018/12/05/211523 [追記ここまで] 先日のre:InventでCustom AWS Lambda Runtimesが発表され*1，これはつまり任意の言語でAWS Lambdaを実行することを可能とする機能なんですが，ということはPerl5が動くということでして，すなわち動くと嬉しいはず，したがって動かすためのLayerを書いたという話です． github.com この場合のLayerというのはPerl5を動かすための基盤だと思ってください．基本的にはbootstrapが実際にぐるぐる回ってperlの関数を実行するという感じになっております． どのようにして動いているかは公式のTutor
第51回 Test2で変わるモダンなテスト―拡張性を持ったテスティングフレームワークとTest2::V0の使い方（1） | gihyo.jp
Perl Hackers Hub 第51回Test2で変わるモダンなテスト―拡張性を持ったテスティングフレームワークとTest2::V0の使い方（1） 本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回のハッカーはakiymこと秋山卓巳さんで、テーマは「Test2で変わるモダンなテスト」です。新たなテスティングフレームワークであるTest2を使ったテストの書き方や活用方法について紹介します。 本稿のサンプルコードは、本誌「WEB+DB PRESS Vol.106」のサポートサイトから入手できます。 Perlでのテスト Perlではテストを書く際に、Test::Moreというモジュールが広く使われています。これは、プログラムの実行結果が期待しているものと一致しているかをチェックするためのシンプルなモジュールで、テスト結果をTAP（Test Anything Protocol
Perlで人工知能・機械学習を行うAI::MXNetの出来が凄そうだ - Perl入門ゼミ
最近知った。Perlで人工知能プログラミングを行うAI::MXNetの出来が凄そうだ。ディープラーニングという手法を使った機械学習を行うライブラリです。 これは公式のAmazonクラウドのMZNetでも、Perlの公式ライブラリとして受け入れられたそうだ。 インターフェースはPythonのMXNetライブラリとほぼ一緒に仕上がっているみたい。C++で書かれたMXNetのPerlバインディングになっている。 Perlで人工知能プログラミングを行うAI::MXNet(CPAN) MXNetのかなり多くの機能をPerlから利用できるようだ。Perlで人口知能プログラミングに興味がある方は、ぜひチャレンジしてみて! ライブラリがあるとPerlでも、人工知能プログラミングができるんだね。すごいね! GPUも使えるみたいよ! ## Convolutional NN for recognizing ha
Google App EngineでついにPerlが利用可能に - Perl入門ゼミ
Google App EngineでPerlが利用可能になったようです。 Your favorite languages, now on Google App Engine Your favorite languages, libraries and tools (中略) Want to run Perl? Love Elixir? Need to migrate your Parse app? You can do all this and more in App Engine. (太字訳) あなたの好きな言語、ライブラリ、ツールをGoogle App Engineで動かせます。 Perlを動かしたいですか? これらすべてをApp Engineで動かすことができます。 興味のある人は、どんなものか一度チャレンジしてみよう!
CentOS7にperlbrewとcpanmを入れたメモ - まったりと。
新しいサーバにCentOS7を入れたので空っぽの段階から perlbrewとcpanmを頑張って入れたメモ。 ■ perlbrew を導入する $ curl -kL http://install.perlbrew.pl | bash % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 315 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 100 1255 100 1255 0 0 674 0 0:00:01 0:00:01 --:--:-- 1594 ## Download the latest perlbrew ## Installing perlbrew Can't locate Getopt/Lon
細かすぎて伝わらないPerlと$0変数 - コマンド名偽装 - ろば電子が詰まつてゐる
先日、moznion氏の「実行中のプログラムの進捗度を手っ取り早く確認したい」という面白い記事を読みました。 これに影響されて、Perlと$0のウンチクを id:lesamoureuses に語ったところ地味にウケが良かったので、さらに調子に乗って、細かすぎて伝わらないPerlと$0の関係について語ります。なお、本稿の実用性はあまりありませんが、ちょっとだけあります。 概要 上述のmoznion氏のブログは、Rubyで$0をいじるとpsコマンドで見えるコマンド名が変わって便利、という話でした(「アッアッ」)。 Perlでも同様に、$0をいじることでpsコマンドで見えるCOMMAND値を変えることができます(なお時折勘違いする人がいますが、元のファイル名は変わりません。psコマンドで見える値だけです)。ただしこれはOSによって結構動作が違うので、以下しばらくLinux(CentOS)限定の話
Mojolicious::Liteを使ってみよう
YAPC::Asia 2013 2013/09/21 Yusuke Wada a.k.a. yusukebe
perldelta - perl 5.10.0 の新機能
perldelta - perl 5.10.0 の新機能 perldelta - what is new for perl 5.10.0 名前 NAME perldelta - perl 5.10.0 の新機能 perldelta - what is new for perl 5.10.0 説明 DESCRIPTION このドキュメントでは 5.8.8 リリースと 5.10.0 リリースとでの相異点を 説明します. This document describes the differences between the 5.8.8 release and the 5.10.0 release. 5.10.0 でのバグ修正の多くは既に 5.8.X メンテナンスリリースで見ることができます; それらはここには重複しないで, perl58[1-8]?delta の マニュアルページ群に記載し
今日はShibuya.pm #16の日です - Pixel Pedals of Tomakomai
今日は夏の正規表現祭りに参加していますので、自分用にメモします。 ustreamもあります！ (Irr|R)egular Expressions / @dankogaiさん 「えろい」のではなく「えらい」 「命賭けるな、コード書け」 正規表現の使い過ぎに注意 $str eq 'XXX' or $str eq 'YYY' を /^(XXX|YYY)$/ に書き直したくなる → やりすぎ もしくはハッシュを使ったり、5.10 でスマートマッチ ~~ を使ったり。 メールアドレスの検証の正規表現 → 適当に書くと不完全。完全に書くとすごく長い Regexp::Common → 便利な正規表現集。ipv4とか。 Regexp::Assemble → alternations (xxx|yyy|zzz) をTRIE最適化する。 ただし、5.10 以降は自動でTRIE最適化してくれる マッチした部分を
Text::ASCIITableによるアスキーテーブルレイアウト - Unknown::Programming
MySQLの出力結果みたいなのが必要になったのでCPAN漁ってたらこんなの発見。 Text::ASCIITable - Create a nice formatted table using ASCII characters. - metacpan.org 地味に凄いめちゃ便利 use Text::ASCIITable; my @rows = ( [1,'foo','2011-03-16 11:22:33'], [2,'hogehogehoge','2011-03-17 11:22:33'], [3,'uwaaaaa','2011-03-18 11:22:33'], [4,'dio','2011-03-19 11:22:33'], [5,'jojo','2011-03-20 11:22:33'], ); my $t = Text::ASCIITable->new(); $t->setCol
にひりずむ::しんぷる - 初めての Furl
巷でとっても速くて便利だねこれってなってる HTTP Client であるところの Furl の簡単なつかい方を紹介します。 そもそも Furl は何かっていうと、perl には LWP っていう超高機能な HTTP Client があって、これがデファクトになってるんですね。 でも、それって結構昔からあって、かつ重厚長大なモジュール群なので結構遅いわけです。とくに CPU 使用率が高い。 そんなわけで、libcurl ぐらい速くて軽い HTTP Client があるといいよねってことで開発されたのが Furl です。 読み方は ふぁーる。 use strict; use warnings; use 5.0100; use Furl; my $furl = Furl->new(agent => 'Madoka-Magica/chu-2'); my $res = $furl->get('ht
HTMLにふくまれるrelative URLをabsolute URLにかきかえる簡単な方法 - tokuhirom's blog
http://blog.livedoor.jp/dankogai/archives/51568463.html HTML::ResolveLink をつかうと簡単ですね。 #!/usr/bin/perl use strict; use warnings; use utf8; use HTML::ResolveLink; use LWP::UserAgent; my $url = 'http://japan.cnet.com/news/business/story/0,3800104746,20416479-0,00.htm'; my $ua = LWP::UserAgent->new(); my $res = $ua->get($url); die $res->status_line unless $res->is_success; my $html = $res->content; if
perl - 勝手に添削 - 相対パスを絶対パスに変更する : 404 Blog Not Found
2010年12月28日23:30 カテゴリ perl - 勝手に添削 - 相対パスを絶対パスに変更する Perl & XML Erik T Ray / Jason McIntosh 財井一彰訳 [原著:Perl & XML] 一昔前のentryが、はてぶで引っかかっていたので。 相対パスを絶対パスに変更する | perl | 俺のメモ URIオブジェクトは直接文字列として扱える まずはこれ。何とprintされるでしょう? use 5.010; use strict; use warnings; use LWP::UserAgent; use URI; my $base = 'http://japan.cnet.com/news/business/story/0,3800104746,20416479-0,00.htm'; say URI->new_abs('/news/service/',
相対パスを絶対パスに変更する | 俺のメモ
LWP等で取得してきたコンテンツをごにょごにょしようとしてもリンク先が相対パスだったら画像等がリンク切れで非常に扱いにくい。 後にその画像だけを取得したい時等。 これがすべて下記のように変換されていると何かと便利 <img src="../../header.gif" /> ↓ <img src="http://japan.cnet.com/news/header.gif" /> URIモジュールを使うのその変換を数行のコードでやってくれます。 #!/usr/bin/perl -w use strict; use warnings; use utf8; use LWP; my $link = 'http://japan.cnet.com/news/business/story/0,3800104746,20416479-0,00.htm'; my $ua = LWP::UserAgent-
YAPC::Asia 2010 Twitter解析サービス
This document describes the architecture of a Twitter scraping application. It uses Gearman for asynchronous job processing to fetch Twitter data from the API or stream. Workers register fetch jobs and process the requests. The application includes modules for the CLI, reader, and streaming components and uses JSON and LWP libraries. It retrieves tweets and stores them in a database for analysis.R
今日はYAPC::Asia Tokyo 2010前夜祭の日です - Pixel Pedals of Tomakomai
YAPCは2006年から出ているので今年で5回目になります。今夜東京工業大学大岡山キャンパスで開催される前夜祭に出席します。 なお、去年に引き続きgihyo.jpさんの特集にレポートを掲載させて頂けることになりました！ このブログとgihyo.jpさんの方と両方にメモとりますので、合わせてご覧下さい。 yusukebeさん「イントロダクション」 Ustreamはやってません。自分の回線で勝手にやるならOK。 PerlCasualとは 意図 → 「カジュアルに」利用者としてPerlを使う 三度活動した 今日のテーマ → WAF Plack/はてPSGI PSGI の developer = WAF作成者 Plackで直接Web Applicationを作りたくなりがちだが、違う。WAFを使うべき 今日のLTは初めての人もいる 岡田有花さんとの対談もおたのしみに！ WAF作者+利用者の集い n
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Mojoliciousドキュメント 日本語訳 - Github
Slugっていうウェブアプリケーションフレームワーク作った。 | Perlってなんでこんなに可愛いの。
Web API のすすめ
