امثلة على المصفوفات ARRAYS في لغة Perl

• 2020-10-14
• daafoor

• برمجة | Programming
• اكواد برمجية برمجة
• برمجة بيرل | Perl programming
• اكواد برمجية برمجة بيرل
• اكواد برمجية

@num = (2015, 2016, 2017);               
@string = ("One", "Two", "Three");  

@num = (2015, 2016, 2017);               
@string = ("One", "Two", "Three");  
print "$num[0]\n";  
print "$num[1]\n";  
print "$num[2]\n";  
print "$string[0]\n";  
print "$string[1]\n";  
print "$string[2]\n";  

@months = qw/Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec/;  
print "$months[0]\n";  
print "$months[1]\n";  
print "$months[7]\n";  
print "$months[9]\n";  
print "$months[6]\n";  
print "$months[-3]\n";  

@array = (you, me, us);  
$array[5] = 4;  
$size = @array;  
$index_max = $#array;  
print "Size:  $size\n";  
print "Maximum Index: $index_max\n";  

// Size: 6
// Maximum Index: 5