98 lines
1.5 KiB
Plaintext
98 lines
1.5 KiB
Plaintext
|
# #!/usr/bin/perl
|
||
|
|
snippet #!
|
||
|
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
# Hash Pointer
|
||
|
|
snippet .
|
||
|
|
=>
|
||
|
|
# Function
|
||
|
|
snippet sub
|
||
|
|
sub ${1:function_name} {
|
||
|
|
${2:#body ...}
|
||
|
|
}
|
||
|
|
# Conditional
|
||
|
|
snippet if
|
||
|
|
if (${1}) {
|
||
|
|
${2:# body...}
|
||
|
|
}
|
||
|
|
# Conditional if..else
|
||
|
|
snippet ife
|
||
|
|
if (${1}) {
|
||
|
|
${2:# body...}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
${3:# else...}
|
||
|
|
}
|
||
|
|
# Conditional if..elsif..else
|
||
|
|
snippet ifee
|
||
|
|
if (${1}) {
|
||
|
|
${2:# body...}
|
||
|
|
}
|
||
|
|
elsif (${3}) {
|
||
|
|
${4:# elsif...}
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
${5:# else...}
|
||
|
|
}
|
||
|
|
# Conditional One-line
|
||
|
|
snippet xif
|
||
|
|
${1:expression} if ${2:condition};${3}
|
||
|
|
# Unless conditional
|
||
|
|
snippet unless
|
||
|
|
unless (${1}) {
|
||
|
|
${2:# body...}
|
||
|
|
}
|
||
|
|
# Unless conditional One-line
|
||
|
|
snippet xunless
|
||
|
|
${1:expression} unless ${2:condition};${3}
|
||
|
|
# Try/Except
|
||
|
|
snippet eval
|
||
|
|
eval {
|
||
|
|
${1:# do something risky...}
|
||
|
|
};
|
||
|
|
if ($@) {
|
||
|
|
${2:# handle failure...}
|
||
|
|
}
|
||
|
|
# While Loop
|
||
|
|
snippet wh
|
||
|
|
while (${1}) {
|
||
|
|
${2:# body...}
|
||
|
|
}
|
||
|
|
# While Loop One-line
|
||
|
|
snippet xwh
|
||
|
|
${1:expression} while ${2:condition};${3}
|
||
|
|
# C-style For Loop
|
||
|
|
snippet cfor
|
||
|
|
for (my $${2:var} = 0; $$2 < ${1:count}; $$2${3:++}) {
|
||
|
|
${4:# body...}
|
||
|
|
}
|
||
|
|
# For loop one-line
|
||
|
|
snippet xfor
|
||
|
|
${1:expression} for @${2:array};${3}
|
||
|
|
# Foreach Loop
|
||
|
|
snippet for
|
||
|
|
foreach my $${1:x} (@${2:array}) {
|
||
|
|
${3:# body...}
|
||
|
|
}
|
||
|
|
# Foreach Loop One-line
|
||
|
|
snippet fore
|
||
|
|
${1:expression} foreach @${2:array};${3}
|
||
|
|
# Package
|
||
|
|
snippet cl
|
||
|
|
package ${1:ClassName};
|
||
|
|
|
||
|
|
use base qw(${2:ParentClass});
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my $class = shift;
|
||
|
|
$class = ref $class if ref $class;
|
||
|
|
my $self = bless {}, $class;
|
||
|
|
$self;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;${3}
|
||
|
|
# Read File
|
||
|
|
snippet slurp
|
||
|
|
my $${1:var} = do { local $/; open my $file, '<', "${2:file}"; <$file> };
|
||
|
|
${3}
|