Когда я пытаюсь использовать следующий #! / Usr / bin / perl строгий;
использовать предупреждения;
используйте Data :: Dumper; мой @bl = qw (красный, зеленый, синий);
мой @a = qw (зеленый, желтый, фиолетовый, синий, розовый); напечатать Dumper [grep {not
вопрос задан: 3 February 2011 21:23