mirror of
https://github.com/Hizenberg469/Makefile-tutorial.git
synced 2026-04-19 22:02:24 +03:00
11 lines
420 B
Perl
11 lines
420 B
Perl
#!/usr/bin/perl
|
|
|
|
@disk_cap = (50, 30, 40, 'fifty five',66,80,90);
|
|
$size_of_array_disk_cap = @disk_cap;
|
|
$max_index=@disk_cap - 1;
|
|
@cards = ("csc01", "xcc360g", "xcc80g");
|
|
@line_cards = qw(cef5 cef4c xa10g);
|
|
print "disk_cap = @disk_cap\n";
|
|
print "disk_cap[0] = $disk_cap[0]\n";
|
|
print "line_cards[0] = $cards[0] cards[-1] = $cards[-1]\n";
|
|
print "size of array \@disk_cap = $size_of_array_disk_cap max_index = $max_index\n"; |