Hizenberg/Makefile-tutorial
1
0
Fork 0
mirror of https://github.com/Hizenberg469/Makefile-tutorial.git synced 2026-04-19 22:02:24 +03:00
Code Issues Packages Projects Releases Wiki Activity

Done till array slicing

Browse Source
This commit is contained in:
Hizenberg469
2025-02-21 09:54:25 +00:00
parent 81cd00448f
commit 98761e7104
2 changed files with 232 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
perl/array.pl Normal file
View File

@@ -0,0 +1,11 @@
#!/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";