Cлайс списка

@anonimus · Регистрация: 28.04.2010

Author24 — интернет-сервис помощи студентам

Знакомлюсь с перлом, такой вопрос

Perl

test2(1, 2, 3, 4, 5);
 
sub test {
    my ($param, @param2) = @_[0, 3..5];
    
    $" = '-';
    print  "$param @param2";
}

результат будет 1 4-5-
а если я хочу так:

Perl

sub test {
    my (@part1, @part2) = @_[0..2, 3..5];
    
    $" = '-';
    print  "@part1 @part2";
}

почему у меня все в @part1, а в @part2 пусто, а хотелось бы разбить массив на 2 части

@ft4l · 01.03.2018, 19:03

странно, вроде @part1 не должен быть пустым (...проверял только на pl-v5.10)
, поскольку my (@part1, @part2) = ....

...perldata
You can actually put an array or hash anywhere in the list, but the first one in the list will soak up all the values, and anything after it will become undefined. This may be useful in a my() or local().

, а так можно сделать просто
my @param = @_[0..2];
my @param2= @_[3..5];

volodin661 · 01.03.2018, 19:50

Сообщение от anonimus

почему у меня все в @part1, а в @part2 пусто

Потому что весь список из правой части высосет первая же переменная спискового типа из левой части;
perl так работает, во-первых, признака разбиения правого списка на 2 части с помощью запятой он не разглядит,
а даже если и разглядит, то всё равно политикой спискового присвоения является высасывание до последней капли.

единственный выход - иметь слева два скаляра, а справа две ссылки на массивы

test.pl

Perl

sub test($$) {
 
    ($a,$b) = @_;
 
 
    use Data::Dumper;
 
    print Dumper $a, $b;
 
 
}
 
test( [@ARGV[0..2]], [@ARGV[3..$#ARGV]] );

Bash

1	perl test.pl 0 1 2 3 4 5 6 7 8 9 A B C D E F G H

Вывод:

Код

$VAR1 = [
          '0',
          '1',
          '2'
        ];
$VAR2 = [
          '3',
          '4',
          '5',
          '6',
          '7',
          '8',
          '9',
          'A',
          'B',
          'C',
          'D',
          'E',
          'F',
          'G',
          'H'
        ];

@ft4l · 01.03.2018, 23:48

кстати да, [...]-анонимный массив тоже удобно, в случае если 1,2,3,.. простые переменные

Perl

sub test {
    my ($param,@param2)= @_;
 
    $" = '-';
    print  "@$param @param2\n";
}
test [1,2,3],4,5,6;

только имхо, в памяти они всётаки перезаписываются, как в случае например с

Perl

test [1,2,3],(4=>5,8=>9),(6=>7);
test [1,2,3],(4=>5,8=>9,6=>7)[0..5];
 
my %hash=(4=>5,8=>9,6=>7);
print"\n";
test [1,2,3],%hash;

последний вариант показывает перевёрнутый хэш, на версии перл ранее последней вроде. ... хотя возможно ошибаюсь

@ft4l Невнимательный 2597 / 974 / 321 Регистрация: 08.02.2013 Сообщений: 5,721 Записей в блоге: 2
	01.03.2018, 19:03	2
	странно, вроде @part1 не должен быть пустым (...проверял только на pl-v5.10) , поскольку my (@part1, @part2) = .... ...perldata You can actually put an array or hash anywhere in the list, but the first one in the list will soak up all the values, and anything after it will become undefined. This may be useful in a my() or local(). , а так можно сделать просто my @param = @_[0..2]; my @param2= @_[3..5]; 0

	01.03.2018, 23:48

Cлайс списка

Решение