数组 #

my @empty = ();
my @numbers = (1, 2, 3, 4, 5);
my @strings = ("apple", "banana", "cherry");
my @mixed = (1, "two", 3.0, "four");

my @range1 = (1..5);
my @range2 = (a..e);
my @range3 = (A..Z);

my @fruits = qw(apple banana cherry);

my @fruits = ("apple", "banana", "cherry");

my @colors = ("red", "green", "blue");

print $colors[0];
print $colors[1];
print $colors[2];

my @colors = ("red", "green", "blue");

print $colors[-1];
print $colors[-2];
print $colors[-3];

my @colors = ("red", "green", "blue", "yellow", "purple");

my @slice1 = @colors[0, 2];
my @slice2 = @colors[1..3];
my @slice3 = @colors[0, 2, 4];

my @arr = (1, 2, 3, 4, 5);

my $length = scalar @arr;
my $length2 = @arr;
my $last_index = $#arr;

my @arr = (1, 2, 3);
push @arr, 4;
push @arr, 5, 6;

my @arr = (3, 4, 5);
unshift @arr, 1, 2;

my @arr = (1, 2, 3, 4, 5);
my $last = pop @arr;

my @arr = (1, 2, 3, 4, 5);
my $first = shift @arr;

my @arr = (1, 2, 3, 4, 5);

my @removed = splice @arr, 2, 1;
my @removed2 = splice @arr, 1, 2, ("new1", "new2");

my @colors = ("red", "green", "blue");

foreach my $color (@colors) {
    print "$color\n";
}

my @colors = ("red", "green", "blue");

foreach (@colors) {
    print "$_\n";
}

my @arr = (1, 2, 3, 4, 5);

for (my $i = 0; $i < @arr; $i++) {
    print "arr[$i] = $arr[$i]\n";
}

my @arr = ("a", "b", "c");

while (my ($index, $value) = each @arr) {
    print "$index: $value\n";
}

my @arr = (3, 1, 4, 1, 5, 9, 2, 6);

my @sorted = sort @arr;
my @sorted_num = sort { $a <=> $b } @arr;
my @sorted_desc = sort { $b <=> $a } @arr;

my @words = qw(banana Apple cherry);
my @sorted = sort @words;
my @sorted_ci = sort { lc($a) cmp lc($b) } @words;

my @arr = (1, 2, 3, 4, 5);
my @reversed = reverse @arr;

my @arr = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

my @evens = grep { $_ % 2 == 0 } @arr;
my @odds = grep { $_ % 2 == 1 } @arr;
my @big = grep { $_ > 5 } @arr;

my @arr = (1, 2, 3, 4, 5);

my @doubled = map { $_ * 2 } @arr;
my @squared = map { $_ ** 2 } @arr;
my @strings = map { "num_$_" } @arr;

my @arr = (1, 2, 3, 4, 5);

my $found = grep { $_ == 3 } @arr;
my $count = grep { $_ > 3 } @arr;

use List::Util qw(first);
my $first_match = first { $_ > 3 } @arr;

my ($a, $b, $c) = (1, 2, 3);
my ($first, @rest) = (1, 2, 3, 4, 5);
my ($x, $y, @z) = (1, 2);

my ($a, $b) = (1, 2);
($a, $b) = ($b, $a);

my @arr1 = (1, 2, 3);
my @arr2 = (4, 5, 6);
my @combined = (@arr1, @arr2);

my @arr = (1, 2, 3, 4, 5);
my $target = 3;

my $found = grep { $_ == $target } @arr;
if ($found) {
    print "Found $target\n";
}

use List::Util qw(any);

my @arr = (1, 2, 3, 4, 5);
if (any { $_ == 3 } @arr) {
    print "Found\n";
}

my @arr = (1, 2, 2, 3, 3, 3, 4);
my %seen;
my @unique = grep { !$seen{$_}++ } @arr;

use List::Util qw(sum);

my @arr = (1, 2, 3, 4, 5);
my $total = sum @arr;
my $avg = $total / @arr;

use List::Util qw(max min);

my @arr = (3, 1, 4, 1, 5, 9, 2, 6);
my $max = max @arr;
my $min = min @arr;

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;
use List::Util qw(sum max min);

my @scores = (85, 92, 78, 90, 88, 95, 82);

my $total = sum @scores;
my $count = scalar @scores;
my $avg = $total / $count;
my $max_score = max @scores;
my $min_score = min @scores;

say "Scores: @scores";
say "Count: $count";
say "Sum: $total";
say "Average: " . sprintf("%.2f", $avg);
say "Max: $max_score";
say "Min: $min_score";

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

my @words = qw(Perl Python Ruby PHP JavaScript);

my @upper = map { uc } @words;
my @long = grep { length > 4 } @words;
my @sorted = sort @words;

say "Original: @words";
say "Upper: @upper";
say "Long (>4): @long";
say "Sorted: @sorted";

#!/usr/bin/perl
use strict;
use warnings;
use v5.10;

my @stack;
push @stack, 1, 2, 3;
say "Stack: @stack";
say "Pop: " . pop @stack;
say "Stack: @stack";

my @queue;
push @queue, "a", "b", "c";
say "Queue: @queue";
say "Dequeue: " . shift @queue;
say "Queue: @queue";