BOSS/Examples/test.pl

#! /usr/bin/perl

$sec = $ARGV[0];
print "waiting $sec/10 seconds\n";

open (LOG, ">> test.pl.log") || {print STDERR "unable to write to $logFile. Logging disabled\n"};

$| = 1;
$i = 0;
while ( $i < $sec ) {
  select (undef, undef, undef, 0.1);
  $i++;
  print "counter $i\n";
  print LOG "counter $i\n";
}
print "done\n";


Revision:	1.1.1.1 (vendor branch)
Committed:	Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer
Content type:	application/x-perl
Branch:	one, MAIN
CVS Tags:	BOSS_4_3_10, BOSS_4_3_9, BOSS_4_3_8, BOSS_4_3_8-ui3_1, BOSS_4_3_7-ui3_1, BOSS_4_3_7, BOSS_4_3_6, BOSS_4_3_4a, BOSS_4_3_5, BOSS_4_3_4, BOSS_4_3_3, BOSS_4_3_2, BOSS_4_3_1b, BOSS_4_3_1a, BOSS_4_3_1, BOSS_4_3_0, BOSS_4_2_4, BOSS_4_2_3, BOSS_4_2_2, BOSS_4_2_1, BOSS_4_2_0, BOSS_4_1_10, BOSS_4_1_9, BOSS_4_1_9-test, BOSS_4_1_8, BOSS_4_1_7, BOSS_4_1_6, BOSS_4_1_5, BOSS_4_1_4, BOSS_4_1_3, BOSS_4_1_2, BOSS_4_1_1, BOSS_4_1_0, BOSS_4_0_11, BOSS_4_0_10, BOSS_4_0_9, BOSS_4_0_8, BOSS_4_0_7, BOSS_4_0_6, BOSS_4_0_5, BOSS_4_0_4, BOSS_4_0_3, BOSS_4_0_2, BOSS_4_0_1, BOSS_4_0_0, BOSS_v4_0_0-pre2, BOSS_v4_0_0-pre1, two, HEAD
Branch point for:	BOSS_4_3-ui3_0, BOSS_4_3_1c
Changes since 1.1:	+0 -0 lines
Error occurred while calculating annotation data.
Log Message:	test import
#	Content
1	#! /usr/bin/perl
2
3	$sec = $ARGV[0];
4	print "waiting $sec/10 seconds\n";
5
6	open (LOG, ">> test.pl.log") \|\| {print STDERR "unable to write to $logFile. Logging disabled\n"};
7
8	$\| = 1;
9	$i = 0;
10	while ( $i < $sec ) {
11	select (undef, undef, undef, 0.1);
12	$i++;
13	print "counter $i\n";
14	print LOG "counter $i\n";
15	}
16	print "done\n";
17
18