Now, next, and beyond: Tracking need-to-know trends at the intersection of business and technology AI/ML Few technologies have the potential to change the nature of work and how we live as artificial intelligence (AI) and machine learning (ML). Future of the Firm Everything from new organizational structures and payment schemes to new expectations, skills, and tools will shape the future of the fi
Webページを読み込んで何か処理して表示するラッパーCGIのテンプレート(Perl) 2008-11-04-2 [Programming] 指定されたURLのウェブページを読み込んで、中で何かをしてそのまま表示するという一連の処理を実現するための CGI のテンプレート。 言語は Perl。 #!/usr/bin/perl use strict; use warnings; use Encode; use CGI; use URI; use LWP::Simple; use utf8; my $q = new CGI; my $url = $q->param('url') || ""; my $cont = $url ? (get($url) || "") : ""; my ($page_charset, $page_encoding) = ("UTF-8", "utf8"); if ($
CGIのセッションデータを保持するための簡易なモジュールです。 Walrus::Session::Liteモジュールでは、データの保存先はファイルに限られ、できることはセッションIDの生成と、ハッシュデータの保持だけです。 その代わり、Walrus::Session::Liteはどんな環境でも動き、簡単にCGIと一緒に配布できることを目指して作成されています。 Walrus::Session::Lite自身はPure Perlモジュールで、必要とする外部のライブラリ/モジュールはやはりPure PerlのDigest::Perl::MD5.pmのみです。 以下のURLから取得して下さい。 http://digit.que.ne.jp/work/product/module/Walrus/Session/Lite/Lite_0.3.tar.gz このファイルはWalrus::Session:
「Webプログラミング5大基礎知識」のPart4では,いよいよ実践的なプログラミングに移ります。WebサーバーのApacheとスクリプト言語であるPerlを使って,簡単なプログラムを書いてみます。変数やハッシュ,配列の考え方などは,ほかの言語にも応用できます。 これからWebプログラミングを勉強するという人でも,「Perl」という単語くらいは聞いたことがあると思います。Perlは,汎用的なインタプリタ*1言語ですが,どちらかと言えば「Webプログラム用に設計された言語」という印象を持つ人が多いかもしれません。これは,Perlの持つ「文字操作に強い」という特徴が,テキストで構成されたHTML文書を動的に生成するWebアプリケーションの世界と親和性が高いからに,ほかなりません。 一方で,ある程度Webプログラミングをご存じの読者であれば,「何で今さらPerl?」と思うかもしれません。Perlで
CGI.pmのアップロード後のファイル処理を高速に行う スポンサードリンク Tweet とりあえず手っ取り早くファイルアップローダを作らなくちゃならなくなったとき用の汎用ルーチンとしてCGI.pmを使ったアップローダのソースをあげておこうと思いました。自分用のメモだけど単純にアップロード後の処理が高速なので参考にされるといいかと思います。 fillename:upload.cgi #!/usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); use File::Copy; use File::Basename; my $upload_dir = 'upload'; # 保存先のディレクトリ my $q = CGI->new(); # CGIオブジェクト my $fh = $q->u
データの表示時のページングは、頭痛いですよね、自分で実装すると。。 というわけで、やっぱりこういうときは、cpan 様様 。 Data::Page 結果集合に対するページング支援。 とてもシンプル。 簡単なページングならこれで間に合うかな、と思ったけど、 書き方次第では結構色々できそう。 TT+DBIx::Class の合わせ技が素敵DBIx::Classのページング処理 Data::Pageset Data::Page の強力版といったところか。 ここのがわかりやすそうData:Pageset使ってページングをスマートに TTとか使わない場合はこっちのがいいのかな? TT使ってるので、TT+Data::Page で実装。 とりあえず適当に書いてみたけど、なんかいまいちだなぁ。 なんかうまくできないもんですかね。。 CGI部分 #!/usr/bin/perl use Data::Page;
[トップページ][Namazu(Perl版)設置ノウハウ][Namazu正規版インストール覚え書き] 日本語全文検索エンジンソフトウエアにはさまざまな種類が公開されています。サーバーに負荷をかけず、大規模なサイトの検索に向くのはC言語で書かれたプログラムですが、コンパイルの必要がありますし、多くのプロバイダでtelnetを禁止している現状では個人のサイトに設置するのは難しいようです。 ここでは設置が比較的簡単なPerl版のスクリプトを取り上げます。個人の小規模サイトならこれで十分でしょう。ホームページに全文検索エンジンを設置したいと考えている人の参考になれば幸いです。 (いちいち読んでいる暇がない方は、結論をどうぞ)。 比較するのは下記の18のスクリプトです(かっこ内は作者のホームページ)。 【grep】 1.WASearch(鷲崎弘宜のページ) 2.WwwSearch(とほほの
来年も作りたい!ふきのとう料理を満喫した 2024年春の記録 春は自炊が楽しい季節 1年の中で最も自炊が楽しい季節は春だと思う。スーパーの棚にやわらかな色合いの野菜が並ぶと自然とこころが弾む。 中でもときめくのは山菜だ。早いと2月下旬ごろから並び始めるそれは、タラの芽、ふきのとうと続き、桜の頃にはうるい、ウド、こ…
[pod] [xml] 名前 CGI::Carp - HTTPD(またはその他)にエラーログを書込むためのCGIルーチン 概要 use CGI::Carp; croak "We're outta here!"; confess "It was my fault: $!"; carp "It was your fault!"; warn "I'm confused"; die "I'm dying.\n"; use CGI::Carp qw(cluck); cluck "I wouldn't do that if I were you"; use CGI::Carp qw(fatalsToBrowser); die "Fatal error messages are now sent to browser"; 説明 CGIスクリプトはタイムスタンプもされず完全に識別もされないエラーログに
NAME Test::WWW::Mechanize::CGIApp - Test::WWW::Mechanize for CGI::Application SYNOPSIS # We're in a t/*.t test script... use Test::WWW::Mechanize::CGIApp; my $mech = Test::WWW::Mechanize::CGIApp->new; # test a class that uses CGI::Application calling semantics. # (in this case we'll new up an instance of the app and call # its ->run() method) # $mech->app("My::WebApp"); $mech->get_ok("?rm=my_run_m
[pod] [xml] 名前 CGI - 簡単なCGI(Common Gateway Interface)クラス 概要 # 画面一杯のフォームを作成し、その値をエコーバックする # CGIスクリプト use CGI qw/:standard/; print header, start_html('A Simple Example'), h1('A Simple Example'), start_form, "What's your name? ",textfield('name'),p, "What's the combination?", p, checkbox_group(-name=>'words', -values=>['eenie','meenie','minie','moe'], -defaults=>['eenie','minie']), p, "What's your fa
Perl で CGI を開発するうえで役に立つ Perl モジュールはいくつもありますが、 その中でも有名なモジュールと言えば CGI.pm でしょう。 かつては Perl5 に標準モジュールとして組み込まれていた定番モジュールです。 しかし、Perl による CGI 開発が少なくなってきたという動向も影響したせいか、 最新の Perl5 では標準モジュールから外されてしまいました。 しかし、いまなお、多くのレンタルサーバーで利用することができます。 本記事では、CGI.pm の基本的な使い方を解説します。 また、もし最新の Perl5 の環境で CGI.pm がインストールされていないレンタルサーバーでも、 CGI.pm を組み込む方法についても解説します。 目次 CGI.pm のバージョンアップに伴う変化 前述の通り、かつて CGI.pm は Perl5 の標準モジュールでした。 その
PerlでXMLRPC::Liteを使ってXML-RPC サーバーを実装するための最も簡単な例としては、「XMLRPC::LiteでHello, World!」参照していただければ良いのですが、この例だけではクライアントとサーバーの間で具体的にどうやってデータのやり取りを行うのかつかみにくいので、ブログエディターのAPIとして使われているXML-RPC APIでデータを受け渡すだけのサンプルプログラムを作ってみました。処理の内容は、クライアントから渡されたパラメータをサーバー側でログファイルに書き出し、サーバーから返されたデータをクライアント側で画面に出力しているだけです。 XMLRPCサーバー(CGI) - xmlrpc.cgi (一部抜粋) #!/usr/bin/perl use strict; use warnings; use XMLRPC::Transport::HTTP; my
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く