Mega Code Archive

 

Categories / Perl / Array

 

Assign array value to a list of scalar variables

#!/usr/bin/perl -w my $scalar0;  my $scalar1;  my $scalar2; my @array = (10, 20, 30); ($scalar0, $scalar1, $scalar2) = @array; print "Scalar zero is $scalar0\n"; print "Scalar one is $scalar1\n"; print "Scalar two is $scalar2\n";