我理解'use','require'等,用于在不同的perl脚本中包含一个函数。我相信以下内容在perl中是不可能的(而且只是令人讨厌),但无论如何我还是要问。
我希望我的perl语言能够在所有.pl和.pm文件中强制使用warnings; strict; warnings FATAL => qw{ uninitialized };
,而不必在任何地方编写这个样板文件。想想perl配置。可能的?
更复杂,我有很多.pm模块脚本,以
之类的东西开头#!/usr/bin/perl -w
package myp1;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(f1 f2);
@EXPORT_OK = qw(f3);
use 5.018;
use strict;
use warnings FATAL => qw{ uninitialized };
use autodie;
以及更多始终以
开头的.pl脚本#!/usr/bin/perl -w
use 5.018;
use strict;
use warnings FATAL => qw{ uninitialized };
use autodie;
use myp1 ;
use myp2 ;
use myp3 ;
use myp4 ;
use myp5 ;
use myp6 ;
...
他们真的应该从像
这样的东西开始boilerplate myp1 { [f1,f2], [f3] };
boilerplate qw(myp1 myp2 myp3 ...);
我要问的是perl代码本身的模板几乎是什么。
一切都不可能?