do on loop ? (Allgemeines zu Perl)

[thread]13842[/thread]

do on loop ?

Readers: 25

Articles: hide open all | hide show old branches

+5 replies
Mathias

2009-08-10 10:13
User since
2006-03-16
36 articles
BenutzerIn
Hallo erstmal =)

ich grübbel nu schon seit ein paar tagen über ein problem welches sich eigentlich aus einer spielerrei entwickelt hat

Was ich versuche

Ich hab meine main.pl die eine pipe verbindung zu tamawork.pl aufbaut
Diese 2 scripts sollen ungepuffert laufen
Allerdings möchte ich gerne wären das script läuft "$pipetest" einen wert zuweisen
Ich komme einfach nich drauf habe ich vieleicht einen allgemeinen denkfehler drin?
Über vorschläge wäre ich dankbar

Meine scripts bis jetzt
Code: (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

main.pl: #!/usr/bin/perl use strict; $|++; my $pipetest = undef; open (my $fh, "/home/s0nyc/tama/tamawork.pl |") or die "ups... $!"; while(<$fh>){ if ($_ == 10){ chomp; if ($pipetest eq ''){ $pipetest = "Keine Eingabe"; } print "JA $pipetest $_"; } } tamawork.pl: #!/usr/bin/perl use strict; use warnings; $|++; my $zaehler = 1; while (1){ $zaehler ++; print "$zaehler\n"; sleep 1; if ($zaehler == 25){ print "Endeee\n"; exit; } }
Meine gedanken gingen in richtung noch eine pipe einzurichten, aber ich werd daraus nicht schlau ich hab kein plan wie ich das umsetzen soll

für ein paar nette ideen wäre ich sehr dankbar

gruß mathias
Last edited: 2009-08-10 11:54:30 +0200 (CEST)
greets =)
- +2 replies
- nepos
  
  2009-08-10 10:55
  
  User since
  2005-08-17
  1420 articles
  BenutzerIn
  
  Dein Vergleich in Zeile 11 ist falsch. In $_ wird nie '10' stehen sondern "10\n". Du solltest in der Schleife noch chomp() aufrufen, damit der Zeilenumbruch gelöscht wird.
  - Mathias
    
    2009-08-10 11:12
    User since
    2006-03-16
    36 articles
    BenutzerIn
    
    habs editiert
    hatte aber auch ohne chomp funktioniert
    
    Das problem is ja das ich $piptest einen wert zuweisen will
    
    bevorzugt über <STDIN>
    
    Code: (dl )
    
    chomp (my $pipetest = <STDON>);
    
    friert mir ja sozusagen das script ein, aber es soll ja im hintergrund einfach weiterlaufen.
    mhh ich hab auch schon überlegt en 3tes script laufen zu lassen
    welches einfach etwas in einer datei ablegt die von main.pl bei jedem durchlauf gecheckt wird.
    
    greets =)
- +2 replies
- moritz
  
  2009-08-10 11:15
  User since
  2007-05-11
  923 articles
  HausmeisterIn
  Quote
  
  Code: (dl )
  
  if ($pipetest eq undef){
  
  Das ist nicht besonders sinnvoll. Auf undef tested man mit if (!defined(...)) {, aber der Wert wird nie undef sein.
  
  Stattdessen wuerde ich if ($pipetest eq '') { oder unless (length($pipetest)) nehmen.
  Perl 6 - Perls Zukunft
  - Mathias
    
    2009-08-10 11:54
    
    User since
    2006-03-16
    36 articles
    BenutzerIn
    
    danke für den hinweis
    wurde editiert
    greets =)

View all threads created 2009-08-10 10:13.