Help for this page

Select Code to Download


  1. or download this
    while (my $key1 = shift @keys) {
  2. or download this
     3:19 >perl -wE "my @keys = ('a'..'c', '0', 'd'..'f'); say ''; while (
+my $key = shift @keys) { print qq[$key: ]; for (@keys) { print qq[$_ 
+] } say '' }"

...
c: 0 d e f

 3:19 >
  3. or download this
     3:19 >perl -wE "my @keys = ('a'..'c', '0', 'd'..'f'); say ''; while (
+@keys) { my $key = shift @keys; print qq[$key: ]; for (@keys) { print
+ qq[$_ ] } say '' }"

...
f:

 3:19 >