Basics

http://www.linux-services.org/perl/
http://www.validome.org/doc/HTML_ge/perl/funktionen/dateiverwaltung.htm
http://www.tizag.com/perlT/perldelete.php


#! /usr/bin/perl
 
print "Hello World\n";

$greetingMessage = "Hello World";
 
print "$greetingMessage\n";
print $greetingMessage . "\n";


#if Abfrage
if( $text eq "Ende" or $text eq 'ende' ) 
{}
else
{}

== eq Sind die beiden gleich?
!= ne Sind die beiden nicht gleich?
< lt Ist der linke Wert kleiner?
> gt Ist der rechte Wert kleiner?
<= le Ist der linke Wert kleiner oder gleich?
>= ge Ist der rechte Wert kleiner?
<=> cmp - 1 wenn links kleiner, 0 wenn gleich, +1 wenn links größer


#while-schleife -> ne = not equal
while( $i ne $end ) {}


#for-schleife
for( $counter=0; $counter <= $max; $counter++ ) {}


#Arrays
$liste[0] = 'A';
$liste[1] = 'B';
$liste = ('A', 'B');


#Verzeichnisstruktur
use warnings;
use strict;

my $dir = $ENV{'WINDIR'};

opendir(my $DIR, $dir) or
   die "Error in opening '$dir': $!\n";

foreach my $entry (readdir($DIR)) {

     if (-d "$dir/$entry") {
       printf "%-10s $entry\n", 'Verzeichnis';
   } # if
    elsif (-f "$dir/$entry") {
        printf "%-10s $entry\n", 'Datei';
   } # elsif
    else {
        printf "%-10s $entry\n", 'Unbekannt';
    } # else

} # foreach
closedir($DIR);


#filesystem
use File::copy;
copy(SOURCE,DESTINATION);
move(SOURCE,DESTINATION);

#ordner, der nicht leer ist, löschen
use File::Path;
rmtree(FOLDER);


# FTP Komplettes Verzeichnis holen
@files = $ftp->ls();
foreach $file (@files) {
    $ftp->get($file);
}


#zeitfunktionen
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
    $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
my $CTIME_String = localtime(time);
print $Wochentag;