D-6 [相変わらず根無し]
一昨年の年末？くらいに人生で初めて「マトモ」なカメラを買った。まぁ本当に本気で写真撮ってる人にとってはこのカメラがどういう立ち位置なのかわからないのですが、ソニーのNEX-5 を買ったわけです。 専門的な事はわからないけど、気軽に比較的良い写真を撮りたいなーっていう俺みたいな素人にはNEX-5はわりといいなぁと思う。話とは全然関係ないけど、左の写真は先月行った福岡の太宰府天満宮ね。 ともあれ、そうして写真をパシャパシャ撮ってたら結構写真が溜まってきて、どうしようかなーとすこし考え始めていたところで嫁が妊娠したということがわかって、今度は本気で写真をなくしたらまずい！という状態になった。 ・・・ので多分人生で初めてくらいの勢いで個人的にWebサービスにお金を払って、Flickrに登録した。や、マジでAmazonみたいなところで商品を買うの以外でサービスにお金を払うところまで使う必要がなかった
Japan Perl Association
最新の情報 Tweets by yapcjapan Tweets by jpa_perl Perlとは Perlは1987年に初めて発表され、以来20年以上の長きに渡って進化し続けている言語です。インターネットの創世記にはCGIスクリプトを作成するのに多用されさらに有名になりました。 しかしPerl自体はCGIのための言語ではありません：世界中の開発者達が自作のライブラリを登録するCPANという巨大なライブラリネットワークを持ち、豊富なテスト・自動化ツールを駆使して堅牢なシステム開発を可能にする、「難しい事を可能に、簡単な事をさら に簡単に」してくれる最高のツールと言えるでしょう。 PerlはWeb、バイオインフォマティクス、システム管理ツールやテストフレームワークなど、すでに様々な分野で幅広く使用されており、今後も活躍が期待されています。 JPAは モダンかつ実践的なPerlの使用方法や
Perlでは何が定数なのか - D-6 [相変わらず根無し]
生のハッシュリファレンスを return したら遅い コメントを残せないブログなんて！どうなの！と、それは置いておいて、Perlでconstant foldingされるのは文字列・数値リテラルか、定数扱いできる関数だけです。 定数扱いできる関数というのは実は決まっていて、以下の条件がそろわないとconstant folding されない： その関数は 引数を取らない、とprototypeで明示的に宣言してあるその関数は文字列・数値リテラルを返し、それ以外の処理を行わないこちらのコードを実行してみるとわかりやすいuse strict; use O ('Deparse'); sub not_const { 1 } sub const_num() { 1 } sub const_string() { "foo" } sub const_list() { [ qw(1 2 3) ] } sub
標準入力 標準出力 標準エラー出力 - Perl入門ゼミ
Perl › ファイル入出力 › here 標準入力、標準出力、標準エラー出力について書きます。 標準入力 標準出力 標準エラー出力 1.標準入力 標準入力の読込先はキーボードです。標準入力を利用すると、キーボードから入力を受け取っることができます。キーボードから受け取った文字をそのまま出力するプログラムを書くと次のようになります。 STDIN というファイルハンドルが標準入力を表します。 use strict; use warnings; # STDIN という標準入力を表すファイルハンドルから一行読み込み。 my $line = <STDIN>; print $line; STDINから読み込むと、キーボードから読みこまれることがわかると思います。 2.標準出力 標準出力の出力先は、ディスプレイです。標準出力に書き込むとディスプレイに表示することができます。STDOUTというファイルハ
perlでミリ秒単位の処理時間を計測する
use Time::HiRes; my $start_time = Time::HiRes::time; #-------------- #てきとーな処理 #-------------- #処理時間を計算して小数点以下を3桁に丸めて表示 printf("%0.3f",Time::HiRes::time - $start_time);
近頃の開発環境 : Mosh、z、tmux、Emacs、Perl について - naoyaのはてなダイアリー
昨日は年始の挨拶ついでに ELPA について脈絡もなく突然書きましたが、引き続き近頃の開発環境についてもだらだらと書いてみよう。 Mosh mosh というと一部の人間はひげなんとかさんが開発しているモナー的なあれを思い浮かべるかもしれないがそうではなく、mobile shell のことである。 思い切り簡略化して言うと「快適なssh」。回線が不安定な所でもエコー遅延など全く気にせず使えるし、Mac をスリープさせて復帰させたときもリモートホストにそのまま繋がりっぱなしのように見せかけてくれたりする。 詳しくはこの辺を。 mosh: MITからモバイル時代のSSH代替品 - karasuyamatenguの日記 インストールはリモートとローカル両方に必要ですが、まあ大概パッケージがあると思います。EC2 の Amazon Linux でも yum レポジトリの EPEL を有効にすれば y
リファレンスの使い方をマスターしよう - Perl入門ゼミ
Perl › here リファレンスとはデータを指し示すものを表現します。C言語のポインタのようなものだと考えると理解しやすいです。 配列のリファレンス 配列のリファレンスについて解説していきます。 配列 配列の作成です。 my @nums = (1, 2, 3); 配列のリファレンスの作成 配列のリファレンスの作成です。リファレンスは「\」記号を使って作成します。 my @nums = (1, 2, 3); my $nums = \@nums; 「リファレンス」とは「指すもの」を意味します。$numsは@numsを指しています。 $nums ---> @nums 無名配列のリファレンスの作成 無名配列のリファレンスの作成です。「[]」は無名配列生成子と呼ばれます。 my $nums = [1, 2, 3]; $numsは、名前を持たない「(1, 2, 3)」という配列を指し示しています。
YellowStore
さて、前回の投稿からすでに１年以上経過してしまいました。すみません、すみません。 ここから先は若干時系列があいまいです（だいぶ忘れかけている）が、覚えている限り一気に書いていきます。 ポケベル（通知）
String found where operator expected - Google 検索
2010/05/18 · String found where operator expected at - line 1, near "777."Unlucky"" (Missing operator before "Unlucky"?) 要するに「.」が小数点扱いになっ ...
#10 2012年に作ったものを振り返りつつProcletマジ便利 - KAYAC Engineers' Blog
2012年も残すところあと20日ほどとなりましたが皆様いかがお過ごしでしょうか。@fujiwara です。 このエントリは tech.kayac.com Advent Calendar 2012 10日目の記事です。 テーマが「私の中のマイイノベーション 2012」ということで、まずこの1年に作ったものを自分の blog エントリから振り返ってみますと… Perl から Fluentd にログ出力 - Fluent::Logger リリース 今年一番話題になったミドルウェアといえば fluentd でしょうか。その fluentd に Perl からログを出力するためのモジュールです Parallel::Benchmark というモジュールを書きました 並列にプロセスを起動して負荷を掛けるベンチマークを簡単に作るためのフレームワークです。弊社の主にソーシャルゲーム案件で、リリース前の負荷テ
第16回 Perl内部構造の深遠に迫る（1） | gihyo.jp
本連載では第一線のPerlハッカーが回替わりで執筆していきます。今回はgfxこと藤吾郎さんで、テーマはPerlの内部構造です。 内部構造を覗く Perlで開発をしていると、ときどきわかりにくい現象に遭遇することがあります。たとえば、あるデータをJSON（JavaScript Object Notation）にシリアライズするとき、数値としてシリアライズしてほしい値が文字列としてシリアライズされてしまう。あるいは、エンコーディングが正しいはずなのに文字化けが起きる。こんなときは、思いきってPerlの内部構造を覗くことで、何が起きているかを突き止めることができます。 本稿では、Perlの内部構造について解説します。言及するperlはバージョン5.16.0（2012年5月21日リリース）です。また、ターミナルのエンコーディングはUTF-8を想定しています。なお、Perl処理系はC言語で書かれてい
お手軽に死活監視をPerlのCPANモジュールApp::MadEyeで行う | hirobanex.net
去年のYAPC::Asia2011では、運用の話が活発に行われており、監視周りの話も多かったように記憶しています。そこで、監視の基本となる死活監視について、今回は私が普段使っているtokuhiromさん作の死活監視ツールApp::MadEyeを紹介しつつまとめたいと思います。 「死活」の通り、「死んでいるか、活きているか」について監視することです。具体的には、サーバーにPingを飛ばして死んでいるか活きているか確認したり、サーバーのハードディスクが一定量を超えているかどうか確認したりすることです。つまり、継続的に「1/0」で確認し続けることが、死活監視です。実務的な用途としては、「サイトが落ちている!」っていう状況に素早く対応するための準備となります。 リソース監視 一方で、リソース監視は、システム特定リソースの状態の変化を確認し続けることといえます。例えば、サーバーのロードアベレージの推
Perl.Hacks.On.Vim
This document discusses how Vim can improve productivity for Perl coding. It provides examples of using Vim motions and modes like Normal mode, Insert mode, and Visual mode to efficiently edit code. It also covers Vim features like syntax highlighting, custom syntax files, key mappings, and text objects that are useful for Perl. The document advocates that Vim is a powerful editor rather than an I
Amazon S3に大量のファイルを超高速にアップロードする方法（Perlで並列アップロード) · DQNEO日記
このケースでは15並列が最も速かったです。 環境（画像の大きさや数、マシンのスペック、ネットワーク速度）によって、最適な並列数は変わってくると思います。 いろいろ試してみてください。 ソースコード モダンPerlじゃなくてすいません。 upload.pl #!/usr/bin/perl package Amazon::S3::Uploader::File; use strict; use warnings; use base qw( Class::Accessor ); __PACKAGE__->mk_accessors( qw(local_path remote_dir bucket ) ); sub new { my $class = shift; my $path = shift; my $remote_dir = shift; my $bucket = shift; bless {
CGI - Common Gateway Interface のリクエストとレスポンスを扱う - perldoc.jp
CGI - Common Gateway Interface のリクエストとレスポンスを扱う 概要¶ use CGI; my $q = CGI->new; # Process an HTTP request @values = $q->param('form_field'); $fh = $q->upload('file_field'); $riddle = $query->cookie('riddle_name'); %answers = $query->cookie('answers'); # Prepare various HTTP responses print $q->header(); print $q->header('application/json'); $cookie1 = $q->cookie(-name=>'riddle_name', -value=>"The Sp
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
【321】リファレンス覚書 - 分室の分室
Switch - "case" may clash with future reserved word
DEVShed
移転しました
https://jp.techcrunch.com/2012/12/19/20121218print-happy-25th-birthday-perl/
