- 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
А как ещё скопировать файл начинающий на -?
guest 30.09.2009 08:16 # −1
Suor 30.09.2009 11:46 # 0
guest 30.09.2009 10:43 # +1
grep qwerty -- -something.txt
Все аргументы после этого считаются именно что аргументами, а не опциями. Поддержка "--" есть, по крайней мере, в GNU getopt. Может и с perl'ом работает.
Suor 30.09.2009 11:46 # 0
cp -- -index-.cgi index.dev.cgi
сработало
guest 01.10.2009 10:44 # 0
cp ./-index-.cgi index.dev.cgi
Oleg_quadro 01.10.2009 13:03 # 0
perl -MFile::Copy -e 'copy "-index-.cgi", "index.dev.cgi"'
guest 23.12.2009 18:26 # 0
Oleg_quadro 23.12.2009 19:38 # 0
bildja 04.10.2009 02:07 # +2
Suor 21.01.2010 15:05 # 0
Да и вообще так названо, чтобы никто не догадался :)