PerlとPHPのソート処理 - Unknown::Programming
良く書き方を忘れがちなソート。 特にPerlとPHP両方使ってるとPerlはこうだけど、PHPはどうだっけ？とかよくあるのでここらでまとめをしておく。 配列を文字列で昇順・降順ソート # 昇順 @sarray = sort @array; @sarray = sort { $a cmp $b } @array; # 降順 @sarray = sort { $b cmp $a } @array; Perlのsort関数はブロック表記を省略するとデフォルトで昇順ソートになります。 <?php // 昇順 sort( $array , SORT_STRING ); // 降順 rsort( $array , SORT_STRING ); PHPのsort関数は引数に渡された配列をソートする。 第二引数を指定しなくも動くには動くが、省略すると値に数値と文字が混在してるときにおかしくなるので明示的に
EXIF抽出スクリプトのサンプル
JPEGファイルからExifを取り出すPerlスクリプトです。ソースを短くするため、シンプルな機能に絞っており、あまり最適化もしていません。ひな形としてお使いください。 最初の%target_tagで定義したExifタグのみを取り出すので、必要なデータだけを抽出して利用できます。実際の出力はサブルーチンread_dir_entryで行っているので、ここのprint関数の部分を書き換えると、XHTMLのテーブルなど、好みのフォーマットで出力できます。 コメントフィールドは、とりあえず内容にかかわらずそのまま出力しています。必要に応じて、RDFであることをチェックしたり、XMLを適当な形に変換するなど書き換えてください。 #!/usr/local/bin/perl #グローバルで使う変数 ($buf, $long_tmpl, $short_tmpl) = (); #抽出するExifタグを定義す
Perl で最後のスラッシュを統一する方法
ディレクトリ指定のスラッシュの有無を統一する Perl コードサンプルです。 使いどころ CGIやその他の環境変数の設定で、処理対象や関連ファイルの保存先ディレクトリを環境変数としてまとめて設定する場合があります。 その後の処理（ファイルを開いたり）では「ディレクトリ名＋ファイル名」を文字列として処理することが多いので、ディレクトリ名にスラッシュを付けておくかどうかの規則が必要となります。 以下のコードを通すことで、変数の設定でスラッシュがあっても無くても、どちらかに統一することができます。 Perl コードサンプル #環境変数リスト @mixed = ( './conf/filedir', './result/filedir/', 'http://access.url/result', 'http://access.url/conf/', ); #スラッシュありに統一 @w_sla =
perlメモ Image::Magick Image::ExifToolを使って一括画像縮小&画像方向補正スクリプト - WEBデザイン BLOG
perl モジュールのImage::MagickとImage::ExifToolを使って、イメージ画像を一括縮小＆画像方向補正もするコードを書いてみました。画像を正しい向きに回転させ、希望サイズ（横幅）でリサイズ（サムネイル）できるperlスクリプトです。 ちょっとPerlの勉強、実益も兼ねてイメージ画像を一括縮小＆画像方向補正もするコードを書いてみました。perl モジュールのImage::MagickとImage::ExifToolを使って画像を正しい向きに回転させ、希望サイズ（横幅）でリサイズ（サムネイル）できるperlスクリプトです。 この間（3月）に後輩の結婚式によばれて、写真撮影してきたデータ（約2000枚/7GB）のリサイズデータ作ろうと思い、Image::Magick を使って大量画像のサムネイル画像を一括自動生成 :: Drk7jpで紹介されているperlを使ってのサム
独立しました - unknownplace.org
2013年8月末で面白法人カヤックを退職し、新しく会社を設立しました。 カヤックには約9年間お世話になり、とても多くのことを学ばせてもらいました。 とくにクリエーターとしての自分の考え方は、ほぼカヤックで養われたと言っても過言ではないでしょう。 そういう意味でカヤックは僕の第二の親のような存在であり、鎌倉方面には足を向けて寝られません。 本当にありがとうございました。 カヤックは面白法人とか名乗っていますが、実は非常にまじめな集団です。 たとえば、経営理念についても、とても真摯に向かいあっています。 経営理念とはただの飾りではなく、まさに会社の存在意義であり、社員全員がそれを意識して仕事をしなければ意味がない。 そんなことから半年に一度、全社員で経営理念について考えるための全員社長合宿、というものをやっていたりします。 そんな環境で、自分も個人としての理念を磨いてきました。 昔のカヤックス
Minilla を用いた Perl モジュールの作り方 - tokuhirom's blog
http://shanon-tech.blogspot.jp/2013/05/perl.html Perl モジュールの作り方、2013年においては Authoring tool をつかって作るのがよいです。具体的には Minilla でつくるのがオススメであります。 perlbrew なり plenv なりで perl をいれたあとは、 % cpanm Minillaとして Minilla をインストールします。 % minil new Fooとすると、Foo.pm のスケルトンができあがります。作者の名前などは ~/.gitconfig などから自動的にさがしてきますので、設定不要です。 できあがったディレクトリは以下のような形になっています。 Foo ├── Build.PL ├── Changes ├── cpanfile ├── lib │ └── Foo.pm ├── LI
生DBI + SQL::Maker がちょうどいい | ブログが続かないわけ
Perl でDB 今年に入ってからまたPerl を使うことが多くなってきていました。画面を伴うものはだいたいPHP で書いて、そうでないもの、例えばバッチ処理のようなものはPerl で書くことが多いので、バッチを書くことが多くなってきているということです。 Perl でDB を扱うときは、少し前まではDBIx::Class を好んで使っていたので、既存の案件のカスタマイズなどではいまも使うことになっています。しかし、新規に何か作ろうと思うと、スキーマを作るのが面倒に思えてなりません。ワンライナーで作れるのですが、それすらも面倒に思えてきてしまいました。 そもそも、簡単な処理しかしないのであれば、DBIlC は大袈裟な気がしてしまいます。DBIx::Skinny なども検討したのですが、そもそもO/Rマッパーが不要なんじゃないかというくらいの小さな規模では、そういうものもあまり使う気になれま
Perlでコマンドラインオプションの解析に Getopt::Long を使う時、絶対に忘れてはいけない引数 - たごもりすメモ
Perlでコマンドラインオプションをparseしようと思うと組込みモジュールとしては Getopt::Std と Getopt::Long がある。が、long style option *1 つまり --option-name のようなオプションを解釈してくれるのは Getopt::Long だけだ。なので普通はこちらを使おう。 ただし 絶対にデフォルト、つまり以下のようにして使ってはいけない。 use Getopt::Long; my (@primary, @secondary, $silent); GetOptions( "server-primary|p=s" => \@primary, "server-secondary|s=s" => \@secondary, "silent|S" => \$silent ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
opencvで顔認識でなくて独自の画像認識する方法 - pomo123の日記
opencv(日本語ドキュメント)と、perlから利用するためのモジュールImage::ObjectDetectを使って独自の画像を認識させる方法のメモ。 まず、Ubuntuでのインストール opencvはシステム→システム管理→Synapticで,編集→検索から"opencv”と入力する。libcv-dev、libcv1などが表示されるので、ダブルクリックで選択して、適用ボタンを押すと、関連するパッケージ一式が/usr/share/opencv以下あたりにインストールされます。 次にperlからopencvを使うためのImage::ObjectDetectは、 sudo cpan Image::ObjectDetect Imageropencvがインストールされていないと、エラーが出るので、順番はopencv→Image::ObjectDetectの順で。 顔認識 OpenCVを使って画
Device::SerialPort
NAME Device::SerialPort - Linux/POSIX emulation of Win32::SerialPort functions. SYNOPSIS use Device::SerialPort qw( :PARAM :STAT 0.07 ); Constructors # $lockfile is optional $PortObj = new Device::SerialPort ($PortName, $quiet, $lockfile) || die "Can't open $PortName: $!\n"; $PortObj = start Device::SerialPort ($Configuration_File_Name) || die "Can't start $Configuration_File_Name: $!\n"; $PortObj
Cybozu2ICal - ogawa - Converts Cybozu Office Scheduler to ''ical'' format on the wire. - Google Code
Net::Google::Calendar
NAME Net::Google::Calendar - programmatic access to Google's Calendar API SYNOPSIS # this will only get you a read only feed my $cal = Net::Google::Calendar->new( url => $private_url ); or # this will get you a read-write feed. my $cal = Net::Google::Calendar->new; $cal->login($username, $password); or # this will also get you a read-write feed my $cal = Net::Google::Calendar->new; $cal->auth($use
はてなブログ | 無料ブログを作成しよう
吹奏楽コンクール リウマチの調子が悪い！薬の副作用もやばい！ 副作用のせいでご飯が全然食べられなくなって顔から痩せていくんだけど、お腹とかお尻から痩せたらいいのに。蓄えがあるから多少痩せたってちょうどいいくるいやけど、幸薄そうに見えるから顔は太ったままがいいなぁ。 お…
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
この記事はhttp://jp.kumi-log.com/tech/blog-customize/iphone-picture-exif-rotate-trouble/に移動しました - Kumi Log（はてなブログ別館）
ふく日記おかわり : アニメGIFを静止画GIFに分解[ImageMagick]
[Perl][Device::SerialPort] Live E!CO2センサ(Arduino)のデータをシリアル通信を通して読み出す
http://www.gcd.org/sengoku/docs/cybozu8_ical
Perlゼミ(サンプルコードPerl入門)
Net::Google::Calendar::Entry