#!/usr/bin/perl строгое использование; используйте предупреждения; мой @a = qw/a b c/; (@a) x = 3; распечатайте соединение (", ", @a), "\n"; я ожидал бы, что код выше распечатает "a, b, c, a, b, c, a, b, c\n", но вместо этого
вопрос задан: 8 September 2009 16:44