Mega Code Archive

 

Categories / Perl / Array

 

Mulitple indexing

#!/usr/bin/perl -w use strict; my $mone;  my $mtwo; ($mone, $mtwo) = (1, 3); print (("A ", "B ", "C ", "D ")[$mone, $mtwo]); print "\n";