- 论坛徽章:
- 0
|
package Fayland;
use strict;use warnings;
use vars qw/$VERSION/; $VERSION = '0.033';
@_ = qw/Blog/2008 Journal/2005 Talks Services/;
print <<Introduction;
Yup, I'm fayland. Welcome 2 my site. Enjoy!
欢迎来访。此为 fayland 的个人站点。
A Chinese guy who love Perl only less than his girl.
喜欢用 Perl 做所有可能的事。
Inrtoduction
my $Summary = <<;
* 2006-3-11 moving from Journal/2005 to Doodle/2006
* 2005-5-10 I'm the maintainer of China.pm for now.
* 2005-4-23 Finally I release the Eplanet-Beta, Enjoy!
* 2005-3-28 It's roughly done. Still need more work. See this journal for more details.
* 2005-3-26 I want to use Catalyst to build my new site. It may take several days. God bless me.
sub directory {
for (@_) {
/^CPAN$/ && $q->redirect('CPAN');
/books?/i && $q->redirect('Books');
/Synopsis/i && $q->redirect('Synopsis');
-e $_ && $q->redirect('$_');
die 'What are u looking for? my email?';
}
}
# Contact
my $email = join('', 'fayland', '@', 'gmail', '.', 'com');
1; # let mummy happy |
|