在Perl中刪除空白行有多種方法。以下是其中一種常用的方法：
while (<>) {
next if /^\s*$/; # 如果行只包含空格或制表符，則跳過
print;
}
使用<>操作符讀取輸入文件的每一行。next if /^\s*$/會跳過只包含空格或制表符的行。其余的行會被打印出來。
while (<>) {
chomp; # 刪除行末尾的換行符
next if /^\s*$/; # 如果行只包含空格或制表符，則跳過
print $_ . "\n";
}
chomp函數用于刪除行末尾的換行符。其余部分與第一種方法相同。
while (<>) {
push @lines, $_; # 將每一行存儲在數組中
}
@lines = grep { /\S/ } @lines; # 使用grep函數刪除只包含空格或制表符的行
foreach my $line (@lines) {
print $line;
}
將每一行存儲在數組@lines中。使用grep函數和正則表達式/\S/來過濾掉只包含空格或制表符的行。最后使用foreach循環打印出剩余的行。
這些方法都可以刪除空白行，但具體使用哪種方法取決于你的需求和個人喜好。
