12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
ADADADADAD
编程知识 时间:2024-11-19 11:54:17
作者:文/会员上传
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
12-09
在Perl中,可以通过读取文件并将不需要的行写入新的文件来删除特定的某一行。以下是一个示例代码,演示如何删除包含特定字符串的行:use strict;use warnings;my $input_file = &
以下为本文的正文内容,内容仅供参考!本站为公益性网站,复制本文以及下载DOC文档全部免费。
在Perl中,可以通过读取文件并将不需要的行写入新的文件来删除特定的某一行。以下是一个示例代码,演示如何删除包含特定字符串的行:
use strict;use warnings;my $input_file = 'input.txt';my $output_file = 'output.txt';my $string_to_delete = 'delete this line';open(my $input_fh, '<', $input_file) or die "Cannot open $input_file: $!";open(my $output_fh, '>', $output_file) or die "Cannot open $output_file: $!";while (my $line = <$input_fh>) {if ($line !~ /$string_to_delete/) {print $output_fh $line;}}close($input_fh);close($output_fh);# Rename the output file to the original filerename $output_file, $input_file or die "Cannot rename $output_file to $input_file: $!";
在这个示例中,我们首先定义了输入文件input.txt
,输出文件output.txt
和要删除的字符串delete this line
。然后我们打开输入文件和输出文件,并遍历输入文件的每一行。如果某一行不包含要删除的字符串,则将该行写入输出文件。最后关闭文件句柄,并将输出文件重命名为原来的输入文件名,以完成删除特定行的操作。
11-20
11-19
11-20
11-20
11-20
11-19
11-20
11-20
11-19
11-20
11-19
11-19
11-19
11-19
11-19
11-19