Perl でUTF-8(BOM無し)ファイルをUTF-8(BOM付き)に変換する方法 - Perl楽しいから好き
Windows 向けのソフトに読み込ませるファイルをUTF-8(BOM付き)にする必要があったので、やってみた。TeraPadで開いて「文字コード指定保存」すればできるんだけど、スクリプト処理の一連の流れに乗せたかったので、やってみますた。 Windows7(64bit)環境でやってま〜す。 #!/usr/bin/perl # # UTF-8(BOM無し) ⇒ UTF-8(BOM付き)にファイルを変換する # # 2014.09.07_scripted by perl48 use strict; use warnings; use utf8; # 読み込むファイル名をセット my $old = 'before.txt'; # 書き出すファイル名をセット my $new = 'after.txt'; # ファイルハンドルをオープンして、外部テキストファイルの読み込み準備 open my $r
PerlのLWPでCacheを使う | work.log
Perl の LWP::UserAgent と XML::FeedPP を使って何かする時に、毎回フレッシュなデータを取ってきてたのですが、場合によっては一定期間は同じデータを使いまわしたいという事が出てきたのでキャッシュ機能を付けてみることにしました。 キャッシュ部分には Cache::File モジュールを使います。 キャッシュ機能をこんな感じにつけてみました。 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use XML::FeedPP; use Cache::File; my $url = 'https://worklog.be/feed'; my $params = { cache_root => '/tmp/mycache', default_expires => '600sec' }; my $c
Amazon Product Advertising API(PA-API) 5.0 in Perl
師走ですね。Palo Alto もめっきり寒いです。サンクスギビングは雨ばかりでした。青空が恋しいです。 さて、このブログではひそかに Amazon のあさましいリンクの生成に商品情報APIを利用しているのですが、なんだかAmazonアカウントの多重登録を解決したあたりからその辺の機能が動かなくなっていて、まあでもいっかーと思ってかれこれ半年以上放置していたのですが、どうやら以下の変更の影響をもろにうけているようでした。 2019年01月23日以降、過去30日以内のPA-API経由の売上実績（発送済み商品売上）がない場合、PA-APIへのアクセスができなくなる可能性がございます。 2019/01/23 - Product Advertising API 利用ポリシーの変更について まじかよ。 つまりこういうことです。 Amazonアカウントが多重に登録されていたので(詳細は割愛)、ひとつの
Plack::Server::Standalone系を使ってウェブアプリケーション開発と運用が楽になる話 - JPerl Advent Calendar 2009
Plack::Server::Standalone 系を使ってウェブアプリケーション開発と運用が楽になる話 - JPerl Advent Calendar 2009 Perl に関するちょっとした Tips をのっけてみるよ。ちゃんと続くかな？ 既存の環境に対する不満 Perl のウェブアプリケーションを構築するにあたっては、リバースプロキシと mod_perl を組み合わせるか、あるいは FastCGI (ExternalServer) を利用するのが一般的だと思います。しかし、どちらをとっても、環境を構築して設定するのが難しいというのが個人的な不満でした (mod_redirect を設定したり mod_fastcgi にパッチをあててインストールしたり startup.pl を書いたり...)。自分が Plack の開発 (主に Server::Standalone と Server
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 ); これダメ！ 絶対ダメ！ 死ぬ！ 最初に結論を書く 必ず以下のように
Getopt::Long - コマンドラインオプションを処理する - Perl入門ゼミ
Perl › モジュール › here Getopt::Longを使用するとコマンドライン引数のオプションを処理することができます。 # モジュールの読み込みと関数のインポート use Getopt::Long 'GetOptions'; コマンドライン引数で次のようなオプションを指定する場合を考えてみましょう。 # コマンドライン引数でオプションを指定。 perl script.pl --enable_cache --max_clients=5 --type=single config.init GetOptions関数を使用すればこのようなコマンドラインオプションを簡単に処理することができます。 # GetOptionsによるコマンドライン引数のオプションの処理 # デフォルト値の設定 my $enable_cache; my $max_clients = 5; my $type =
コマンドラインからDropboxを操作する方法 (+Jenkinsとの連携) | Ryuzee.com
前回のエントリでは、ReVIEWとJenkinsを組み合わせてPDFを自動でビルドする方法について説明しました。今回は更に進んで、ビルドされたPDFをJenkinsサーバから自動でコマンドライン経由でDropboxに保存する方法について説明します。 なお、ここで説明する内容は別にJenkinsと連携しなくても使えます。 例えば、サーバのファイルを定期的にバックアップしたり、シェルスクリプトの中で呼び出したりといったことが可能です。 Dropbox API Commandの導入コマンドライン経由でDropboxを操作するためには、Dropbox API Commandと呼ばれるツールを使うのが簡単です。 githubで公開されており、ライセンスはMITライセンスです。 https://github.com/s-aska/dropbox-api-command インストールDropbox AP
Installing Net::SSLeay on OS X El Capitan
On Mac OS, I leave the system Perl alone and use Perlbrew to manage my custom Perl installations. I also install cpanm using perlbrew: $ perlbrew install-cpanmand then use cpanm to install packages from CPAN. If you use LWP::UserAgent or HTTP::Tiny to talk to an https:// endpoint, you will need to install IO::Socket::SSL, which in turn depends on Net::SSLeay. On OS X El Capitan (10.11.1), building
Perlのテストがわからない
4. Perlのテストってどうやるの？ ● perl でテストを始めよう！！ - Perl Advent Calendar Japan 2011 Test Track http://perl-users.jp/articles/advent- calendar/2011/test/1 6. テスト対象モジュール package SomeModule; use strict; use warnings; sub new { my ($class, %args) = @_; bless %args, $class; } sub sum { my $self = shift; my $ret = 0; for my $num (@_) { $ret += $num; } return $ret; } 1;
MySQL 5.5以降のutf8mb4とPerlのDBD::mysqlのmysql_enable_utf8のワナ - （ひ）メモ
結論から言うと、ひろせが望ましいと思う順にこうすればいいんじゃないの？ってのを列挙します。 my.cnfに[libmysqlclient]グループを追加しそこにdefault-character-set = utf8mb4と書き、DBD::mysqlでは mysql_read_default_file=/etc/my.cnf;mysql_read_default_group=libmysqlclient と指定する mysql_enable_utf8を使いたい場合はSET NAMES指定も必要 my.cnfの[client]グループにdefault-character-set = utf8mb4と書き、DBD::mysqlでは mysql_read_default_file=/etc/my.cnf と指定する。mysqlbinlogなど--default-character-setオプショ
SMS::Send::Twilio
NAME SMS::Send::Twilio - SMS::Send backend for Twilio API SYNOPSIS use SMS::Send; # Create an object. There are three required values: my $sender = SMS::Send->new('Twilio', _accountsid => 'ACb657bdcb16f06893fd127e099c070eca', _authtoken => 'b857f7afe254fa86c689648447e04cff', _from => '+15005550006', ); # Send a message to me my $sent = $sender->send_sms( text => 'Messages can be up to 1600 charact
perlの波ダッシュの文字コード変換のまとめ - (ﾟ∀ﾟ)o彡 sasata299's blog
2009年02月22日22:31 Perl perlの波ダッシュの文字コード変換のまとめ perlの文字コード周りはなかなかカオスです。外部エンコードとか、perl内部での文字コードとか、UTF8フラグとか。UTF8フラグ？なにそれ？な人は、こことかここを見てみると良いかも。（・∀・） 基本的には外部から入ってきた時点でdecodeして、出力時にencodeしてやれば全て解決するんですが、「〜（波ダッシュ）」と「−（全角マイナス）」だけは特別です。注意が必要なのはこの2パターン。 ① utf8⇔shift_jis ② utf8⇔euc-jp ①については以前、perl utf8→sjisで文字化けという記事で紹介しましたが、encode時に、'sjis'では無くて、'cp932'を指定すればOK。※「〜」とか「−」はsjisには含まれていない文字なのが原因。 今回紹介したいのは②の場合です
ルーティングの基礎 | Mojolicious入門 - Perl入門ゼミ
Perl › Mojolicious 次にルーティングについてもう少し詳しく解説します。ルーティングとはURLと処理の対応の記述のことです。 簡単なルーティングについては、これまでも使ってきました。 get '/' => sub { ... }; get '/info' => sub { ... }; get '/date/:date' => sub { ... }; ここでは、ルーティングについてもう少し詳しく解説します。 プレースホルダー 最初にプレースホルダーについて解説します。 通常のプレースホルダー 先頭にコロンをつけると、その部分はパラメーターとして取得できることは説明しました。 get '/date/:date' => sub { my $self = shift; my $date = $self->param('date'); }; Mojoliciousでは、これをプレ
Perl を学ぶとき、真っ先に覚えたいモジュール
春ですね！ 新年度ですね！ Perl 書くことになってしまいましたか！ 奇遇ですね！ sigil が意味わかりませんか！ 特殊変数がググれませんか！ リファレンスが謎ですか！ 1; の存在が不明ですか！ オブジェクト指向が難しいですか！ むしろオブジェクトじゃないコードの方がゆるくて大変ですか！ XS が読めませんか！ ええ、XS は僕もあんまり読めません＞＜ さて、この春から Perl を学ぶことになった人も多いかと思いますが、なにはなくともこれまず覚えたら後が楽になるんじゃないかというモジュールを、いくつか紹介したいと思います！ (まあ、自分の初期を思い返すと、この辺はやく知っておきたかったなあというリストです) Data::Dumper, YAML 変数(リファレンス)やオブジェクト(blessされたリファレンス)をダンプする用途では、Data::Dumper が一番メジャーのような
Web::ScraperでURIを使うのとテキストを突っ込むのとでは結果が異なる - Perl勉強メモ アルパカDiary出張版
テスト用サイト 価格.comのゲーム本体カテゴリから、 「売れ筋ランキング」「注目ランキング」「満足度ランキング」の２位の情報だけ スクレイピングして持ってくる http://kakaku.com/game/game-console/ スクレイピング１：LWPのgetでテキスト突っ込む use Web::Scraper; use LWP::Simple; use YAML; my $scraper = scraper { process '//th[@class="rank2"]/../td', 'items[]' => scraper { process '//div[@class="title"]/p/a', 'text[]' => 'TEXT'; process '//div[@class="item"]/a', 'link[]' => '@href'; process '//div
XML::Feed で日本語が数値参照になるときはこれ - yujioramaの日記
わりと常識だったらしい。 my $feed = new XML::Feed('RSS', 'output_encoding' => 0);
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
【CentOS7】CPANからインストールしてあるのに'LWP::Protocol::https not installed'と言われる - purplebabyのブログ
perlとslack apiでhubotを実現してみた - 気まぐれ緋夜子
re_その辺の空気とか
IBM Developer
