Big Sky :: VimmerなPerl開発環境
えーっと、IDE使ってません。ごめんなさい。 PerlをIDEで書いてる人、どれくらいいるんだろう。何使ってるんだろ。 私はLinuxでもWindowsでもVimを使ってます。Perlってサーバで使われる事が多いし、サーバだとsshで入る事が多いだろうし、まぁXの転送やVNCやそれっぽいのでグラフィカルに操作しても良いけど、正直PerlのドキュメントもテキストベースだしPerlで入力補完出来るグラフィカルエディタもまず無いと思ってる。 で、私がVim上で使ってるPerlの開発を「200倍便利にするスクリプト」を紹介。 perldoc.vim perldocはPerlのオンラインマニュアルなんだけど、これを一々ターミナルに戻ったりして引いてると時間のロス。screenで分割して開いてもいいんだけどscreenの画面間移動よりもVim内でのウィンドウ間移動の方が操作感が統一出来てて良い。 そこ
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
MIME::Lite - 添付付きメールの送信
[Perl] => [メール] 添付付きメールを送信するにはMIME::Liteを利用すると便利です。Net::SMTP や直接Sendmailにパイプして添付を送信する場合、boundryでメッセージ部分と添付部分をきちんと区切ればよいのですが、すこしでも間違えるとうまく送れないことが多いので、こちらのモジュールを使用することをお勧めします。 [使用例] #!/usr/bin/perl use Jcode; use MIME::Lite; $subject = jcode($subject)->mime_encode(); $message = jcode($message)->jis; #まずコンテナを作成 my $msg = MIME::Lite->new( From => "$mailfrom", To => "$mailto", Bcc => "$bcc", Subject =>
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
WordPress vs. other content management systems - Guru Guides - Namecheap
DashboardExpiring SoonDomain ListHosting ListPrivate EmailSSL CertificatesSubscriptionsMy OffersNEWProfile It’s never been easier to build your website or blog, thanks to content management system (CMS) software. Most accomplish the same goal: to provide anyone with the tools to build a professional-looking site within hours. With a CMS, you don’t have to write code to create pages or posts, nor d
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
Perl Tips | Perl で、添付ファイル付きのメールを送る方法
Perl で、 open(SEND, '/usr/sbin/sendmail') || die; などとせずにモジュールを使ってメールを送信するには、以下のようにする。 使用するモジュール use Net::SMTP; use MIME::Entity; #!/usr/bin/perl use Net::SMTP; use MIME::Entity; # Settings our $SENDER = '送信元のメールアドレス'; our $RECIPIENT = '送信先のメールアドレス'; our $SUBJECT = 'タイトル'; our $ATTACHED_FILE_1 = '/home/youraccount/添付ファイル名その1.jpg'; our $ATTACHED_FILE_2 = '/home/youraccount/添付ファ
Perlメモ/IO::Fileモジュール - Walrus, Digit.
OOスタイルでファイルIOを行うためのIO::Fileモジュール。 オブジェクト指向（OO）スタイルならファイルハンドルをがりがりいじってないでIO::File、ということの他に、IO::Fileオブジェクトであればサブルーチンやメソッドなどとの受け渡しがスマートなども良いところです。 IO::Fileモジュール自体はIO::HandleとIO::Seekableを継承していて、IO::Handleのread、write、getline、getlines、printなどの読み書きのためのメソッドや、IO::Seekableのseekなどのメソッドを使うことができます。 ファイルを開くにはopenメソッドを、閉じるにはcloseメソッドを使います。 IO::Fileオブジェクトをnewメソッドで生成してから、openメソッドでファイルを開きます。 use IO::File; my $io =
DBIx::Class::Schemaで、自動的にカラムの設定を行うハック - D-6 [相変わらず根無し]
DBIx::Class::Schemaで、自動的にカラムの設定を行うハック package MySchema; use strict; use base qw(DBIx::Class::Schema::Loader); __PACKAGE__->loader_options(...); sub connection { my $class = shift; my $schema = $class->SUPER::connection(@_); my $classes = $schema->loader->classes; while (my($table, $schema_class) = each %$classes) { foreach my $column ($schema_class->columns) { # do something with $column }
DBIx::Class::Schema::Loader を最新版にアップデートしよう。 | ブログが続かないわけ
DBIx::Class::Schema::Loader についていろいろなことを教えてもらったので、早速試そうとして、コケた。 とりあえず、横着してワンライナでやるのをやめて、今後いろいろな拡張ができるLoaderにすべく、こんなシンプルなコードを書いた（書いたというよりコピった）。use strict; use warnings; use DBIx::Class::Schema::Loader qw( make_schema_at ); make_schema_at( 'MyApp::Schema', {relationships => 1, debug => 1, dump_directory => '/home/junichiro/lib' }, [ 'dbi:mysql:my_dbname', 'junichiro', 'password' ] ); ところがこれがうまくいかない。
第5回 ExcelファイルとPDFファイルの作成
前回のDBIを使ってデータベースを操作すれば，さまざまな情報を自在に取り出せます。さらに，その結果をExcelファイルやPDF （Portable Document Format）ファイルのように見やすく，扱いやすい形式にしておけば，自分ばかりでなく他の人に渡した際も喜ばれるでしょう。 Excelファイルの作成方法 Excelファイルは1シートの行や列の数に限りがありますが，書式を整えて出力でき，データを容易に加工できるなど便利な形式であることは確かです。利用できるOSが限定される面がありますが，Linux上ではOpenOfficeやGnumericなどExcelファイルを読み出せるソフトウエアであれば利用できます。 PerlからExcelファイルを作成する方法としては，Windows上で「Win32::OLE」を利用してMicrosoft Excel（以下，MS Excel）そのものを用
DBD::Pg - A Postgres database driver for the Perl DBI
DBD::Pg is a Perl DBI driver for the PostgreSQL database. While both Perl and Postgres are excellent products, getting them to work together is somewhat challenging, since the driver needs to be linked with the Postgres libraries (which are not always going to be installed on the machine you're trying to access the database from). This is further compounded by the fact that the Win32 distribution
DBIx::Class::SchemaとDBIx::Class::Schema::Loader - iDeaList::Writing
DBIx::Class::SchemaとDBIx::Class::Schema::Loader両方を試してみた。 DBIx::Classは、SQL文を書かずにresultset()を使ってゴニョゴニョできるのがすばらしい！！ 今回登場するファイルの場所はこんな感じ。 /root | |---Schema.pm # DBIx::Class::Schema |---SchemaLoader.pm # DBIx::Class::Schema::Loader | |---Schema/ | |---Member.pm # DBIx::Class::Schemaのload_classes(); | |---test_SchemaMember.pl #実行してみるファイル *db file = /path/to/hoge.db (DBI:SQLite) テーブル作成用 members.sql DROP
DBIx::Class::Schema::Loader::Oracle 作りました
「DBIx::Class::Loader::Oracle 作りました（多分ちゃんと動いてる・・・）」で書きましたが、今の主流？は DBIx::Class::Loader ではなくて DBIx::Class::Schema::Loader を使うらしい。 ってことで、DBIx::Class::Loader::Oracle の他に DBIx::Class::Schema::Loader::Oracle も作りました。結構、中の作り方が違うので苦労しました。一応動作確認済みですが、_load_relationships 周りの試験をあまりしてないので、本当に version 0.01 って感じ。 ダウンロードはこちら → DBIx-Class-Schema-Loader-Oracle-0.01.tar.gz 話は変わって、何って言うかやっぱりオープンソース全盛期の今ってデータベースも MySQL
#perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 : 404 Blog Not Found
2009年09月13日13:00 カテゴリLightweight Languages #perl - utf8::decode()ではなくEncode::decode_utf8()を使うべき理由 駄目です。 [を] Perl の utf8 まわりのおまじない 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); こういう場合は、Encode::decode_utf8()でないと。 以下をごらんください。 #!/usr/bin/perl use strict; use warnings; use Encode; use Devel::Peek; for my $bytes ( "\x2F", "\xC0\xAF", "\xE0\x80\xAF", "\xF0\x80\x80\xAF" ) { my $u
Perl の utf8 まわりのおまじない
Perl の utf8 まわりのおまじない 2009-09-12-4 [Programming] 自分用メモ。 最近良く使うおまじない、というかイディオム。 utf8::decode($text) unless utf8::is_utf8($text); （追記：より良いおまじない。詳細は後述。 $text = Encode::decode_utf8($text) unless utf8::is_utf8($text); ） Perl の CGI モジュールでクエリから得られるデータの文字列のutf8フラグの有無が環境によって違うことがあってイライラ。 でもこのおまじないでなんとかなった。 こんな文脈で使う： use utf8; use CGI; ... my $text = $q->param('text') || ""; utf8::decode($text) unless utf8:
Wide character in print at ...
[Perl] Wide character in print atというエラーはUTF-8フラグが付いた文字列をprintしようとしているからである。なのでUTF-8フラグを取り外してからprintすればエラーがでなくなります。UTF-8フラグが付いているかどうかはutf8::is_utf8を使用すればよい。 #UTF8フラグが付いているかの確認 utf8::is_utf8では実際の文字列がUTF-8かどうかではなく、あくまでフラグがついているかどうかを確認します。そのため、UTF-8の文字列もフラグが付いていなければ上記の出力はno flagとなります。またutf8::is_utf8はuseしなくても使用できる。useすると全然違う意味あいになるので注意。 UTF-8フラグが付いていたら、encodeを使用してフラグをはずします。以下の例では$stringをutf-8に変換して出力します
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Perlで作るモバイルサイトのコツ：第2回
perl-mongers.org