#-------------------------------------------------------------------
# ${cursor}
#-------------------------------------------------------------------#=== FUNCTION ================================================================
# NAME: ${name}
# PURPOSE: ${purpose}
# DESCRIPTION: ${describtion}
# PARAMETERS: ${params}
# RETURNS: ${return}
#===============================================================================#!/usr/bin/perl -w
#===============================================================================
#
# FILE: ${filename}
#
# USAGE: ./${filename} ${options}
#
# DESCRIPTION: ${description}
#
# OPTIONS: ${options}
# REQUIREMENTS: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: ${user}
# COMPANY: ---
# VERSION: 1.0
# CREATED: ${date} ${time} CET
# REVISION: ---
#===============================================================================
use strict;
use warnings;#===============================================================================
#
# FILE: ${filename}
#
# DESCRIPTION: ${description}
#
# FILES: ---
# BUGS: ---
# NOTES: ---
# AUTHOR: ${user}
# COMPANY: ---
# VERSION: 1.0
# CREATED: ${date} ${time} CET
# REVISION: ---
#===============================================================================
package ${packagename};
use strict;
use warnings;
1;#===============================================================================
#
# METHOD: ${method}
#
# DESCRIPTION: ${description}
#
# ${param1}:
# ${desc_param1}
# ${param2}:
# ${desc_param2}
# ${param3}:
# ${desc_param3}
# ${param4}:
# ${desc_param4}
#
# RETURN: ${return}
#================================================================================pod
${cursor}
=cut=cut
${cursor}=for ${formatname}
${cursor}
=end ${formatname}=begin html
${cursor}
=end html # back to Perl=begin man
${cursor}
=end man # back to Perl=begin text
${cursor}
=end text # back to Perl=head1 ${cursor}=head2 ${cursor}=head3 ${cursor}=over ${indent level}
=item *
${cursor}
=item *
=back=item *
${cursor}B<${cursor}>C<${cursor}>E<${cursor}>F<${cursor}>I<${cursor}>L<${cursor}|>S<${cursor}>X<${cursor}>Z<${cursor}>do {
${cursor}
}
while ( ${condition} );foreach my ${var} ( ${list} ) {
${cursor}
}unless ( ${condition} ) {
${cursor}
}unless ( ${condition} ) {
${cursor}
} else {
}until ( ${condition} ) {
${cursor}
}while ( ${condition} ) {
${cursor}
}my $$${scalar}my $$${scalar} = ${value};my ($$${scalar1}, $$${scalar2}, $$${scalar3} );my @${array};my @${array} = (${value1}, ${value2}, ${value3});my %${hash};my %${hash}=(
${key1} => ${value1},
${key2} => ${value2}
);my ${hash}={
${key1} => ${value1},
${key2} => ${value2}
};$${var} =~ m/${regex}/$${var} !~ m/${regex}/$$${var} =~ s/${reg_search}/${reg_replace}/$$${var} =~ tr/${source}/${replace}/#===================================================================
sub ${name}
{
my ($$${var1}, $$${var2}, $$${var3}) = @_;
${cursor}
}my $$${herevar} = <<${HEREMARK};
${cursor}
${HEREMARK}$$^T$$BASETIME$$^T$$0$$PROGRAM_NAME$$0$$^A$$ACCUMULATOR$$^A$$_$$ARG$$_@ARGV$$^D$$DEBUGGING$$^D$$)$$EFFECTIVE_GROUP_ID$$)$EGID)$$)$$>$$EFFECTIVE_USER_ID$$>$$EUID$$>$$.'$$.''Current$$NR$$.$$,$$OUTPUT_FIELD_SEPARATOR$$,$$OFS$$,$$/$$INPUT_RECORD_SEPARATOR$$/$$RS$$/$$\$$OUTPUT_RECORD_SEPARATOR$$\$$ORS$$$$LIST_SEPARATOR;$$;$$SUBSCRIPT_SEPARATOR$$;$$SUBSEP$$;$$^L$$FORMAT_FORMFEED$$^L$$:$$FORMAT_LINE_BREAK_CHARACTERS$$:$$#$$OFMT$$#$$?$$CHILD_ERROR$$?$$!$$ERRNO$$!$$OS_ERROR$$!$$@$$EVAL_ERROR$$@$$$$$$PROCESS_ID$$$$$$PID$$$$$$<$$REAL_USER_ID$$<$$UID$$<$$($$REAL_GROUP_ID$$($$GID$$($$[$$]$^V$$PERL_VERSION$^V$$^E$$EXTENDED_OS_ERROR$$^E$$^F$$SYSTEM_FD_MAX$$^F$$^H$$^I$$INPLACE_EDIT$$^I$$^M$$^O$$OSNAME$$^O$$^P$$PERLDB$$^P$$^R$$LAST_REGEXP_CODE_RESULT$$^R$$^S$$EXCEPTIONS_BEING_CAUGHT$$^S$$^W$$WARNING$$^W$$^X$$EXECUTABLE_NAME$$^X$$ARGV@INC%INC@F%ENV%SIGDEFAULTDEFAULTIGNOREIGNOREABRTALRMCHLDCONTFPEHUPILLINTKILLPIPEQUITSEGVSTOPTERMTSTPTTINTTOUUSR1USR2<ARGV>STDERR<STDIN>STDOUT<DATA>$$digit$$&$$MATCH$$&$$`$$PREMATCH$$`$$'$$POSTMATCH$$'$$+$$LAST_PAREN_MATCH$$+$$|$$OUTPUT_AUTOFLUSH$$|$$%$$FORMAT_PAGE_NUMBER$$%$$=$$FORMAT_LINES_PER_PAGE$$=$$-$$FORMAT_LINES_LEFT$$-$$~$$FORMAT_NAME$$~$$^$$FORMAT_TOP_NAME$$^$@+$@LAST_MATCH_END$@+$@-$@LAST_MATCH_START$@-print "${cursor}\n";use English qw( -no_match_vars );[:alnum:][:alpha:][:ascii:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:word:][:xdigit:][:alnum:][:alpha:][:ascii:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:word:][:xdigit:]-C-A-M-B-b-c-d-f-p-T-S-l-r-R-w-W-x-X-e-t-o-O-g-u-k-s-z\^.$$|()[]*+?{n}{n,}{n,m}*?+???{n}?{n,}?{n,m}?\t\n\r\f\a\e\033\x1B\x{263a}\c[\N{${name}}\l\u\L\U\E\Q\w\W\s\S\dD\pP\PP\X\C[:alnum:][:alpha:][:ascii:][:cntrl:][:digit:][:graph:][:lower:][:print:][:punct:][:space:][:upper:][:word:][:xdigit:]\b\B\A\Z\z\G(${pattern1}|${pattern2})(?:${pattern})(?${imsx}-${imsx}:${pattern})(?#${text})(?{${code}})(??{${code}})(?!${pattern})(?=${pattern})(?<=${pattern})(?<!${cursor})(?(${condition})${yes-pattern}|${no-pattern}))(?(${condition}${yes-pattern}))(?${imsx}-${imsx})#===================================================================
sub ${name}
{
${cursor}
}#===================================================================$$ENV{${name}}# V${version} abu ${date} ${comment}#===================================================================use File::Basename;use File::Find;for { my $$${var} = 0 ; $$${var} < ${limit}; $$${var}++ ) {
${cursor}
}if ( ${cursor} ) {
}if ( ${condition_1} ) {
${cursor}
}
elsif ( ${condition_2} ) {
}
else {
}if ( ${cursor} ) {
}
else {
}eval { ${cursor} };
if ($$@) {
warn $$@;
}sub ${cursor} {
my $$self = shift;
my ( ) = @_;
}while(($$key, $$value) = each(%${cursor})) {
}while (<>) {
${cursor}
}SWITCH: {
(${cursor}) && do { ; last SWITCH};
// && do { ; last SWITCH};
}map { ${cursor} }grep { ${cursor} }=head4 ${cursor}=cut
${cursor}=over 4
=item ${cursor}
=back=item ${cursor}else {
${cursor}
}my (${cursor}) = @_;elsif (${cursor}) {
}printf("%s${cursor}\n", );print OUT ("${cursor}\n");printf OUT ("%s${cursor}\n", );open(IN, "${Filename}") or die "could not open ${Filename}\n";
while(<IN>)
{
${cursor}
}
close IN;open(IN, "${Program} |") or die "could not execute ${Program}\n";
while(<IN>)
{
${cursor}
}
close IN;open(OUT, "> ${Filename}") or die "could not write ${Filename}\n";
${cursor}
close OUT;open(OUT, "| ${Program}") or die "could not execute ${Program}\n";
${cursor}
close OUT;while(<IN>)
{
${cursor}
}open(IN, "< ${Inputfilename}")
or die "could not open ${Inputfilename}\n";
open(OUT, "> ${Outputfilename}")
or die "could not write ${Outputfilename}\n";
while(<IN>)
{
${cursor}
print OUT $$_;
}
close OUT; close IN;while(<>)
{
${cursor}
print;
if (eof) {
# each individual file end, filename in $$ARGV
}
}#===================================================================
sub workOnFile
{
if ( -d _ && /^public/) {
$$File::Find::prune = 1;
return;
}
# print "Entering: $$File::Find::name\n" if -d _;
return unless /\.(bak|sik|ttt)$$/;
print "$$File::Find::name\n";
return;
}
#===================================================================
# ARGV contains toplevel dirs
@ARGV = ( '.' ) unless (scalar @ARGV);
find(\&workOnFile, @ARGV);#===================================================================
sub workOnFile {
print "Done: $$File::Find::name\n" if -d _;
return unless -f _;
print "$$File::Find::name\n";
return;
}
#===================================================================
# ARGV contains toplevel dirs
@ARGV = ( '.' ) unless (scalar @ARGV);
finddepth(\&workOnFile, @ARGV);# V${Version} abu ${date} ${cursor}# V1.00 abu ${date} ${cursor}first public releaseuse Cwd qw(cwd abs_path);use vars qw(${cursor});#-------------------------------------------------------------------STDINuse warnings;use lib ${cursor};use locale;use strict;use Config;use Env;use Env qw(@PATH $$HOME @LD_LIBRARY_PATH);use File::Copy;use File::Path;use File::stat;use FindBin qw($$Bin);
use lib "$$Bin/../lib";use Getopt::Std;use Getopt::Long;use MIME::Base64;use MIME::QuotedPrint;use Sys::Hostname qw(hostname);use XML::Simple;open(IN, "< ${Inputfilename}")
or die "could not open ${Inputfilename}\n";
open(OUT, "> ${Outputfilename}")
or die "could not write ${Outputfilename}\n";
while(<IN>)
{
${cursor}
print OUT $$_;
}
close OUT; close IN;