Код, который я написал, как указано ниже: #!/usr/bin/perl мой @input = ("a.txt", "b.txt", "c.txt"); мой @output = карта {$ _ = ~ s/\..* $//} @input; печать @output; Мое намерение состоит в том, чтобы позволить имени файла...
вопрос задан: 22 September 2009 17:16