Perl文件操作：从基础读写到高级应用

文件操作是Perl编程中与外部数据交互的核心能力，涵盖文件的创建、读取、写入、修改、删除等一系列操作，广泛应用于日志处理、数据解析、配置管理等场景。Perl提供了灵活的文件操作机制，既支持通过文件句柄实现的底层操作，也包含通过核心模块简化的高级方法。掌握Perl文件操作的关键在于理解文件句柄的管理、读写模式的选择以及不同场景下的效率优化技巧。本文将从基础的文件句柄与模式入手，逐步深入各类文件操作的实现方式，结合实战案例演示核心用法，帮助开发者全面掌握Perl文件操作的知识体系。

一、Perl文件操作的核心基础

Perl文件操作的核心是“文件句柄”，它作为程序与文件之间的桥梁，负责传递数据。同时，正确选择文件打开模式是实现预期操作的前提，不同模式决定了程序对文件的访问权限（读、写、追加等）。

1.1 文件句柄：程序与文件的桥梁

文件句柄（File Handle）是一个代表打开文件的标识符，Perl通过它与文件进行数据交互。文件句柄分为两种类型：内置文件句柄和自定义文件句柄。

1.1.1 内置文件句柄

Perl默认提供了3个常用的内置文件句柄，无需手动打开即可使用，分别对应标准输入、输出和错误流：

STDIN

标准输入

键盘输入

读取用户输入数据

STDOUT

标准输出

终端窗口

打印程序执行结果

STDERR

标准错误

终端窗口

输出程序错误信息

use strict;
use warnings;

# 使用STDIN读取用户输入
print "请输入你的姓名：";
my $name = <STDIN>;
chomp $name;  # 去除输入末尾的换行符

# 使用STDOUT输出正常信息
print STDOUT "欢迎你，$name！\n";

# 使用STDERR输出错误信息
if (length($name) == 0) {
    print STDERR "错误：姓名不能为空！\n";
}

1.1.2 自定义文件句柄

当操作自定义文件（如日志文件、数据文件）时，需要创建自定义文件句柄。Perl中自定义文件句柄通常使用大写字母命名（约定俗成），通过open函数创建，通过close函数关闭。

use strict;
use warnings;

# 定义自定义文件句柄
my $file_path = "test.txt";
my $fh;  # 自定义文件句柄

# 打开文件（读模式）
open $fh, '<', $file_path or die "无法打开文件 $file_path：$!";

# 操作文件（此处省略）

# 关闭文件句柄
close $fh or die "无法关闭文件 $file_path：$!";

注意：文件操作完成后必须关闭文件句柄，避免资源泄漏。Perl在程序结束时会自动关闭未关闭的文件句柄，但手动关闭是良好的编程习惯。

1.2 文件打开模式：控制访问权限

open函数的第二个参数是文件打开模式，它决定了程序对文件的操作权限（读、写、追加等）以及文件不存在时的行为。正确选择模式是避免文件数据丢失的关键，常用模式如下：

<

读模式（默认）

报错

打开文件，指针指向文件开头

读取文件内容

>

写模式

创建文件

清空文件原有内容，指针指向开头

创建新文件或覆盖已有文件

>>

追加模式

创建文件

保留原有内容，指针指向文件末尾

日志记录、数据追加

+<

读写模式

报错

打开文件，指针指向开头，可读写

读取并修改文件内容（不覆盖）

+>

读写模式（覆盖）

创建文件

清空原有内容，可读写

创建可读写文件或覆盖已有文件

+>>

读写模式（追加）

创建文件

保留原有内容，指针指向末尾，可读写

追加数据同时需要读取文件

<>

钻石操作符

-

读取命令行参数指定的所有文件

批量处理文件（如脚本接收多个文件参数）

1.2.1 模式使用示例

use strict;
use warnings;

my $file = "data.txt";
my $fh;

# 1. 读模式（<）：读取已存在的文件
open $fh, '<', $file or die "读模式打开失败：$!";
close $fh;

# 2. 写模式（>）：创建新文件或覆盖已有文件
open $fh, '>', $file or die "写模式打开失败：$!";
print $fh "这是新写入的内容\n";
close $fh;

# 3. 追加模式（>>）：在文件末尾添加内容
open $fh, '>>', $file or die "追加模式打开失败：$!";
print $fh "这是追加的内容\n";
close $fh;

# 4. 读写模式（+<）：读取并修改文件（不覆盖原有内容）
open $fh, '+<', $file or die "读写模式打开失败：$!";
my @content = <$fh>;  # 读取所有内容
seek $fh, 0, 0;  # 将指针移回文件开头
print $fh "修改后的第一行\n";  # 覆盖开头内容
print $fh @content[1..$#content];  # 写入剩余内容
close $fh;

二、核心文件操作：读、写、改

文件操作的核心需求是读取文件内容、写入数据到文件以及修改已有文件内容。Perl提供了多种实现方式，适用于不同的数据规模和格式需求。

2.1 文件读取：获取文件内容

Perl读取文件内容的方式灵活，可按行读取、按整个文件读取或按指定长度读取，其中按行读取是最常用的场景。

2.1.1 按行读取文件

通过<文件句柄>语法可实现按行读取文件，每次读取一行内容，末尾包含换行符（可通过chomp函数去除）。

use strict;
use warnings;

my $file = "test.txt";
my $fh;

# 打开文件（读模式）
open $fh, '<', $file or die "无法打开文件：$!";

# 方式1：while循环逐行读取（最常用，效率高）
print "=== 逐行读取文件内容 ===\n";
while (my $line = <$fh>) {
    chomp $line;  # 去除换行符
    print "行内容：$line\n";
}

# 重置文件指针到开头（重新读取需要此操作）
seek $fh, 0, 0;

# 方式2：将所有行读取到数组中（适用于小文件）
my @lines = <$fh>;
print "\n=== 数组存储所有行 ===\n";
foreach my $line (@lines) {
    chomp $line;
    print "行内容：$line\n";
}

close $fh;

2.1.2 读取整个文件

将文件内容作为一个完整的字符串读取，适用于需要整体处理文件内容的场景（如正则替换）。通过设置$/（输入记录分隔符）为undef实现。

use strict;
use warnings;

my $file = "test.txt";
my $fh;
open $fh, '<', $file or die "无法打开文件：$!";

# 设置输入记录分隔符为undef，读取整个文件
local $/ = undef;
my $content = <$fh>;

close $fh;

print "=== 整个文件内容 ===\n";
print $content;

# 统计文件字符数
my $char_count = length($content);
print "\n文件总字符数：$char_count\n";

2.1.3 按指定长度读取

通过read函数可按指定字节长度读取文件内容，适用于二进制文件或需要精确控制读取长度的场景。

use strict;
use warnings;

my $file = "binary.dat";
my $fh;
open $fh, '<', $file or die "无法打开文件：$!";

my $buffer;  # 存储读取的内容
my $read_len = 1024;  # 每次读取1024字节

print "=== 按指定长度读取文件 ===\n";
while (my $len = read $fh, $buffer, $read_len) {
    print "本次读取字节数：$len，内容：$buffer\n";
}

close $fh;

2.2 文件写入：保存数据到文件

文件写入通过print或printf函数实现，结合不同的打开模式（写模式、追加模式）可实现数据的覆盖或追加。

2.2.1 基础写入操作

use strict;
use warnings;

my $file = "output.txt";
my $fh;

# 1. 写模式（>）：覆盖写入
open $fh, '>', $file or die "写模式打开失败：$!";
print $fh "这是通过写模式写入的第一行\n";
printf $fh "这是格式化写入的第二行，数字：%d\n", 123;
close $fh;
print "写模式写入完成\n";

# 2. 追加模式（>>）：末尾追加
open $fh, '>>', $file or die "追加模式打开失败：$!";
print $fh "这是通过追加模式添加的第三行\n";
close $fh;
print "追加模式写入完成\n";

# 3. 写入数组内容
my @data = ("数组元素1", "数组元素2", "数组元素3");
open $fh, '>>', $file or die "追加模式打开失败：$!";
print $fh join("\n", @data), "\n";  # 数组元素按行写入
close $fh;
print "数组内容写入完成\n";

2.2.2 写入编码控制

当写入中文或特殊字符时，需指定文件编码（如UTF-8），避免乱码。通过binmode函数设置文件句柄的编码格式。

use strict;
use warnings;

my $file = "utf8_output.txt";
my $fh;

# 打开文件并设置编码为UTF-8
open $fh, '>', $file or die "无法打开文件：$!";
binmode $fh, ":utf8";  # 设定文件句柄编码

# 写入中文内容
print $fh "这是包含中文的内容\n";
print $fh "Perl文件操作：编码控制\n";

close $fh;
print "UTF-8编码内容写入完成\n";

2.3 文件修改：更新已有内容

Perl修改文件内容的核心思路有两种：内存修改（读取文件到内存，修改后重新写入）和直接修改（通过读写模式定位并修改指定内容）。内存修改适用于小文件，直接修改适用于大文件（避免占用过多内存）。

2.3.1 内存修改（小文件首选）

use strict;
use warnings;

my $file = "modify.txt";
my $fh;

# 1. 读取文件内容到内存
open $fh, '<', $file or die "无法读取文件：$!";
my @content = <$fh>;
close $fh;

# 2. 修改内存中的内容（将"旧内容"替换为"新内容"）
foreach my $line (@content) {
    $line =~ s/旧内容/新内容/g;  # 全局替换
}

# 3. 将修改后的内容写回文件（覆盖原有内容）
open $fh, '>', $file or die "无法写入文件：$!";
print $fh @content;
close $fh;

print "文件修改完成（内存修改方式）\n";

2.3.2 直接修改（大文件首选）

通过读写模式（+<）打开文件，结合seek（移动文件指针）和tell（获取当前指针位置）函数定位到需要修改的位置，直接修改内容。

use strict;
use warnings;

my $file = "large_file.txt";
my $fh;

# 以读写模式打开文件
open $fh, '+<', $file or die "无法打开文件：$!";

# 查找包含"需要修改的行"的内容并修改
while (my $line = <$fh>) {
    if ($line =~ /需要修改的行/) {
        my $pos = tell $fh;  # 获取当前指针位置（行末尾）
        my $line_len = length($line);
        seek $fh, $pos - $line_len, 0;  # 将指针移到该行开头
        chomp $line;
        my $new_line = $line =~ s/需要修改的行/修改后的行/r;  # 替换内容
        print $fh "$new_line\n";  # 覆盖该行
        last;  # 只修改第一处匹配的行
    }
}

close $fh;
print "文件修改完成（直接修改方式）\n";

三、高级文件操作：批量处理与属性管理

除了基础的读写改操作，Perl还支持文件的批量处理、属性查询、删除、重命名等高级操作，通过核心模块可简化这些操作的实现。

3.1 批量处理文件：遍历目录与文件

批量处理文件（如遍历目录下所有.txt文件）是常见需求，Perl通过opendir、readdir、closedir函数实现目录遍历，或使用File::Find模块简化操作。

3.1.1 基础目录遍历

use strict;
use warnings;

my $dir = "./data";  # 目标目录

# 打开目录
opendir my $dh, $dir or die "无法打开目录 $dir：$!";

# 读取目录内容（排除.和..）
my @entries = grep { !/^\.\.?$/ } readdir $dh;

# 关闭目录
closedir $dh;

# 遍历目录内容，处理所有.txt文件
print "=== 目录 $dir 下的.txt文件 ===\n";
foreach my $entry (@entries) {
    my $path = "$dir/$entry";
    # 判断是否为文件且后缀为.txt
    if (-f $path && $entry =~ /\.txt$/) {
        print "找到文件：$path\n";
        # 此处可添加文件处理逻辑（如读取、修改）
    }
}

3.1.2 使用File::Find模块遍历目录

File::Find是Perl核心模块，可递归遍历目录下的所有文件和子目录，简化批量处理逻辑。

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

my $root_dir = "./project";  # 根目录
my @txt_files;  # 存储所有找到的.txt文件路径

# 定义文件处理回调函数
sub process_file {
    my $file = $_;  # 当前文件/目录名
    my $full_path = $File::Find::name;  # 当前文件的完整路径
    
    # 筛选.txt文件
    if (-f $full_path && $file =~ /\.txt$/) {
        push @txt_files, $full_path;
        print "找到.txt文件：$full_path\n";
    }
}

# 递归遍历目录
find(\&process_file, $root_dir);

# 后续处理：统计.txt文件数量
my $txt_count = scalar @txt_files;
print "\n在 $root_dir 及其子目录下共找到 $txt_count 个.txt文件\n";

3.2 文件属性管理：查询与修改

Perl通过文件测试操作符查询文件属性（如是否为文件、大小、修改时间），通过chmod、chown函数修改文件权限和所有者。

3.2.1 查询文件属性

use strict;
use warnings;
use Time::Piece;  # 格式化时间

my $file = "test.txt";

# 检查文件是否存在
if (-e $file) {
    print "=== 文件 $file 的属性 ===\n";
    # 是否为普通文件
    print "是否为普通文件：", (-f $file) ? "是" : "否", "\n";
    # 是否为目录
    print "是否为目录：", (-d $file) ? "是" : "否", "\n";
    # 文件大小（字节）
    print "文件大小：", (-s $file), " 字节\n";
    # 可读权限
    print "是否可读：", (-r $file) ? "是" : "否", "\n";
    # 可写权限
    print "是否可写：", (-w $file) ? "是" : "否", "\n";
    # 可执行权限
    print "是否可执行：", (-x $file) ? "是" : "否", "\n";
    # 最后修改时间
    my $mtime = (-M $file);  # 距离上次修改的天数（小数）
    my $modify_time = localtime((stat $file)[9]);  # 格式化修改时间
    print "最后修改时间：", $modify_time->strftime("%Y-%m-%d %H:%M:%S"), "\n";
} else {
    print "文件 $file 不存在\n";
}

3.2.2 修改文件属性

use strict;
use warnings;

my $file = "test.txt";

# 1. 修改文件权限（chmod）：八进制表示权限
# 权限说明：所有者读(4)写(2)执行(1)，同组读(4)，其他读(4) → 4+2+1 +4 +4 = 744
my $perm = 0744;  # 八进制权限，前面的0不可省略
if (chmod $perm, $file) {
    print "文件权限修改为 $perm 成功\n";
} else {
    die "文件权限修改失败：$!";
}

# 2. 修改文件所有者（chown）：需要root权限，Windows系统不支持
# my $uid = 1000;  # 用户ID
# my $gid = 1000;  # 组ID
# if (chown $uid, $gid, $file) {
#     print "文件所有者修改成功\n";
# } else {
#     die "文件所有者修改失败：$!";
# }

3.3 文件的删除与重命名

Perl通过unlink函数删除文件，通过rename函数重命名文件，操作简单但需谨慎（删除操作不可逆）。

use strict;
use warnings;

my $old_file = "old.txt";
my $new_file = "new.txt";
my $del_file = "delete_me.txt";

# 1. 文件重命名（rename）
if (rename $old_file, $new_file) {
    print "文件 $old_file 重命名为 $new_file 成功\n";
} else {
    warn "文件重命名失败：$!";
}

# 2. 文件删除（unlink）
# 先检查文件是否存在
if (-e $del_file) {
    if (unlink $del_file) {
        print "文件 $del_file 删除成功\n";
    } else {
        die "文件删除失败：$!";
    }
} else {
    print "文件 $del_file 不存在，无需删除\n";
}

# 3. 批量删除文件（删除当前目录下所有.tmp文件）
my @tmp_files = glob "*.tmp";  # 获取所有.tmp文件
if (@tmp_files) {
    my $del_count = unlink @tmp_files;
    print "成功删除 $del_count 个.tmp文件\n";
} else {
    print "没有找到.tmp文件\n";
}

四、实战场景：文件操作的典型应用

结合实际开发需求，演示文件操作在日志切割、数据备份、配置文件解析等场景的应用，体现Perl文件操作的实用价值。

4.1 场景1：日志切割工具

日志文件过大时需进行切割，保留指定天数的日志，删除旧日志。核心逻辑：按日期重命名当前日志，创建新日志文件，删除超过保留期的日志。

use strict;
use warnings;
use Time::Piece;

# 配置参数
my $log_file = "app.log";       # 目标日志文件
my $backup_dir = "./log_backup";# 日志备份目录
my $keep_days = 7;              # 日志保留天数

# 1. 检查日志文件是否存在
unless (-e $log_file) {
    die "日志文件 $log_file 不存在\n";
}

# 2. 创建备份目录（若不存在）
unless (-d $backup_dir) {
    mkdir $backup_dir or die "无法创建备份目录 $backup_dir：$!";
}

# 3. 生成备份文件名（包含当前日期）
my $now = localtime();
my $backup_file = sprintf("%s/app_%s.log", $backup_dir, $now->strftime("%Y%m%d"));

# 4. 重命名当前日志文件（实现切割）
if (rename $log_file, $backup_file) {
    print "日志切割成功，备份文件：$backup_file\n";
    # 创建新的日志文件（触发程序重新写入）
    open my $fh, '>', $log_file or die "无法创建新日志文件：$!";
    close $fh;
} else {
    die "日志切割失败：$!";
}

# 5. 删除超过保留期的旧日志
my $expire_time = time() - $keep_days * 86400;  # 过期时间（秒）
opendir my $dh, $backup_dir or die "无法打开备份目录：$!";
my @backup_entries = grep { /^app_\d{8}\.log$/ } readdir $dh;
closedir $dh;

my $del_count = 0;
foreach my $entry (@backup_entries) {
    my $entry_path = "$backup_dir/$entry";
    my $mtime = (stat $entry_path)[9];  # 获取文件修改时间
    if ($mtime < $expire_time) {
        unlink $entry_path or warn "删除旧日志 $entry_path 失败：$!";
        $del_count++;
    }
}

print "成功删除 $del_count 个过期日志文件\n";

4.2 场景2：文件备份工具

实现指定目录下文件的批量备份，支持按文件类型筛选，备份文件添加时间戳后缀。

use strict;
use warnings;
use Time::Piece;
use File::Copy;  # 用于文件复制

# 配置参数
my $source_dir = "./source";    # 源文件目录
my $backup_dir = "./backup";    # 备份目录
my @file_types = qw(.txt .conf);# 需要备份的文件类型

# 检查源目录是否存在
unless (-d $source_dir) {
    die "源目录 $source_dir 不存在\n";
}

# 创建备份目录（若不存在）
unless (-d $backup_dir) {
    mkdir $backup_dir or die "无法创建备份目录：$!";
}

# 获取当前时间戳
my $timestamp = localtime()->strftime("%Y%m%d_%H%M%S");

# 遍历源目录，备份指定类型的文件
opendir my $dh, $source_dir or die "无法打开源目录：$!";
my @source_files = grep { -f "$source_dir/$_" } readdir $dh;
closedir $dh;

my $backup_count = 0;
foreach my $file (@source_files) {
    # 筛选指定类型的文件
    my $file_ext = (split /\./, $file)[-1] // "";
    next unless grep { ".$file_ext" eq $_ } @file_types;
    
    # 生成备份文件名（原文件名+时间戳+后缀）
    my ($name, $ext) = $file =~ /^(.+)(\..+)$/;
    my $backup_file = "$backup_dir/${name}_${timestamp}${ext}";
    
    # 复制文件进行备份
    if (copy("$source_dir/$file", $backup_file)) {
        print "备份成功：$file → $backup_file\n";
        $backup_count++;
    } else {
        warn "备份失败 $file：$!";
    }
}

print "\n备份完成，共成功备份 $backup_count 个文件\n";

4.3 场景3：配置文件解析

解析常见的键值对配置文件（如conf格式），将配置内容存储到哈希中，便于程序使用。

use strict;
use warnings;

my $config_file = "app.conf";
my %config;  # 存储配置的哈希

# 读取并解析配置文件
open my $fh, '<', $config_file or die "无法打开配置文件：$!";
while (my $line = <$fh>) {
    chomp $line;
    # 跳过注释行（以#开头）和空行
    next if $line =~ /^#/ || $line =~ /^\s*$/;
    
    # 解析键值对（格式：key = value）
    if ($line =~ /^\s*(\w+)\s*=\s*(.+?)\s*$/) {
        my ($key, $value) = ($1, $2);
        $config{$key} = $value;
        print "解析配置：$key = $value\n";
    } else {
        warn "无效的配置行：$line\n";
    }
}
close $fh;

# 使用解析后的配置
print "\n=== 使用配置信息 ===";
print "\n数据库地址：", $config{db_host} // "未配置", "\n";
print "数据库端口：", $config{db_port} // "未配置", "\n";
print "用户名：", $config{username} // "未配置", "\n";
print "超时时间：", $config{timeout} // "未配置", "\n";

对应的app.conf配置文件内容示例：

# 应用配置文件
# 数据库配置
db_host = 127.0.0.1
db_port = 3306
username = admin
password = 123456

# 应用配置
timeout = 30
log_level = INFO

五、文件操作的注意事项与最佳实践

  1. 错误处理必须严谨：所有文件操作（open、close、rename、unlink等）都可能失败，必须添加or die/warn处理错误，避免程序静默失败。推荐使用$!变量输出错误原因（如“文件不存在”“权限不足”）。
  2. 编码一致性：处理中文或特殊字符时，需确保文件的编码格式（如UTF-8）与程序的编码设置一致。通过binmode $fh, ":utf8"设置文件句柄编码，避免乱码。
  3. 大文件处理技巧：处理大文件时，避免使用“读取整个文件到内存”的方式，优先使用逐行读取或按指定长度读取，减少内存占用。同时，避免频繁的读写操作，可通过缓冲区提升效率。
  4. 文件路径处理：跨平台开发时，文件路径的分隔符不同（Unix为/，Windows为\），推荐使用File::Spec核心模块处理路径，确保兼容性。
  5. 临时文件管理：创建临时文件时，优先使用File::Temp模块，它会自动处理临时文件的创建和删除，避免临时文件残留。
  6. 权限控制：创建文件或目录时，合理设置权限（如文件0644，目录0755），避免权限过宽导致安全风险。
  7. 资源释放：文件操作完成后，必须使用close函数关闭文件句柄，避免文件资源泄漏。可使用open $fh, '<', $file or die ...; local $/; my $content = <$fh>;的局部作用域方式，确保程序退出作用域时自动关闭句柄。

六、总结

Perl文件操作提供了从基础到高级的完整解决方案，核心是掌握文件句柄的管理、打开模式的选择以及各类操作函数的用法。基础的读写改操作可通过open、print、<文件句柄>实现，批量处理和属性管理则可借助File::Find、File::Spec等核心模块简化实现。

实际开发中，需结合场景选择合适的操作方式：小文件优先使用内存修改提升效率，大文件优先使用逐行处理减少内存占用；跨平台开发需关注路径和编码的兼容性；所有操作都必须添加严谨的错误处理。通过本文的学习与实战案例练习，可熟练掌握Perl文件操作的各类技巧，高效解决日志处理、数据备份、配置解析等实际开发需求。xwla2.tongdaolzw.com pnpwq.tongdaolzw.com vy2oz.tongdaolzw.com wncfc.tongdaolzw.com jwjfs.tongdaolzw.com dlhcl.tongdaolzw.com lrcxh.tongdaolzw.com izxex.tongdaolzw.com hva.tongdaolzw.com jep02.tongdaolzw.com gcwjh.tongdaolzw.com vppf2.tongdaolzw.com 6ljwc.tongdaolzw.com qyxlf.tongdaolzw.com yzxsg.tongdaolzw.com vrhjs.tongdaolzw.com wtvph.tongdaolzw.com wregz.tongdaolzw.com labun.tongdaolzw.com fk64u.tongdaolzw.com

全部评论

相关推荐

12-01 16:46
门头沟学院 Java
点赞 评论 收藏
分享
11-19 15:39
西安电子科技大学 Java
点赞 评论 收藏
分享
11-25 13:50
门头沟学院 银行其它
点赞 评论 收藏
分享
11-29 19:53
已编辑
电子科技大学 Java
最菜硕offer选择建议，求意见
华为，成都，数存的平台开发部。14价薪资n×（14-16），总包就是30左右。据主管所说这个主要做一些系统工程优化没什么代码交付，工作时间993，962，但数存产品线加班好像非常严重，对这个时间存疑新华三，成都，（n-3）×14＋1.5×12的交通餐补＋浮动奖金。总包30左右。了解到强度中等，不知道java开发岗加班如何，今年还取消了加班费。褒贬不一，该公司工资多年无涨幅。宁德时代，宁德，信息技术与数智化ai，做一些工业算法，bpit部门下的aac部门。总包比上述多个10多w＋几万的三年激励＋住吃补贴＋几万的福建工科补贴。工作时间大概886。不清楚情况但是给的有点虚高，强度大。其他的泡池子中：58同城，北京，hc很少不一定开的出来，总包大概40。蔚来汽车，上海，听说氛围挺好较为wlb，想等。四川电信，已背调，应该不太会考虑。
点赞 评论 收藏
分享
11-25 02:02
蚌埠坦克学院 Java
点赞 评论 收藏
分享
评论
点赞
收藏
分享

全站热榜

更多

创作者周榜

更多
正在热议
更多
# 十二月请对我好一点 #
8187次浏览 157人参与
# 父母对你找工作是助力还是阻力？ #
2882次浏览 69人参与
# 为了去实习，我赌上了___ #
2823次浏览 41人参与
# 聊聊我眼中的AI #
485717次浏览 6730人参与
# 工作中出现了XX情况正常吗 #
9652次浏览 114人参与
# 哪一瞬间让你觉得“这班不如不上” #
2204次浏览 23人参与
# 一人推荐一个值得做的项目 #
3054次浏览 52人参与
# uu们，春招你还来吗？ #
2126次浏览 25人参与
# 高薪高压 vs 低薪wlb，你怎么选？ #
3746次浏览 42人参与
# 回顾今年你干过的最“勇”的一件事 #
4718次浏览 73人参与
# 工作前VS工作后，你的心态变化 #
4045次浏览 34人参与
# 秋招有哪些公司要求提前实习 #
91077次浏览 488人参与
# 公司福利里最没用的一项是啥 #
2526次浏览 56人参与
# 机械人的金三校招总结 #
38906次浏览 465人参与
# 如何用一句话描述你的职业 #
27963次浏览 181人参与
# 追觅科技求职进展汇总 #
28913次浏览 181人参与
# 职场上哪些事情令人讨厌 #
32401次浏览 143人参与
# 机械人的薪资开到多少，才适合去？ #
150824次浏览 530人参与
# 你收到了团子的OC了吗 #
1469377次浏览 11805人参与
# 毕业季，给职场新人一些建议 #
161995次浏览 2367人参与
牛客网
牛客网在线编程
牛客网题解
牛客企业服务