http://www.lua.ru/forum/posts/list/1.page JForum - http://www.jforum.net Написал свою:
[code]local function os_copy (source_path, dest_path)
local source = io.open(source_path)
local dest = io.output(dest_path)
dest:write(source:read("*a"))
source:close()
dest:close()
end[/code]
Работает :)
Только подумалось мне что наверняка этот вопрос при лучшем знании Lua можно решить элегантнее :?:
[i](Условие одно: используем только стандартные возможности Lua)[/i]]]> http://www.lua.ru/forum/posts/preList/89/665.page http://www.lua.ru/forum/posts/preList/89/665.page GMT os.execute('copy "' .. source_path .. '" "' .. dest_path .. '"')
end[/code]Для Linux и ему подобных: вместо "copy" подставить "cp" (и возможно, поменять местами одинарные и двойные кавычки).]]> http://www.lua.ru/forum/posts/preList/89/666.page http://www.lua.ru/forum/posts/preList/89/666.page GMT Вариант принимается.
Но я как то недолюбливаю ее примитивную реализацию с мигающим окном консоли, поэтому от такого варианта отказался сразу.
А варианты решения без os.execute есть?
]]> http://www.lua.ru/forum/posts/preList/89/667.page http://www.lua.ru/forum/posts/preList/89/667.page GMT Кроме вышеприведенных двух, есть вариант использования дополнительных библиотек для Lua. Например, я пользуюсь (неопубликованной) библиотекой SysUtils, которая содержит функцию sysutils.CopyFile.]]> http://www.lua.ru/forum/posts/preList/89/668.page http://www.lua.ru/forum/posts/preList/89/668.page GMT Не... Внешние библиотеки - это уже нарушение условий задачи.
Я просто думал что мой код можно переписать более благообразно...
]]> http://www.lua.ru/forum/posts/preList/89/669.page http://www.lua.ru/forum/posts/preList/89/669.page GMT Я просто думал что мой код можно переписать более благообразно...
[/quote]Пожалуйста. Здесь починены 2 проблемы из 3-х имеющихся в оригинале. Третья - то что входной файл читается сразу целиком - это будет проблемой для файлов размером в несколько гигабайтов. Но это уже оставлено как упражнение для автора.
[code]function os_copy (source_path, dest_path)
local source = io.open(source_path, "rb")
local dest = io.open(dest_path, "wb")
dest:write(source:read("*a"))
source:close()
dest:close()
end
[/code]]]> http://www.lua.ru/forum/posts/preList/89/670.page http://www.lua.ru/forum/posts/preList/89/670.page GMT io.output(dest_path):write( io.open(source_path):read("*a"))
end [/code]

]]> http://www.lua.ru/forum/posts/preList/89/679.page http://www.lua.ru/forum/posts/preList/89/679.page GMT io.output(dest_path):write( io.open(source_path):read("*a"))
end [/code][/quote]
Здесь присутствуют все 3 дефекта, имеющиеся в оригинальной версии [b]mozers™[/b]
А в дополнение - ещё один: на выходе из ф-ции не восстановлено прежнее значение io.output.]]> http://www.lua.ru/forum/posts/preList/89/680.page http://www.lua.ru/forum/posts/preList/89/680.page GMT http://www.lua.ru/forum/posts/preList/89/681.page http://www.lua.ru/forum/posts/preList/89/681.page GMT function os_copy (src_path, dst_path)

local src_file = io.open(src_path, 'rb')
local dst_file = io.open(dst_path, 'wb')
if not src_file then
error('Cannot open source file "' .. src_path .. '"')
end
if not src_file then
error('Cannot open destination file "' .. dst_path .. '"')
end
local buffer
local buffer_size = 1024
while true do
buffer = src_file:read(buffer_size)
if buffer then
dst_file:write(buffer)
else
break
end
end
src_file:close()
dst_file:close()

end
[/code]]]> http://www.lua.ru/forum/posts/preList/89/682.page http://www.lua.ru/forum/posts/preList/89/682.page GMT Уже лучше, если не считать небрежности. Вот твоя ф-ция с поправками:
[code]function os_copy (src_path, dst_path)
local src_file = io.open(src_path, 'rb')
if not src_file then
error('Cannot open source file "' .. src_path .. '"')
end
local dst_file = io.open(dst_path, 'wb')
if not dst_file then
src_file:close()
error('Cannot open destination file "' .. dst_path .. '"')
end
local buffer_size = 0x10000
local buffer = src_file:read(buffer_size)
while buffer do
dst_file:write(buffer)
buffer = src_file:read(buffer_size)
end
dst_file:close()
src_file:close()
end
[/code]]]> http://www.lua.ru/forum/posts/preList/89/683.page http://www.lua.ru/forum/posts/preList/89/683.page GMT Для проверки на вашем железе:

[code]
function os_copy (src_path, dst_path, buffer_size)

local src_file = io.open(src_path, 'rb')
if not src_file then
error('Cannot open source file "' .. src_path .. '"')
end
local dst_file = io.open(dst_path, 'wb')
if not dst_file then
src_file:close()
error('Cannot open destination file "' .. dst_path .. '"')
end
if not buffer_size then buffer_size = 2048 end
local buffer = src_file:read(buffer_size)
while buffer do
dst_file:write(buffer)
buffer = src_file:read(buffer_size)
end
dst_file:close()
src_file:close()
end

src_path = "test_file"
dst_path = "test_file.out"

for i=4, 16 do
local start = os.clock()
os_copy (src_path, dst_path, 2^i)
print(i, os.clock() - start)
end
[/code]

]]> http://www.lua.ru/forum/posts/preList/89/684.page http://www.lua.ru/forum/posts/preList/89/684.page GMT Для проверки на вашем железе:[/quote]
Проверка на моём железе дала оптимальный буфер в размере 8 KB. Но это для меня бесполезные данные, т.к. я не копирую файлы подобными функциями. Пользуюсь либо библиотекой на Си, либо os.execute.
]]> http://www.lua.ru/forum/posts/preList/89/685.page http://www.lua.ru/forum/posts/preList/89/685.page GMT ]]> http://www.lua.ru/forum/posts/preList/89/686.page http://www.lua.ru/forum/posts/preList/89/686.page GMT [/quote]Библиотечная функция, которую я имел в виду - это просто обёртка вокруг CopyFile из Windows API. К моему удивлению, её скорость при копировании больших файлов практически та же, что и у вышеприведенных Lua функций. Но тут дело не в скорости: просто предпочитаю пользоваться стандартной функцией, а не изобретать велосипед.
]]> http://www.lua.ru/forum/posts/preList/89/687.page http://www.lua.ru/forum/posts/preList/89/687.page GMT Полагаю, ему нужна совместимость без лишних проблем для разных платформ (WIN & GTK & ...) для SciTE.
Для большей схожестью с CopyFile можно добавить проверку на перезапись существующего файла.

К сожалению, решение получилось не элегантное.]]> http://www.lua.ru/forum/posts/preList/89/698.page http://www.lua.ru/forum/posts/preList/89/698.page GMT Например:
[code]
--// for tracing:
local fmt = getmetatable(io.stdout)
local file_close = fmt.close
function fmt:close()
io.stderr:write(tostring(self),' closed\n')
file_close(self)
end

local file_open = io.open
function io.open(a,b)
local f = file_open(a,b)
io.stderr:write(tostring(f),' opened\n')
return f
end
--//---------------------------------------------
function os_copy (source_path, dest_path)
local source = io.open(source_path, "rb")
local dest = io.open(dest_path, "wb")
dest:write(source:read("*a"))
source:close()
dest:close()
end

--// Test:
os_copy("1.gz","11.gz")
[/code]
[code]
file (781C1BD8) opened
file (781C1BF8) opened
file (781C1BD8) closed
file (781C1BF8) closed
[/code]
Теперь, например, сделаем 11.gz read-only:
[code]
file (781C1BD8) opened
nil opened
c:\Dev\lua\msvc8\bin\lua5.1.exe: copy.lua:39: attempt to index local 'dest' (a nil value)
stack traceback:
copy.lua:39: in function 'os_copy'
copy.lua:52: in main chunk
[C]: ?
[/code]
... т.е. первый файл остался открытым до тех пор, пока его не соберет сборщик мусора, так-как исключение не дало вызвать source:close().

Про один из подходов к безопасной работой с ресурсами можно почитать тут: http://lua-users.org/wiki/FinalizedExceptions - Диего Нехаб пишет как он сделал в luasocket.

Я обычно пользуюсь похожим, но более общим (который подходит для Лиспа, Скалы, SML и вообще для любого язака с функциями высших порядков) способом.
[code]
--// "библиотечная" функция
local function unwind_protect(thunk,cleanup)
local ok,res = pcall(thunk)
if cleanup then cleanup() end
if not ok then error(res,0) else return res end
end
--// общая функция для работы с открытыми файлами
local function with_open_file(name,mode)
return function(body)
local f = assert(io.open(name,mode))
return unwind_protect(function()return body(f) end,
function()return f and f:close() end)
end
end
--// собственно os-copy --
function os_copy2(source_path,dest_path)
return with_open_file(source_path,"rb") (function(source)
return with_open_file(dest_path,"wb") (function(dest)
assert(dest:write(assert(source:read("*a"))))
return 'copy ok'
end)
end)
end
--// Test: (11.gz -- read-only)
print(pcall(function() return os_copy2("1.gz","11.gz") end))
[/code]
[code]
false copy2.lua:31: assertion failed!
file (781C1BD8) opened
nil opened
file (781C1BD8) closed
[/code]
Когда все нормально (уберем read-only):
[code]
true copy ok
file (781C1BD8) opened
file (781C1BF8) opened
file (781C1BF8) closed
file (781C1BD8) closed
[/code]
Т.е. все само вовремя закрывается, деструкторы вызываются в порядке, обратном вызову конструкторов. Синтаксис громоздкий, но это Луа :) В Scala, например, это выглядит намного изящнее:
[code]
// Scala:
with_open_file(source_path,"wb"){ source =>
...
// Body
}
[/code]]]> http://www.lua.ru/forum/posts/preList/89/704.page http://www.lua.ru/forum/posts/preList/89/704.page GMT Сильно
Код профессионала сильно отличается от кода новичка - я нефига не понял как работают эти циклы - тупо скопировал все в свой скрипт.
Стандартное решение os.execute("cmd /c copy "..source..destantion) этому и в подметки не годится!
Скорость выполнения выросла более чем в 100 раз!!! (у меня непрерывно копируются маленькие файлы).
Про то, что исчезло это, дико раздражающее, постоянно мигающее консольное окошко я уже не говорю...
Браво, автор!]]> http://www.lua.ru/forum/posts/preList/89/816.page http://www.lua.ru/forum/posts/preList/89/816.page GMT