如何从此代码中删除换行符？

Question

我有一个旧的脚本跟随着代码：

while (<FPTR>) # While still input lines in the file... 
{ 
    if($_ =~ /\x1b&d@ 
/) 
    { 
    $aa=$_; 
    $aa =~ s/\x1b&d@ 
/
\x1b&d@/; 
    print STDOUT $aa; 
    } 
... 
} 

能否请您解释一下 - 什么母鹿这段代码做以及如何以正确的代码替换它？ 我不喜欢“if”和“=〜”中有换行符。 是否可以更改此代码？

Answer 1

假设INPUT_RECORD_SEPARATOR还没有被重新定义，换行符大概可以通过$取代。然后，你应该能够chomp输入行的副本去除换行符。 编辑：然后预先输出\n。

while (<FPTR>) # While still input lines in the file... 
{ 
    if (/\x1b&d@$/) { 
    $aa = $_; 
    chomp $aa; 
    print STDOUT "\n" . $aa; 
    } 
... 
} 

这将消除您的正则表达式的多个副本简化代码。

Answer 2

该代码似乎寻找一个字节序列，然后换行，并在模式前面交换newkline。您可以使用\n为换行符（PR \r\n如果脚本是在DOS格式），follwoing相当于我认为：

while (<FPTR>) # While still input lines in the file... 
{ 
    if($_ =~ m/\x1b&d@\n/) 
    { 
    $aa=$_; 
    $aa =~ s/\x1b&d@\n/\n\x1b&d@/; 
    print STDOUT $aa; 
    } 
... 
} 

Answer 3

您可以替换\n的换行符。请参阅perldoc perlop中'Quote and Quote-like operators'的转义序列部分。可以使用$元字符。从perldoc perlre：

$ Match the end of the line (or before newline at the end) 

Answer 4

尝试做一格格（）首先处理之前

while (<FPTR>) { 
    chomp; 
    .... 
} 

Answer 5

这是一个棘手：

/\x1b&d@ 
/

这就是转义字符后“& d @”在该行的末尾。因此，我可以实际使用：

while (my $line = <FPTR>) { 
    if ($line =~ /x1b&d@$/) { 
     chomp $line; 
     print $line; 
    } 
} 

我不明白为什么有必要做的$_副本中$aa，但如果这真的是必要的，使用

if ((my $copy = $line) =~ /x1b&d@$/) { 
     chomp $copy; 
     print $copy; 
    } 
} 

你只需要指定STDOUT作为文件句柄，如果某个其他文件句柄已被选为默认文件句柄。