Re: do until loops

[Anonymous Monk]

I'm trying to do a simple copy command that will overwrite a file a specific number of times(i.e 10 times and then terminate) using the do until command. Can anyone give me some advise on this.

[rlivings]

couldnt you do something like this

$value=0;
do{
  "copy command"
  $value=$value+1;
} until($value==9);

[Anonymous Monk]

#!/usr/bin/perl -w<
use strict;<br>
# use the -w and "use strict"
# to check more on your errors
# usefull thing for rookies
my $content = "some content";
# here asuming that the file is in the same folder
my $filename = "file_name.file_extention";
# i like the while loop better.....
my $stopper = 0;
# loop until $stopper equal 10
# opening the file for overwrite or die
# print new data
# close file
# incress $stopper value by one
while ($stopper < 10) {
 open yourfile, ">$filename" or die "\t cant open file";
 print yourfile "$content";
 close yourfile;
 $stopper++;
}
# done
# if u relly want to use do until
# replace my while loop from { to } by ..
do {
 open yourfile, ">$filename" or die "\t cant open file";
 print yourfile "$content";
 close yourfile;
 $stopper++;
} until ($stopper == 10)
#
# but a question is in my mind why the *~@ u wanna 
# overwrite a file 10 times ??????
# anyway hope i helped u a little

Edit by dws to add <code> tag