(no subject)

[ocehb]

программка, которая просит ввести числа в массив, а когда вводится пустая строка, спрашивает имя файла и записывает в него этот массив


однострочник:

# perl -lne '$_ ? push @a, $_ : do { print "File? "; $_=<>; chomp; open F, ">", $_ and print F "@a"; exit }'
1
2
3

File? 
AA
# cat AA
1 2 3
#

интересно, можно короче?

Comments

[jerom.livejournal.com]

введи-ка 0

[ocehb]

ну добавим != 0.
но вопрос остается -- можно-ли кратко зареюзать -n для имени файла?

[ocehb]

блин, ne ""