Вообще-то, это очевидное решение. Но чтобы не думать одну мысль дважды — пусть будет тут:
#!/usr/bin/perl -w
use strict;
$\ = "\n";
my @ar = qw(a b c d);
# Rotate left: abcd → bcda
# ┌─ list ←┐
# └────────┘
push @ar, shift @ar;
print @ar;
# Rotate right: abcd → dabc
# ┌→ list ─┐
# └────────┘
unshift @ar, pop @ar;
print @ar;
Замена кусочка списка другим списком
Feb. 10th, 2009 01:50 pmТривиально, но чтобы самому не забыть: ( перловка )
Чтобы не забыть. С двумерными массивами в перле можно работать так:
( перловка )
Плюс к тому — man perlref.
( перловка )
Плюс к тому — man perlref.