Мне нужно перевести этот кусок кода с Perl на Lua
open(FILE, '/proc/meminfo');
while(<FILE>)
{
if (m/MemTotal/)
{
$mem = $_;
$mem =~ s/.*:(.*)/$1/;
}
elseif (m/MemFree/)
{
$memfree = $_;
$memfree =~ s/.*:(.*)/$1/;
}
}
close(FILE);
Пока я написал это
while assert(io.open("/proc/meminfo", "r")) do
Currentline = string.find(/proc/meminfo, "m/MemTotal")
if Currentline = m/MemTotal then
Mem = Currentline
Mem = string.gsub(Mem, ".*", "(.*)", 1)
elseif m/MemFree then
Memfree = Currentline
Memfree = string.gsub(Memfree, ".*", "(.*)", 1)
end
end
io.close("/proc/meminfo")
Теперь, когда я пытаюсь скомпилировать, я получаюследующая ошибка, связанная со второй строкой моего кода
luac: Perl to Lua:122: unexpected symbol near '/'
, очевидно, синтаксис использования пути к каталогу в string.find отличается от того, как я его написал.'Но как это?'мой вопрос.