BOSS/Examples/testerr.pl

#! /usr/bin/perl

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

$| = 1;
$i = 0;
while ( $i < $sec ) {
  sleep(1);
  $i++;
  print "Outcounter $i\n";
  if( int($i/10)*10 eq $i ) {
      print STDERR "Errcounter $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
Log Message:	test import
#	User	Rev	Content
1	elmer	1.1	#! /usr/bin/perl
2
3			$sec = $ARGV[0];
4			print "waiting $sec seconds\n";
5
6			$\| = 1;
7			$i = 0;
8			while ( $i < $sec ) {
9			sleep(1);
10			$i++;
11			print "Outcounter $i\n";
12			if( int($i/10)*10 eq $i ) {
13			print STDERR "Errcounter $i\n";
14			}
15			}
16			print "done\n";
17
18