Question

根据我的研究，perl print语句中使用的'\ b'字符应该像“退格”一样，即将光标向后移动一个字符，并删除当前字符。出于这个原因，我曾计划使用此操作在一行上打印操作状态，并在进行时进行更新。但是，我注意到，当光标确实向后移动时，脚下的字符不会被删除，因此，较短的打印语句后仍会保留较长的消息。我编写了以下示例代码来解释我的发现：

#!/usr/bin/perl

use strict;
use warnings;
my $m;

#set to nonzero so that the screen will update before \n
local $| = 1;

print "Current number shown: ";

$m = "LONG MESSAGE TEMP";
print $m;
print "\b" x length($m);

foreach(1..22) {
        $m = $_;
        print $m;
        print "\b" x length($m);
        #sleep 1; #Uncomment to see updates
}

print "\n";

这就是输出：

Current number shown: 22NG MESSAGE TEMP

如果这确实是'\ b'的正确操作，是否有另一个转义删除该字符以及将光标移回？我想避免使用从当前行开头的'\ r'开始。否则，我如何错误地使用转义？

Answer 1

"\b"只是写chr(0x08)的一种奇特方式。您的终端可能会移动光标而不是显示任何内容，但这完全取决于它。

如果您可以依赖它，那么您可以通过用空格覆盖来实现您想要的效果。

my $last_length = 0;
sub update {
   my ($s) = @_;
   print("\b" x $last_length);
   print(" " x $last_length);
   print("\b" x $last_length);
   print($s);
   $last_length = length($s);
}

或闪烁较少：

my $last_length = 0;
sub update {
   my ($s) = @_;
   my $diff = $last_length - length($s);
   print("\b" x $last_length);
   print($s);
   print(" " x $diff);
   print("\b" x $diff);
   $last_length = length($s);
}

Answer 2

只需输出一些额外的空格字符即可覆盖您需要覆盖的内容。

#!/usr/bin/env perl

use strict;
use warnings;
use Time::HiRes qw(sleep);

sub backspace {
  print "\b" x $_[0];
  print " "  x $_[0];
  print "\b" x $_[0];
}

local $| = 1;

my $m = "LONG MESSAGE TEMP";

print "Current number shown: ", $m;
sleep 1;

for (1..22) {
  backspace( length($m) );
  $m = $_;
  print $m;
  sleep 0.2;
}

print "\n";

Answer 3

根据其使用方式，\ b在Perl命令中具有特殊含义：

\ b只是字符类中的退格符。在字符类之外，\ b单独是单词字符/非字符字符边界。

要在文件中每次出现单词“ABC”时替换“def”，请使用Perl命令： perl -pi -e 's/\bABC\b/def/g' file 这将使诸如“ZABCD”之类的字符串保持不变。

perl中的'\ b'字符如何工作？

3 个答案: