Форум АНТИЧАТ - Показать сообщение отдельно - Perl

Цитата:

Сообщение от GenTao

Хмм)).Я так понял,sleep там вообще не нужен?)))

Вообще, раз нашел это на чьем-то блоге, то у автора и спросил бы зачем ему sleep. Кстати, в скрипте явные ошибки, и работать оно не должно. Вот в таком виде должно работать (не на чем проверить мне щас было, правда, но должно (: ):

Код:

 #!/usr/bin/perl

use threads;
use warnings;
use strict; 

my @threads;
push @threads, threads->create(\&get_now, $_) for (1..10);
$_->join() foreach @threads; 

sub get_now { 
    my $num = shift;
    print 'thread ', $num, ' => ', time(), "\n";
}