2010年4月2日金曜日

簡単なPerlモジュール

スズキです。

こんな感じです。

--------【Sample.pm】--------
package Suzlab::Sample;

use strict;
use warnings;
use Carp;
use base qw(Class::Accessor::Fast);

sub test {
  print("sample");
}

1;
__END__
--------

--------【sample.pl】--------
#!/usr/bin/env perl

use strict;
use warnings;
use Carp;
use Suzlab::Sample;

my $sample = Suzlab::Sample->new();
$sample->test();
--------

そろそろ、ブログも復活していかないと...

--------
http://www.suz-lab.com

0 コメント: