第41回 HTML::Template::Pro：テンプレートに極力コードを書かせたくないときは | gihyo.jp
何でも埋め込めるのは楽ですが 前回紹介したHTML::MasonやText::MicroTemplateのように生のPerlコードを埋め込めるテンプレートエンジンは、Perlをよく知っている人が画面の設計からウェブアプリケーションのコーディングまでひとり（ないし、よく統制のとれた少人数のチーム）で行うときには非常に手軽で便利なものです。 ただし、なんでも書けるからといって、たとえばテンプレートの中でO/Rマッパのメソッドを直接呼び出すコードを書いてしまうと、そのテンプレートは（利用するO/Rマッパの性質にもよりますが）おそらく実際に動作するデータベースやそれに付随するテストデータを用意しないと、途中で「Can't call method "..." on an undefined value」などのエラーが発生してレンダリングできなくなってしまいます。また、アプリケーションの設定にあわせて
qx
説明 指定したコマンドを実行して，標準出力に出力された結果を返します。 呼び出したコマンドのステータス・コードは$?で取得することができます。$?にはステータス・コードを256倍した値が入っていますので，例えば，ステータス・コード1で終了した場合，$?は256になります。 使用例 #!/usr/bin/perl use strict; use warnings; # 実行するコマンド my $command = 'netstat'; # コマンドを実行 my $ret = qx/$command/; if ($?) { # ステータスコードが0以外 print "Error.\n"; print "$command:$?", "\n"; } else { # 実行結果を出力する print $ret, "\n"; }
Perlメモ/パスの正規化 - Walrus, Digit.
Perlメモ/パスの正規化 ファイルパスの妥当性をチェックするのにまず必要なパスの正規化。 基本的には、「Unixパス名の安全対策」(www.ipa.go.jp)を行なえばよいわけです。 ただ、今回抱えているケースで相対ディレクトリは相対ディレクトリとして正規化したかったので、そのあたりの修正。 というか、実はそれを先に書いた後、そういえばipaのページに同じようなのがあったな、と思い出したのでした。 当然ですが、できるものはほぼ同じになってしまいますね。 パスを正規化するためのサブルーチンは以下のようになります。 sub canonical_path { my $path = shift; my @parts = (); @parts = ('') if ($path =~ /^\//); foreach my $part (split('/', $path)) { if ($part
:: Cepheid :: - ファイルのアップロード その1
はじめに ローカル上のファイルをサーバー側にアップロードするCGIを作成する方法を紹介します。Perlの標準モジュールであるCGI.pmを使用すれば、簡単にこの機能が実現可能です。 このスクリプトの作動環境は次の通りです。Windows2000 SP4、Apache 1.3.31、ActivePerl 5.8.4 build 810。そしてUNIX環境でも確認しています。FreeBSD、Apache1.3.31、Perl5.6.1。CGI.pmはバージョン2.47以上を想定しています。 尚、CGI.pmは標準モジュールなので新しく用意する必要はありません。すぐに利用出来ます。以下に簡単な使用例を取り上げてみます。 HTMLのフォーム部分の作成 さて最初はHTMLのフォームを作成します。これを仮にupload.htmlとします。 <?xml version="1.0" encoding="S
★★★CGI-Perl 基礎編 (その八) 正規表現、マッチパターン、置換演算子、変換演算子 - SAK Streets
CGI-Perl 基礎編 (その八) 正規表現、マッチパターン、置換演算子、変換演算子 ■正規表現 ・過去扱ってきた言語に正規表現などと言うものは存在しなかった。 上手く使うと非常に便利である。(パターンマッチ、パターンマッチング) 以下、簡単にまとめておく。 ■マッチパターン演算子 i 大文字、小文字の区別なし s 単一行として処理 (^、$ は、\n を無視) m 複数行として処理 (^、$ は、行先頭、行末尾) x 空白を無視、# をコメント処理 ■メタ文字 . 改行を除く任意の 1 文字 * 0 回以上のパターン繰り返し + 1 回以上のパターン繰り返し ? 0 または 1 回のパターン ^ 先頭から $ 末尾から \ メタ文字クォート | パターン論理和 () パターングループ [] 文字クラス {} 量指定子 \n 改行 文字クラスでも指定可 \r キャリッジリターン 文字クラ
大崎 博基(OHZAKI Hiroki)
うずら Windows10用ソフトウェアのリンク(更新日 2024/2/25) Windows7(64bit)用ソフトウェアのリンク(Obsolete: 更新日 2019/1/12) WindowsVista用ソフトウェアのリンク(Obsolete: 更新日 2009/9/9) WindowsXP用ソフトウェアのリンク(Obsolete: 更新日 2008/8/1) Windows95用ソフトウェアのリンク(Obsolete: 更新日 2002/9/24) ゲーム関係のリンク(更新日 2024/1/26) 雑多なリンク(更新日 2021/9/26) 人工無能うずら(人工痴能)の部屋(更新日 2014/7/31) Perlメモ(更新日 2019/5/3) Perl正規表現雑技(更新日 2019/5/3) メールアドレスの正規表現(更新日 2019/5/3) スーパーグリッパー強度表(更新日
23. リファレンスの利用：サブルーチンに配列やハッシュを渡す- TAKENAKA's Web Page: Perl入門 -
配列のリファレンスをサブルーチンに渡す これからしばらく，リファレンスの活用法をいくつか紹介します． まずはサブルーチンに渡す引数としての利用です 数百行程度以上のプログラムになると，サブルーチンを使うことが必須になってきます． 独立性のあるサブルーチンを書くには，グローバルな（プログラム中のどこからでも見える） 変数はあまり使いたくありません．なるべく引数として受け取ったものを処理させるように するのが望ましい設計です． けれども， 「サブルーチンの引数はスカラーが並んだひとつのリスト」 という制約があるために，サブルーチンに２つの配列を渡したり，ハッシュを渡したり するのが困難だという話は前のページに書いたとおりです． でも，リファレンスという特別なスカラーを使えばこの問題は解決です． 配列でもハッシュでも，サブルーチンにほんとに渡したいもののリファレンスを渡し， サブルーチンではこの
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
サービス終了のお知らせ