Re: Perl Script to write a perl script

[leocharre]

Yes, I have a suggestion, stop doing this. Instead, use a vim template for new files...

~/.vimnewfile.pl.tmpl

:insert
#!/usr/bin/perl
use strict;
use vars qw($VERSION);
use LEOCHARRE::CLI2 ':all';
use LEOCHARRE::Dir ':all';
$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)/g;


exit;

sub usage {
  qq{$0 [OPTION].. 

   -d       debug
   -h       help
   -v       version

}}

__END__

=pod

=head1 NAME

=head1 DESCRIPTION

=head1 OPTIONS

=head1 USAGE

=head2 Usage Examples

=head1 AUTHOR

Leo Charre leocharre at cpan dot org 

=head1 SEE ALSO

=head1 LICENSE

This package is free software; you can redistribute it and/or modify i
+t under the same terms as Perl itself, i.e., under the terms of the "
+Artistic License" or the "GNU General Public License".

=head1 DISCLAIMER

This package is distributed in the hope that it will be useful, but WI
+THOUT ANY WARRANTY; without even the implied warranty of MERCHANTABIL
+ITY or FITNESS FOR A PARTICULAR PURPOSE.

See the "GNU General Public License" for more details.

=cut

.

In your ~/.vimrc

autocmd bufnewfile *.pl so ~/.vimnewfile.pl.tmpl

Now, whenever you run a command like # vim file.pl , that template will show up. If you place APPNAME where you want it, you can can then do a search and replace such as :%s/APPNAME/blabla/g