my bad. the missing sub routines:
sub rep{
# this assumes two passed values,
# first a message
# second a flag for verbose (screen printing)
print LOG "$_[0]\n";
if($_[1]){ print STDOUT "$_[0]\n"; }
}
sub sdirnm{
##########################################
# this is for making sub directory names #
# it returns a name of $lngth characters #
##########################################
my $lngth=$_[0];
my $line='';
my $count=0;
my
@chars=('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','0','1','2','3','4','5','6','7','8','9');
while($count<$lngth){
$line.=$chars[rand(@chars)];
$count++;
}
return $line;
}
"$Bill Luebkert" <[EMAIL PROTECTED]>
11/10/2005 07:12 PM
To
[EMAIL PROTECTED]
cc
[email protected]
Subject
Re: Directory Depth Cleanup
[EMAIL PROTECTED] wrote:
> Maybe this time I can phrase it better.
>
> I am adding edge test abilities to a smoke test for a new product. the
> problem here is that the depth portion is not cleaning itself up. (the
> single length for a directory was added after a response from last time)
>
> what follows is the subroutine that is used to find the maximum depth
and
> length for a directory. the header (use) lines for the script are also
> here.
>
> I have attached a log file from a run in which you can see that ti takes
a
> path like Z:/smoke and then does the work within that path.
>
> any help getting the depth portion to clean itself up would be greatly
> appreciated. the command doesn't seem to get to the Linux, which has no
> problem cleaning up manually when i copy and paste those same commands
in
> that order.
Don't post code that won't run. Where's dirnm and rep ?
Make sure you test it standalone before you post it.
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic
http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
