flush unter windows (Allgemeines zu Perl)

[thread]16377[/thread]

flush unter windows

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+10 replies
jan99

2011-05-31 16:45

User since
2008-09-18
439 Artikel
BenutzerIn

hi !

unter Linux gibt es wohl flush, etwas um die Rückschreibung der Daten und das Leeren des Puffers erzwingen.

Weiß einer ob es soetwas auch unter Windows (Win7) gibt ?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +3 replies
- Linuxer
  
  2011-05-31 17:00
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Hi,
  
  kannst Du konkreter werden und mehr Infos geben?
  
  Welches flush meinst Du? Bestandteil welches Moduls?
  
  Ich erinnere mich nicht, dass der Perl-Core ein flush() bereitstellt.
  
  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!
  - +2 replies
  - jan99
    
    2011-05-31 17:07
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    mein Problem ist das ich mit Perl Dateien aus dem Web herunterlade mittels
    
    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
    
    print "\nUrl4XAPI: ".$link."\n"; print "File: ".$file."\n"; my $agent = LWP::UserAgent->new( # Fake Debian Firefox (Manche Server weigern sich sonst); agent=>'Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.0.11) Gecko/2009061319 Iceweasel/3.0.11 (Debian-3.0.11-1)' ); # Cookies akzeptieren und Nutzen. # Ist bei manchen Systemen nötig die Logins haben. $agent->cookie_jar(HTTP::Cookies->new()); print "download on work....\n"; #my $result = $agent->request(HTTP::Request->new('GET',$link)); my $result_content=''; my $result = $agent->request(HTTP::Request->new('GET',$link),sub{ local $|=1; $result_content.=$_[0]; print "."; }); print "\n"; $result->content($result_content);
    
    Im Anschluss werden dann diese mit einem java-Tool über das System zusammengeführt. Das klappt aber nicht, da die Dateien nicht verfügbar sind und ich vermute daher das die Dateien von von dem Perl-Download nicht abschließend geschlossen sind um somit für Windows zur Verfügung zu stehen.
    
    flush hatte mir jemand als Stichwort gegeben - weiß allerdings nicht ob es soetwas unter Windows gibt.
    
    Hilft das weiter ?
    
    Gruß Jan :-)
    
    modedit Editiert von GwenDragon: Code in CODE-Tags gestellt
    Last edited: 2011-05-31 17:09:08 +0200 (CEST)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - Linuxer
      
      2011-05-31 17:28
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Ja, jedenfalls für mich, um zu sehen, was konkret Du meinst.
      
      Allgemein:
      
      Perls Ausgabe erfolgt in der Regel gepuffert.
      Entweder man weist Perl an, diese Pufferung nicht durchzuführen, oder man fordert die Leerung jeweils explizit an.
      
      Durch das Setzen von $| auf einen Wert ungleich 0 wird Perl angewiesen, den Puffer sofort zu leeren.
      Dabei ist zu beachten, dass diese Anweisung für den aktuellen ausgewählten Ausgabekanal gilt;
      Standardmäßig ist das STDOUT, kann aber eben auch ein anderer sein. Man sollte sich dieser Tatsache bewusst sein.
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      { local $| = 1; for ( 1 .. 3 ) { # nach jedem Punkt sollte eine Sekunde vergehen print "."; sleep 1; } print "\n"; }
      
      Das Modul IO::Handle stellt flush() zur Verfügung, mit dem man die sofortige Leerung des Puffers für einen definierten Filehandle anweisen kann. Die weiteren Details sind bitte der POD zu entnehmen.
      
      Zu Deinem Problem:
      
      Ich kann gerade nicht nachvollziehen, wo Dein Problem konkret ist. Allerdings bin ich irritiert aufgrund Deines Codes.
      
      Du hängst die abgeholten Daten an eine leere $result_content an und gibst diesen anschließend wieder
      als Argument an die content() Methode des HTTP::Request Objekt in $result.
      Warum?
      
      Des weiteren schreibst Du "Im Anschluss ..."
      Heißt das, dass Dein Perl-Skript komplett durchgelaufen ist und dann das Java-Tool startet?
      Wenn ja, sehe ich derzeit kein Problem im Perl-Puffer ... Das Perl-Skript ist zu Ende und damit müssen auch alle Perl-internen Puffer geleert worden sein.
      
      Last edited: 2011-05-31 21:42:31 +0200 (CEST)
      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!
- GwenDragon
  
  2011-05-31 17:15
  
  User since
  2005-01-17
  14745 Artikel
  Admin1
  
  flush für ein Dateihandle oder STDOUT?
  
  http://www.perl-community.de/bat/poard/thread/8167... und nächste lesen. ;)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- bianca
  
  2011-05-31 20:29
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Meinst du autoflush? -> msg #133383
  10 print "Hallo"
  20 goto 10
- +4 replies
- Gast wer
  
  2011-05-31 21:37
  Vermutung zum Problem:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl my $file='test.txt'; my $txt=join("\n",map{rand(1000)}(1..1000000)); open(my $fh, '>', $file) or die("$file $!"); print $fh $txt; exec(q Xperl -le 'open($fh, q(<), $ARGV[0]) or die(qq($ARGV[0] $!)); $i=0; while(<$fh>){$i++}; print $i' -- X.$file);
  
  Unter Windows kommen nicht immer alle Zeilen an?
  
  Oder das ist das Problem:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  #!/usr/bin/perl my $file='test.txt'; my $txt=join("\n",map{rand(1000)}(1..1000000)); open(my $fh, '>', $file) or die("$file $!"); print $fh $txt; system(q Xperl -le 'open($fh, q(<), $ARGV[0]) or die(qq($ARGV[0] $!)); $i=0; while(<$fh>){$i++}; print $i' -- X.$file);
  - +3 replies
  - GwenDragon
    
    2011-06-01 10:07
    User since
    2005-01-17
    14745 Artikel
    Admin1
    
    Gibt es einen besonderen Grund, warum du für die Datei kein
    
    Code: (dl )
    
    close
    
    verwendest, bevor du wieder daraus liest?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - Gast wer
      
      2011-06-01 10:38
      
      Beim ersten ist es nicht nötig, beim zweiten habe ich es vergessen.
      Last edited: 2011-06-01 10:43:07 +0200 (CEST)
      - kristian
        
        2011-06-01 14:19
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        hmmm,
        Auf Nixen werden Daten in die Datei geschrieben, wenn der Buffer dafür reif ist, sofort bei $|++, aber spätestens bei close().
        Sprich es kann passieren das die Datei bis zum close() leer bleibt.
        Des weiteren möchte ich dringend anraten das Ergebnis von close() zu prüfen.
        'No space left an device' etc. sieht man erst hier!!!

View all threads created 2011-05-31 16:45.