# 循环中的默认变量
for (1..5) {
    print "$_\n";    # $_ 是当前元素
}

# 文件读取
while (<STDIN>) {
    chomp;           # 默认操作 $_
    print "$_\n";    # 打印 $_
}

# grep 和 map
my @evens = grep { $_ % 2 == 0 } 1..10;
my @doubled = map { $_ * 2 } 1..10;

# 正则匹配
while (<STDIN>) {
    print if /pattern/;    # 隐式匹配 $_
}

# s/// 替换
while (<STDIN>) {
    s/old/new/g;           # 替换 $_
    print;
}

# 这些函数默认操作 $_
print;          chomp;          chop;
length;         lc;             uc;
study;          pos;            reset;
split;          undef;          pos;

#!/usr/bin/env perl
use strict;
use warnings;

# @ARGV 包含命令行参数
print "参数个数: ", scalar @ARGV, "\n";

for my $i (0..$#ARGV) {
    print "ARGV[$i] = $ARGV[$i]\n";
}

# 常见模式：文件名来自参数
while (<>) {    # 等价于 while (<STDIN>) 或逐文件读取 @ARGV
    print;
}

use strict;
use warnings;
use Getopt::Long;

my $verbose = 0;
my $output  = "default.txt";
my $count   = 1;

GetOptions(
    "verbose|v"  => \$verbose,      # -v 或 --verbose
    "output|o=s" => \$output,        # -o file 或 --output=file
    "count|c=i"  => \$count,         # -c 5 或 --count=5
    "help|h"     => sub { usage(); exit },
) or die "参数错误\n";

print "verbose: $verbose\n";
print "output: $output\n";
print "count: $count\n";
print "剩余参数: @ARGV\n";

sub usage {
    print <<'USAGE';
用法: script.pl [选项] [文件...]

选项:
  -v, --verbose      详细输出
  -o, --output FILE  输出文件（默认: default.txt）
  -c, --count N      计数（默认: 1）
  -h, --help         显示帮助
USAGE
}

# 读取环境变量
print "HOME: $ENV{HOME}\n";
print "PATH: $ENV{PATH}\n";
print "USER: $ENV{USER}\n";

# 设置环境变量（子进程可见）
$ENV{MY_VAR} = "hello";

# 列出所有环境变量
for my $key (sort keys %ENV) {
    print "$key = $ENV{$key}\n";
}

# $| 自动刷新（常用于管道和实时输出）
$| = 1;
print "处理中...";
sleep 1;
print "完成\n";

# $/ — 输入记录分隔符
# 逐行（默认）
while (<>) { chomp; print "$_\n"; }

# 逐段落
{ local $/ = ""; while (<>) { print; } }

# 一次读完
{ local $/ = undef; my $all = <>; }

# $| — 自动刷新
$| = 1;   # 设置当前选中的文件句柄自动刷新
# 或者显式
STDOUT->autoflush(1);

my $text = "Hello, Perl World!";

if ($text =~ /Perl/) {
    print "匹配: $&\n";      # Perl
    print "之前: $`\n";      # Hello, 
    print "之后: $'\n";       #  World!
}

# 使用 English 模块（可读性更好）
use English qw(-no_match_vars);

if ($text =~ /Perl/) {
    print "匹配: $MATCH\n";
    print "之前: $PREMATCH\n";
    print "之后: $POSTMATCH\n";
}

# 获取进程信息
print "脚本: $0\n";
print "PID: $$\n";
print "操作系统: $^O\n";
print "Perl: $^X\n";
print "版本: $^V\n";

# 修改进程名（Linux ps 可见）
$0 = "my_custom_process";

# @F — 自动分割（-a 模式）
# perl -lane 'print $F[1]' file.txt
# 等价于 awk '{print $2}'

# $a 和 $b 是 sort 块中的特殊变量
my @sorted = sort { $a <=> $b } @numbers;
my @sorted2 = sort { $a cmp $b } @strings;

# 注意：$a 和 $b 不需要 my 声明
# 也不受 strict 'vars' 约束

use English qw(-no_match_vars);

# 用可读名称代替符号
$_        → $ARG
$.        → $INPUT_LINE_NUMBER (或 $NR)
$/        → $INPUT_RECORD_SEPARATOR (或 $RS)
$|        → $OUTPUT_AUTOFLUSH
$!        → $ERRNO (或 $OS_ERROR)
$@        → $EVAL_ERROR
@ARGV     → @ARGV   # 已经可读
@_        → @_
$$        → $PID (或 $PROCESS_ID)
$^O       → $OSNAME
$0        → $PROGRAM_NAME (或 $0)

#!/usr/bin/env perl
use strict;
use warnings;
use POSIX qw(strftime);

$| = 1;  # 自动刷新

print "系统监控启动 (PID $$, OS: $^O)\n";
print "=" x 50, "\n";

while (1) {
    my $timestamp = strftime("%Y-%m-%d %H:%M:%S", localtime);
    
    # 获取负载
    my @load = split /\s+/, `cat /proc/loadavg`;
    
    # 获取内存
    open my $mem_fh, '<', '/proc/meminfo' or die $!;
    my %mem;
    while (<$mem_fh>) {
        if (/^(\w+):\s+(\d+)/) {
            $mem{$1} = $2;
        }
    }
    close $mem_fh;
    
    my $mem_total = $mem{MemTotal} / 1024;
    my $mem_free  = $mem{MemAvailable} // $mem{MemFree};
    $mem_free /= 1024;
    my $mem_used_pct = sprintf "%.1f", (1 - $mem_free / $mem_total) * 100;
    
    printf "[%s] Load: %s | Memory: %.0f MB / %.0f MB (%s%%)\n",
        $timestamp, $load[0], 
        $mem_total - $mem_free, $mem_total, $mem_used_pct;
    
    sleep 5;
}