Reference
NamingSense::TokuLog! - アートワークを Perl で設定する方法http://d.hatena.ne.jp/tokuhirom/20060218/1140279373
use Number::Phone::JP;
my $tel = Number::Phone::JP->new('012', '34567890');
print "This is valid!!\n" if $tel->is_valid_number;
$tel->set_number('098 7654 3210');
print "This is valid!!\n" if $tel->is_valid_number;
$tel->import(qw(mobile PHS));
$tel->set_number('090-0123-4567');
print "This is valid!!\n" if $tel->is_valid_number;
use Regexp::Assemble;
my $ra = Regexp::Assemble->new;
$ra->add( 'ab+c' );
$ra->add( 'ab+-' );
$ra->add( 'a\w\d+' );
$ra->add( 'a\d+' );
print $ra->re; # prints a(?:\w?\d+|b+[-c])
use CGI;
use Authen::TypeKey;
my $q = CGI->new;
my $tk = Authen::TypeKey->new;
$tk->token('typekey-token');
my $res = $tk->verify($q) or die $tk->errstr;
## In httpd.conf or .htaccess:
PerlModule Apache::AuthTypeKey
PerlSetVar TypeKeyPath /
PerlSetVar TypeKeyLoginScript /login.pl
## These documents require user to be logged in.
<Location /protected>
AuthType Apache::AuthTypeKey
AuthName TypeKey
PerlAuthenHandler Apache::AuthTypeKey->authenticate
require valid-user
PerlSetVar TypeKeyToken your_token
</Location>
## This is the _return URL that the login.pl script should point to.
<Location /login-protected>
AuthType Apache::AuthTypeKey
AuthName TypeKey
SetHandler perl-script
PerlHandler Apache::AuthTypeKey->login
PerlSetVar TypeKeyToken your_token
</Location>
#!/usr/bin/perl
use Email::Valid;
print (Email::Valid->address('user@example.com') ? 'yes' : 'no');
#!/usr/bin/perl
use Mail::CheckUser qw(check_email last_check);
my $email = 'user@example.com';
if(check_email($email)) {
print "E-mail address <$email> is OK\n";
} else {
print "E-mail address <$email> isn't valid: ", last_check()->{reason}, "\n";
}
use Data::Validate::Email qw(is_email is_email_rfc822);
if(is_email($suspect)){
print "Looks like an email address\n";
} elsif(is_email_rfc822($suspect)){
print "Doesn't much look like an email address, but passes rfc822\n";
} else {
print "Not an email address\n";
}
1. | [Perl] | XML over HTTP な API を叩く |
2. | [Perl] | XML::Simple で parse |
3. | [Perl] | そのまま objToJson でJSONに変換 |
4. | [JavaScript] | XMLHttpRequest で結果取得 |
5. | [JavaScript] | JSON を eval |
6. | [JavaScript] | 復元したデータで DHTML |
#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
print BOLD RED "RED\n";
print BOLD GREEN "GREEN\n";
print BOLD BLUE "BLUE\n";
MySQL | PHP | $sql = mysql_escape_string($sql); |
MySQL | Perl | $sql =~ s/'/''/g; $sql =~ s/\\/\\\\/g; |
PostgreSQL | PHP | $sql = pgsql_escape_string($sql); |
PostgreSQL | Perl | $sql =~ s/'/''/g; $sql =~ s/\\/\\\\/g; |
SQLite | PHP | $sql = sqlite_escape_string($sql); |
Linux | PHP | $str = escapeshellarg($str); |
Linux | Perl | $str =~ s/'/\\'/g; |
PHP | $str = htmlspecialchars($str); |
Perl | $str =~ s/Reference入門 Ajax - pp.16入力行に時刻を付けて吐き出すフィルタSource
Usage% ping localhost | puttime - Reference viacl.pocari.org - 2005-12-06 - 入力行に時刻を付けて吐き出すフィルタhttp://cl.pocari.org/2005-12-06-7.html PerlMagickからImageMagickの使用例ReferenceCepheid - ImageMagickの使用例http://www.ss.iij4u.or.jp/~somali/web/im_example/im_example.html viaオレンジニュース - 2005-12-02http://secure.ddo.jp/~kaku/tdiary/20051202.html#p08 JavaScript::Swell - JavaScript のソースコードを整形ReferenceJavaScript::Swellviacl.pocari.org - 2005-11-27 - JavaScript のソースコードを綺麗に整形してくれる Perl モジュール JavaScript::Swellhttp://cl.pocari.org/2005-11-27-3.html YappoLogs: JavaScript::Swell - Web2.0 時代のHackモジュール http://blog.yappo.jp/yappo/archives/000343.html XML::Simple での XML::SAXSummary・ 環境変数 "XML_SIMPLE_PREFERRED_PARSER",またはパッケージ変数 "$XML::Simple::PREFERRED_PARSER" で利用するパーサーを指定可能・ これら設定が undef の場合,XML::SAX を優先的に使用 ・ これら設定は初期状態では undef ・ XML::SAX が内部的に利用するパーサーはユーザが最後にインストールしたSAXパーサーになる $XML::Simple::PREFERRED_PARSER = 'XML::Parser'; と書くと,XML::Parser が使われる Referencesearch.cpan.org: XML::Simple - Easy API to maintain XML (esp config files)http://search.cpan.org/%7Egrantm/XML-Simple-2.14/lib/XML/Simple.pm#ENVIRONMENT iandeth. - XML::Simple は遅い説における意外な落とし穴 http://iandeth.dyndns.org/mt/ian/archives/000589.html viaSledge::Plugin::TokuLog! - 「XML::Simple は遅い説における意外な落とし穴」についてhttp://d.hatena.ne.jp/tokuhirom/20051130/1133306919 どんぞこ日誌grep演算子でコードの密度を高めるReferenceCMS researcher - Perl: grep演算子でコードの密度を高めるhttp://d.hatena.ne.jp/ysano2005/20051112/1131752097 Module::Pluggable |