Variable Scopes:
my only "local" not assigned outside the "loop" e.g.
global:
use vars qw($var1 $var2);
while (){
$var1 = 0
}
[download]

some things i am currently on:, maybe not of interest for you ;-)
Top: Find a solution in (active perl, e.g.,platform: Win32) to send warning mails logs to admins when diskspace is nearing x% free only ... selective warnings monitor text files
file date

Re: How do I determine file creation or last-access date?

Multi-directory Change Reporter
Re: Modern best practices for multilingual regexp alphabetical character matching?
File parsing File parsing Mail: Reaping messages by Message-ID
99 Programming Problems
https://prof.ti.bfh.ch/hew1/informatik3/prolog/p-99/
sleep, nice, performance issues
breathe - beyond 'nice'

starting perl Re^2: #!/usr/bin/perl vs. -*- perl -*- Certification In PERL

perldoc perlintro
perldoc perltoc
perldoc perlfaq[1-x]
quote delimiter(s), \, $, and @,
[download]

videos: Download video from popular videoservices

Automatically add all defined functions to your @EXPORT
Plugins etc.:
http://padre.perlide.org/

#!/usr/bin/perl

@words = ("one","two","three","four","five");

foreach $elem (@words){
  print "$elem\n";
}
[download]

#!/usr/bin/perl -w
#We use warnings
#test if a number is odd or even using modulus:
for ($i = -3; $i <=11; $i++) {
$mod = $i %2;
 if ($mod == 0){ printf "$i is even, modulus is $mod \n";
}
 if ($mod == 1){ printf "$i is odd, modulus is $mod \n";
}
}
[download]

#!/usr/bin/perl

#use 5.006;
#use strict;
use warnings;


open (IN, "+</home/victim/perl/mifile.txt");

@file = <IN>;

seek IN,0,0;

foreach $file (@file){
$file =~ s/muster1/\#\ muster2/i;
#$file =~ s/muster1/\#\ muster2/ig;
print IN $file;
}
close IN;

#l15 s/ersetze/mit/ig
#l15 bei \ muster2 wird zusätzliche ein # und ein leerzeichen eingefüg
+t
#l15 s /i= case insensitive g = global alle
#l18 filehandle schliessen
#ohne g nicht global wird nur 1x ausgeführt
# rofl: print map {chr (((hex A0)/2+3)+$_)}(0,-11,-10,1)
grep:
[id://811976]
hashes:
[id://563314]
[download]