Разделение последовательности с / в Perl

Question

У меня есть последовательность, которая выглядит следующим образом:

my $seq = "D\IKLR\LK/Q";

я хочу разбить последовательность на отдельные буквы.

Так что я надеюсь получить:

my $var = ['D', '\', 'I', 'K', 'L', 'R', '\', 'L', 'K','/' ,'Q'];

Но почему это не так:

 my @chars = split(//,$seq);
 print Dumper \@chars;

Вместо этого он дал:

my $var = ['D', '\\', 'I', 'K', 'L', 'R', '\\', 'L', 'K', 'Q'];

Как правильно это сделать?

Answer 1

То, что вы получаете, это именно то, что вы хотите.

Способ представления одного \ - '\\', а не '\', как вы ожидали, потому что \ в '\' экранирует второй ', делая строку неполной, но Data::Dumper возвращаемое значение всегда может быть eval как его Perl-код.

Но при печати отдельных элементов массива с помощью повторения по нему будет напечатано \.