Thread Einfache Datei-Operationen (29 answers)
Opened by geloescht at 2012-09-26 22:17

topeg
 2012-09-27 11:27
#162094 #162094
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Code (perl): (dl )
1
2
3
4
5
6
7

my $from='/home/xyz/Desktop/EZ-Datenverwaltung/kunden.csv';
my $to='/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kunden.csv';
if(copy($from , $to)){
             print "Kunden-Datenbank wurde gesichert... OK \n";
             goto SicherungsCheck01;
             }
warn("Error copy $from => $to ($!)");


oder beser:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

sub make_backup
{
  my $dir=shift;
  my $file=shift;
  my $date=shift;

  my $from=$dir.'/'.$file;
  my $to=$dir.'/Data-Backup/'.$date.'-backup-'.$file;
  if(copy($from , $to))
  { return 1; }
  warn("Error copy $from => $to ($!)");
  return 0;
}

#...
my $work_dir='/home/xyz/Desktop/EZ-Datenverwaltung';
if ( make_backup($work_dir,'kunden.csv',$statusdatum) )
{ print "Kunden-Datenbank wurde gesichert... OK \n"; }

if ( make_backup($work_dir,'kurzgeschichten.csv',$statusdatum) )
{ print "Kurzgeschichten-Datenbank wurde gesichert... OK \n"; }

if ( make_backup($work_dir,'kundencounter.csv',$statusdatum) )
{ print "Kundenzähler-Datei wurde gesichert... OK \n"; }


Das ist nicht nur kürzer sondern auch übersichtlicher. Und diese ganzen "goto" lassen mich gruseln. Bei einem Code von mindestens 2500 Zeilen und spärlichen Kommentaren ist das nicht Wartbar. Wie soll jemand anderes jemals da durch finden?

EDIT: Pfadangabe korrigiert.
Last edited: 2012-09-27 11:34:07 +0200 (CEST)

View full thread Einfache Datei-Operationen