#---------------------------------------------------------------------------
# ${cursor}
#---------------------------------------------------------------------------
if (${condition}) {
${cursor}
} else {
}
if (${condition} ) {
${cursor}
}
#=== FUNCTION ================================================================
# NAME: ${name}
# PURPOSE: ${purpose}
# DESCRIPTION: ${description}
# 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} ); # ----- end do-while -----
for ( ${begin}; ${condition}; ${end} ) {
${cursor}
} # ----- end for -----
foreach ${var} ( ${list} ) {
${cursor}
} # ----- end foreach -----
unless ( ${condition} ) {
${cursor}
}
unless ( ${condition} ) {
${cursor}
} else {
}
until ( ${condition} ) {
${cursor}
} # ----- end while -----
while ( ${condition} ) {
${cursor}
} # ----- end while -----
do {
${cursor}
}
while ( ${condition} ); # ----- end do-while -----
for ( ${begin}; ${condition}; ${end} ) {
${cursor}
} # ----- end for -----
foreach ${var} ( ${list} ) {
${cursor}
} # ----- end foreach -----
unless ( ${condition} ) {
${cursor}
}
unless ( ${condition} ) {
${cursor}
} else {
}
until ( ${condition} ) {
${cursor}
} # ----- end while -----
while ( ${condition} ) {
${cursor}
} # ----- end while -----
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}
} # ---------- end of subroutine ${name} ----------
my $$INFILE_filename = '${filename}'; # input file name
open ( INFILE, '<', $$INFILE_filename )
or die "$$0 : failed to open input file $$INFILE_filename : $$!\n";
close ( INFILE )
or warn "$$0 : failed to close input file $$INFILE_filename : $$!\n";
my $$OUTFILE_filename = '${filename}'; # output file name
open ( OUTFILE, '>', $$OUTFILE_filename ) or
die "$$0 : failed to open output file $$OUTFILE_filename : $$!\n";
close ( OUTFILE )
or warn "$$0 : failed to close output file $$OUTFILE_filename : $$!\n";
my $$PIPE_command = '${pipecommand}'; # pipe command
open ( PIPE, $$PIPE_command )
or die "$$0 : failed to open pipe > $$PIPE_command < : $$!\n";
close ( PIPE )
or warn "$$0 : failed to close pipe > $$PIPE_command < : $$!\n";
my $$${herevar} = <<${HEREMARK};
${cursor}
${HEREMARK}
my $$${herevar} = <<${HEREMARK};
${cursor}
${HEREMARK}
$$^T
$$BASETIME
$$^T
$$0
$$PROGRAM_NAME
$$0
$$^A
$$ACCUMULATOR
$$^A
$$_
$$ARG
$$_
@ARGV
@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
%SIG
DEFAULT
DEFAULT
IGNORE
IGNORE
ABRT
ALRM
CHLD
CONT
FPE
HUP
ILL
INT
KILL
PIPE
QUIT
SEGV
STOP
TERM
TSTP
TTIN
TTOU
USR1
USR2
<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";
printf ("${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
-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
\d
D
\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})