Help for this page

Select Code to Download


  1. or download this
    print $_,'' for map{$_*5} 0 .. 5
0 5 10 15 20 25
  2. or download this
    foreach ( ('a'..'z')[map{$_*5}0..5] ) { 
    print $_,''; 
}
a f k p u z
  3. or download this
    @array = (0..50)
foreach ( @array[map{$_*5} 0..@array/5] ) { 
    print $_,''; 
}
0 5 10 15 20 25 30 35 40 45 50
  4. or download this
    @hash{'a'..'z'} = (1..26);

...
hash{p} = 16
hash{u} = 21
hash{z} = 26