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);

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)

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) 
...

1
2
3
4
5
6
7
8
9

my %Config;  # Konfigurationshash
open (INI, $ini) or die "Fehler bei Ini-Datei $ini: $!";
while (<INI>) {
    next if /^#/;   # Kommentarzeilen ueberspringen
    chomp;
    if (/^\s*(\w+)\s*=\s*(.*)/) {
        $Config{$1} = $2;
    }
}

Quote

Code: (dl )

1
2

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

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",

Quote

Code: (dl )

if ($answer =~ "keine Zugriffsberechtigung")

if ($answer =~ /keine Zugriffsberechtigung/)

Quote

Code: (dl )

1
2

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

Quote

Code: (dl )

1
2

$anzahl_client = 0;
todo:

Quote

Code: (dl )

while ($$anzahl_client eq $anzahl_server)

Quote

Code: (dl )

   $anzahl_client = $anzahl_client + 1;

Quote

Code: (dl )

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

Quote

Code: (dl )

1
2
3
4

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

@pd = sort keys %{$daten{dateien}};

Quote

Code: (dl )

foreach my $zeile(@pd)

Quote

Code: (dl )

1
2
3
4

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

1
2
3

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

Quote

Code: (dl )

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

Quote

Code: (dl )

1
2
3
4
5
6
7

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

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

@safe_datei = ();
for my $zeile (sort keys %{$daten{dateien}})
{
    my $zeilendaten = $daten{dateien}{$zeile};
    push @Serverfiles_loeschen, $zeile
        unless exists $zeilendaten->{aenderungsdatum_client};
    if ($zeilendaten->{dateigroesse_client} != 
        $zeilendaten->{dateigroesse_server} or 
        $zeilendaten->{aenderungsdatum_client} ne
        $zeilendaten->{aenderungsdatum_server})
    {
        my $datei_pfad = $pfad . $zeile;
        $datei_pfad =~ tr~/~\\~;
        push @safe_datei, qq{"$datei_pfad"};
    }
}

Quote

Code: (dl )

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

Quote

Code: (dl )

1
2

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

1
2
3

my $dateiengesamt = @safe_datei;
my $dateienfertig = 0;
while ($dateienfertig < $dateiengesamt)

Quote

Code: (dl )

1
2

        {
        foreach (@safe_datei)

Quote

Code: (dl )

            if ($counterdatei ne 900)

Quote

Code: (dl )

 my $i++;

Quote

Code: (dl )

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

-archive => "pre_rar$i",

Quote

Code: (dl )

1
2
3
4

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

unlink @del_rar;

Quote

Code: (dl )

1
2
3
4

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

if (/^pre_rar\d+\.rar$/) ... # Vorne pre_rar, gefolgt von einer Zahl, gefolgt von .rar am Ende

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);

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]";

Quote

Code: (dl )

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

$daten{dateien}{$File::Find::dir}{aenderungsdatum_client} = $ctime_cl;

1
2
3
4
5

...
if (/^\s*(\w+)\s*=\s*(.*)/) {
       $Config{$1} = $2;
   }
...

1
2
3
4
5

#Programmpfad
C:\tools\client
#Backuppfad
Z:\Installs
...

1
2
3

...
$datei_pfad =~ tr~/~\\~;
...

1
2
3

...
 $datei_pfad=~ tr/\//\\/;
...

push @safe_datei, qq{"$datei_pfad"};

if (/^pre_rar\d+\.rar$/) ... # Vorne pre_rar, gefolgt von einer Zahl, gefolgt von .rar am Ende

if (/^pre_rar\d+\.part\d+\.rar$/)

Quote

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?

Quote

Code: (dl )

1
2
3
4
5

...
if (/^\s*(\w+)\s*=\s*(.*)/) {
       $Config{$1} = $2;
   }
...

Was passiert da genau? Ich verstehs noch nicht so ganz.

Quote

Wie müßte da meine InI Datei aussehen?
So ungefähr?

Code: (dl )

1
2
3
4
5

#Programmpfad
C:\tools\client
#Backuppfad
Z:\Installs
...

1
2
3
4
5

# Hier kommt der Pfad zu den Programmen:
programmpfad = C:\tools\client
# Dies ist der Pfad zu den Backups
backuppfad = Z:\Installs
# etc. ...

Quote

Ist das

Code: (dl )

1
2
3

...
$datei_pfad =~ tr~/~\\~;
...

das selbe wie das?

Code: (dl )

1
2
3

...
 $datei_pfad=~ tr/\//\\/;
...

Wenn ja warum machst du da "~" hin? Was haben die da für ne Wirkung?

1
2
3
4
5
6

tr/\//\\/
tr~/~\\~
tr!/!\\!
tr./.\\.
tr{/}{\\}
tr(/)(\\)

Quote

Code: (dl )

push @safe_datei, qq{"$datei_pfad"};

qq?
Bedeutet das das er alles was in der {} steht genau so in das array schiebt?

1
2
3

"Hallo, \"Welt\"!"
qq{Hallo, "Welt"!}
qq~Hallo, "Welt"~

Quote

Code: (dl )

if (/^pre_rar\d+\.rar$/) ... # Vorne pre_rar, gefolgt von einer Zahl, gefolgt von .rar am Ende

Wie müßte das ausehen wenn die Datei "pre_rar1.part001.rar" heißt? Wobei ich nicht weiß wieviel Parts es gibt.
Wäre das richtig?

Code: (dl )

if (/^pre_rar\d+\.part\d+\.rar$/)

Quote

Quote

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?

Weil ich mir diese 2 Routinen aus einem anderen Code geliehen habe. Ehrlich gesagt habe ich aber keine Ahung wie genau das funktioniert... :)

Quote

So, ich muss jetzt leider weg. Hoffe geholfen zu haben. :)