Help for this page

Select Code to Download

Select or download this

    use POSIX 'ceil';

...
    $last     = $#things if $last > $#things;

    print @things[ $first .. $last ];

Select or download this

for ( grep defined($_), ( reverse keys %upload )[ $top .. $bottom ] ) 
+{