perlスクリプトのテンプレート
#!/usr/local/bin/perl -w # podドキュメント ########### =head1 NAME $RCSfile$ $Id$ =head1 SYNOPSIS =head1 DESCRIPTION =head1 AVAILABILITY =head1 ENVIRONMENT =head1 AUTHOR $Author$ =head1 FILES =head1 SEE ALSO =head1 DIAGNOSTICS =head1 BUGS =head1 NOTES =cut =comment =cut # podドキュメントend ########### ############################################### use strict; # 必ず入れる use diagnostics; # 必ず入れる use Carp; # die() ではなく confess()を使用する use Data::Dumper; # デバッグの友 use English; # $X系とサヨナラ use warnings; # 使用を推奨。5.0系では使用不可 use Class::Struct; # 構造体モジュール。5.0系ではコンストラクタでの代入が効かないので注意 if(__FILE__ == $PROGRAM_NAME){ print "$PROGRAM_NAME \n"; print "this is local test \n"; print Dumper("@data:",(1,2,3,4),"\n"); }
すぐ忘れるからメモ。パッケージ使うならCarp。