#!usr/bin/perl
use warnings;
use strict;
use Getopt::Long;
use File::Basename;
use PerIO::gzip;
use Cwd;
=head1 name
myfile,pl
#介绍此脚本功能
=head1 example
perl myfile.pl -参数1 ******** -参数2 ********* -参数 ******** 2>myfile.log
=head1 description
-参数1 <str> ********
-参数2 [str] ********
-参数3 [int] ********
-参数4 [flt] ********
-参数 ********
-help help
=head1 author
[email protected]
=head1 version
1.0 2017-07-15 15:00
=cut
#显示时间信息
my $time=`date`;
print STDERR "|-- Start $0 at time: ".$time."\n"; #$0指代的就是myfile.pl脚本
时间: 2024-08-02 12:04:28