home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / ext / Thread / create.t next >
Text File  |  1999-07-20  |  496b  |  27 lines
  1. use Thread 'async';
  2. use Config;
  3. use Tie::Hash;
  4.  
  5. sub start_here {
  6.     my $i;
  7.     print "In start_here with args: @_\n";
  8.     for ($i = 1; $i <= 5; $i++) {
  9.     print "start_here: $i\n";
  10.     sleep 1;
  11.     }
  12. }
  13.  
  14. async {
  15.     tie my(%h), 'Tie::StdHash';
  16.     %h = %Config;
  17.     print "running on $h{archname}\n";
  18. };
  19.  
  20. print "Starting new thread now\n";
  21. $t = new Thread \&start_here, qw(foo bar baz);
  22. print "Started thread $t\n";
  23. for ($count = 1; $count <= 5; $count++) {
  24.     print "main: $count\n";
  25.     sleep 1;
  26. }
  27.