Problem mit WWW::Mechanize: oder was anderem ;) - #37596 (Netzwerkprogrammierung und Netzwerke mit Perl)

renee

2007-07-02 17:26

User since
2003-08-04
14371 Artikel
ModeratorIn

Ein

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

$|++;

my $counter = 0;

START:
  print ++$counter,"\r";
  sleep 1;
  goto START;

kannst Du ersetzen durch

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

$|++;

my $counter = 0;

while(1){
  print ++$counter,"\r";
  sleep 1;
}