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

print "Hello, World!\n";

perl hello.pl

#!/usr/bin/env perl          # 推荐：可移植性最好
#!/usr/bin/perl               # 直接指定路径（不推荐）
#!/usr/bin/perl -w             # 带 -w 参数启用警告

chmod +x hello.pl
./hello.pl

my $name = "Perl";      # 赋值语句
print "Hello, $name\n"; # 打印语句

if ($age >= 18) {
    print "成年人\n";    # 块内最后一条不需要分号
}

# 不使用 strict（危险！）
$name = "Perl";          # 拼写错误变成新变量
print $naem, "\n";       # typo，打印空值（无警告）

# 使用 strict（推荐！）
use strict;
my $name = "Perl";       # 必须用 my 声明
print $naem, "\n";       # 编译报错：Global symbol "$naem" requires explicit package name

use warnings;

my $x;
print $x;                # 警告：Use of uninitialized value
my $y = "abc" + 1;      # 警告：Argument "abc" isn't numeric

# 命令行启用（全局，包括所有模块）
perl -w script.pl

# 脚本内启用（推荐，仅限当前文件）
# 在脚本顶部使用 use warnings;

# 这是单行注释

my $x = 1;  # 行尾注释

# 多行注释需要每行都加 #
# 第一行
# 第二行
# 第三行

# 也可以用 POD 格式实现"多行注释"（不推荐）
=begin comment
这是多行注释
Perl 解释器会忽略 POD
=end comment
=cut

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

sub greet {
    my ($name) = @_;
    if (defined $name) {
        print "Hello, $name!\n";
    } else {
        print "Hello, stranger!\n";
    }
}

greet("Perl");

perl script.pl

chmod +x script.pl
./script.pl

perl -e 'print "Hello\n"'

echo 'print "Hello\n"' | perl

cat data.txt | perl -ne 'print if /pattern/'

# 只检查语法，不运行
perl -c script.pl

cpanm Perl::Tidy
perltidy script.pl

cpanm Perl::Critic
perlcritic script.pl
perlcritic --severity 3 script.pl    # 只显示严重问题

perl -d script.pl

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

# 检查命令行参数
die "用法: $0 <文件名>\n" unless @ARGV == 1;

my $filename = $ARGV[0];
die "文件 '$filename' 不存在\n" unless -f $filename;

# 统计单词频率
my %word_count;

open my $fh, '<', $filename or die "无法打开文件: $!\n";
while (my $line = <$fh>) {
    chomp $line;
    # 移除标点，转小写
    $line =~ s/[[:punct:]]//g;
    my @words = split /\s+/, lc($line);
    for my $word (@words) {
        next unless $word;       # 跳过空字符串
        $word_count{$word}++;
    }
}
close $fh;

# 按频率排序输出
print "文件: $filename\n";
print "=" x 40, "\n";

my $rank = 0;
for my $word (sort { $word_count{$b} <=> $word_count{$a} } keys %word_count) {
    $rank++;
    printf "%3d. %-20s %d 次\n", $rank, $word, $word_count{$word};
    last if $rank >= 20;        # 只显示前 20 个
}

perl word_freq.pl somefile.txt

# 打印包含 "error" 的行
perl -ne 'print if /error/' logfile.txt

# 替换文件中的文本
perl -i -pe 's/old/new/g' file.txt

# 打印第 3-7 行
perl -ne 'print if 3..7' file.txt

# 统计行数
perl -lne 'END { print $. }' file.txt

# 去除重复行
perl -ne 'print unless $seen{$_}++' file.txt

# 格式化 CSV
perl -F, -lane 'print join "\t", @F' data.csv

# 反转每行
perl -lne 'print scalar reverse' file.txt