Help for this page

Select Code to Download


  1. or download this
    use strict;
use Tk;
...
  print "\$wait++ by pid $$\n";
  $wait++;
}
  2. or download this
    use strict;
use Tk;
...
tie my $wait, 'Win32::MMF::Shareable', 'wait' or die;
print "Remote process $$ increment \$wait...\n";
$wait++;
  3. or download this
    Process starting...                 # 3008 is pid of main

...

3008 FETCHING...             # pressed 'wait'
$wait is 2