約 4,665,782 件
https://w.atwiki.jp/atwikimyj/pages/59.html
emplate-Toolkitでのはまり、TIPSを記録する。 ◆リンク集 <参考> TTdoc 和訳ページ http //www.hakoniwa.net/tt/index.html TT超入門。これで基本がわかった http //www.sea-bird.org/doc/Solaris8/Perl_2.html サンプル http //bob.marlboro.edu/~msie/2001/ipl/perl/code/jan27/TemplateToolkit/ TTで使える関数プチ一覧。なんでもできそうだ。 http //hwat.sakura.ne.jp/hpod/200604/06-140134/ DBマガジンのサンプルプログラム 紙だけど、相当参考になった。 ◆TIPS (1)インストールにきをつけろ perlのサンプルスクリプト上では template というモジュール名になっているので PPMで template と指定してインストール。しかしこれはTTとは別のモジュールなのだ。 本当は template-toolkit でsearchして、この名前でインストールする必要があった、、、。 (2)イテレイト型のオブジェクトをそのままTTにぶんなげる $Sale_prod_list = MAGCLASS ObjectsTable - search( [ $criteria1 , $criteria2 , $criteria3, $criteria4 ],{ order_by = prod_sellrank } ); こんなふうに雑誌情報のオブジェクトを取得して、 my $template = Template- new; my $output; $template- process( teiki_make_index.html ,{ Sale_prod_list = $Sale_prod_list } ,$output); こうする。複数の雑誌情報を持つオブジェクトが teiki_make_index.html に投げられる。 これを受け入れる書式は [% WHILE ( sp = Sale_prod_list.next) -%] [% IF sp.prod_price != %] /価格:[% sp.prod_price %]円 [% END %] [% IF sp.prod_toku != %] /(特典あり) [% END %] [% END %] こんな感じ。まずWHILEでperlから渡されたSale_prod_listを受けるわけだけど 1つ1つ順番に読み込むようにSale_prod_list.nextと記述し、その1つ1つの オブジェクトはsp = Sale_prod_list.nextとすることでspに入る。 sp.prod_noなどとすることでオブジェクト内のハッシュを読み取れる。 注意点: ・WHILEやENDなどの書式は必ず大文字 ・条件式は必ずENDで閉めよう (3)作製されたHTMLについて $template- process( teiki_make_index.html ,{ Sale_prod_list = $Sale_prod_list } ,$output); と記述すると、$outputに作製されたHTMLが入る。 (テンプレート ,{ エイリアス= オブジェクト } , $出力先変数) という書式。注意点として、$outputではだめで、$outputとしなければならない) また、出力先変数を省略して $template- process( teiki_make_index.html ,{ Sale_prod_list = $Sale_prod_list } ); とすると自動的にprintされる。 以下いろんなサイトからのメモ ■HTMLファイルのエスケープ HTMLタグのエスケープしろという命令をテンプレートに記述できます。フィルター機能についてはTemplate Toolkit Manual Filtersに詳しく書いてありますが、例えば、 [% foo | html %]でfooの中身のHTMLタグをエスケープして出力してくれますし、 [% bar | html_line_break %]
https://w.atwiki.jp/m_shige1979/pages/910.html
HTMLエスケープ CGI escapeHTMLメソッドにより、エスケープが可能 test.cgi #!"C /Perl64/bin/perl.exe" use strict; use warnings; use CGI; my $_title = "テスト"; my $_data = "エスケープ"; my $_escape; my $_escape2; # エスケープデータ設定 $_escape = " input type=\"text\" name=\"item1\" value=\"aaaaaaaaaa\" / "; # エスケープ対応 $_escape2 = CGI escapeHTML($_escape); my $_xss = " input type=\"text\" name=\"aaaa\" value=\"\" / script alert( aaa ); /script \" / "; # エスケープ対応 my $_xss2 = CGI escapeHTML($_xss); my $_xss3a = "\" / script alert( aaa ); /script "; my $_xss3 = CGI escapeHTML($_xss3a); print "Content-Type text/html;charset=utf-8;\n\n"; print HTML_EOF; html head title $_title /title /head body div $_data /div hr / div エスケープなし div $_escape /div エスケープ済み div $_escape2 /div /div hr / div エスケープ済み div $_xss2 /div エスケープ済み div input type="text" name="bbb" value="$_xss3" / /div /div /body /html HTML_EOF HTMLソース html head title テスト /title /head body div エスケープ /div hr / div エスケープなし div input type="text" name="item1" value="aaaaaaaaaa" / /div エスケープ済み div input type= quot;text quot; name= quot;item1 quot; value= quot;aaaaaaaaaa quot; / /div /div hr / div エスケープ済み div input type= quot;text quot; name= quot;aaaa quot; value= quot; quot; / script alert( #39;aaa #39;); /script quot; / /div エスケープ済み div input type="text" name="bbb" value=" quot; / script alert( #39;aaa #39;); /script " / /div /div /body /html 画面
https://w.atwiki.jp/escapekidera/pages/12.html
エスケープ木寺【えすけーぷきでら】 ニコニコのニックネーム「アルキデス」 本名:木寺 貴幸 兵庫県神戸市在住 異常に性的欲求の強い【童貞男】 2008年12月6日に2つの動画をうpしてデビューした通信制高校1年生。 趣味で、クワガタやカブトムシをかなり本格的に養殖している。 初期の動画では二次元やニートスズキ、浅野秀を批判していたが、後に、それらについて謝罪して、これからはネタを交えた日記的な動画を投稿する宣言をしたが、これらの行動は注目を集めるための策略だった。 動画を投稿しているのは、人気者になるためらしい。 エスケープ木寺は「チャットならチャベリ!」でオナホール愛用者である事を告白し、皆に気持ち悪がられ、その際【ボクは彼女できないからしかたない】と開き直っていた。彼の別名は【オナホール木寺】 ニコニコ動画内ではオナホール使用を否定しているがそれは自分の行ってきた奇行をリセットする為の言動だと思われる。しかし彼のオナホール使用発言は複数の目撃者が存在する。 また同じチャット内で40歳子持ちの女性をナンパし「あの女とやれるかもしれない」と発言、「何の話?」と問われると「SEXSEXSEXSEX」と言いだし、皆に気持ち悪がられると「はいはい僕きもい」「きもいきもいきもい」と開き直り、場の雰囲気を不愉快なものにしていた。 これはエスケープ木寺(アルキデス)の行ってきた悪行、奇行の一部で、実際は数知れない。いまだにチャベリではアルキデスの名を見ただけで強制退室させる者も多く存在し、彼の言動によって心を傷つけられ、恨む者は大勢存在するため一度や二度の謝罪では許される事はない。 エスケープ木寺はチャット内で自身を【アスペルガー症候群】であると告白していた。意味の無い発言や猥褻な発言はそのためだと釈明していた。
https://w.atwiki.jp/atwikimyj/pages/16.html
[1]perlのソースをダウンロードする [2]stable.tar.gzを適当な場所(/usr/local)に保存、解凍 [3]perlインストール時の設定を行う 解凍したファイル群にINSTALLというテキストファイルがある。それを開くと、 非常に長い説明がある。くじけそうになるが、ここが頑張り所なのでなんとか 内容を見る。 ありました!デフォルトではインストール時にこういうパスにデータを入れる ようというのが。 ○perl実行ファイル $prefixexp = /usr/local ○スクリプトファイル $prefixexp/bin ○ライブラリファイル $prefixexp/lib/perl5/(5.8.8などのversion番号) [4]解凍したディレクトリに移動 # cd /usr/local/perl5.8.8 #./Configure このままデフォルト設定でインストールすれば上記の 構成でperlがインストールされる # /usr/local/bin/perl -v を実行して、バージョン番号が出ればOK でもまだこのインストールしたperlにはパスが通ってない。 従来インストールされているperlの実行ファイルが有効に なっている。 そのperlの実行ファイルというのは /usr/bin/perl このファイルを別名で保存する。 /usr/bin/perl.hoge とかにしてシンボリックリンクを張る # ln -s /usr/local/bin/perl /usr/bin/perl [5]パスを通す /etc/profile を編集し、 PERL_PATH=/usr/local export PERL5LIB=${PERL_PATH}/lib export PATH=${PERL_PATH}/bin $PATH を追記し、コンフィグの読み直し # ldconfig この段階でパスは通っているので # perl -le print for @INC とすると、 /usr/local/lib /usr/local/lib/perl5/5.8.8/i686-linux /usr/local/lib/perl5/5.8.8 /usr/local/lib/perl5/site_perl/5.8.8/i686-linux /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_per と表示され、@INCのパスも変わった。 perl自体のインストールはこれでOK でもmod_perlを使っている場合は perlのバージョンアップしたら必ずmod_perlもrebuild しないとだめなのです。 あと、必要に応じて、下記のこともやんないといけないのです。 perlモジュールインストール Catalystインストール Apache config設定
https://w.atwiki.jp/jeskolabuzz/pages/99.html
Filter 音を削り出すためのEffect。 2 Pole Variable Keytrack Exotic Color Series asedev a4pFilter04? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Cheapo Filters? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 CyanPhase BFilter? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Elak SVF? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 FSM Philta? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Fuzzpilz Multibandit? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Glow Sidfilter? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 HD Fly Filter? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 HD Mod-X_1? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 HD MyFilterS? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 HD Out Space Filter? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Joachims Temperature? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Joachims Tethys? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Dex Filta 2? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Static Duafilt II? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 WhiteNoise s Filtron? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 WhiteNoise s HiFiltron? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Geonik s Resonator? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Ld Chainfilter? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Zephod Enveloper? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。 Zephod MoogFiltah? 入手 ? プリセット ? ヘルプ ? ソースコード ? ステレオ? 記事求む。
https://w.atwiki.jp/fns1556/pages/51.html
IP FILTER 例)vlan1から192.168.1.0/24宛てへのパケットをフィルターする Manager add ip filter=0 source=0.0.0.0 destination=192.168.1.0 dmask=255.255.255.0 action=exclude Manager add ip filter=0 source=0.0.0.0 action=include Manager set ip interface=vlan1 filter=0 vlan1のホスト(192.168.1.1)から外部への通信を全て遮断する Manager add ip filter=0 source=192.168.1.1 smask=255.255.255.255 action=exclude Manager add ip filter=0 source=0.0.0.0 smask=0.0.0.0 action=include Manager set ip interface=vlan1 filter=0 vlan1に来る192.168.2.0/24のパケットの遮断はどうやる? 要調査! Manager add ip filter=0 source=192.168.2.0 smask=255.255.255.0 action=exclude と同様にやっても何故かフィルター出来ず・・・/(^o^)\ナンテコッタイ
https://w.atwiki.jp/atwikimyj/pages/25.html
参考 [http //d.hatena.ne.jp/ZIGOROu/20061105/1162736838] CPAN [http //search.cpan.org/~mschilli/Log-Log4perl-1.10...] use宣言 use Catalyst Log Log4perl; ※Catalystのプラグインではない。 * log吐き出し先ファイルを設定(confのパーミッションを775にしてね) PACKAGE- log(Catalyst Log Log4perl- new("/var/www/vhosts/hoge.net/conf/log4perl.conf")); #PACKAGE setup; わからないけどsetupのメソッドを使うとエラーになる(なぜかDB内のUserテーブルが読めない!というエラー なんなんだ。。) エラーログにエラーが出る Log Log4perl configuration looks suspicious No loggers defined at /usr/local/lib/perl5/site_perl/5.8.8/Log/Log4perl/Config.pm line 308., referer http //hoge.net/user/Login/ ロガーを定義していないと思う、、とかわいいログが残っている。 confに何もかかれていない。でもエラーログにはいつもよりいろんなログが 出るようになった。 これでいいような。。。confの意味は?
https://w.atwiki.jp/atwikimyj/pages/15.html
perlバージョンアップ後に出てくる問題 perlのバージョンアップをすると、影響の出るものの一つに mod_perlがあるようだ。 perlのバージョンをあげて、mod_perlを利用してperlを起動させると Apacheの起動時に DynaLoader object version 1.05 does not match $DynaLoader VERSION (以下メッセージは延々続く・・) というようなエラーが出てhttpd自体が起動しなくなった。 DynaLoaderのバージョンがマッチしない・・? そもそもDynealoderって何? 調べると、perlからCで書かれたプログラムを呼び出すことができる モジュールらしい。 とりあえず再インストールを試みる。しかしCPANではそんなモジュールは 存在しない!とエラーで怒られる。調べるとperlのアプリケーション内に デフォルトでついてくるものらしい。なので個別でインストールとかは できないらしい。 手詰まり。何がおきているのやら、、。 ということでさらにエラーメッセージから調べる。 私と同じ問題にあたった人をapacheのメーリングリストで発見。 Mailing list archives(Apache-ML) http //mail-archives.apache.org/mod_mbox/perl-dev/200411.mbox/%3c20041119124457.GB3387@bongo%3e 結局 「perlをアップグレードしたら、mod_perlの静的なリンクが外れるから、 毎回mod_perlのrebuildが必要だよ」 というお答えが出ていた。。 つまり、CGIではなく、apache起動時にモジュール読ませて起動するperlは mod_perlになるのだが、このmod_perlが読み込むライブラリとDynaLoaderの ライブラリが不整合を起こしている(らしい)。なのでmod_perlをrebuild することでライブラリの整合が図れる、、はず。 mod_perlのrebuild rebuildだけやりたいけど、、よくわからん。大体意味もわからずにインス トールすると後で泣きを見る。とくにmod_perlってバージョンとか整合性 とかいろいろとデリケートだったような、、。 Apache1.xの環境ではmod_perl1.xを組み合わせ、 Apache2.xの環境ではmod_perl2.xを組み合わせる必要がある。 静的なインストールと動的なインストールがある 基本的にはapacheとmod_perlの両方を一度にビルドするべき などの情報がわかる。また、注意したいのは、mod_perl1.xについての情報 はたくさんあるが、MP2の情報は少なめ。よく読んでMP2の資料を探さないと いけない。 ということで下記が参考になった。 HATENA Diary NAOYA 「■ 10分で完了、mod_perl 2.0 で Hello, World!」 http //d.hatena.ne.jp/naoya/20060108/1136705441 isoya9の日記 「 [Linux] CentOS4 に mod_perl 2.02 をインストールする」 http //isoya.at.webry.info/200610/article_25.html 動的にmod_perlをインストールする場合は、先にapxsを インストールする必要がある。 # whereis apxs とコマンドを打って、何も出てこないのでapxsがインストール されていないことがわかった。 ということでWEBを参考にしながらapxsのインストール apxsはhttpd-develに含まれるため、 #yum install httpd-devel でインストールは終わり。 $ wget http //perl.apache.org/dist/mod_perl-2.0-current.tar.gz apacheのAPI削除 MP2インストール 上記のWEBサイトのとおりに作業をしてすんなりインストール完了。
https://w.atwiki.jp/atwikimyj/pages/55.html
TT⇒TTsite TTは便利なのだが、定型的なheaderやfooter関連処理が冗長になる。 ということでそのへんをまとめて処理してくれるのがTTsite。 TTを継承して、各種設定の変数や、ヘッダ、フッタ、エラー、ラッパー などを簡単に扱えるようにしてくれたもの。 <TTからの移行ではまる> (1) create.pl/ (2)ymlの書き換え TT.pmに直接かかずにymlに書いていた。 TTsiteをインストールした直後では、TT.pmはまだTTのときの もののままで、TT.pm.newがTTsiteが作ったtt.pm これを置き換える。 (3)TTsiteのTT.pmの設定をymlに追い出す 略。あとでやる。 (4)画像、css、ttファイルのパスについて 環境: static simpleを使用(パス指定なし) config(ymlファイル)では View TT INCLUDE_PATH - root/src #削除。普通はroot/srcに入れる - root/lib #削除。普通はroot/srcに入れる #static以下にcss、画像、template、TTsite用ファイル全て置くために以下追加。 - root/static/tmpl - root/static/src - root/static/lib - root/static - root/tmpl TEMPLATE_EXTENSION .tt PRE_PROCESS - config/main WRAPPER - site/wrapper ERROR - error TIMER - 0 パスの実例: ・画像ファイル、cssファイル ⇒root以下 (/が必要) img src="/static/images/dft/bg_kado2.gif" link rel="stylesheet" type="text/css" href="/static/css/default.css" ・TTファイル root/tmpl 以下 pmファイルでは $c- stash- {template} = user/regist/regform.tt ; TT内では?
https://w.atwiki.jp/perlism/pages/11.html
Perl 【読み】ぱぁる 【属性】プログラミング言語 ラリーウォール氏により開発され、インタプリタ式でC,AWK,シェルライクな、いまやCGIの代名詞と言っても過言ではない、他の言語とは比べ物にならないほど柔軟性に富んだプログラミング言語である。 ただ、その柔軟性が裏目に出ることがほとんどで、Aというプログラムでは通用したコードも、ひとたびBというプログラムで同じものを書くと、全く通用しなくなるといったことが起こりやすい言語である。 某人曰く、「Practical Extraction and Report Language」(実用的データ取得レポート作成言語) また某人曰く、「Pathologically Eclectic Rubbish Lister」(病的折衷主義のガラクタ出力装置)