Perl に詳しくなりたいな。 前は Perl ではこうこうするのにって思った事がここん所 PHP ではこうするけど Perl の場合は、どう何だろうって思ったりします。 mimic28号でした。

use strict; use warnings; #http://www.rfs.jp/sb/perl/05/localtime.html my $unix_time = 1236729600; my($sec ,$min ,$hour ,$mday ,$mon ,$year ,$wday ,$yday ,$isdst) = localtime($unix_time); $year += 1900; $mon++; print sprintf('%04s-%02s-%02…

use strict; use warnings; use Time::Local; my $year = 2009; my $mon = 3; my $mday = 11; my $hour = 0; my $min = 0; my $sec = 0; print timelocal($sec ,$min ,$hour ,$mday ,$mon - 1 ,$year); #http://www.rfs.jp/sb/perl/05/localtime.html __END_…

java-ja で知った http://gihyo.jp/dev/serial/01/tdd/0001 (TDD) を Perl でする場合は、どの module を使うんだろう。 testing Framework はどれがええのんかね〜。 Test::Unit::TestCase を使った事があるけど、今は多分違うものが流行っているんだろうな…

場合場合によって違うのは重々承知ですが、想像で書いてみます。 web server - Apache 2.x.x DataBase - MySQL 5.X O/R mapper - Class::DBI string code engine - Jcode template engine - Template-Toolkit 2.x 一番、気になっているのが、O/R mapper です…

#!/usr/bin/perl use strict; use warnings; if(scalar(@ARGV) != 2){ warn('usage: ' . $0 . ' TEXT1 TEXT2' . "\n"); exit(); } my $file = shift(@ARGV); my $minus_file = shift(@ARGV); open(FH ,$file) || die("Can't open file: $!"); my $csv; chop(…

CPAN の WWW::YouTube::VideoURI を使う事で解決。 #!/usr/bin/perl use strict; use warnings; use CGI; use LWP::Simple; use WWW::YouTube::VideoURI; my $q = CGI->new; my $v = $q->param('video'); my $yt = WWW::YouTube::VideoURI->new; my $video_u…

探したら、存在したは存在したんです。 http://q.hatena.ne.jp/1100235511 かなり古いので、今ならどうなんだろうな〜〜。 気になりました。 それにしても、かなり古くからあるんやな〜〜。 thumbnail で探したら、これが出てきた。 ttp://www.res-system.co…

su - password: aptitude install gzip tar make lynx #gzip tar make lynx 必須 perl -MCPAN -e shell #今は cpan でも setup が開始される。 Cache size for build directory (in MB)? [10] 128 #後々増やしたくなるので増やしておく。cpan> o conf init …

ttp://phpspot.org/blog/archives/2007/01/plaggerphpprhag.html ttp://project-p.jp/halt/kinowiki.php/page/FrontPage Plagger のPHP版です。 Plagger よりとっつきやすければいいな〜。 Plagger もやってみたい技術だ。 mimic28号でした。

ttp://www.cs.wcupa.edu/~rkline/perl2php/ Perlの方が typing 量が少なくって済むな〜〜。 後、慣れているし。 PHP も慣れる必要があるな。 mimic28号でした。

Perl の場合 array の 1つ1つの scalar 化 は、勝手に展開されるので、何も考えなくて良かったですけど。 PHPの場合は、どうやってするねん。 list っていう関数あるけど、1つ1つの scalar に分ける為に、loop を回すのか? #引数を scalar で渡さないといけ…

うろ覚えで Perl の Program を書いた。 どの特殊変数だったけな〜〜思い出した。 ttp://www.rfs.jp/sb/perl/02/nw01.html 忘れない内に書き残しておこう。 #!/usr/bin/perl use strict; use warnings; my $csv_file = shift(@ARGV); open(FH, $csv_file) ||…

hw.pl #!/usr/bin/perl -w use strict; print('Hello world!');上記の code を exe に変換する。 >pp -o hw.exe hw.pl出来ました。 >hw.exe Hello world!ちゃんと表示されました。 Perl の環境の無い場所でも、これで、 tools を提供できますね〜〜。 mimic2…

web 上の資料を読む事で、現在はActivePerl *1 を入れて、 PPMの参照場所を追加して通常の Install 手順で いけるじゃないかなと思いましてやったら出来ました。 提供元 ttp://par.perl.org/ PPM version 3.4. の場合 >ppm ppm> rep add bribes http://www.b…

PerlでImageMagickを使ってみました。 #!/usr/bin/perl -w use strict; use Jcode; use Image::Magick; #合成したい文字列 my $text = 'ABC日本語123'; #UTF-8へ変換 $text = jcode($text)->utf8(); my $image = Image::Magick->new(); $image->Set('size' =…

ttp://www.activestate.com/ ttp://www.activestate.com/Perl.plex?hdr=1 DownLoad 場所 ttp://www.activestate.com/Products/Download/Download.plex?id=ActivePerl 後は、Installer を使って Install するだけです。 mimic28号でした。