サクサク読めて、
アプリ限定の機能も多数！
アプリで開く
Perl › herePerl5.8以降における標準的なPerlの書き方を解説します。 インターネットで検索するとPerl4のころの古い記述がたくさんあります。また書籍などの多くもPerl4の記法で書かれています。Perl4の記法は複雑になりやすく間違いを生みやすいのでこれからPerlを書く人はPerl5の現代的な記法で記述することを強くお勧めします。 strictプラグマとwarningsプラグマ (必須) strictプラグマとwarningsプラグマを有効にします。 use strict; use warnings; use strict;とuse warnings;の２行はスクリプトの最初に必ず記述してください。これらはPerlの文法チェックを厳しくするためのものです。面倒だという軽い気持ちでこれを記述しないと後々本当に面倒なことになります。 use strict;とuse wa
CGI・Perl例文集CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：デバグ エラーを表示する 実行しているCGIに致命的なエラーが発生した際に通常は「500 Internal ServerError」となり異常終了するところを、エラーメッセージなどを表示したい。CGI::Carpモジュールを利用すれば良い。 使い方は非常にシンプルで、CGI::Carpモジュールをuseする際に'fatalsToBrowser'を渡してやれば良い。 ;# ;#異常終了時にエラーメッセージを表示する ;# use strict; useCGI::Carp qw(fatalsToBrowser); #-- わざと異常終了 --# die('debug now'); もしくは次のような簡単なCGIをあらかじめ設置、別ウィンドウで実行しておきエラーが発生したら再読
{{tag: docomo}} ドコモのキッズケータイ、具体的には京セラの KY-41C で +メッセージアプリが開けなくなったときの対処法。 症状 キッズケータイ KY-41C で +メッセージを開こうとすると「ストレージ容量が不足していて開けない」と言われて+メッセージが起動できなくなる。 原因 エラーメッセージの通り、端末のストレージ容量がいっ... つづきを読む
TWikiプロジェクトは16日(現地時間)、高機能なWikiクローンであるTWikiの最新版「TWiki 4.1.0」を公開した。TWikiはPerlで記述されたWikiクローンで、非常に豊富な機能を持ち、汎用性が極めて高いことで知られている。 TWikiは主に次のような機能を備えている。 シンプルな機構のため多くのWebブラウザに対応 キーワードやURLの自動リンク 高機能なテキストフォーマット ページ内の全文検索が可能 ページの変更をE-mailで通知 ファイルのアップロード/ダウンロード グループやユーザによるアクセスコントロール 豊富な内部変数によってページをカスタマイズ テンプレートやスキンによるカスタマイズ ページやユーザなどの管理機能 最新情報のRSS配信 プラグインモジュールによる拡張が可能 TWikiを利用すれば、どんな規模のサイトでも容易に構築することが可能であり、しか
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
2008年07月02日23:00 カテゴリLightweight Languagesperl - デフォルト値のperlらしい指定法Perl Cookbook (English) Christiansen / Torkington [邦訳:Perlクックブック] これでもよいのだけど、さらに恰好つけるとよりperlらしくなるので。 デフォルト値の扱い。 - サンプルコードによるPerl 入門Scalarによるデフォルト値 sub num{ my $num = shift; # .... } ここは sub num{ my $num = shift || -1; # .... } の方がわかりやすい。0または''を入力値、すなわち非デフォルト値として扱いたい場合のみ、 sub num{ my $num = shift; $num = -1 if not defined $num;
[Perl] LWP::UserAgentを利用すればWEBデータを取得できます。GETメソッドのみでしたらLWP::Simpleの方が簡単です。ちなみにhttpsでの取得も可能ですが、Crypt::SSLeayがインストールされている必要がある。 [サンプル] #!/usr/bin/perl use LWP::UserAgent; my $ua = LWP::UserAgent->new; #タイムアウトを設定 $ua->timeout(10); #ユーザエージェントを設定 $ua->agent('Mozilla'); #GET、PUT、POST、DELETE、HEADのいずれかを指定（httpsの場合はhttpsにするだけ） my $req = HTTP::Request->new(GET => 'http://www.ksknet.net'); #リファラーを設定 $req->ref
はじめにperlでCGI::Session.pmを使ってセッション管理を行う．idの生成・抹消をはじめ，セッション管理に必要な様々な機能を提供してくれ，非常に便利である．CGI::Session.pmは必要なデータをサーバに置く．すなわち，セッションidを生成した後，サーバ内にidに対応するファイル（DBを指定することも可能）を生成する．セッションで必要なデータはサーバのファイルに保管し，プログラム間を行き来するのはセッションidのみである．CGI.pmも一緒に使うと利便性はさらに高くなる． 動作環境 動作環境は以下の通りである．Windows XP上でWindows版のApache，cygwin版のperlが動いている．Windows XP Professional Apache 2.0.48（Windows版） cygwin 1.5.7-1perl 5.8.0 インストール
愛国 2000/02/03(木) 19:36:19 $MOVIES{'仁義なき戦い'} += 1; とかは危険ですか？ B-Cus 2000/02/03(木) 19:41:21 文字コードに EUC か SJIS を使って、常に '' で囲んでいれば 問題ない…と思いますが、まずいんでしたっけ?＞諸氏 ふじ 2000/02/03(木) 22:25:10 SJISでスクリプトを書いている場合、最後の文字の2byte目が \ に相当する 場合がまずいです。 $hash{'表'} = 1; これを SJIS で書くと、エラーになります。 もっとも、これは hash のキーに限ったことではないですけど EUCなら、問題ないと思います。 # 少なくとも、問題が生じた経験はないです(^^; http://www.tohoho-web.com/wwwxx005.htm
Perl でCGI を開発するうえで役に立つPerl モジュールはいくつもありますが、 その中でも有名なモジュールと言えばCGI.pm でしょう。 かつてはPerl5 に標準モジュールとして組み込まれていた定番モジュールです。 しかし、Perl によるCGI 開発が少なくなってきたという動向も影響したせいか、 最新のPerl5 では標準モジュールから外されてしまいました。 しかし、いまなお、多くのレンタルサーバーで利用することができます。本記事では、CGI.pm の基本的な使い方を解説します。 また、もし最新のPerl5 の環境でCGI.pm がインストールされていないレンタルサーバーでも、CGI.pm を組み込む方法についても解説します。 目次CGI.pm のバージョンアップに伴う変化 前述の通り、かつてCGI.pm はPerl5 の標準モジュールでした。 その
Algorithm::Diff で類似文字列検索 2008-04-22-3 [Algorithm][Programming]Perl のモジュール Algorithm::Diff[2004-12-12-2]を使って、線形時間で類似文字列検索するサンプルプログラム。 まあ、 agrep があればそれでいいんですけどね。 サンプルコード(ads.pl)： #!/usr/bin/perl use strict; use warnings; use Algorithm::Diff; use utf8; use Encode; use open ':utf8'; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; my $key = shift; my @seq1 = split(//, decode('utf-8', $key)); while (<
1リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
