Re: fall through switch/case in perl

[jeffa]

I don't think i have seen this one yet, although it is close in spirit to demerphq's solution:

use strict;
no warnings;

my @array = reverse 'a' .. 'j';
my $var   = shift() - 1;

print join '', reverse @array[0..$var];

Update: one-liner for the heck of it

perl -le"@_=reverse a..j;print join'',reverse@_[0..shift()-1]" 5

[Pragma]

perl -le "print((a..j)[-shift..-1])" 5