Einfache While-Schleife bis Interverbindung da ist (gelöst) (Allgemeines zu Perl)

[thread]15438[/thread]

Einfache While-Schleife bis Interverbindung da ist [gelöst]

Leser: 27

Articles: hide open all | hide show old branches

+8 replies
kami

2010-09-04 14:13

User since
2010-03-17
92 Artikel
BenutzerIn

Hi,

ich weiß ist ne Anfängerfrage aber ich weiß nicht wie ich es umsetzen soll.
Ich möchte gerne in mein Skript eine Schleife aufnehmen, die solange läuft bis eine Internetverbindung da ist oder nach 30 sec abbricht.

Gruß kami
- +7 replies
- MatthiasW
  
  2010-09-04 14:24
  
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  
  Hast du schon mal die Suchfunktion verwendet? internetverbindung
  
  Du könntest zum Testen also bspw. LWP::Online einsetzen.
  
  MfG
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +6 replies
  - kami
    
    2010-09-04 18:16
    User since
    2010-03-17
    92 Artikel
    BenutzerIn
    
    Hi,
    
    ich habe das jetzt so gemacht :
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    use LWP::Online 'online'; unless ( online('http') ) { sleep(1); }
    
    Ist das so richtig? oder wie kriege ich noch die 30 sec rein?
    
    Gruß kami
    - +5 replies
    - hlubenow
      
      2010-09-04 19:26
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      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
      
      #!/usr/bin/perl use warnings; use strict; use LWP::Online 'online'; my $start = time(); my $now = time() - $start; my $conn = 0; while (1) { if ( online('http') ) { $conn = 1; last; } sleep(1); $now = time() - $start; if ($now > 30) { print "30 seconds over. No connection. Aborting.\n"; last; } }
      
      time() liefert die Sekunden seit Epoch (1.1.1970).
      - +4 replies
      - esskar
        
        2010-09-04 20:47
        
        User since
        2003-08-04
        7321 Artikel
        ModeratorIn
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use warnings; use strict; use LWP::Online 'online'; my $start = time(); my $now = 0; my $max = 30; my $conn = 0; while ($now < $max) { if ( online('http') ) { $conn = 1; last; } sleep(1); $now = time() - $start; } die "$max seconds over. No connection. Aborting.\n" unless $conn;
        
        +3 replies
        
        kristian
        
        2010-09-05 08:44
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        So ganz funktioniert das IMHO nicht.
        1.)
        
        Code: (dl )
        
        1 2
        
        # Set the useragent timeout $ua->timeout(30);
        
        2.)
        
        Code: (dl )
        
        return '' if $bad > 2;
        
        Da sind wir schon über die 30 Sekunden weg.
        
        3.)
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9
        
        @RELIABLE_HTTP = ( # These are some initial trivial checks. # The regex are case-sensitive to at least # deal with the "couldn't get site.com case". 'http://google.com/' => sub { /About Google/ }, 'http://yahoo.com/' => sub { /Yahoo!/ }, 'http://amazon.com/' => sub { /Amazon/ and /Cart/ }, 'http://cnn.com/' => sub { /CNN/ }, );
        
        Wer das mal im Land seiner Wahl testet wird feststellen dass im Falle Google "About Google" möglicherweise nicht auftaucht.
        Das scheint mir nicht sinnig.
        Last edited: 2010-09-05 09:04:00 +0200 (CEST)
        
        +2 replies
        
        kami
        
        2010-09-05 11:00
        
        User since
        2010-03-17
        92 Artikel
        BenutzerIn
        
        Wenn es nicht auf genau 30 Sekunden ankommt dann müsste es doch auch so klappen oder? Geht mir nur darum, dass das Skript nicht in eine Endlosschleife läuft:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8
        
        my $count = 0; unless ( online('http') && $count < 30) { sleep(1); $count++; }
        
        Gruß kami
        
        Dubu
        
        2010-09-05 15:06
        
        User since
        2003-08-04
        2145 Artikel
        ModeratorIn + EditorIn
        
        unless macht keine Schleife sondern ist das logische Gegenteil von if. Du brauchst aber immer noch die Schleife:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        while (! online('http') && $count < 30) { sleep 1; $count++; } # Schleife wurde beendet; sind wir jetzt Online oder nicht? # Alternativ hier auf den Wert von $count testen, dann wird der # Online-Test nicht noch mal ausgeführt. unless ( online('http') ) { die "bäh, nicht online...\n"; }
        
        Wie kristian schon gezeigt hat, kann diese Schleife aber deutlich länger als 30 Sekunden laufen, je nachdem, wie lange der Aufruf von online() dauert. Dort wird im schlechtesten Fall abgebrochen, wenn drei Sites nicht erreichbar sind, und das mit jeweils einem Timeout von 30 Sekunden, wie kristian auch geschildert hat. Dein Test könnte also bis zu ca. 30 * (3 * 30 + 1) = 2730 Sekunden, also ca. 45 Minuten dauern. Deshalb wäre z.B. esskars Vorschlag besser.

View all threads created 2010-09-04 14:13.