perl - 如何从 perl 中的字符串中删除 \r \n 和 \

Question

我需要从一个大的 $​​string 中按该顺序删除每个 \r \n 和 \，我该如何做到这一点？

示例字符串：

$string = '\/9jAAMAAAAB\r\nAAEAAABAAAD\/2'

需要它看起来像这样：

$string = '/9jAAMAAAABAAEAAABAAAD/2'

Answer 1

#!/usr/bin/perl
$string = "something\\r\\n\\";
$string =~ s/(\\r)|(\\n)|(\\)//g;
print $string;

=> something

Answer 2

这是另一种选择：

use strict;
use warnings;

my $string = '\/9jAAMAAAAB\r\nAAEAAABAAAD\/2';
$string =~ s!\\[rn]?!!g;
print $string;

输出：

/9jAAMAAAABAAEAAABAAAD/2

Answer 3

这是一种方法：

$new_string = $string =~ s/\\|\R//g;
print "$new_string";