git.samba.org
/
tridge
/
junkcode.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
up io error count if not exiting
[tridge/junkcode.git]
/
rand.pl
1
#!/usr/bin/perl -ws
2
3
use Data::Dumper;
4
5
my(@list) = split(/\n/, `cat rr-list`);
6
7
my($count)=$#list + 1;
8
9
print Dumper @list;
10
print "count=$count\n";
11
12
13
open(LOGFILE,">>rr.log");
14
15
print LOGFILE "hello\n";