根据我的研究,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'开始。否则,我如何错误地使用转义?
答案 0 :(得分:4)
"\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);
}
答案 1 :(得分:1)
只需输出一些额外的空格字符即可覆盖您需要覆盖的内容。
#!/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";
答案 2 :(得分:1)
根据其使用方式,\ b在Perl命令中具有特殊含义:
\ b只是字符类中的退格符。在字符类之外,\ b单独是单词字符/非字符字符边界。
要在文件中每次出现单词“ABC”时替换“def”,请使用Perl命令:
perl -pi -e 's/\bABC\b/def/g' file
这将使诸如“ZABCD”之类的字符串保持不变。