Ich habe mir nicht das gesamte Skript auf Funktionsfaehigkeit angeschaut, aber hier ein paar Bemerkungen. Nimm es einfach mal als Anregungen. ;)

Quote

Code: (dl )

1
2
3
4
5
6
7
8

#Anlegen der Variablen und Arrays
my ($inidaten,$ftphost,$ftpuser,@answer,$antwort,@del_rar,$fd,
$pfad,$Dateipfad,@safe_rar,$zeile,$datei_pfad,@safe_datei,@pd,
$dateigroesse_server,$aenderungsdatum_server,$answer,
$anzahl_server,$anzahl_client,$pfad_dateiname,$ftppasswort,
$socket,$imput,$helper,@pfad,$remotehost,@Serverfiles_loeschen,
$remoteport,$sek,$min,$stu,$tag,$mon,$jahr,$wtag,
$programmpfad);

So viele globale Variable sind eigentlich zu viele.
Da bietet es sich an, einiges in einem einzigen, globalen Hash auszugliedern (oder gleich ein Config-Modul anlegen).

Nachtrag: Offensichtlich brauchst du viele davon sowieso nur lokal, dann deklariere sie doch auch lokal.

Quote

Code: (dl )

1
2

tie my @ini,'Tie::File',$ini; #or die print "InI Datei konnte nicht gefunden werden. Programm wird beendet...;"
foreach my $inidaten(@ini)

Wenn du die Datei sowieso zeilenweise durchgehst, brauchst du eigentlich kein Tie::File. Da kannst du sie gleich zeilenweise einlesen.

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

    {
    if ($inidaten=~/Backuppfad\=/i) 
        {
        $helper=index($inidaten,"backuppfad\=")+12;
        $pfad=substr($inidaten,$helper);
            chomp($pfad);
        print "$pfad";                     
        }
    elsif ($inidaten=~/remoteport\=/i) 
        {
        $helper=index($inidaten,"remoteport\=")+11;
        $remoteport=substr($inidaten,$helper);
            chomp($remoteport);                      
        }
    elsif ($inidaten=~/remotehost\=/i) 
...

Daran sind mehrere Dinge unschoen:
- Du brauchst fast den gleichen Code mehrfach hintereinander.
  Das waere schon mal besser mit einer Subroutine gemacht.
- Das jeweilige Schluesselwort ("backuppfad", "remoteport" etc.)
  muss zweimal auftauchen => anfaellig fuer Tippfehler.
- Die Laenge des Schluesselwortes ist fest kodiert.
- Die Regex ist nicht am Zeilenanfang verankert.

Abgesehen davon, dass es auf CPAN sehr schoene Module zur Verarbeitung von Konfig.dateien gibt, kann man die Auswertung auch "von Hand" schoener machen:

Dazu noch ein paar Kommentare in die Inidatei - fertig ist die Laube!

Quote

Code: (dl )

1
2

open (FEHLER, ">Logdatei.log");
print FEHLER "Programm wurde am "."$datum"." um "."$zeit"." gestartet"."\n"|| die print "$!";

Du hast eine laestige Angewohnheit, die ich anfangs in Perl auch hatte. :) Meine Vermutung ist, dass man sie sich bei der Shellprogrammierung einfaengt: Du setzt Variablen immer in Anfuehrungszeichen, wenn du ihren Wert haben moechtest, in einer Zuweisung oder bei print.
Du schreibst
$var2 = "$var1";
statt
$var2 = $var1;

In dieser Zeile schreibst du die "$!" statt einfach die $!.
Umgekehrt machst du die print-Anweisung komplizierter als noetig.
print FEHLER "Programm wurde am $datum um $zeit gestartet\n" or die print "$!";
ist kuerzer und einfacher.

Quote

Code: (dl )

1
2
3
4
5

#Aufruf der Subroutine.
find(\&wanted,$pfad);
print "test";
#Aufbauen der FTP-Verbindung
my $ftp = Net::FTP->new("$ftphost",

Hier wieder ein Beispiel: Es gibt keinen Grund, um $ftphost Anfuehrungszeichen zu setzen.

Quote

Code: (dl )

if ($answer =~ "keine Zugriffsberechtigung")

Wo etwas als regulaerer Ausdrueck interpretiert wird, sollte man das auch durch die Schreibweise klar machen. Anfuehrungszeichen sind hier also schlecht:

Quote

Code: (dl )

1
2

#Sendet den Pfad an den Server;
print $socket "$pfad"."\n";

Das kann einfach
print $socket "$pfad\n";
heissen.

Quote

Code: (dl )

1
2

$anzahl_client = 0;
todo:

Die Sprungmarke brauchst du offensichtlich nicht.

Quote

Code: (dl )

while ($$anzahl_client eq $anzahl_server)

Was soll $$anzahl_client sein? $anzahl_client ist doch eine Zahl, keine Referenz. Das muesste also eine Warnung geben.

Abgesehen davon kommt mir die Schleifenbedingung sowieso etwas merkwuerdig vor. Meintest du vielleicht
while ($anzahl_client < $anzahl_server)
? Mit "eq" vergleicht man auch keine Zahlen, sondern Strings. Bei Zahlen wuerde man mit "==" auf Gleichheit testen.

Quote

Code: (dl )

   $anzahl_client = $anzahl_client + 1;

Kuerzer:
++$anzahl_client;

Quote

Code: (dl )

    $daten{dateien}{"$pfad_dateiname"}{'aenderungsdatum_server'}="$aenderungsdatum_server";

$daten{dateien}{$pfad_dateiname}{aenderungsdatum_server} = $aenderungsdatum_server;
etc.

Quote

Code: (dl )

1
2
3
4

foreach (sort keys %{$daten{dateien}})
    {
    push (@pd,$_);
    }

Statt der Schleife:

Quote

Code: (dl )

foreach my $zeile(@pd)

Nun gut, du brauchst @pd eigentlich gar nicht, sondern kannst gleich hier sort keys ... einsetzen.

Quote

Code: (dl )

1
2
3
4

    unless ($daten{dateien}{"$zeile"}{'aenderungsdatum_client'})
        {
        push (@Serverfiles_loeschen, "$zeile");
        }

Auch hier sind wieder viele ueberfluessige Anfuehrungszeichen. Andererseits die Frage: Willst du wirklich testen, ob das Aenderungsdatum ungleich Null ist, oder ob es im Hash existiert? Fuer letzteres gibt es exists().

Quote

Code: (dl )

        elsif ($daten{dateien}{"$zeile"}{'dateigroesse_client'} ne $daten{dateien}{"$zeile"}{'dateigroesse_server'})

Hier meinst du bestimmt auch "!=" statt "ne" (auch wenn es meist keinen Unterschied macht).

Quote

Code: (dl )

1
2
3
4
5
6
7

 $datei_pfad=$pfad.$zeile;
               
 $datei_pfad=~ tr/\//\\/;   
               
 push (@safe_datei,"\"$datei_pfad\"")
               
 }

Auch hier sind wieder viele Wiederholungen.
Ich haette die ganze Schleife wahrscheinlich so aehnlich geschrieben:

Dabei habe ich soweit wie moeglich Variablen lokal beschraenkt ($zeile, $datei_pfad), die somit nicht mehr global deklariert werden muessen. Ausserdem habe ich die ganzen if-Anweisungen in einer - soweit ich sehe gleichwertigen - zusammengefasst und damit keine Codewiederholungen mehr.

Quote

Code: (dl )

    print FEHLER "Update ist nicht erfordelerlich. Programm wurde beendet."."\n";

"erforderlich"

Quote

Code: (dl )

1
2

my $dateienfertig = @safe_datei;
while (my $dateiengesamt ne my $dateienfertig)

Du deklarierst unabsichtlich $dateienfertig in der Schleife neu und weist vorher an $dateienfertig statt $dateiengesamt zu.
Du meinst wahrscheinlich:

Quote

Code: (dl )

1
2

        {
        foreach (@safe_datei)

Damit kannst du dir die aeussere while-Schleife wiederum sparen, oder moechtest du mehrfach durch @safe_datei gehen?

Quote

Code: (dl )

            if ($counterdatei ne 900)

Auch hier:
if ($counterdatei < 900) ...

Quote

Code: (dl )

 my $i++;

Hm. Das heisst soviel wie my $i = 1.
Falls du $i hochzaehlen moechtest, musst du es ausserhalb der Schleife deklarieren.
               

Quote

Code: (dl )

     -archive => "pre_rar"."$i",

Quote

Code: (dl )

1
2
3
4

foreach $zeile (@del_rar)
{
unlink($zeile);
} 

Quote

Code: (dl )

1
2
3
4

#subroutine zur suche der erforderlichen rar_dateien.
sub wanted_rar
    {
    if (($_ =~ ".rar")&&($_ =~ "pre_rar\."))

Das macht evtl. nicht das, was du meinst. Die erste Regex findet jede Datei, die irgendwo ein beliebiges Zeichen gefolgt von "rar" im Namen hat, also auch "ferrari.jpg" oder "Mehrarbeit.zip"; die zweite findet alle Dateien mit "pre_rar." irgendwo. Das sind zumindest nicht die Dateien, die du angelegt hast, denn die heissen doch eher "pre_rar<nummer>.rar", oder? Auch sollte man - wie oben schon gesagt - Regexen immer als solche schreiben, damit man weiss, dass man auf Sonderzeichen achten muss.

Quote

Code: (dl )

1
2
3
4
5
6
7
8

#subroutine zur suche der erforderlichen Dateien
sub wanted
    {
    if( -f $File::Find::name)
        {    
        $helper=length($pfad);
        $Dateipfad=substr($File::Find::name,$helper);
        chomp ($Dateipfad);

Ueberflussig, es gibt $File::Find::dir.

Quote

Code: (dl )

1
2
3
4
5
6

        $ctime_cl=scalar localtime ((stat $File::Find::name)[9]);
        my @split_cttime_cl = split (/ /,$ctime_cl);
        my @split_time = split (/:/, $split_cttime_cl[3]);
        $ctime_cl = "$split_cttime_cl[0]"." "."$split_cttime_cl[1]"."
 "."$split_cttime_cl[2]"." "."$split_time[0]".":"."$split_time[0]"."
 "."$split_cttime_cl[4]";

Das sieht grauslich aus, vor allem wenn man sieht, wie schoen du das in den Routinen time() und date() geloest hast. Warum nimmst du hier "scalar localtime (...)", statt gleich mit dem Array zu arbeiten und mit sprintf(), wie unten?

Ausserdem benutzt du zweimal $split_time[0] beim Zusammensetzen.

Quote

Code: (dl )

        $daten{dateien}{"$Dateipfad"}{'aenderungsdatum_client'}="$ctime_cl";

Nochmal zur Erinnerung:


Ich hoffe, ich konnte dir mit den Kommentaren etwas weiterhelfen.