12 lines
459 B
Perl
12 lines
459 B
Perl
#!/usr/bin/perl
|
|
|
|
$line = ['solid', 'black', ['1','2','3', ['4', '5', '6']]];
|
|
print "\$line->[0] = $line->[0] \n";
|
|
print "\$line->[1] = $line->[1] \n";
|
|
print "\$line->[2][0] = $line->[2][0] \n";
|
|
print "\$line->[2][1] = $line->[2][1] \n";
|
|
print "\$line->[2][2] = $line->[2][2] \n";
|
|
print "\$line->[2][3][0] = $line->[2][3][0] \n";
|
|
print "\$line->[2][3][1] = $line->[2][3][1] \n";
|
|
print "\$line->[2][3][2] = $line->[2][3][2] \n";
|
|
print "\n"; |