- 1
perl -MIO::All -e 'print io("-index-.cgi")->all' > index.dev.cgi
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+65.2
perl -MIO::All -e 'print io("-index-.cgi")->all' > index.dev.cgi
А как ещё скопировать файл начинающий на -?
grep qwerty -- -something.txt
Все аргументы после этого считаются именно что аргументами, а не опциями. Поддержка "--" есть, по крайней мере, в GNU getopt. Может и с perl'ом работает.
cp -- -index-.cgi index.dev.cgi
сработало
cp ./-index-.cgi index.dev.cgi
perl -MFile::Copy -e 'copy "-index-.cgi", "index.dev.cgi"'
Да и вообще так названо, чтобы никто не догадался :)