sitemap.xmlからurl抜き出してテキストに保存

use utf8;
open(FILEHANDLE, 'sitemap.xml');
$i=0;
while($line = <FILEHANDLE> ){
if($line =~ /<loc>(.+?)<\/loc>/){
$source .= $1."\n";
}
}

close(IN);
print $source;
open(OUT, "> url.txt");
print(OUT $source);
close(OUT);

ファイルを1つコピーするだけでWindowsXPの再アクティベートを回避する術

http://www.lifehacker.jp/2008/09/1windowsxp.html

Class::Accessor

package Class;
use base qw( Class::Accessor::Fast );
__PACKAGE__->mk_accessors( qw(X Y) );

# オブジェクトを作成して返す

sub new{
my $class = shift;
my $self = {
X => 10,
Y => 100,
};

return bless $self, $class;
}
------------------
use Class;

my $obj = new Class;
$aa = $obj->X;#引数をゲット
print $aa;
print "\n";
$obj->X(200);#引数をセット
print $obj->X;
-----------
10
200

use base qw(Human)

use base は、引数に与えられたモジュールを require しますので、use をする必要はありません。
これによって、Bakerクラスは、Humanクラスのメソッドを継承出来ます。
http://www.rwds.net/kuroita/program/Perl_oo.html

いまさら聞けないPlagger入門編

http://d.hatena.ne.jp/toshi123/20060911#p1

illustratorのVector素材サイト

http://dezignus.com/

MySQL複数行 INSERT

INSERT INTO table (id, name) VALUES (1,"いち"),(2,"に"),(3,"さーん！！");

http://d.hatena.ne.jp/tech_onoue/20080124/1201222762