perl - 短縮URLを一行で展開する : 404 Blog Not Found
2011年01月03日06:00 カテゴリLightweight Languages perl - 短縮URLを一行で展開する Perlですから。 Schwarze SQ: 短縮URLを展開するRubyスクリプトを作ってみた なにやら短縮URLを使い、不正なサイトにアクセスさせウィルスに感染させる行為が流行っているらしい(まぁ想定の範囲内だが)。そこで、短縮URLを展開できるrubyスクリプトをちょちょっと作ってみた。perl -MLWP::UserAgent -lE \ 'say LWP::UserAgent->new->head(shift)->request->uri' \ http://j.mp/dankogai id:amachangが昔こさえてくれたこの短縮URLもhttp://blog.livedoor.jp/dankogai/と展開されるはずです。 もう少しverboseに
perl, et al. - キーの存在確認 : 404 Blog Not Found
2007年06月10日02:15 カテゴリLightweight Languages perl, et al. - キーの存在確認 本格的添削はあとまわしにして、Perlに限らないつっこみどころを先に。 [を] Wikipediaのキーワードリンクを使って関連語データを作ってみた ソースを見てすぐわかるのは、ハッシュキーの存在確認をdefinedでしているところ。このソースの場合たまたま動いてしまっているけど、「値が未定義」なのと「そもそも存在しない」とでは意味も異なる。以下のcode snippetを動かしてみれば、その違いがよくわかる。 my %hash = ( key => undef ); while(my ($k, $v) = each %hash){ printf "exists \$hash{$k} = %d\n", exists $hash{$k}; printf "def
こじこじのPC悪戦記 : binmode関数 その２
2009年06月22日18:53 カテゴリPerlプログラム binmode関数 その２ ブログネタ：perlプログラミング に参加中！ 前回、「binmode関数」の冒頭で、私はこう書いています。 use utf8; を宣言すると、フラグ付きの文字列をSTDOUTに出力する際、 Wide character in print at binmode.pl line なんたら みたいなエラーが出ます。 STDOUTって書いてますね。 そう binmode(STDOUT,'utf8'); と書いただけでは、binmode関数の機能は標準出力にのみ限定されるのです。 もしファイルへも出力しようとするなら、 binmode3(FILE,'utf8'); も書き加えておかなくてはなりません。 binmode(STDOUT,'utf8'); の場合は、プログラムの冒頭、 use utf8; とペアで記
[Perl] my と local と our の違いについて - 竹迫の近況報告
404 Blog Not Found:perl - myとourとscopeと みんな難しく考えすぎです。 （例外については後で考えることにして）とりあえず以下の基本をおさえておけば混乱することはないと思います。 ■ our 宣言について our はグローバル変数をスマートに使用するための宣言です。our は use vars と等価と考えてください。 our $var; は use vars qw($var); と等価。 our $var = 1; は use vars qw($var); $var = 1; と同じ動きをするもの、と覚えておけばOKです。それ以上の違いは基本的にないと考えて構いません。 ひとつ実用上の違いがあるとすれば、our は Perl 5.6 以降の built-in なのに対して、use vars は vars.pm の Perlスクリプトで実装されています。し
![[Perl] my と local と our の違いについて - 竹迫の近況報告](https://cdn-ak-scissors.b.st-hatena.com/image/square/e92af714c36668a34ee1fdf7dd8464828acfcc1d/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F8454420450103834818%2F17680117126987713958%2F1551691469)
perl - use Carp; # warn() と die() だけじゃなくて : 404 Blog Not Found
2008年06月30日04:00 カテゴリLightweight LanguagesTips perl - use Carp; # warn() と die() だけじゃなくて 以下のエラー処理の方法にちょっと口を挟みたくなったので。 エラー処理を行う。 - サンプルコードによる Perl 入門 warn() vs. die() まず、warn()の使い方。エラーに対して使ってはいけません。warnはその名の通り、あくまでもエラーではなく警告です。エラーの際にはdie()を使わなければなりません。 警告とエラーの違いですが、警告は「続けて処理してもいいけど、これはあなたの意図ではないかもしれません」という場合、エラーは「このままでは処理を続けられません」という場合です。 たとえばperlの場合、抜けた引数はundefなので、数値としては0、文字列としては''として解釈されます。それらをデフ
perl - use warnings; # -w でなくて : 404 Blog Not Found
2008年06月19日21:45 カテゴリLightweight Languages perl - use warnings; # -w でなくて 最近は、さすがにuse strict;されていない実践コードを目にすることもほとんどなくなってきたのだけど、まだ残っているのがuse warnings;利用。以下と併せて読んでいただけると幸いだ。 404 Blog Not Found:perl - use strict; # and be happy -w って何? warnings って何? まず、以下のプログラムを見てみよう。 #!/usr/local/bin/perl use strict; sub distance { my ( $a, $b ) = @_; return sqrt( $a**2 + $b**2 ); } print distance(@ARGV), "\n"; % p
Japan Perl Association
最新の情報 Tweets by yapcjapan Tweets by jpa_perl Perlとは Perlは1987年に初めて発表され、以来20年以上の長きに渡って進化し続けている言語です。インターネットの創世記にはCGIスクリプトを作成するのに多用されさらに有名になりました。 しかしPerl自体はCGIのための言語ではありません：世界中の開発者達が自作のライブラリを登録するCPANという巨大なライブラリネットワークを持ち、豊富なテスト・自動化ツールを駆使して堅牢なシステム開発を可能にする、「難しい事を可能に、簡単な事をさら に簡単に」してくれる最高のツールと言えるでしょう。 PerlはWeb、バイオインフォマティクス、システム管理ツールやテストフレームワークなど、すでに様々な分野で幅広く使用されており、今後も活躍が期待されています。 JPAは モダンかつ実践的なPerlの使用方法や
Perl programming documentation - perldoc.perl.org
#Perl 5.40.0 Documentation The perldoc program gives you access to all the documentation that comes with Perl. You can get more documentation, tutorials and community support online at https://www.perl.org/. If you're new to Perl, you should start by running perldoc perlintro, which is a general intro for beginners and provides some background to help you navigate the rest of Perl's extensive docu
Perlメモ
複数のプロセスでロック状態が異常であると判断し，そのうちの 1つがロックを解除したことにより，別のプロセスがロックしたにもか かわらず，先ほどロック状態が異常であると判断したプロセスによってこの正常なロッ クを解除されてしまう可能性があります． この方法の問題点は，異常なロック状態を解除する操作が正常なロック状態をも 解除できてしまうことにあります．逆に言えば，異常なロック状態を解除する操作に よって正常なロック状態を解除できなければ問題ないわけです．そのためにはどうす ればよいのか？ 答えはロック状態が常に変化していけば よいということです．そして，これを実現するのに都合がよいのが rename による方法になります． 最初のスクリプトで説明しますと，ロックファイルが lockfile という 名前のときがロックが解除されている状態で，lockfile987654321 のよう に後ろに
メールアドレスの正規表現
更新日 2019/5/3 戻る Perlメモへ - メールアドレスの正規表現へ Perl正規表現雑技へ 更新履歴 2019/05/03 「制御文字を除去する」「参考文献」RFC5321日本語訳のリンク修正 2009/08/13 $atextのバグ修正 2009/05/06 「正規表現を簡略化する」追記 2009/04/29 「旧形式を削除する」追記 2009/04/13 「IPアドレスを除去する」追記 目次 RFCに準拠したメールアドレスの正規表現 コメントと空白文字を除去する 制御文字を除去する IPアドレスを除去する 旧形式を除去する 正規表現を簡略化する 参考文献 RFCに準拠したメールアドレスの正規表現 メールアドレスについては RFC 5322 に addr-spec として書かれています． 下記は RFC 5322 に従って導き出した正規表現です． 14,277バイトあります．
メールフォームCGI
メールフォームCGIの概要Perlで書かれたメールフォームのCGIです。自動返信機能(オートレスポンダー)、必須入力項目をチェックしてくれるJavascriptファイルがセットになっております。とにかくシンプルに、簡単に設置できるよう心がけたつもりです。パーミションの設定ができる人であればおそらく設置できるかと思います。 項目の追加や必須項目の設定などは全てHTMLに記載するだけでOK。また、ユーザビリティを高めるための様々な機能を実装しております。メールフォームの設置やCGIで諦めた方はぜひお試し下さい。 メールフォームCGIの機能 レジューム機能 他のページに行っても、ブラウザを閉じない限り入力した内容が記憶されます。ブラウザを閉じる事により入力された内容が消えますので、セキュリティ面でも問題ありません。 スパムフィルター機能 Javascript実行環境下でしか動かないため悪意あるb
MP Form Mail CGI Standard版（メールフォーム CGI） - futomi's CGI Cafe
Web上にて、お問い合わせや注文などを受け付け、メールを指定のメールアドレスへ送信するメールフォームCGIです。添付ファイルも送ることができます。また、フォーム、確認画面、エラー画面は、テンプレート方式のため、自由にデザインすることができます。自動メール返信機能つきですので、お問い合わせいただいた方へのフォローも万全！ MP Form Mail CGI シリーズの中で、もっともシンプルかつ機能的なエントリーグレードです。各グレードの機能比較をご覧下さい。 マニュアル ダウンロード ご購入手続き 主な機能 ファイル添付 フォーム（入力画面）でファイルを指定して、添付ファイルとして受け取ることができます。さらに、添付ファイルのサイズの上限を制限したり、添付ファイルの拡張子を制限することもできますので、いたずら防止に効果的です。 Standard 版では、添付可能なファイルは 1 つです。複数の
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
フォームメール ライト - お問い合わせ - 「FormM@il Lite」 - シングスCGI
MailSend - メール送信フォーム（お問い合わせ、ご意見・ご質問）CGI(Perl)フリーソフト -