whats wrong with my code?

[islayer]

can someone tell me what is wrong with the bold code? i am just learning perl. the program should create a perl file with a random name (5 letters, followed by a number), but the name is always just the number. whats wrong with my code?

#!/usr/bin/perl
use Fcntl;
 
@array = (a..z);
srand;
foreach (1..5) 
{    
$name = int(rand scalar(@array));    
print $array[$name];    
splice(@array,$name,1);    
}
 
print "content-type: text/perl \n\n";
 sysopen (PERL, "$name.pl", O_RDWR|O_EXCL|O_CREAT, 0755);
printf PERL '#!/usr/bin/perl';
printf PERL "\n\n";
printf PERL 'print "hello world!";';
printf PERL "\n";
printf PERL 'sleep(3);';
close (PERL);

[KevinADC]

can someone tell me what is wrong with the bold code? i am just learning perl. the program should create a perl file with a random name (5 letters, followed by a number), but the name is always just the number. whats wrong with my code?

#!/usr/bin/perl
use Fcntl;
 
@array = (a..z);
srand;
foreach (1..5) 
{    
$name = int(rand scalar(@array));    
print $array[$name];    
splice(@array,$name,1);    
}
 
print "content-type: text/perl \n\n";
 sysopen (PERL, "$name.pl", O_RDWR|O_EXCL|O_CREAT, 0755);
printf PERL '#!/usr/bin/perl';
printf PERL "\n\n";
printf PERL 'print "hello world!";';
printf PERL "\n";
printf PERL 'sleep(3);';
close (PERL);

While your code is a bit awkward, it seems to work for me. $name is a random string of 5 letters followed by a number.

[islayer]

While your code is a bit awkward, it seems to work for me. $name is a random string of 5 letters followed by a number.

$name is a random string of 5 letters followed by a number, but at least for me, the files created lack the 5 letters. i tried adding a print "$name" and it printed 5 letters and a number though.

[KevinADC]

$name is a random string of 5 letters followed by a number, but at least for me, the files created lack the 5 letters. i tried adding a print "$name" and it printed 5 letters and a number though.

I have no idea why your system will not create a file with the letters and numbers. Maybe someone else will be able to shed some light on this odd problem.

[islayer]

I have no idea why your system will not create a file with the letters and numbers. Maybe someone else will be able to shed some light on this odd problem.

well thanks anyway, i'll try running it in ubuntu, since i am currently using windows xp. you said it did work on your system? and what os are you running?

[KevinADC]

well thanks anyway, i'll try running it in ubuntu, since i am currently using windows xp. you said it did work on your system? and what os are you running?

I didn't actually check to see if the code created a file. I only printed the random strings out to the screen. I assume it would create a file with the random string, I can't see any reason why it would not. I tested the code on my old windows 98 test server.