Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
3種類の文字化け原因とPerlでの対応方法 [Perl] All About
3種類の文字化け原因とPerlでの対応方法Perlプログラマーは文字化けを回避するために何ができるでしょうか? 一部の文字化けは不可避的なものです。この記事では、文字化けを3種類に分類しその原因をおさらいします。また、プログラミングで解消できる文字化け対策をご紹介します。 文字化けの種類 前回の記事では、よく起こる波線とハイフン (ダッシュ) の文字化けの原因と、Perlでそれを回避する方法を説明しました。 いわゆる「文字化け」が発生する原因に、実はいくつかパターンがありますので、ここでそれを整理しておきたいと思います。 文字コード変換をした時に対応が見つからず文字化けするもの Shift_JIS系の文字コードの外字が、見る環境によって文字化けするもの 見ている環境で使用しているフォントに、該当の字形が無いもの 早速これらを細かく見て行きます。 文字コード変換をした時に対応が見つからず文字
![3種類の文字化け原因とPerlでの対応方法 [Perl] All About](https://cdn-ak-scissors.b.st-hatena.com/image/square/a1162f200e7740699b8f8c91d9b25a6d1ca59bdf/height=288;version=1;width=512/https%3A%2F%2Fimgcp.aacdn.jp%2Fimg-a%2F1200%2F900%2Faa%2Fgm%2Farticle%2F4%2F5%2F9%2F7%2F4%2F6%2F201510271623%2Ftopimg_original.png)
WWW::Scraper で JavaScript を使ったWebサイトへのアクセスを自動化する - ablog
Perl で WWW::Mechanize や Web::Scraper を使ってWebサイトをスクレイピングしたことはあるが、画面遷移に JavaScript を使っている場合、どうすればよいか調べてみた。 例えば以下のように JavaScript を使ってリンクしている場合。 <a href="javaScript:next(2)">次へ</a> WWW::Scripter と WWW::Scripter::Plugin::JavaScript をインストールして*1、 % cpanm -f WWW::Scripter % cpanm -f WWW::Scripter::Plugin::JavaScript こんな具合に WWW::Scripter の eval で JavaScript の関数を呼んでやると画面遷移することができた。 #!/usr/bin/env perl use s
ImagerとImage::Magickのよく使うメソッドをまとめてみた - 80nikki
簡単に違いを書くと Imagerはインターフェースがかっけえ Image::Magickはなんか枯れてる 速度はあんまかわんない ファイル読み込み、書き出し、エラー出力 Imager my $img = Imager->new; $img->read(file => $filename) or warn $img->errstr; $img->write(file => $filename) or warn $img->errstr; Image::Magick my $img = Image::Magick->new; $err = $img->Read($filename); $err = $img->Write($filename); $err = $img->Read('-'); # 標準入力から読み込み $err = $img->Write('png:-'); # 標準出力へ書き
MIME::Parser - メールの解析
[Perl] => [メール] MIME::Parserはメールを解析し、ヘッダーや添付などを取り出してくれるモジュールです。これを利用すればメールの添付ファイルのみ取り出すこともできます。以下の例ではメールの受信時に直接プログラムにパイプすることを想定しております。（ただし添付ファイルに日本語が含まれるファイルはうまく動きませんので注意） [例] #!/usr/bin/perl use File::Basename; use MIME::Parser; my $parser = MIME::Parser->new; #ファイルの一時保存場所を指定 $parser->output_dir('/tmp'); #標準入力からメールを取得 my $entity = $parser->parse(*STDIN); #FromとSubjectのみ取り出し #$entity->head; #my $f
メール受信時に perl スクリプトを起動して自動処理させる方法 | perl/CGI | 阿部辰也のブログ――人生はひまつぶし。
メールが届くと同時に何らかのアクションを起こすプログラムというのは、かなり作る機会の多い部類に入るかと思います。 ここ数年で特に多いものだと、ケータイ向けサイトの案件で、空メールを受信したら自動でユーザー登録用のフォームのアドレスを書いたメールを、空メール送信者に送る、みたいなものとか、ブログやSNSの日記なんかを、ケータイメールで投稿できるようにする処理とかですね。 そして王道の自動返信メールとか。 後、途中で飽きちゃったんですが、昔、送られてくるメールの内容を自分で学習して言葉を覚えて、文章を生成して返信する bot (人工無脳)を趣味で作ってたことがあります。 で、実際こういう「メールを受け取ったら何らかの処理を自動で行なう」という機能を実現するには、どうすれば良いかというと、 特定のメールアカウントにメールが届いた際に、何らかのプログラムが起動するように設定する そのプログラムを書
Perl で OAuth / モジュール OAuth::Lite::Consumer インストール – シングスブログ
シングスブログ 中小企業のマーケティングやブランディングのコンサルティング。事業開発 (ビジネスモデルの開発)、デジタルマーケティングやウェブサイト改善など事業の持続的・長期的な成長・発展に貢献できるサービスを提供しています。 Twitter や Facebook などウェブサービスの連携には欠かせなくなりつつある認証システム OAuth (オー オース)。アプリ開発者としてマスターしておきたい認証システムのひとつ。今回モジュール OAuth::Lite::Consumer をインストールして、Perlで OAuth 認証できる環境をつくってみた。Twitter で認証してアカウント情報を表示するサンプルプログラムも。 OAuth::Lite::Consumer インストール ふつうに cpanm でインストールできず。パッケージ openssl-devel が必要。 cpanm OAut
「はてな教科書」をgithub上に公開しました - Hatena Developer Blog
こんにちは、id:shiba_yu36です。 はてなのエンジニア陣によって執筆されたウェブアプリケーション作成の基本を学ぶための「はてな教科書」をgithub上に公開しましたのでお知らせします。 はてな教科書は、はてなサマーインターンでも利用されている、約1週間でウェブアプリケーションの基本を身に付けるためのものです。はてなでは日々のウェブ開発で得られたノウハウをこの教科書を継続的に盛り込みながら、インターンシップやエンジニアの新人教育などに利用しています。今回、はてな教科書をgithub上で公開することで、広くPerlを使ったウェブアプリケーション開発に興味を持ってもらえれば、と思います。 いまのところ公開されている資料は、以下の4つになります。 Perl によるオブジェクト指向プログラミング ORM によるデータベース操作 (DBIx::MoCo を使った開発) MVC によるウェブア
画像に埋め込まれたGPS情報を読み取る、ほか :: perl :: Pocketstudio'z log
◆JPEG画像に含まれるGPS情報を perl で呼み出す Image::ExifTool (http://search.cpan.org/~exiftool/Image-ExifTool-7.67/ ) を使えば、Perl では手軽に JPEG 画像ファイルに含まれている各種のタグを読み出すことが出来る。 以下、GPS 情報を取得するまでの手順。 1. CPAN を使ってサクッとインストール # perl -MCPAN -e shell > install Image::ExifTool 特にエラーが出なければコレで完了。 2. exiftool の動作確認 インストールが正常であれば /usr/bin/exiftool (perlスクリプト) を使って、画像のタグを一覧取得出来る。 3. perl で GPS 情報を取得する GPS 情報を取得するには、GPSPosition タグの値
Perl: 画像に埋め込まれたGPS情報を取り出す実験 - Accept Things
BLOG HacksのHACK #74「moblogで位置情報」によると, GPS付き携帯電話で撮影した写真には, GPS情報が埋め込まれるようです. そこで実験してみることにしました. GPS付き携帯電話を持っていないので, GPS情報が埋め込まれている画像をゲットして試してみました. use strict; use Devel::Peek; use Image::EXIF; my $exif = Image::EXIF->new("./gps.jpg"); my $all_info = $exif->get_all_info(); print "--- Latitude ---------------------\n"; Dump $all_info->{image}->{Latitude}; print "--- Longitude --------------------\n";
OpenCV - Wikipedia
OpenCV（オープンシーヴィ、英: Open Source Computer Vision Library）とはインテルが開発・公開したオープンソースのコンピュータビジョン向けライブラリ[4]。2009年にWillow Garage（ウィロー・ガレージ）に開発が移管され、さらにその後Itseezにメンテナンスが移管された[5]が、2016年5月にインテルがItseezを買収することが発表された[6][7]。 概要[編集] 画像処理・画像解析および機械学習等の機能を持つC++、Java、Python、MATLAB用ライブラリ[8]。様々なプラットフォームすなわち複数のオペレーティングシステム (OS) やCPUアーキテクチャに対応するクロスプラットフォームなライブラリであり、macOSやFreeBSD等全てのPOSIXに準拠したUnix系OS、Linux、Windows、Android、i
Perl で Load Average メモ - [ぴ](2008-04-08)
_ [システム運用][Perl] Perl で Load Average メモ まぁ、システムっても、uptime 結果をこちょこちょと文字列操作して、直近１分の Load Average の値を取得してるだけなんですけどね。 具体的には↓な感じ。 my $exe_uptime= `/usr/bin/uptime`; (undef, undef, undef, my $strtmp, undef) = split (/,/, $exe_uptime); (undef, my $LA1) = split (/:/, $strtmp); $LA1=~ s/\s+//; [Load Average 48 とか、どんだけー。より引用] 直近の Load Average を知りたいだけなら、uptime を叩くより /proc/loadavg を直接読んだ方が簡潔で良さげ。 open my $fh,
](https://cdn-ak-scissors.b.st-hatena.com/image/square/d228e8be070c32c738781e15c25aeb18f4dc6807/height=288;version=1;width=512/https%3A%2F%2Fpmakino.jp%2Ftdiary%2Ftheme%2Fogimage.png)
[Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合
Kawa.netxp [Perl] XML::FeedPP - RSS・RDF・Atomフィードの解析・生成・変換・結合 XML::FeedPP モジュールは、 RSS 2.0、RSS 1.0 (RDF)、Atom 0.3（および1.0）フィードの XML ファイルを解析・生成・変換・結合するための Perl モジュールです。 RSS ベースの1種類の共通 API で RSS・RDF・Atom の各フォーマットの処理に対応しているため、 手軽に扱えます。 フィードの読み出し・書き込みはもちろん、 RSSからRDFへ、RDFからAtomへといった各フォーマット間の相互変換も可能です。 他サイトからダウンロードした複数のファイルを結合して、 まとめて1つのファイルとして出力することもできます。 公開版アーカイブ： XML-FeedPP-0.43.tar.gz TARGZ CPAN ←通常パッケ
Text::MeCab を x86_64 環境でインストールする方法
DMAKI氏による MeCab の Perl モジュールが CPANにアップロードされたようです。SWIG で生成されたものより高速に動作するようです。こんなに差が出るとは正直驚きです。 MeCab::Node の iterator をまわして要素を取りだす処理は、SWIG の場合 tie hash になったり、正直遅いと想像していたのですが、お見事です。 mecab 標準の mecab-perl より高速とのことで、モジュールの安定性を待っている間にすっかり忘れてしまった Text::MeCab ですが、突然思い出したので使ってみようかと思いインストールしてみたところ、make test にてエラー。 う〜ん・・・たぶん x86_64 環境だからだろうと推測し情報集め。 PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command:
たけまる / Perl - Text::MeCab を使ってみた
_ Perl - Text::MeCab を使ってみた [perl][nlp] MoSQL をインストールしたついでに，MeCab を Perl から使えるようにし てみました．MeCab は日本語の形態素解析を行うツールで，文章を単語に 区切り，品詞名を推定してくれます．たとえば，文章から固有名詞を抜き 出したり，読み仮名をふるときに使えます． MeCab と Text::MeCab というふたつのモジュールがありますが，インタ フェースと速度の面で Text::MeCab が優れているようです． Text::MeCab を使って，わかち書きと品詞推定をやってみました．品詞情 報をハッシュキーで指定できるように，ちょっと工夫してあります (ex. $word->{'品詞'} で品詞名，$word->{'読み'} で読み方を得られる)． MeCab のインストールについては "MoSQL
技林ブログ: MeCabのPerlインターフェースText::MeCabをインストール
This domain may be for sale!
形態素解析MeCab(和布蕪)をPerlから使ってみる ゆうすけブログ/ウェブリブログ
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
CentOS4.4でperlのバージョンアップ - サラリーマンから起業するリアル
CentOS4.4は、perl5.8.5がインストールされるので、perl5.8.8にしたい場合は、下記の操作が必要。 vi /etc/yum.respos.d/CentOS-Base.repo enable=0をenable=1にするだけ。 [centosplus] name=CentOS-$releasever - Plus mirrorlist=http://mirrorlist.centos.org/?release=$releasever&arch=$basearch&repo =centosplus #baseurl=http://mirror.centos.org/centos/$releasever/centosplus/$basearch/ gpgcheck=1 #enabled=0 enabled=1 gpgkey=http://mirror.centos.org/ce
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
How to set referrer using WWW::Scripter module in perl?
Ground-SunLight