Variable enthält Hochkomma wird nicht übergeben (Allgemeines zu Perl)

[thread]17998[/thread]

Variable enthält Hochkomma wird nicht übergeben

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+13 replies
Gast Jan

2012-12-17 14:19

Hallo Community,

ich versuche gerade ein kleines Perl-Script für tägliche Backup-Jobs zu basteln.

Dabei möchte ich gerne ein Abfrage an meinen Backup-Server schicken. Diese Abfrage enthält jedoch Hochkommata. Ich kriege das Perl-Script aber leider nicht so hin, dass die Hochkommata auch übergeben werden.

Hier ist meine Abfrage, welche innerhalb des Perl-Scripts aufgerufen werden soll:

mminfo -q '!incomplete,savetime>$STARTTIME,savetime<$ENDTIME,group=NOTES_ezszbn32,copies=2' -r ssid,volume

Die beiden Variablen $STARTTIME und $ENDTIME ermittele ich vorher, deren Übergabe klappt auch.

Die Abfrage rufe ich im Script folgendermassen auf:

open(INPUT, "mminfo -q '!incomplete,savetime>$STARTTIME,savetime<$ENDTIME,group=NOTES_ezszbn32,copies=2' -r ssid,volume |") || die "can't open input $!\n";

Führe ich das Script aus, verschwinden die Hochkommata aus der Abfrage. Das sehe ich wenn ich ein ps -lef auf das Script mache.

Jemand eine Idee, wie ich das hinbekomme? Hab schon probiert, den Inhalt zwischen den Hochkommata über eine Variable mitzugeben, was aber auch nicht ging.

Über jede Hilfe wäre ich dankbar!

Grüße
Jan
Last edited: 2012-12-17 14:26:22 +0100 (CET)
- +12 replies
- pq
  
  2012-12-17 14:37
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  was ps ausgibt, ist nicht unbedingt das, was in der shell als aufruf eingegeben wurde.
  die hochkommata werden ja nur zum quoten eines parameters benutzt. gibt das ganze mal selbst in der shell ein, dann verschwinden die quotes auch.
  
  mir stellt sich eher die frage, wo das eigentliche problem liegt. merkst du, dass das mminfo falsch aufgerufen wird?
  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
  - Gast Jan
    
    2012-12-17 15:15
    
    Ohja, da hast Du Recht. Rufe ich den mminfo-Befehl über die Shell auf, passiert das gleiche.
    
    Also macht das Script scheinbar doch, dass was ich will, zumindest fast :).
    
    Wenn ich das Script starte, ist es nach 1-2 Sekunden fertig. Ich bekomme jedoch keinen Output des mminfo-Befehls. Dieses möchte ich jedoch und am besten den Output in eine Datei umleiten. Nur wie?
    Last edited: 2012-12-17 15:21:20 +0100 (CET)
    - +10 replies
    - pq
      
      2012-12-17 15:41
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      gibt mminfo vielleicht auf STDERR aus? ich kenn mich mit dem programm nicht aus. kannst du den output von der shell aus in eine datei umleiten oder an less pipen?
      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
      - +9 replies
      - Gast Jan
        
        2012-12-17 15:48
        
        Ja, das funktioniert.
        
        Normalerweise arbeite ich mit
        
        mminfo -r blabla -q blabla > datei.txt
        
        Und das soll dann halt das Script für mich machen.
        Last edited: 2012-12-17 16:04:55 +0100 (CET)
        
        +8 replies
        
        pq
        
        2012-12-17 16:08
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        dann müsste das mit INPUT auch funktionieren.
        startest du das perl-skript mit anderen rechten? im zweifelsfall solltest du STDERR auf STDOUT umleiten, damit du eventuelle fehlermeldungen siehst. also noch ein 2>&1 im aufruf hinzufügen.
        INPUT liest du ganz normal mit while (my $line = <INPUT>) o.ä. aus?
        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
        
        +7 replies
        
        Gast Jan
        
        2012-12-17 16:12
        
        Sorry, ist mein erstes Perl-Script ;).
        
        Bisher habe ich nur diese Zeile:
        
        open(INPUT, "mminfo -q '!incomplete,savetime>$STARTTIME,savetime<$ENDTIME,group=NOTES_ezszbn32,copies=2' -r ssid,volume |") || die "can't open input $!\n";
        
        Und den Output will ich in einer Datei speichern. Also muss ich INPUT > datei.txt noch in den Code bringen, richtig?
        Last edited: 2012-12-17 16:13:44 +0100 (CET)
        
        pq
        
        2012-12-17 16:31
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        die ausgabe bekommst du so:
        
        Code (perl): (dl )
        
        1 2 3
        
        while (my $line = <INPUT>) { print $line; }
        
        wenn du das in eine datei speichern willst, musst du dafür wiederum ein filehandle aufmachen.
        wenn du den output gar nicht ausgeben möchtest, kannst du die umleitung > datei.txt auch direkt in den aufruf mit reinpacken, genau wie in der shell.
        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
        
        +5 replies
        
        Gast Jan
        
        2012-12-17 16:31
        
        Ich habe es jetzt hinbekommen, eine Datei mit dem Output des mminfo-Befehls zu betanken.
        
        open(INPUT, "mminfo -q '!incomplete,savetime>$STARTTIME,savetime<$ENDTIME,group=NOTES_ezszbn32,copies=2' -r ssid,volume > /nsr/cloning/test.txt |") || die "can't open input $!\n";
        
        Jedoch endet das Script nach ca. 1-2 Sekunden, nach Aufruf. Der mmminfo-Befehl benötigt aber gut 10 Sekunden. Kann ich es irgendwie steuern, dass das Perl-Script erst dann zu Ende geht, wenn die Datei mit dem Output des mminfo-Befehls gefüttert wurde?
        
        +4 replies
        
        pq
        
        2012-12-17 16:34
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        eigentlich sollte das perl-skript warten, bis mminfo fertig ist. wenn es sich schon beendet, bevor mminfo fertig ist, passiert da noch irgendwas anderes.
        ist denn die ausgabe richtig?
        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
        
        +3 replies
        
        Gast Jan
        
        2012-12-17 16:39
        
        Ja, die Ausgabe in die Textdateio ist richtig.
        
        Problem ist, dass ich anschließend an den mminfo-Befehl noch einen anderen Befehl aufrufen möchte, der auf die zuvor geschriebene Datei zugreift. Und dieser Befehl sollte natürlich erst dann ausgeführt werden, wenn die Datei betankt wurde.
        
        Gibt es eine Arbeit wait oder sleep innerhalb des Perl-Scripts?
        Last edited: 2012-12-17 16:43:49 +0100 (CET)
        
        +2 replies
        
        Gast wer
        
        2012-12-17 16:49
        
        Wenn du die Ausgabe in eine Datei umleitest ist es völlig sinnlos "open" zum lesen benutzen. Benutze "system":
        
        Code (perl): (dl )
        
        1 2 3
        
        system("mminfo -q '!incomplete,savetime>$STARTTIME,savetime<$ENDTIME,group=NOTES_ezszbn32,copies=2' -r ssid,volume > /nsr/cloning/test.txt") == 0 or die "can't run mminfo $!\n"; system("...") == 0 or die("Can't run xyz $!");
        
        Da wartet Perl bis das Programm sich beendet.
        Last edited: 2012-12-17 17:06:31 +0100 (CET)
        
        Gast Jan
        
        2012-12-17 18:09
        
        Super, klappt bestens!
        
        Denn bau ich mal den nächsten Befehl ein.
        
        Danke, für Deine Hilfe soweit. Evtl. brauch ich Dich morgen nochmal ;).
        
        Gruß
        Jan
        Last edited: 2012-12-17 18:13:41 +0100 (CET)

View all threads created 2012-12-17 14:19.