Re^3: simple Perl script template

Or just print the first two lines of the script itself in order to avoid inconsistencies:

#!/usr/bin/env perl
use Modern::Perl;

seek DATA, 0, 0;
my $header = join '', (<DATA>)[0..1];

for my $fname (@ARGV) {
    unless (-e $fname) {
        open my $fh, '>', $fname;
        print $fh $header;
        say STDOUT "created $fname";
    }
    else {
        say STDOUT "*** didn't overwrite $fname";
    }
}
__DATA__
[download]

Comment on Re^3: simple Perl script template Download Code

Replies are listed 'Best First'.
Re^4: simple Perl script template by Dumu (Monk) on Apr 09, 2015 at 12:47 UTC
I like the idea of using the script actually copying from itself to the new script templates. This is DRYer. I have updated my local copy to this.	[reply]