タグ

perlに関するKuruKuruWolfのブックマーク (18)

  • Perlファイルロックの隙間と対策-Perl/CGI実験室

    実験ページ 見てちょ http://perl-cgilabo.topsite.ne.jp/LABO/Perl CGI 実験室 総合 Perl フリーソフト Mod_Perl フリーソフト Perl 初めて使う Mod_Perl 環境構築 Perl CGI 実験室 サポート Perlスクリプト ファイルロックの隙間 その対策 - Perl CGI実験解説 Perlスクリプト 排他処理の隙間を実験。Perlファイルロック処理の問題点と対策について。 flockの正い使用方法など実験と解説。mkdir/rmdir「ロック多重解除」はパス・スルー対策! ファイルロックの隙間 隙間? ちゃんとファイルロックしているつもりでも、使用する関数の種類やその使い方によっては、他のユーザーから読み書きできてしまう瞬間があります。 排他処理が利きません。フリー工房では、これを「ファイルロックの隙間」と呼んでいま

  • 404 Blog Not Found:perl - There's more than one way to die

    2008年05月10日15:00 カテゴリLightweight Languages perl - There's more than one way to die いよいよ来週はYAPC::Asia::2008ですが、Hotel DANは日から開業。我が家では日から20日までが「YAPC旬間」です。 というわけで、その間は少なくとも一つはperlがらみのentryにしていく所存です。 で、第一回はいきなりdieの話題です。 開発日誌 pp-perl: Perlのエラー処理プログラムを停止して、メッセージ(LIST)をSTRERRに出力します。 間違っていませんが正しいとは言えません。 die = throw die()とは何か? まずは、以下のコードをご覧下さい。 [Run via codepad] eval { my $zero = 0; my $dead = 1 / $zero;

    404 Blog Not Found:perl - There's more than one way to die
  • use strict; を使う理由 - とりあえずメモメモ。

    今更な気がしますが、より多くの人がuse strict;でハッピーになれますように。 use strict; はブラボーなおまじない use strict; と書くだけで以下の3つが機能します。 use strict "vars"; use strict "refs"; use strict "subs"; 1. use strict "vars"; の機能 変数を宣言しないままに使用するとエラーになる機能です。エラーにしないためには、次のいずれかを守って変数を使います。 "our"または"my"を使って変数をあらかじめ宣言する。 "vars"プラグマを使って使う変数を宣言したのち、"local"で変数を宣言する。 パッケージ名を含めて変数を書く。 確実な書き方の例 use strict; use warnings; our $ours; my $mine; use vars qw($lo

    use strict; を使う理由 - とりあえずメモメモ。
  • 2004-07-12

    WWW::Mechanizeは、LWP::UserAgentを継承しているので、 LWP::UserAgentと同じ方法でBasic or Digest認証が出来ます。 リクエスト発生からの処理の流れは、 LWP::UserAgent::get LWP::UserAgent::request LWP::Authen::[Basic|Digest]::authenticate LWP::UserAgent::get_basic_credentials perldoc LWP::UserAgentを読むと、Basic/Digest認証を使うには サブクラスを作成しget_basic_credentials をオーバーライドするか、 credentials メソッドでパスワードを設定する。と書かれている。 credentials メソッドのほうが簡単そうなのでそちらを見てみる。 $ua->cre

    2004-07-12
    KuruKuruWolf
    KuruKuruWolf 2009/11/06
    Mechanize で Basic認証を突破する方法
  • ActivePerl をやめて Strawberry Perl へ 他1件 (2009-08-25) - nDiki

    ActivePerl 5.10.0.1005 + Visual Studio 2005 SP1 上で PAR::Packer を使って実行可能ファイル化したものの、今日別の環境で動かしたら「このアプリケーションの構成が正しくないため、アプリケーションを開始できませんでした」というエラーがでてしまった。 今まで Visual Studio 6.0 で PPM パッケージの作成やら PAR::Packer による実行可能ファイル化をしていたので気がつかなかったのだが、調べてみると Visual Studio 2005 以降だとどうもいろいろ面倒らしい。 ActivePerl + PPM パッケージだと自分で PPM リポジトリを用意しておくことで、開発環境の統一が楽になるという利点があったのだけれどもしばらく一筋縄ではいかなさそうなので、別の Perl ディストリビューションを使ってみることに

  • Perlメモ/Windows/StrawberryPerl - Walrus, Digit.

    Strawberry Perlの強みがここ。普通にStrawberry Perlをインストールしただけで、make(dmake)、gccなどのバイナリやその他もろもろが以下のディレクトリに入り、すぐにCPANモジュールを使える。 C:\strawberry\c\ このおかげで、コンパイルが必要なXSモジュールもかなりの確度でインストールできる。以下のようにCPANモジュールのシェルを起動し、モジュールのインストールを行う。 C:\> perl -MCPAN -e shell cpan> install WWW::Mechanize cpan> exit C:\> Strawberry PerlではActivePerlと同様に、PPMも使用できる。以下のようにPPMのシェルを起動し、モジュールのインストールを行う。 C:\> ppm PPM interactive shell (0.01_0

  • Strawberry Perl + Crypt::SSLeay インストールメモ

    Windows環境であるにもかかわらず XSを使ったモジュールもCPANコマンドを使って 結構さくさくインストールできてしまう 快適な Strawberry Perl だけど、 WWW::MechanizeのSSL通信に必要な Crypt::SSLeayのインストールで はまりどころがあったので記録。 ■はまりどころその1 Crypt::SSLeayにはOpenSSLが必要だが、 2週間くらい前に Strawberry Perl5.10系+Win32 OpenSSL v0.9.8h の最新の組み合わせでは実行時にエラーが発生する。 結果的には Strawberry Perl 5.8系+Win32 OpenSSL v0.9.8g だとうまくいった。 ■はまりどころその2 Crypt::SSLeayはCPANのインストールコマンドでは そのまま入らないようなので、 http://www.per

    Strawberry Perl + Crypt::SSLeay インストールメモ
  • Strawberry Perl for Windows

    Perl is a programming language suitable for writing simple scripts as well as complex applications — see https://www.perl.org. Strawberry Perl is a perl environment for MS Windows containing all you need to run and develop perl applications. It is designed to be as close as possible to perl environment on UNIX systems. It includes perl binaries, compiler (gcc) + related tools, all the external lib

    KuruKuruWolf
    KuruKuruWolf 2009/11/06
    情報が少なそうだが、評判がよろしい
  • [PAR] perlをexe化 ぼくはまちちゃん!

    (2005/06/19) PAR というものを使えばperlスクリプトがwindowsの実行形式(exe)化できるらしい。 仕組みはこんな感じ。 Perlインタープリタを含む必要ファイルを全てexeにまとめる(実はzip) exeが実行されると、裏で展開して、中のPerlインタープリタ(dll)でスクリプトが実行される。 なるほどなるほどー。 いちいちActivePerlをインストールして云々とかしなくても いきなり実行できちゃうようになるわけだね!すてき! ※ただし拡張子をzipに変えるだけで、中のソースが覗けるけど で、さっそく使ってみた。ちょっと苦労した! よって以下はインストールメモだ! 現在の最新版は5.8.7.813。入れちゃダメ。 素直にこれをインストールしたら最終的にPARで作ったexeを実行した時に 「プロシージャエントリポイントPL_memory_wrapがダイナミック

  • PerlDAV

    PerlDAV is a Perl library for modifying content on webservers using the WebDAV protocol. Now you can LOCK, DELETE and PUT files and much more on a DAV-enabled webserver. The PerlDAV library consists of: HTTP::DAV - an object-oriented Web-DAV client API. dave - the DAV Explorer, an end-user Unix console program for interacting with WebDAV servers. dave looks and feels like a standard Unix ftp progr

  • 【インフォシーク】Infoseek : 楽天が運営するポータルサイト

  • CPAN経由でLinuxにモジュールを組み込む

    Perlのモジュールをインストールしよう! サーバーにPerlの各種モジュールをインストールするには、CPAN を使うと超ラクチンです。 ここでは、サーバーにモジュールをインストールするためのツール、CPANの設定方法と、その使い方を解説します。 このセクションは、Linuxサーバー向けに書かれております。 CPANとは 「モジュール(機能のかたまり)」を簡単にインストールしてくれるシステムです。* 自動的に、モジュールの最新ソースファイルを取って来て、コンパイルし、インストールし、依存関係も解決してくれる優れものです。 CPANの環境を設定する CPANのスクリプトはたいていのLinuxディストリビューションに標準で入っています。 ただし、まずは設定が必要です。楽をするためには、それなりの努力がいるようです…。 shell(コマンドライン)で、以下の通り打ちま

  • 第7章 正規表現

    正規表現とは、ある特定の文字列ではなく、文字列の一部をパターン化して表現する手法をいいます。 複数行ある文章の中から文字列を検索する時に、検索したい文字列すべてを指定するのではなく、文字列の任意の一部を置き換え可能な状態にして検索をする場合に正規表現を用います。 たとえば、UNIXやWindowsでは、文字列を検索するときに使用される正規表現として、「*」を任意の文字列(空き文字も含む)に、「?」を任意の1文字として使用することができます。パターンを、app* と表現すると、 apple application appeal などの文字列がマッチすることになります。 この正規表現の方法は、当然ながらプログラム言語ごとに異なりますが、Perlの場合は他の言語に比べて非常に強力な正規表現によるパターンマッチ機能を備えており、より詳細にかつ容易にパターンマッチを行うことができるとされています。

  • とほほのperl入門(リファレンス編) - とほほのWWW入門

    if - 条件分岐する(もし・・・ならば) else - 条件分岐する(さもなくば) elsif - 条件分岐する(あるいは・・・ならば) unless - 条件分岐する(もし・・・でなければ) while - 繰り返す(・・・のあいだ) for - 繰り返す(・・・から・・・のあいだ) foreach - 繰り返す(配列の全要素に対して) last - ループを抜ける next - 次のループを繰り返す redo - 今のループを繰り返す goto - ジャンプする do - 処理を実行する eval - 処理を実行する exit - スクリプトを終了する die - スクリプトを終了する dump - コアダンプする

  • perlの標準エラー出力の扱い方

    [上に] [前に] [次に] B-Cus 1998/01/12(月) 18:22:08 perlで実行した標準エラー出力を処理する方法を教えてください。 また、標準エラー出力のみを受け取る方法を教えてください。 例えば exist-file が存在して、non-exist-fileが存在しないとき、 open(IN,"ls exist-file non-exist-file|); print <IN>; とすると出力は 「exist-file」 のみになってしまいます。 標準エラー出力に出力されている 「non-exist-file: No such file or directory」を受け取る にはどうすればいいでしょうか。 また、標準出力は捨て、標準エラー出力のみを受け取る方法 # 「non-exist-file: No such file or directory」だけを受け取る方

  • blog-malon: DropScript

    2005-01-05 DropScript シェルスクリプトは書けるけど アップルスクリプトは苦手という人のためのツール。 シェルスクリプトをこいつにドロップするだけで簡単にCocoaアプリに 変換してくれる。 http://www.versiontracker.com/dyn/moreinfo/macosx/10459 投稿者 malon 場所 2:35 午後 0 コメント: コメントを投稿

    KuruKuruWolf
    KuruKuruWolf 2007/02/23
    MacOSXでshscriptにドラッグ&ドロップで引数を渡したかったのですが、これでできそうでうれしいです。
  • WWW::Mechanize - Perlオブジェクト中のハンディWebブラウザ - perldoc.jp

    名前¶ WWW::Mechanize - Perlオブジェクト中のハンディWebブラウザ VERSION¶ Version 1.02 $Header$ 概要¶ WWW::Mechanize、あるいは縮めてMechはWebサイトとのやりとりの自動化を 助けます。これはリンク先やフォームデータの送信を含む、複数のページの取得を サポートします。取得したページはそれぞれ解析され、そのリンクやフォームが 抽出されます。リンクやフォームを選択し、フォームを埋め、次のページを取得 することが可能です。Mechは訪れたURLの履歴を保持しますので、これを問い あわせたり再訪することも可能です。 use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->get( $url ); $mech->follow_link( n => 3 ); $m

    KuruKuruWolf
    KuruKuruWolf 2006/12/31
    WWW::Mechanize の文法。ブラウザ操作自動化にはこれ。
  • Perl&CGI最強講座 [smart]

    indexは、第1引数STRの先頭から第2引数SUBSTRが最初に見つかった位置を返します。 第3引数 POSITIONで検索する位置を指定することもできます。第3引数POSITIONには最初の文字を 0 として指定します。 返却値は 0、もしくは変数$[に設定した値です。SURSTRが見つからなかった場合は -1 を返します。 indexの使い方 $str = "How you always hurt the one you love."; print index($str,'you'); > 4

    Perl&CGI最強講座 [smart]
    KuruKuruWolf
    KuruKuruWolf 2006/12/22
    基礎がきれいにまとまっていてわかりやすいです。
  • 1