在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 file
rename $output_file, $input_file or die "Cannot rename $output_file to $input_file: $!";
在這個示例中，我們首先定義了輸入文件input.txt，輸出文件output.txt和要刪除的字符串delete this line。然后我們打開輸入文件和輸出文件，并遍歷輸入文件的每一行。如果某一行不包含要刪除的字符串，則將該行寫入輸出文件。最后關閉文件句柄，并將輸出文件重命名為原來的輸入文件名，以完成刪除特定行的操作。
