Expand|Select|Wrap|Line Numbers
- #!/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);