Einfache Datei-Operationen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-30 23:17:56
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
2 Gäste

[thread]17783[/thread]

submit to reddit

Einfache Datei-Operationen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+30 replies
geloescht

2012-09-26 22:17

User since
2012-06-19
141 Artikel
BenutzerIn

Abend Leute

Mein Mammut-Projekt nähert sich dem Ende. Letzter Punkt auf der To-Do-Liste ist eine Backup-Funktion. Ich habe folgende Dateien:

* kunden.csv
* kurzgeschichten.csv
* kundencounter.csv

Die gesicherten Dateien sollen dannach so heissen:

* 20120926-backup-kunden.csv
* 20120926-backup-kurzgeschichten.csv
* 20120926-backup-kundencounter.csv

Und immer als Block (also alle drei) kopiert werden.

Diese Dateien öffnen, alles in ein Array packen und wo anders speichern kann ich. Aber das müsste doch auch direkt mit einem Kopierbefehl gehen. Wie mach ich dass am besten?

Gruss HP-User
Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +2 replies
- Raubtier
  
  2012-09-26 22:19
  
  User since
  2012-05-04
  1075 Artikel
  BenutzerIn
  
  perldoc File::Copy
  
  sollte doch als Hilfe reichen?
  - geloescht
    
    2012-09-26 22:31
    
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Jep - Danke, schau grad nach. Muss noch ein Problem aus dem anderen Thread fixen, worauf du mich gestossen hast... aber dann geht mit der Sicherungsgeschichte weiter...
    
    Viele Grüsse HP-User
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
- +25 replies
- topeg
  
  2012-09-26 22:31
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ganz kurz und einfach:
  
  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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
  
  #!/usr/bin/perl use strict; use warnings; use File::Copy; use File::Spec; my $source_dir='.'; my $destination_dir='.'; my @files=( 'kunden.csv', 'kurzgeschichten.csv', 'kundencounter.csv', ); my $backup_name='%s-backup-%s'; my $date=make_date(); for my $source (@files) { my $source_path=File::Spec->join($source_dir,$source); my $destination=sprintf($backup_name,$date,$source); my $destination_path=File::Spec->join(destination_dir,$destination); if(-f $source_path) { unless(copy($source_path,$destination_path)) { warn("Can't copy $source_path => $destination_path ($!)\n"); } } else { warn("$source_path don't exists\n"); } } sub make_date { my ($day,$mon,$year)=(localtime())[3,4,5] $mon+=1; $year+=1900; return sprintf('%04u%02u%02u',$year,$mon,$day); }
  - +24 replies
  - geloescht
    
    2012-09-27 00:14
    User since
    2012-06-19
    141 Artikel
    BenutzerIn
    
    Hi topeg / Hi Forum
    
    Ich wollte erst mal die "Schmalspurversion" ausprobieren - mit wenig Erfolg:
    
    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 25 26
    
    ################################################################### SicherungsProzess: ################################################################### system("clear"); print "+-----------------------------------------------------+ \n"; print "| E*********** / Daten-Verwaltungs-Programm (EZ-DVP) | \n"; print "+-----------------------------------------------------+ \n"; print " \n"; print ">> Datenbank sichern << \n"; print " \n"; print " \n"; copy('/Desktop/EZ-Datenverwaltung/kunden.csv' , '/Desktop/EZ-Datenverwaltung/Data-Backup/kunden.csv'); copy('/Desktop/EZ-Datenverwaltung/kurzgeschichten.csv' , '/Desktop/EZ-Datenverwaltung/Data-Backup/kurzgeschichten.csv'); copy('/Desktop/EZ-Datenverwaltung/kundencounter.csv' , '/Desktop/EZ-Datenverwaltung/Data-Backup/kundencounter.csv'); print "Kunden-Datenbank wurde gesichert... OK \n"; print "Kurzgeschichten-Datenbank wurde gesichert... OK \n"; print "Kundenzähler-Datei wurde gesichert... OK \n"; print " \n"; print " \n"; print "Datensicherung beendet! [ENTER] \n"; $decider = <STDIN>; goto HauptMenu; exit;
    
    1)Er (Computer) bringt mir keine Fehlermeldung!
    
    2)Ich habe keinen Schimmer ob er was kopiert hat, und wenn - wohin?
    
    Es geht um die Zeilen 14-16. Warum meckert er nicht? Hat er was gemacht?
    Im Ordner Data-Backup ist auf jedenfall nichts :-(
    
    Gruss HP-User
    Last edited: 2012-10-05 14:43:30 +0200 (CEST)
    Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - +22 replies
    - topeg
      
      2012-09-27 01:23
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Du hast im Root-Verzeichnis einen Ordner namens Desktop?
      
      mach mal
      Linux: ls /Desktop oder
      Windows: dir \Desktop
      
      Ich bin mir sicher die Pfadangaben stimmen nicht.
      
      weiterhin:
      
      copy( ... ) or die("Error Copy ... $!");
      
      Wenn das kopieren erfolgreich war liefert copy "1" zurück und "0" bei einem Fehler. In "$!" steht dann die Fehlermeldung. Das kannst du aber bei File::Copy nachlesen.
      - +21 replies
      - geloescht
        
        2012-09-27 10:16
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hallo Perlaner / Hi topeg
        
        Wie du bereits vermutet hast -> falscher Pfad. Wurde korrigiert und es funktioniert :-) Hier Abermals meinen "endlosen Dank"! *tipp-topp*
        
        Nun hab ich mir das Datum noch abgegriffen, welches ich sowieso schon weiter oben im Programm vorrätig hatte. Beim Zusammenbau des Pfadnamens gibt es allerdings "verschmelzungsprobleme dieser Art:
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        calar found where operator expected at ./EZ-DVP.pl line 2507, near "''$statusdatum" (Missing operator before $statusdatum?) String found where operator expected at ./EZ-DVP.pl line 2507, near "$statusdatum''" (Missing operator before ''?) syntax error at ./EZ-DVP.pl line 2507, near "''$statusdatum" Execution of ./EZ-DVP.pl aborted due to compilation errors.
        
        Der Perl-Part:
        
        Code (perl): (dl )
        
        copy('/home/xyz/Desktop/EZ-Datenverwaltung/kunden.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.''$statusdatum''.'backup-kunden.csv');
        
        Ich habe wiedermal mit den Quotes " ' " herumprobiert. Von der Farbe her (Syntax-Highlightnig) scheint er dien Skalar zu erkennen. Leider passt es doch nicht so ganz :-(
        
        Frage an dieser Stelle: Gibt es eine "_verständliche_" Anleitung, wann Doppelapostroph ("), und wann Einerapostroph (') zu verwenden ist?
        
        Bin ich der einzige User mit Perl, der mit diesen Dingern Probleme hat *?*
        
        Viele Grüsse HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        +20 replies
        
        topeg
        
        2012-09-27 10:28
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das erste ' beginnt einen String, in dem Variablen nicht ersetzt werden, das zweite ' beendet es. Will man mehrer Strings zusammenfügen setzt man ein . dazwischen. Schau nochmal bei dir im Code was du geschrieben hast. Entweder hast du zu viele ' oder zu wenige .
        
        Bei " werden Variablen im String ersetzt. Du kannst dir dort einige . sparen.
        
        Code (perl): (dl )
        
        1 2
        
        my $path='/home/xyz/Desktop/EZ-Datenverwaltung'; copy("$path/kunden.csv" , "$path/Data-Backup/$statusdatum-backup-kunden.csv") or warn("Error copy $!");
        
        Und sei nicht zu sparsam mit Variablen. Einen String, den du mehr als einmal benutzt ist besser in einer eigenen Variable aufgehoben. Ähnliches gilt für Code. Wenn du Code unverändert kopierst, dann mach daraus eine Funktion. Das macht alles übersichtlicher und Fehler lassen sich leichter beheben.
        
        Und sei nicht zu sparsam mit Fehlermeldungen. Jede Fehlermeldung hilft.
        Last edited: 2012-09-27 10:29:47 +0200 (CEST)
        
        +19 replies
        
        geloescht
        
        2012-09-27 11:06
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Last but not least...
        
        Ich habe dein "warn" auch noch verbaut. Jetzt sieht das so aus:
        
        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 25 26 27 28 29 30 31 32 33
        
        copy('/home/xyz/Desktop/EZ-Datenverwaltung/kunden.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kunden.csv') or warn("Error copy $!"); if ($! eq ""){ print "Kunden-Datenbank wurde gesichert... OK \n"; goto SicherungsCheck01; } print "$!"; $! = ""; SicherungsCheck01: copy('/home/xyz/Desktop/EZ-Datenverwaltung/kurzgeschichten.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kurzgeschichten.csv') or warn("Error copy $!"); if ($! eq ""){ print "Kurzgeschichten-Datenbank wurde gesichert... OK \n"; goto SicherungsCheck02; } print "$!"; $! = ""; SicherungsCheck02: copy('/home/xyz/Desktop/EZ-Datenverwaltung/kundencounter.csv' , '/home/xyz/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kundencounter.csv') or warn("Error copy $!"); if ($! eq ""){ print "Kundenzähler-Datei wurde gesichert... OK \n"; goto SicherungsCheck03; } print "$!"; $! = ""; SicherungsCheck03: print " \n"; print " \n"; print "Datensicherung beendet! [ENTER] \n"; $decider = <STDIN>; goto HauptMenu; exit;
        
        Meine Frage:
        Da ich keinen absichtlichen Fehler beim Kopieren erzeugen kann - würde das so funktionieren?
        
        Ich stell den Fehlerskalar auch jedesmal wieder auf "" (Null).
        
        Vorteil hiervon: Man soll sehen, wo genau es nicht geklappt hat.
        
        Gruss HP-User.
        
        PS.: Muss schnell weg bis später...
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        +7 replies
        
        pq
        
        2012-09-27 11:13
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        goto wird nicht verwendet. gewöhn es dir ab. ehrlich. dafür gibt es subroutinen.
        
        ich bin jedenfalls eine, die in einem solchen fall einfach keine lust hat, weiterzuhelfen. an code rumzudoktern, der steinzeitliche instrumente benutzt, ist zeitverschwendung. strict und warnings sehe ich auch nicht. aber solange es leute gibt, die helfen...
        
        hatte ich http://perl-tutorial.org/ schon erwähnt? kann man nicht oft genug machen.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +6 replies
        
        geloescht
        
        2012-09-27 16:57
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi pq
        
        Quote
        strict und warnings sehe ich auch nicht.
        
        Liebe pq, dass ist ein "Teilausschnitt" aus einem grösseren Programm. Selbstverständlich habe ich "warnings" und "strict" im Kopf des Programms.
        Das nutzen auch "Goto"-Banausen wie "meinereiner" *g*
        
        Seid brav zueinander! Was ist mit dem liberalen "ThereIsMoreThanOneWayToDoIt" (TIMTOWTDI) - peace for the world ;-)
        
        Liebe Grüsse HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        +5 replies
        
        pq
        
        2012-09-27 17:14
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich sehe aber kein my(). was dann vermutlich bedeutet, dass du alle variablen oben im programm deklarierst. sollte man nicht machen.
        aber genau wie bei goto findest du sicher einen grund dafür.
        
        das hat nix mit TIMTOWTDI zu tun. es gibt konstrukte, die stammen aus perl4, und viele braucht man heute nicht mehr oder ganz ganz selten, und dann ist man auch jemand, der sich damit auskennt.
        
        den eigenen progarmmierstil einfach als TIMTOWTDI zu bezeichnen, ist, verzeihung, eine billige ausrede.
        "Alle meckern _immer_ über "goto".".
        ach, bist du auch immer der auf der autobahn, dem alle anderen autos entgegenkommen?
        
        ich werde wie gesagt goto-kram nicht anfassen. wenn du den vorteil vn subroutinen nicht erkennst, hast du vermutlich noch keins von den tutorials gelesen? http://perl-tutorial.org/
        aber vermutlich bekomme ich auch diesmal keine antwort darauf.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        geloescht
        
        2012-09-27 17:36
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi pq
        
        Quote
        aber vermutlich bekomme ich auch diesmal keine antwort darauf.
        
        I wo - Wenn ich Zeit habe, antworte ich immer - wo ich von Natur aus eine Quasselstrippe bin ;-)
        
        Du hast aber mit deiner Vermutung rech. Ich habe bis her noch kein einziges mal eine sub genutzt - auch weil ich nicht weiss, wie das geht.
        
        Quote
        ich sehe aber kein my(). was dann vermutlich bedeutet, dass du alle variablen oben im Programm deklarierst. sollte man nicht machen.
        
        Wenn ich Zeit habe, und es besonders gründlich machen will, deklariere ich tatsächlich alle Skalare am Programmanfang. Allerdings "schlampe" ich ab und zu, und unterwegs (beim Programmieren) gibt es immer wieder Situationen, wo ich weitere Skalare benötige. Die "murks" ich dann ausnahmsweise an die benötigte Stelle hin. *Schande über mein Haupt*
        
        Warum ich das mache?-> Weil ich festgestellt habe, dass wenn ich versehentlich zwei mal "my" benutze, gibt es eine Fehlermeldung. Sollte ich präzise gearbeitet haben, kann ich bei umfangreichen Programmen im Kopf nachsehen, ob der Skalar schon verwendet wird oder nicht.
        
        Was ich auch festgestellt habe: Manchmal scheint ein Skalarwert sich "aufzulösen", wenn er zu weit von seinem "Erfassungsort" befüllt wurde.
        
        Beispiel bei der Zeiterfasung:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        ############################################ # Date-And-Time (DAT) / Datum und Uhrzeit # ############################################ my $DB_Monatstag; my $DB_Monat; my $DB_Jahr; my $DB_Stunden; my $DB_Minuten; my $DB_Sekunden; my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time); my $CTIME_String = localtime(time); $Monat+=1; $Jahrestag+=1; $Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; $Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; $Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden; $Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten; $Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden; $Jahr+=1900;
        
        Die Daten nehm ich so:
        
        Code (perl): (dl )
        
        my $kddatum = $Jahr.$Monat.$Monatstag;
        
        Komischerweise muss ich ab und zu im Programm weiter unten das hier machen:
        
        Code (perl): (dl )
        
        $kddatum = $Jahr.$Monat.$Monatstag;
        
        Warum er sich im Programm die "$Jahr" "$Monat" "$Monatstag" über das gesammte Programm merken kann, aber die zugewiesene "my $kddatum" nicht weiss ich nicht. Mag vielleicht sein, das er Skalare im Kopf für das gesamte Programm zur Verfügung stellt, aber andere Skalare nur innerhalb eines "Programmblocks" kennt. Wie gesagt, warum das manchmal so ist, keine Ahnung.
        Last edited: 2012-09-27 17:38:46 +0200 (CEST)
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        +3 replies
        
        pq
        
        2012-09-27 18:11
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        variablen sollte man im kleinstmöglichen scope mit my() deklarieren und nicht alle am anfang des programms. das macht es leichter wartbar.
        da bei dir dank goto fast alles auf einer ebene liegt und du keine subs benutzt, ist das natürlich kontraproduktiv. ein grund gegen goto. man hat keinen überblick, wo/wann welche variablen genutzt und verändert werden.
        
        und meine frage bezog sich auf die tutorials. hast du eins durchgearbeitet?
        Last edited: 2012-09-27 18:15:29 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        geloescht
        
        2012-09-27 18:37
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi pq
        
        Quote
        und meine frage bezog sich auf die tutorials. hast du eins durchgearbeitet?
        
        Nein, bzw. kann sein, denn diese Seite kommt mir bekannt vor (wegen der Zwiebelknolle). Ich habe sie "gebookmarked" und werde mal schauen, ob ein Tutorial für solche Desktopfenster dabei sind. Dann könnte ich die Ausgaben zukünftig verschönern *g*
        
        Ich kenne nicht alle Perl - Befehle. Funktionen und solche -> und solche => "Befehlszuweisungen" oder "Übergaben" k. A. muss ich erst noch erlernen.
        
        Wie schon mal irgendwo geschrieben komme ich von Basic/Q-Basic / wenig VisualBasic(Makros) zu Perl. Perl ist eine Programmiersprache, die mir gut gefällt. Nicht zuletzt, weil sie so vielseitig ist, dass sie auch meine in sagen wir mal "Basic-Dialekt" angehauchten Befehlsroutinen beherzigt :-)
        Die meiste Erfahrung hab ich bei Perl als Script für Webprogrammierung über CGI-gerne auch durch SSI eingeleitet.
        
        Mein erster Kontakt zu Perl war Matt Wrights Formmailer, den es erst mal sicher zu machen galt (Alias-Bug/fest kodierte E-Mail anpassen). Dann bin ich irgendiwe bei Perl hängen geblieben.
        
        Es gab auch Situationen, wo ich mich geärgert habe, dass ich nicht PHP sondern Perl ausgesucht habe.(Wo ich mal kurz Arbeitslos war und eine Stelle suchte, aber alle nur PHP-Entwicker einstellten...) Mittlerweile denke ich, da ich mit Perl bisher jedes Webproblem lösen konnte, dass die Wahl, mit Perl zu arbeiten, richtig war...
        
        Gruss und Bye HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        pq
        
        2012-09-27 18:43
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-09-27T16:37:10 ?
        
        Nein, bzw. kann sein, denn diese Seite kommt mir bekannt vor (wegen der Zwiebelknolle). Ich habe sie "gebookmarked" und werde mal schauen, ob ein Tutorial für solche Desktopfenster dabei sind. Dann könnte ich die Ausgaben zukünftig verschönern *g*
        
        am besten erst mal ein tutorial für die basics raussuchen. "modern perl - the book" ist sehr gut.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +11 replies
        
        topeg
        
        2012-09-27 11:27
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        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)
        
        +10 replies
        
        geloescht
        
        2012-09-27 16:53
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        H topeg
        
        Hab es so umgesetzt:
        
        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 25 26 27 28 29 30 31 32 33 34 35 36 37 38
        
        $statusdatum = $Jahr.$Monat.$Monatstag; copy('/home/ritter/Desktop/EZ-Datenverwaltung/kunden.csv' , '/home/ritter/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kunden.csv'); if ($! ne ""){ warn("FEHLER => Sicherung der Kunden-Datenbank nicht möglich! / Systemmeldung: $!"); print " \n"; goto SicherungsCheck01; } print "Kunden-Datenbank wurde gesichert... OK \n"; print " \n"; SicherungsCheck01: copy('/home/ritter/Desktop/EZ-Datenverwaltung/kurzgeschichten.csv' , '/home/ritter/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kurzgeschichten.csv'); if ($! ne ""){ warn("FEHLER => Sicherung der Kurzgeschichten-Datenbank nicht möglich! / Systemmeldung: $!"); print " \n"; goto SicherungsCheck02; } print "Kurzgeschichten-Datenbank wurde gesichert... OK \n"; print " \n"; SicherungsCheck02: copy('/home/ritter/Desktop/EZ-Datenverwaltung/kundencounter.csv' , '/home/ritter/Desktop/EZ-Datenverwaltung/Data-Backup/'.$statusdatum.'-backup-kundencounter.csv'); if ($! ne ""){ warn("FEHLER => Sicherung der Kundenzähler-Datei nicht möglich! / Systemmeldung: $!"); goto SicherungsCheck03; print " \n"; } print "Kundenzähler-Datei wurde gesichert... OK \n"; print " \n"; SicherungsCheck03: print " \n"; print " \n"; print "Datensicherung beendet! [ENTER] \n"; $decider = <STDIN>; goto HauptMenu; exit;
        
        Zur Gruselgeschichte wegen "goto":
        Alle meckern _immer_ über "goto". Es ist eben so simpel zu benutzen. Und ob ich ein "sub", oder ein "goto" mache - ist doch fast dasselbe.
        
        Das solche Strukturen "kompliziert" zu durchschauen sind ist wahrhaftig Fakt. Wenn ich aber an meine Ausbildungszeit zurück denke (Energieelektroniker Fachrichtung Anlagentechnik) fallen mir spontan diverse Stromlaufpläne ein, von denen ihr sofort "Augenkrebs" bekommen würdet. Ich habe die alte SPS-Variante noch erlernen dürfen. Mit Zeilennummern:
        
        Code: (dl )
        
        1 2 3 4
        
        10 ... 20 ... 30 ... 40 ...
        
        Und Zeitrelaisprogrammierung über eine For-Next Schleife. Hatte man die gewünschte Zeit durch ausprobieren der Schleifendurchläufe endlich raus, dachte man alles erledigt. Irgendwann wurde der Chip der SPS gewechselt - gegen einen schnelleren... Tja, was soll ich sagen, da waren halt 10 eingestellte Sekunden nur noch 2 Sekunden lang - Der Prozessor war beim Schleifendurchlauf eben schneller...
        
        Wenn ich an die ganzen Steuerungen denke, wo diverse Sensoren und Mikroschalter mit in den Programmablauf einfliessen, ist eben mal ganz schnell fertig mit Struktur im Programm. Die heutigen Programme sind so umfangreich, da blick ein Servicetechniker auch nicht auf anhieb durch. Das einzig Wahre, was dir hilft, ist eine wirklich gute Doku, die dir Programmzeilengenau sagt, wo was passiert... Aber wie erwartet - sowas hat Seltenheitswert. Nicht zuletzt weil bei dem heutigen Preisdruck kaum noch jemand die Zeit hat, eine solche zu entwerfen...
        
        Ups ich schweife ab.
        
        Letzte Meldung: Die prekären Stellen wurden mit "?"-Zeichen für die DB Abfrage versehen. Alle Menüs laufen. Programm fertig zum Arbeiten. Die gesammten Eingabewerte sind "grob" geprüft. Wie gesagt, dass Programm nutze nur ich und event. später eine "Tippse" - die natürlich entsprechend unterwiesen wird.
        
        Grüsse und Danke an _Alle_ !
        
        HP-User
        
        PS.: Es sind genau 2550 Zeilen Programmcode geworden - bei einem mittleren Kaffee-Verbrauch von 1 Tasse in 2 Stunden *lol*
        Falls das Programm jemand sehen will, kann ich es als .txt-Datei auf den Server werfen und einen Link darauf setzen (Kann es ja dann ein zwei Tage stehen lassen)
        
        PS:II:
        Seit ihr ein Verein? Habt Ihr ein Spendenkonto?
        Last edited: 2012-09-27 17:06:05 +0200 (CEST)
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        Daxim
        
        2012-09-27 17:39
        
        User since
        2007-08-01
        114 Artikel
        BenutzerIn
        
        2012-09-27T14:53:25 ?
        Seit ihr ein Verein? Habt Ihr ein Spendenkonto?
        Die Perl-Foundation (WP) ist eine gemeinnützige Organisation, die u.a. die Weiterentwicklung von Perl finanziell fördert. Spenden bitte unter https://secure.donor.com/pf012/give einwerfen.
        
        GUIfreund
        
        2012-09-27 18:02
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-09-27T14:53:25 ?
        Und ob ich ein "sub", oder ein "goto" mache - ist doch fast dasselbe.
        
        Bei weitem nicht. An Subroutinen kann man Parameter übergeben, und sie können Resultate zurückliefern. Dadurch sind sie viel flexibler einzusetzen. Und nebenbei wird der Kode oft deutlich klarer.
        Gruß
        GUIfreund
        
        +7 replies
        
        topeg
        
        2012-09-27 18:23
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2012-09-27T14:53:25 ?
        Hab es so umgesetzt:
        
        und nun setzt du $! nicht zurück. denn es wird nur bei einem Fehler neu gesetzt, ansonsten behält es den alten Wert. Zudem kann es auch undef sein. eine abfrage mit ne ist nicht so gut.
        
        2012-09-27T14:53:25 ?
        Zur Gruselgeschichte wegen "goto":
        Alle meckern _immer_ über "goto". Es ist eben so simpel zu benutzen. Und ob ich ein "sub", oder ein "goto" mache - ist doch fast dasselbe.
        
        fast ist hier das Stichwort. mit goto hast du viele Hilfen nicht. Einmal die Übersicht verloren und du hast Probleme, die du nicht hast wenn du Funktionen benutzt.
        Natürlich sind globale Variablen und goto auf den ersten Blick einfach simpel und leicht verständlich. Darum wurden sie vor langer Zeit überhaupt erfunden (mit dem Namen in BASIC 1949 meine ich). Aber es hat ein paar ganz große Probleme wenn man mehr als Bandwurm Code schreiben will.
        Da wären:
        
        Feste Sprungmarken. Es ist mit GOTO ohne Verrenkungen nicht möglich von verschiedenen Punkten zurück zu diesen zu springen. Ein wiederverwenden von Code ist nahezu unmöglich.
        Keine Variablenübergaben. Die Werte, die an den "goto"-Code gehen sollen müssen global sein. Das frisst nicht zur Speicher, es macht den Code auch unübersichtlich, da Variablen nicht immer sinnvoll benannt werden können, ohne an anderer Stelle für Verwirrung zu sorgen.
        Gruppieren von Code in Modulen ist nicht möglich.
        Perl kann nicht prüfen ob der Code sinnvoll "terminiert" ist. Eine Sprungmarke falsch geschrieben oder vergessen und der Code spinnt. Bei Funktionen erkennt Perl wenn sie nicht geschlossen ist (Klammersymetrie).
        rekursive Probleme lassen sich nur mit enormen Aufwand lösen.
        
        und mir fallen sicher noch viele anderer Probleme mit goto ein.
        
        2012-09-27T14:53:25 ?
        Das solche Strukturen "kompliziert" zu durchschauen sind ist wahrhaftig Fakt. Wenn ich aber an meine Ausbildungszeit zurück denke (Energieelektroniker Fachrichtung Anlagentechnik) fallen mir spontan diverse Stromlaufpläne ein, von denen ihr sofort "Augenkrebs" bekommen würdet. Ich habe die alte SPS-Variante noch erlernen dürfen.
        
        Und das ist dein Grund es nicht besser zu machen? Nach dem Motto: Ich Schaufle nun schon seit 30 Jahren Mist mit meinen Händen ich Brauche keine Mistgabel.
        
        2012-09-27T14:53:25 ?
        Und Zeitrelaisprogrammierung über eine For-Next Schleife. Hatte man die gewünschte Zeit durch ausprobieren der Schleifendurchläufe endlich raus, dachte man alles erledigt. Irgendwann wurde der Chip der SPS gewechselt - gegen einen schnelleren... Tja, was soll ich sagen, da waren halt 10 eingestellte Sekunden nur noch 2 Sekunden lang - Der Prozessor war beim Schleifendurchlauf eben schneller...
        
        In Embeddedsystemen ohne Timer sind noop-Waits gebräuchlich, und auch unproblematisch wenn man sie richtig verwendet (z.B. mit einer modernen Programmiersprache, die so was kapseln kann)
        
        2012-09-27T14:53:25 ?
        Wenn ich an die ganzen Steuerungen denke, wo diverse Sensoren und Mikroschalter mit in den Programmablauf einfliessen, ist eben mal ganz schnell fertig mit Struktur im Programm. Die heutigen Programme sind so umfangreich, da blick ein Servicetechniker auch nicht auf anhieb durch. Das einzig Wahre, was dir hilft, ist eine wirklich gute Doku, die dir Programmzeilengenau sagt, wo was passiert... Aber wie erwartet - sowas hat Seltenheitswert. Nicht zuletzt weil bei dem heutigen Preisdruck kaum noch jemand die Zeit hat, eine solche zu entwerfen...
        
        Und das ist ein Grund warum sich Programmiersprachen weiter entwickeln. Die Konstrukte gibt es nicht weil Programmierer "Cool" sein wollen. Sie machen einem die Arbeit leichter. Durch auslagern von Häufigem und Kapseln des Komplexen wird die Programmübersicht um einiges verbessert.
        
        +6 replies
        
        geloescht
        
        2012-09-27 20:35
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi topeg
        
        Mist, schon wieder ne Baustelle:
        
        Quote
        und nun setzt du $! nicht zurück
        
        Ich bekomme es nicht auf die herkömmliche Weise zurückgesetzt:
        
        Code (perl): (dl )
        
        $! = "";
        
        Ergibt die Meldung im Terminal:
        
        Code: (dl )
        
        Argument "" isn't numeric in scalar assignment at ./EZ-DVP.pl line 2514, <STDIN> line 5.
        
        Laut google: "keine Treffer bezüglich Perl $! Skalar"
        
        Dieser Skalar "$!" muss doch was besonderes sein. Wie setze ich diesen zurück?
        
        Gruss HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        +5 replies
        
        pq
        
        2012-09-27 20:40
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du solltest es auch nicht zurücksetzen.
        
        Quote
        $! If used numerically, yields the current value of the C "errno"
        variable, or in other words, if a system or library call fails,
        it sets this variable. This means that the value of $! is
        meaningful only immediately after a failure:
        
        du solltest es nur direkt nach einer nicht erfolgreichen operation benutzen. z.b.
        
        Code: (dl )
        
        1 2 3
        
        copy(...) or do { # schiefgegangen };
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +4 replies
        
        geloescht
        
        2012-09-27 21:09
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi pq
        
        Eben doch so wie ich es hatte. Ohne zurücksetzen hat es funktioniert. Ich hab mal für Testzwecke den Pfad verfälscht (file not found). Da ging alles korrekt mit den Fehlermeldungen. Ich mach es wieder rückgängig.
        
        Danke pq
        
        Gruss HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
        
        pq
        
        2012-09-27 21:11
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn du meinst...
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +2 replies
        
        bianca
        
        2012-09-28 06:49
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2012-09-27T19:09:16 ?
        Eben doch so wie ich es hatte.
        
        NEIN!
        Wenn $! in Zeile 3 einen Wert annimmt, weil ein Fehler aufgetreten ist und in Zeile 13 kein Fehler auftritt wird der Vergleich in Zeile 14 dennoch wahr sein, obwohl dort garkein Fehler aufgetreten ist.
        Denn $! wechselt seinen Wert nur, wenn ein Fehler auftritt. Hatte topeq ja schon geschrieben.
        Ich würde in deinem Fall mit einer Hilfsvariable arbeiten.
        z.B.
        my $fehler = '';
        copy(...) or $fehler = $!;
        if $fehler ne '' .... -> Problem
        Anders bekommst du $! nicht "zurückgesetzt".
        10 print "Hallo"
        20 goto 10
        
        geloescht
        
        2012-09-28 11:21
        
        User since
        2012-06-19
        141 Artikel
        BenutzerIn
        
        Hi Bianca
        
        Danke für den nachträglichen Hinweis. Ich hab das jetzt so wie von dir empfohlen gemacht.
        
        Gruss HP-User
        Past brought us "SYS 64738". Present brought us "ctrl+alt+del". But what will future bring?
    - pq
      
      2012-09-27 10:35
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      bei zeile 25 (goto) wirds gruselig. aber vermutlich willst du davon auch wieder nix wissen, weil es ja deiner ansicht nach viel einfacher ist.
      
      und deine strings sind wahnsinnig umstandlich zusammengebastelt. davon kriegt man augenkrebs.
      
      vorher:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      print "+-----------------------------------------------------+ \n"; print "| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | \n"; print "+-----------------------------------------------------+ \n"; print " \n"; print ">> Datenbank sichern << \n"; print " \n"; print " \n";
      
      nachher:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      print <<"EOM"; +-----------------------------------------------------+ | E********** / Daten-Verwaltungs-Programm (EZ-DVP) | +-----------------------------------------------------+ >> Datenbank sichern << EOM
      
      hast du eigentlich mal eins der tutorials auf http://perl-tutorial.org/ gelesen? wenn nicht, bitte tu das. investiere die zeit. in deinem eigenen interesse.
      Last edited: 2012-10-05 14:42:25 +0200 (CEST)
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- +2 replies
- Linuxer
  
  2012-09-26 22:37
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Linux-Shell (Bash):
  
  Code: (dl )
  
  1 2 3
  
  for FILE in {kunden,kundencounter,kurzgeschichten}.csv; do echo cp $FILE $( date +"%Y%m%d"-backup-$FILE) done
  
  Für produktive Verwendung entferne das "echo", wenn's gefällt ;)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - topeg
    
    2012-09-26 22:48
    
    User since
    2006-07-10
    2611 Artikel
    BenutzerIn
    
    Die Kurzfassung in Perl:
    perl -MFile::Copy -MDate::Format -e 'copy("$_", time2str("%Y%m%d", time)."-backup-$_") for(@ARGV);' -- kunden.csv kundencounter.csv kurzgeschichten.csv

View all threads created 2012-09-26 22:17.