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
Committed:	Tue Jan 10 13:06:55 2006 UTC (19 years, 3 months ago) by elmer
Content type:	application/x-perl
Branch point for:	one, MAIN
Log Message:	Initial revision
#	User	Rev	Content
1	elmer	1.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