linux perl命令

perl [选项] [程序文件] [参数...]
perl [选项] -e 程序代码 [参数...]
perl [选项] - [程序文件] [参数...]

#!/usr/bin/perl
# 单行注释

print "Hello, World!\n";

# 使用say（需要Perl 5.10+）
use feature 'say';
say "Hello, World!";

# 命令行执行
# perl -e 'print "Hello, World!\n"'

#!/usr/bin/perl

# 标量变量（以$开头）
$name = "Alice";
$age = 25;
$price = 99.99;
$flag = 1;  # true
$null = undef;

# 数组（以@开头）
@fruits = ("apple", "banana", "orange");
$first_fruit = $fruits[0];  # 访问数组元素

# 哈希（以%开头）
%person = (
    "name" => "Bob",
    "age" => 30,
    "city" => "New York"
);
$person_name = $person{"name"};  # 访问哈希元素

print "Name: $name\n";
print "Fruits: @fruits\n";
print "Person: $person{'name'}, $person{'age'}\n";

#!/usr/bin/perl

# 条件语句
$score = 85;
if ($score >= 90) {
    print "优秀\n";
} elsif ($score >= 60) {
    print "及格\n";
} else {
    print "不及格\n";
}

# 循环语句
# for循环
for my $i (1..10) {
    print "$i ";
}
print "\n";

# while循环
my $count = 0;
while ($count < 5) {
    print "Count: $count\n";
    $count++;
}

# foreach循环
foreach my $fruit ("apple", "banana", "orange") {
    print "Fruit: $fruit\n";
}

# 1. 打印文件内容（相当于cat）
perl -pe '' file.txt

# 2. 给文件每行添加行号（相当于nl）
perl -pe '$_ = "$. $_"' file.txt

# 3. 显示文件的第5-10行（相当于sed -n '5,10p'）
perl -ne 'print if 5..10' file.txt

# 4. 统计文件行数（相当于wc -l）
perl -lne 'END { print $. }' file.txt

# 5. 反转文件行顺序（相当于tac）
perl -e 'print reverse <>' file.txt

# 1. 搜索包含"error"的行（相当于grep）
perl -ne 'print if /error/i' logfile.txt

# 2. 搜索并显示行号（相当于grep -n）
perl -ne 'print "$.: $_" if /error/' logfile.txt

# 3. 替换文件中的文本（原地编辑，备份原文件）
perl -i.bak -pe 's/foo/bar/g' file.txt

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

# 5. 仅替换匹配的行
perl -i -pe 's/foo/bar/g if /pattern/' file.txt

# 1. 提取IP地址
perl -ne 'print "$1\n" while /(\d+\.\d+\.\d+\.\d+)/g' access.log

# 2. 提取第2列数据（以空格分隔）
perl -lane 'print $F[1]' data.txt

# 3. 提取第2列，按数字排序
perl -lane 'push @nums, $F[1]; END { print for sort {$a <=> $b} @nums }' data.txt

# 4. 计算数值总和
perl -lane '$sum += $F[2]; END { print $sum }' numbers.txt

# 5. 统计单词频率
perl -lne '$count{$_}++ for split; END { print "$_: $count{$_}" for sort keys %count }' text.txt

#!/usr/bin/perl

$text = "Hello, World! Perl is powerful. perl@example.com";

# 匹配
if ($text =~ /Perl/) {
    print "找到 Perl\n";
}

# 不区分大小写匹配
if ($text =~ /perl/i) {
    print "找到 perl（不区分大小写）\n";
}

# 全局匹配
while ($text =~ /(\w+)/g) {
    print "单词: $1\n";
}

# 替换
$text =~ s/World/Perl/;
print "替换后: $text\n";

# 提取电子邮件
if ($text =~ /(\w+@\w+\.\w+)/) {
    print "电子邮件: $1\n";
}

# 提取HTML中的链接
perl -ne 'while (/{"name"}' data.json

# 提取CSV的特定列
perl -F, -lane 'print $F[2]' data.csv

#!/usr/bin/perl

# 读取文件
open my $fh, '<', 'input.txt' or die "无法打开文件: $!";
while (my $line = <$fh>) {
    chomp $line;  # 去除换行符
    print "读取: $line\n";
}
close $fh;

# 写入文件
open my $out, '>', 'output.txt' or die "无法创建文件: $!";
print $out "第一行\n";
print $out "第二行\n";
close $out;

# 追加到文件
open my $append, '>>', 'log.txt' or die "无法打开日志文件: $!";
print $append scalar localtime . " 日志条目\n";
close $append;

# 读取整个文件
my $content = do {
    local $/ = undef;
    open my $fh, '<', 'file.txt' or die $!;
    <$fh>;
};

# 1. 批量重命名文件（添加前缀）
perl -e 'for (@ARGV) { rename $_, "prefix_$_" }' *.txt

# 2. 批量修改文件扩展名
perl -e 'for (@ARGV) { /(.*)\.old$/; rename $_, "$1.new" if $1 }' *.old

# 3. 查找并删除空文件
perl -e 'unlink for grep { -f $_ and -z $_ } @ARGV' *

# 4. 批量转换文件编码（GBK转UTF-8）
perl -i -MEncode -pe '$_ = encode("utf-8", decode("gbk", $_))' *.txt

# 5. 文件大小排序
perl -e 'print "$_\n" for sort { -s $b <=> -s $a } @ARGV' *

# 使用CPAN shell安装模块
sudo perl -MCPAN -e shell
install JSON
install LWP::Simple
install DBI
install DateTime
exit

# 命令行安装
sudo perl -MCPAN -e 'install JSON'

# 使用cpanm（推荐）
# 先安装cpanminus
curl -L https://cpanmin.us | perl - --sudo App::cpanminus

# 使用cpanm安装模块
sudo cpanm JSON
sudo cpanm LWP::Simple
sudo cpanm Mojolicious

# 查看已安装模块
perldoc perllocal
或
cpan -l

#!/usr/bin/perl

# JSON处理
use JSON;
my $json = JSON->new->utf8;
my $data = $json->decode('{"name": "Alice", "age": 30}');
print "Name: $data->{name}\n";

# HTTP请求
use LWP::Simple;
my $content = get("http://example.com");
print "Content length: ", length($content), "\n";

# 日期时间处理
use DateTime;
my $dt = DateTime->now;
print "当前时间: ", $dt->ymd, " ", $dt->hms, "\n";

# 数据库访问
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=test;host=localhost", "user", "pass");
my $sth = $dbh->prepare("SELECT * FROM users");
$sth->execute();
while (my $row = $sth->fetchrow_hashref) {
    print "User: $row->{name}\n";
}
$dbh->disconnect;

#!/usr/bin/perl
# log_analyzer.pl - 日志分析器

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

my ($file, $output, $verbose);
GetOptions(
    'file=s'    => \$file,
    'output=s'  => \$output,
    'verbose'   => \$verbose,
    'help'      => \&usage,
) or usage();

usage() unless $file && -f $file;

# 分析日志
my (%ip_count, %url_count, %status_count, $total_lines);
open my $fh, '<', $file or die "无法打开文件 $file: $!";

while (my $line = <$fh>) {
    $total_lines++;

    # Apache日志格式解析
    if ($line =~ /^(\d+\.\d+\.\d+\.\d+).*?"\w+ (\S+).*?" (\d+)/) {
        my ($ip, $url, $status) = ($1, $2, $3);

        $ip_count{$ip}++;
        $url_count{$url}++;
        $status_count{$status}++;

        print "分析: $ip - $url - $status\n" if $verbose;
    }
}

close $fh;

# 输出结果
if ($output) {
    open my $out, '>', $output or die "无法写入文件 $output: $!";
    select $out;
}

print "=== 日志分析报告 ===\n";
print "总行数: $total_lines\n\n";

print "IP访问统计（前10名）:\n";
foreach my $ip (sort { $ip_count{$b} <=> $ip_count{$a} } keys %ip_count)[0..9] {
    printf "  %-15s: %d次\n", $ip, $ip_count{$ip};
}

print "\nURL访问统计（前10名）:\n";
foreach my $url (sort { $url_count{$b} <=> $url_count{$a} } keys %url_count)[0..9] {
    printf "  %-30s: %d次\n", $url, $url_count{$url};
}

print "\nHTTP状态码统计:\n";
foreach my $status (sort keys %status_count) {
    printf "  %3s: %d次\n", $status, $status_count{$status};
}

sub usage {
    print <<"USAGE";
用法: $0 --file 日志文件 [选项]
选项:
  --file FILE    日志文件路径（必需）
  --output FILE  输出文件（默认输出到屏幕）
  --verbose      显示详细处理信息
  --help         显示此帮助信息
示例:
  $0 --file /var/log/apache2/access.log --verbose
  $0 --file access.log --output report.txt
USAGE
    exit;
}

#!/usr/bin/perl
# batch_processor.pl - 文件批量处理器

use strict;
use warnings;
use File::Find;
use File::Copy;

# 配置
my $source_dir = '/path/to/source';
my $target_dir = '/path/to/target';
my $file_pattern = qr/\.(txt|csv)$/i;

# 创建目标目录
mkdir $target_dir unless -d $target_dir;

# 查找并处理文件
find(sub {
    return unless -f && /$file_pattern/;

    my $source_file = $File::Find::name;
    my $target_file = "$target_dir/$_";

    print "处理: $source_file\n";

    # 处理逻辑（示例：添加时间戳）
    open my $in, '<', $source_file or die "无法读取 $source_file: $!";
    open my $out, '>', $target_file or die "无法写入 $target_file: $!";

    print $out "# 处理时间: " . scalar(localtime) . "\n\n";

    while (my $line = <$in>) {
        # 示例处理：去除多余空格
        $line =~ s/\s+/ /g;
        print $out $line;
    }

    close $in;
    close $out;

    print "完成: $target_file\n";
}, $source_dir);

print "批量处理完成！\n";