Mega Code Archive

 

Categories / Perl / Array

 

A program that prints every element of an array

#!/usr/local/bin/perl  @array = (14, "abc", 1.23, -7, "ddd");  $count = 1;  while ($count <= @array) {     print("element $count: $array[$count-1]\n");     $count++;  }