Text in Datei schreiben (Allgemeines zu Perl)

[thread]17444[/thread]

Text in Datei schreiben

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
Gast Zele

2012-05-24 15:05
Hallo Zusammen,

nachdem mir hier schon nettweise mit meinem Backup Problem geholfen wurde, würde ich gerne noch mal eure Hilfe in Anspruch nehmen. Nun da das Backup immer Erfolgreich erstellt wird, würde ich es natürlich auch noch gerne Lokal bei uns sichern. Dies stellt sich für mich leider etwas Problematisch hin, da ich NET::FTP nicht benutzen kann (Modul ist nicht installiert und kann nicht installiert werden -.-). Nun habe ich mir eine etwas verstrickere art und weise ausgedacht. Dazu muss ich jedoch in eine Datei paar informationen schreiben und ich verstehe einfach nicht wo mein Fehler liegt, wenn ich meinen Code mit dem den ich im Inet finde vergleiche. Der Zeit sieht dieser Code so aus:
Code (perl): (dl )

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

#!/usr/bin/perl -w #create ftp info file open(file, ">upload.txt"); print file "open xxxx.dyndns.org"\n"; print file "benutzername\n"; print file "passwort\n"; print file "binary\n"; print file "prompt\n"; print file "cd /pfad/\n"; print file "mget $filename.tar.gz\n"; print file "quit\n"; close(file);
Wenn ich das mit dem was ich im Inet finde vergleiche kann ich keinen Unterschied feststellen :(

VG
Zele
- +5 replies
- Gast Zele
  
  2012-05-24 15:15
  Nun hab ich paar Infos ganz vergessen.
  
  1, Normalerweise steht der Code noch mit in der Backup.pl, weshalb ich dann auch (denke ich mir mal) auf die Variable zugreifen kann und
  2. Folgende Fehler erhalte ich mehrfach zu verschiedenen stellen im Code:
  
  Code: (dl )
  
  1 2 3 4 5
  
  Backslash found where operator expected at ./ftp.pl line 12, near "quit\" Unquoted string "n" may clash with future reserved word at ./ftp.pl line 12. String found where operator expected at ./ftp.pl line 12, at end of line (Missing semicolon on previous line?) syntax error at ./ftp.pl line 5, near ""open xxxx.dyndns.org"\"
  
  VG
  zele
  Last edited: 2012-05-24 15:18:26 +0200 (CEST)
  - +2 replies
  - Gast Muffi
    
    2012-05-24 15:21
    
    Zeile 5 hat zu viele Anführungszeichen
    Last edited: 2012-05-24 15:25:46 +0200 (CEST)
    - Gast Zele
      
      2012-05-24 16:12
      
      Jetzt wo du es sagst, sehe ich es auch. Hab bestimmt nun seit knapp 2h nach einer Lösung gesucht und den Code angestarrt.. ich weiß schon warum ich sowas nicht gerne mache. Sehe den Wald vor lauter Bäumen nicht mehr ^^
      
      Vielen Dank, für die Info. Nun geht es :)
  - +2 replies
  - Linuxer
    
    2012-05-24 15:47
    User since
    2006-01-27
    3890 Artikel
    HausmeisterIn
    
    Wie Muffi schon drauf hinwies, steckt der Fehler wohl in Zeile 5.
    Die Fehlermeldung teilt Dir das übrigens auch mit: syntax error at ./ftp.pl line 5, near ""open xxxx.dyndns.org"\"
    
    Zeile 5:
    
    Code: (dl )
    
    print file "open xxxx.dyndns.org"\n";
    
    Andere Punkte (pauschal ;-) ):
    + Du verwendest Perl ;-)
    - Ein open() kann fehlschlagen; daher sollte man den Erfolg überprüfen.
    - Anstatt "Barewords" sollte man heutzutage eher lexikalische Filehandles verwenden.
    - Die 3-Argument-Form des open() schützt vor Fehlern und Sicherheitsproblem beim Öffnen von Dateien und sollte daher bevorzugt verwendet werden.
    - Mit einem HERE-Dokument kann man die Ausgabe vereinfachen.
    
    Überarbeitet und ungetestet:
    
    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
    
    #!/usr/bin/perl use strict; use warnings; my $output_file = 'upload.txt'; my $filename = 'irgendwas'; #create ftp info file open( my $outfh, '>', $output_file ) or die "open($output_file,w) failed: $!\n"; print $outfh <<"OUTPUT"; open xxxx.dyndns.org benutzername passwort binary prompt cd /pfad/ mget $filename.tar.gz quit OUTPUT close( $outfh) or die "close($outfh) failed: $!\n";;
    
    edit:
    "Andere Punkte" sanfter umformuliert.
    Last edited: 2012-05-24 16:17:49 +0200 (CEST)
    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!
    - Gast zele
      
      2012-05-24 16:14
      
      Hi,
      
      ich werde beim nächsten mal (wobei ich hoffe das es nicht all zu bald sein wird), versuchen deine Ratschläge zu berücksichtigen.
      
      Ich versuche für mich immer alles so einfach wie möglich zu handhaben, damit ich den Code auch dann wieder verstehe wenn ich nach nem Jahr drauf gucken muss ^^
      
      VG
      Last edited: 2012-05-24 16:17:58 +0200 (CEST)
- +2 replies
- GwenDragon
  
  2012-05-24 15:21
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Wenn du wenigstens bitte deinen kompletten Code zeigen würdest.
  Wir kennen weder backup.pl nocht ftp.pl und wissen nicht so genau wo du Fehler gemacht hast.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast Zele
    
    2012-05-24 16:11
    
    Hi,
    
    sry war mein Fehler, habe mich nicht verständlich genug ausdrückt, naja bzw. hier eher falsch ausgedrückt.
    
    Wäre der Fehler nur im gesamten Code aufgetretten hätte ich alles wesentlich mitgeteilt. Aber da ich es auch nicht ind er einfachen Variante (so wie oben steht) nicht zum laufen bekommen habe, wollte ich den Code gering halten den ich hier schreibe.
    Last edited: 2012-05-24 16:13:01 +0200 (CEST)
- GwenDragon
  
  2012-05-24 15:30
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Benutze bitte
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  und Perl sagt dir genau, wo Fehler sind.
  AllgemeinesSkriptFunktioniertNicht
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-05-24 15:05.