我在Perl中进行了大量编程,并在想如果人们有一个他们使用并愿意共享的“默认”模板Perl脚本。你有一个很好的Perl模板脚本吗?
我开始复制一个具有Getopt
函数的旧脚本。我在想人们会做类似的事情吗?
我在Perl中进行了大量编程,并在想如果人们有一个他们使用并愿意共享的“默认”模板Perl脚本。你有一个很好的Perl模板脚本吗?
我开始复制一个具有Getopt
函数的旧脚本。我在想人们会做类似的事情吗?
正如人们所说,在模块中有我的方法模板之前:use PMG::PMGBase;
和作为emacs用户的初始脚本escafolding,我有我的perl-insert-start和perl-add-get选项模板, :
(defun perl-insert-start()
"Places #!..perl at the start of the script"
(interactive)
(goto-char (point-min))
(insert "#!/usr/bin/env perl\n\n")
(insert "=head1 [progam_name]\n\n")
(insert " description:\n\n")
(insert "=cut\n\n")
(insert "use feature ':5.10';\n")
(insert "use strict;\n")
(insert "#use warnings;\n")
(insert "#use Data::Dumper;\n")
)
有点烦人。因此,在年底更容易,让我有一个Perl模板脚本(见下文),并与调用它的运行命令的区域:
#!/usr/bin/env perl
=head1 [progam_name]
description:
=cut
use feature ':5.10';
use strict;
use Getopt::Long;
my $prog = $0;
my $usage = <<EOQ;
Usage for $0:
>$prog [-test -help -verbose]
EOQ
my $help;
my $test;
my $debug;
my $verbose =1;
my $ok = GetOptions(
'test' => \$test,
'debug:i' => \$debug,
'verbose:i' => \$verbose,
'help' => \$help,
);
if ($help || !$ok) {
print $usage;
exit;
}
print template();
sub template {
##
### Here start the template code
##
return <<'EOT';
#!/usr/bin/env perl
=head1 [progam_name]
description: This script prints a template for new perl scripts
=cut
use feature ':5.10';
use strict;
#use warnings;
#use Data::Dumper;
use Getopt::Long;
# use Template;
# use PMG::PMGBase;
# use File::Temp qw/ tempfile tempdir /;
# use File::Slurp;
# use File::Copy;
# use File::Path;
# use File::Spec;
# use File::Basename qw(basename dirname);
# use List::Util qw(reduce max min);
# use List::MoreUtils qw(uniq indexes each_arrayref natatime);
# my $PMGbase = PMG::PMGBase->new();
my $prog = $0;
my $usage = <<EOQ;
Usage for $0:
>$prog [-test -help -verbose]
EOQ
my $date = get_date();
my $help;
my $test;
my $debug;
my $verbose =1;
my $bsub;
my $log;
my $stdout;
my $stdin;
my $run;
my $dry_run;
my $ok = GetOptions(
'test' => \$test,
'debug:i' => \$debug,
'verbose:i' => \$verbose,
'help' => \$help,
'log' => \$log,
'bsub' => \$bsub,
'stdout' => \$stdout,
'stdin' => \$stdin,
'run' => \$run,
'dry_run' => \$dry_run,
);
if ($help || !$ok) {
print $usage;
exit;
}
sub get_date {
my ($day, $mon, $year) = (localtime)[3..5] ;
return my $date= sprintf "%04d-%02d-%02d", $year+1900, $mon+1, $day;
}
sub parse_csv_args {
my $csv_str =shift;
return [split ',', $csv_str];
}
EOT
}
矿井很简单。
#!/usr/bin/perl
use Modern::Perl
当谈到喜欢的东西getopt的,没有我写的,使其价值,同时具有更详细的模板脚本中相当的共性。
当我需要一个用于许多类似脚本的基本模板时,我只需将类似的部分变成一个模块。然后,该脚本简化为类似:
use App::Foo;
App::Foo->run(@ARGV);
的App::Foo
将从模板模块继承和超越任何不同:
package App::Foo;
use parent qw(App::Template);
...
在App::Template
模块,你把任何你需要:
package App::Template;
sub run {
my($class, @args) = @_;
my $self = $class->new(...);
$self->init;
$self->process_command_line(...);
...
}
sub process_command_line { ... }
...
在CPAN上有这样的框架,但我认为这很容易做到这一点,并得到你n不用处理你不需要的部分就可以完成。
在我.vimrc
文件我有
au BufNewFile *.pl s-^-#!/usr/bin/perl\r\ruse strict;\ruse warnings;\r\r-
其中写道
#!/usr/bin/perl
use strict;
use warnings;
任何新的Perl脚本。我也有
au BufNewFile *.pm s-^-package XXX;\r\ruse strict;\ruse warnings;\r\r1;-
模块,但我倾向于使用Module::Starter
这些无论如何。
也许是一个无知的问题,但为什么'\ r'而不是'\ n'? – Telemachus 2010-09-25 16:03:21
@Telemachus因为这是什么工程? Vim有时候可能是一个奇怪的野兽。 – 2010-09-25 17:50:27
这就是我没有测试的结果。还有一件关于Vim我从来不知道(注意到,碰到过)的Vim。对于其他访问者,请参阅http://stackoverflow.com/questions/71323/how-to-replace-a-character-for-a-newline-in-vim和http://stackoverflow.com/questions/71417/why -is-ra-newline-for-vim – Telemachus 2010-09-25 18:11:32
:C-u M-| :~/scripts/perl-start-template.pl
从Emacs的一个空白缓冲区选择一个空格后我有两个。一老一比一的包装到Perl的一个班轮和第二,有更多的功能和例子,我经常发现有用的多一点:
#!/usr/bin/perl
# name_of_script ver 0.01 YYYYMMDD [email protected]
use strict;
no strict "refs";
sub footer
{
my $this_year=`date +%Y`; chop($this_year);
print "Copyright 2003-$this_year You or Company\n";
# This isn't how copyright works - the dates cove the time when the code
# was created.
}
sub help
{
print "Usage: $0\n";
&footer;
exit(0);
}
if(($ARGV[0] =~ /^-+h/i) || (!$ARGV[0]))
{
&help;
}
##### code
##### end of code
print "Done that\n";
exit(0);
我用上面的快速测试,但更多的时候我用以下,(当我没有黑客一个完整的模块。)
#!/usr/bin/perl
# name_of_script ver 0.01 YYYYMMDD [email protected]
use strict;
{
no strict "refs"; # this helps bypass frustration when I'm doing it wrong.
}
=head1 NAME
name_of_script
=head1 VERSION
0.01
=cut
our $VERSION = 0.01;
=head1 ABSTRACT
A synopsis of the new script
=head1 DESCRIPTION
Provide an overview of functionality and purpose of
this script
=head1 OPTIONS
%opt stores the global variables
%ignore overrides %opt
=cut
my (%opt,%ignore);
=head2 ARGS
=over 8
=item B<-h> send for help (just spits out this POD by default, but we can chose something else if we like
=back
=head3 other arguments and flags that are valid
For when GetOpt is too heavy
-d -v -i[!] (value)
=cut
for(my $args=0;$args<=(@ARGV -1);$args++){
if ($ARGV[$args]=~m/^-+h/i){ &help; }
elsif ($ARGV[$args] eq '-d'){ $opt{D}++; }
elsif ($ARGV[$args] eq '-v'){ $opt{verbose}++; print "Verbose output not implemented yet - try debug\n";}
elsif ($ARGV[$args]=~m/-+i!(.+)/){ delete($ignore{$1}); }
elsif ($ARGV[$args]=~m/-+record(.+)/){ $opt{record_data}++; }
elsif ($ARGV[$args]=~m/-+w(ipe_home_dirs)?/){ $opt{wipe_home_dirs}++; }
elsif ($ARGV[$args]=~m/-+i(.+)/){ $ignore{$1}=1; }
elsif ($ARGV[$args]=~m/-+path(.+)/){ $opt{BASE_PATH} = $1; }
elsif ($ARGV[$args]=~m/-+path/){ $args++; $opt{BASE_PATH} = $ARGV[$args]; }
elsif ($ARGV[$args]=~m/-+dir(.+)/){ $opt{BASE_PATH} = $1; }
elsif ($ARGV[$args] eq '-no-xml'||$ARGV[$args] eq '-no_xml'){ delete $opt{xml}; }
elsif ($ARGV[$args] eq '-no-mkdir'||$ARGV[$args] eq '-no_mkdir'){ delete $opt{mkdir}; }
elsif ($ARGV[$args] !~m/^-/ && -d "$ARGV[$args]"){ push @{ $opt{paths} }, $ARGV[$args] }
else{ print "what is this $ARGV[$args] you talk of?\n"; &help; }
}
=head1 METHODS
=head3 footer
Adds the Copyright line to any output that needs it
=cut
sub footer { print "perldoc $0 \nCopyright 2011 You or Company\n"; }
=head3 help
Just the help output
=cut
sub help {
print `perldoc $0`;
#print "Usage: $0\n";
#&footer;
exit(0);
}
##### code
##### end of code
=head1 BUGS AND LIMITATIONS
There are no known problems with this script.
Please report any bugs or feature requests
=head1 SEE ALSO
#L<My::Modules>
=head1 MAINTAINER
is the AUTHOR
=head1 AUTHOR
Some Person, C<<some.person at example.com>>
=head1 LICENSE AND COPYRIGHT
Copyright 2011 Alexx Roche, all rights reserved.
This program is free software; you can redistribute it and/or modify it
under the terms of either: Eclipse Public License, Version 1.0 ;
the GNU Lesser General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://www.opensource.org/licenses/ for more information.
=cut
print "Done that\n" if $opt{verbose}>=1;
exit(0);
__END__
如果我们将不得不POD代码 后,如果您将“完成说,” POD上方,然后__END__更有意义,我__END__通常只使用。
随意按照你喜欢的方式破解这两个。我做出良好的作风和做法,在这里没有索赔,(我有时短一个开始,从较长的一个块粘贴,因为我需要他们两个代码样式的trolols结束了。)
的Bleh,伟大的建议,[但'Modern :: Perl'不够...](https://rt.cpan.org/Public/Bug/Display.html?id=43061) – 2010-09-24 19:52:36
你可能想让那个'#!/usr/bin/perl'或甚至'#!/ usr/bin/env perl'。 – 2010-09-24 19:55:58
@Evan - 这是主观的 – Quentin 2010-09-24 20:11:30