system im background (Allgemeines zu Perl)

[thread]18565[/thread]

system im background

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+9 replies
2paul

2013-09-05 20:04
User since
2013-09-05
5 Artikel
BenutzerIn
Erstmal Hallo allen, ich bin neu hier. Und auch relativ neu in Perl. Aber ich hab in meinem Leben schon viel programmiert.
Aber dieses Problem kann ich irgendwie nicht lösen:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

@arr = split('/',$datagram1); $arr_length = @arr; $new_photo = $arr[$arr_length-1].""; print "Open #".$new_photo."#\n"; sleep(3); system("killall shotwell"); #$new_photo = "DSC_0198.JPG"; system("shotwell $new_photo &"); print "test\n";
Das Ganze ist Teil eines Programms, was von einer SD-WLAN-Karte, die in einer Kamera steckt, die Bilder direkt auf dem Rechner darstellen soll.

Eigentlich funktoniert das auch alles, also Bilder werden runtergeladen, wenn das Foto geschossen wurden, nur mit der direkten Darstellung harpert es noch ein wenig, der meiste Code ist nicht von mir.
Link zum Projekt:
http://sourceforge.net/p/transsvr/wiki/Home/

Der Code da oben tut eigentlich genau das was er soll, er extrahiert den Dateinnamen und soll jetzt einfach nur meinen Bildbetrachter im Hintergrund öffnen, damit das Foto sofort sichtbar auf dem Computer ist (Bildkontrolle).

Jetzt zum Problem:
Wenn ich diesen Code ausführe, öffnet er auch das erste Bild, dass nach dem Starten des Scripts geschossen wurde, aber er kommt nicht wieder zurück, also das "test" erreicht er nicht, erst wenn ich manuell der Bildbetrachter shotwell schliesse.

Jetzt kommst:
Wenn ich jetzt aber, das nächste zu erwartende Bild,aktuelles letztes Bild in der Kamera z.B. DSC_0197.JPG nehme und händisch $new_photo = "DSC_0198.JPG"; setze, arbeitet er wie erwartet. Also shotwell wird im Hintergrund gestartet und er erreicht sofort das prin t "test".

Die Variable die durch: $new_photo = $arr[$arr_length-1].""; erzeugt wird ist korrekt, ich habe extra schon ein ."" angehängt, damit ich sicher bin, dass das auch auch string ist...

Vielleicht hat jemand eine Idee, wie ich das lösen kann.

Viele Grüße.
Last edited: 2013-09-05 20:11:02 +0200 (CEST)
- +8 replies
- pq
  
  2013-09-05 20:46
  User since
  2003-08-04
  12208 Artikel
  Admin1
  überprüf mal genau, was in der variable drinsteht. das macht man am besten so:
  
  Code (perl): (dl )
  
  1 2 3
  
  use Data::Dumper; local $Data::Dumper::Useqq = 1; # nicht sichtbare zeichen sichtbar machen print Dumper $new_photo;
  
  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
  - 2paul
    
    2013-09-06 09:05
    
    User since
    2013-09-05
    5 Artikel
    BenutzerIn
    
    Fein...da haste Ihn erwischt :)
    
    Nachdem ich use strict; deaktiviert hatte, liefert er mir im Dumper:
    
    $VAR1 = "DSC_0200.JPG\0";
    
    Kannst Du mir auch sagen wie ich das entfernen kann ??
    - +4 replies
    - Linuxer
      
      2013-09-06 09:24
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Dann soltest Du die binäre Null entfernen; z.B. mit $variable =~ tr/\0//d;
      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!
      - +3 replies
      - 2paul
        
        2013-09-06 09:43
        
        User since
        2013-09-05
        5 Artikel
        BenutzerIn
        
        Vielen Dank, Du warst ja schnell :)
        
        Ich bin auch gleich auf die Suche gegangen und habs jetzt mit:
        
        Code: (dl )
        
        $new_photo =~ s/[^[:print:]]+//g;
        
        gelöst
        
        Vielen Dank Euch beiden für die Unterstützung jetzt läuft es genauso wie es soll.
        
        ############
        
        Und da ich schon mal dabei bin, nochmal eine Frage:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12
        
        #system('wget http://admin:admin@192.168.11.254/sd/DCIM/200MSDCF/_DSC3233.JPG'); my $wget = join("","wget -bqc http://",$User,":",$Password,"@",$CardIP,$datagram1,); system($wget); @arr = split('/',$datagram1); $arr_length = @arr; $new_photo = $arr[$arr_length-1]; $new_photo =~ s/[^[:print:]]+//g; print "Open ".$new_photo."\n"; sleep(3); system("killall shotwell"); system("shotwell $new_photo &");
        
        Ich lade mit wget das Bild im Hintergrund herunter.
        Jetzt hab ich da ein sleep (3) eingebaut, was für meine Bedürfnis so erstmal funktioniert, aber das ist nicht wirklich sauber, wenn man den Code weitergeben will, und jemand hat z.B. größere Datein.
        
        Gibts in Perl die Möglichkeit einen Event zu starten, der aktiviert wird, wenn wget das Bild heruntergeladen hat ??
        
        +2 replies
        
        Linuxer
        
        2013-09-06 10:13
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Andere haben da wahrscheinlich mehr Erfahrungen und auch noch bessere Lösungsvorschläge.
        
        Ein grober Ansatz könnte beispielsweise sein:
        
        wget nicht selber im Hintergrund laufen lassen, sondern perl fork verwenden
        eine FIFO erstellen ("named pipe"; man mkfifo)
        für jede Datei wird ein Kindprozess erzeugt
        im Kind-Prozess wird der wget normal durchgeführt und auf Erfolg kontrolliert
        bei Erfolg wird z.B. der Speicherort der Datei in die FIFO geschrieben; Kind beendet sich
        der Eltern-Prozess kontrolliert die FIFO, ob da ein neuer Eintrag drin steckt und verarbeitet diesen, wenn er auftaucht
        
        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!
        
        2paul
        
        2013-09-06 15:21
        
        User since
        2013-09-05
        5 Artikel
        BenutzerIn
        
        Vielen Dank. Hört sich interessant an.
        
        Aber ich hab gerade mit dem eigentlichen Entwickler geschrieben.
        Und der meine "einfach beim wget das -b weglassen".
        Dann wartet perl auf das Beenden des Downloads.
        
        Getestet und geht :)
        
        Irgendwie schade, ich hatte schon immer Intresse Perl zu lernen, finde es echt die Coolste Sprache, die es gibt.
        Aber ohne konkretes Projekt, ist die Motivation immer ein wenig mau...
        
        Vielleicht fällt mir noch was cooles ein, was man in das Projekt einbauen könnte
    - +2 replies
    - pq
      
      2013-09-06 13:55
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2013-09-06T07:05:12 2paul
      Nachdem ich use strict; deaktiviert hatte, liefert er mir im Dumper:
      
      um Data::Dumper zu benutzen, musst du aber nicht strict deaktivieren.
      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
      - 2paul
        
        2013-09-06 15:25
        
        User since
        2013-09-05
        5 Artikel
        BenutzerIn
        
        Das hat bei mir nicht funktioniert.
        Der hat einen Error gemacht.
        Hat sowas gesagt wie:
        "Cant use strict and dumper together"
        Aber gerade eben, als ich den Fehler wiederholen wollte, gings plötzlich :)

View all threads created 2013-09-05 20:04.