Problem mit Schleife (Allgemeines zu Perl)

[thread]15367[/thread]

Problem mit Schleife

Leser: 24

Articles: hide open all | hide show old branches

+6 replies
ertox

2010-08-11 13:21
User since
2010-08-06
6 Artikel
BenutzerIn
Hallo!

Nachdem der Mailversand nur teilweise klappte, habe ich ne Stufe zurückgeschaltet und versuche mich an einem kleinen Script, welches mir ein IP Range durchgehen soll, und eine SMB Freigabe mittels smbmount einbinden soll. danach wird ein File kopiert, und der unmount geht wieder raus.

Hier der Code:
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 45 46 47 48 49 50

#!/usr/bin/perl #module use strict; #definition variabeln my $datei; my $ziel; my $znet; my $count=1; my $pass; #abfrage inputs print "SMB COPY to Client\n"; print "-------------------------\n\n\n"; print "Please enter Filename ():\t"; $datei = <STDIN>; print "Please enter Path on Target (c\..):\t"; $ziel = <STDIN>; print "Please enter Target Network (2=HQ, 100= Berlin etc.):\t"; $znet = <STDIN>; print "Please enter Password (localadmin):"; $pass = <STDIN>; chomp($datei); $datei =~ s!\n$!!; chomp($ziel); $ziel =~ s!\n$!!; chomp($znet); $znet =~ s!\n$!!; chomp($pass); $pass =~ s!\n$!!; #funktion smbcopy while ($count<255) { $count++; print "$count\n"; my $anweisung="sudo smbmount //192.168.$znet.151/c\$/$ziel /upload/ -o username\=administrator,password\='$pass'"; print "$anweisung"; exec ("$anweisung"); exec ("sudo cp $datei /upload/"); exec ("umount /upload/"); if ($count==253) { redo; } }
Nach längeren Problemen mit den Zeilenumbrüchen, und anderen Formatierungsfragen hab ich den Script soweit, das er die $anweisung korrekt schreibt und wenn man ihn in eine Variabel printed, diese sauber rauskommt. Kopiert man diese 1:1 in die Bash dann geht’s wunderbar. Auch das im Passwort vorkommende !a wird nicht mehr als linebraker genommen. (Ihr seht, einige Stoblersteine welche mich ins Grübeln brachten)

However, die Schleife geht jetzt plötzlich nicht mehr, wie vorher. Er Spukt mir nur 1x den Code aus. Sudo Fragt natürlich noch nach dem PW, aber nachdem das 1x Eingegeben wurde sollte es sauber durchlaufen.

Hat jemand ne Idee warum das nicht geht, oder kann mir sagen wie ich das so hinkriege, das er mir das sauber durcharbeitet?

Danke für Euer Feedback
- +2 replies
- pq
  
  2010-08-11 13:29
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  also was mir erstmal auffällt, ist, dass du da dreimal exec hintereinander stehen hast.
  das ist sinnfrei, denn ein exec (wenn es denn erfolgreich ist) verlässt das aktuelle skript. der prozess wird mit dem neuen einfach ersetzt, so dass du gar nicht an die stelle des zweiten exec kommst.
  warum nimmst du hier nicht system() statt exec()?
  ausserdem solltest du den erfolg des system überprüfen.
  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
  - ertox
    
    2010-08-11 14:34
    
    User since
    2010-08-06
    6 Artikel
    BenutzerIn
    
    uuuuuu daim.... danke für den tipp, ich verkriech mich dann wieder in's terminal, dankeschön :)
- +3 replies
- Dubu
  
  2010-08-12 00:46
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  Entweder
  chomp($datei);
  oder
  $datei =~ s!\n$!!.
  Beides zusammen ist überflüssig, da chomp() das gleiche wie die Ersetzung macht und du von STDIN bestimmt keine doppelten Newlines bekommst. chomp() ist zu bevorzugen. Und kann auf Listen losgelassen werden:
  
  Code (perl): (dl )
  
  chomp($datei, $ziel, $znet, $pass);
  - +2 replies
  - nepos
    
    2010-08-12 11:15
    
    User since
    2005-08-17
    1420 Artikel
    BenutzerIn
    
    Insbesondere benutzt chomp() den Zeilentrenner, der zum System passt. Nur "\n" reicht unter Windows nicht.
    - MatthiasW
      
      2010-08-12 12:24
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Nunja, beim Einlesen ersetzt perl die Zeilenenden des jeweiligen Systems mit LF - bei der Ausgabe wird dann jedes LF wieder in das Zeilenende des jeweiligen Systems umgewandelt - sodass hier auch die Substitution funktioniert.
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2010-08-11 13:21.