fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3.  
  4. #my @tab = (1000 .. 1010);
  5. #$values = join("|", @tab[map {rand 10} @tab]);
  6. #print($values);
  7.  
  8. #my $tab[$i] = map {int (rand(60)) };
  9. my @tab2 = map {int rand(60)} (1..10);
  10. print(join("|", @tab2));
Success #stdin #stdout #stderr 0s 3564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
53|21|13|55|18|11|37|42|41|44
stderr
copy 
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
	LANGUAGE = (unset),
	LC_ALL = (unset),
	LANG = "en_US.UTF-8"
    are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
https://ideone.com/QRxM1R
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!