PERL

クラスを使ってみる

訳あってperl。 新しいのと古いのが混在していて、どこを参照すべきか分からないなぁ… #!/usr/bin/env perl use warnings; use strict; use Carp; package Foo; sub new { my $class = shift; my $self = { x => 100 }; return bless $self, $class; } sub f…

デストラクタ

デストラクタがあることに少しびっくりした。 参照カウンタの成せる技かな。 #!/usr/bin/env perl use warnings; use strict; use Carp; package Foo; sub new { my ($class, $x) = @_; print "Foo::new($x)" . "\n"; bless { x => $x }, $class; } sub func…

URLデコード

非破壊的な置換ってどうやるんだろう? #!/usr/bin/env perl use warnings; use strict; use Carp; sub url_decode { my ($str) = @_; $str =~ s/%([\da-f]{2})/pack('C', hex($1))/egi; return $str; } my $x = "%83E%83B%83L%83y%83f%83B%83A"; print url_…