function all_trim(s)
  return s:match"^%s*(.*)":match"(.-)%s*$"
end

Или короче:

function all_trim(s)
   return s:match( "^%s*(.-)%s*$" )
end

использование:

str=" aa " 
print(all_trim(str) .. "e")

Выход:

aae

возможно, родного C / C ++) были ужасно медленными в моих тестах. Эта реализация показала лучшую производительность:

function trim (str)
  if str == '' then
    return str
  else  
    local startPos = 1
    local endPos   = #str

    while (startPos < endPos and str:byte(startPos) <= 32) do
      startPos = startPos + 1
    end

    if startPos >= endPos then
      return ''
    else
      while (endPos > 0 and str:byte(endPos) <= 32) do
        endPos = endPos - 1
      end

      return str:sub(startPos, endPos)
    end
  end
end -- .function trim

скомпилированный из trim.c:

/* trim.c - based on http://lua-users.org/lists/lua-l/2009-12/msg00951.html
            from Sean Conner */
#include <stddef.h>
#include <ctype.h>
#include <lua.h>
#include <lauxlib.h>

int trim(lua_State *L)
{
 const char *front;
 const char *end;
 size_t      size;

 front = luaL_checklstring(L,1,&size);
 end   = &front[size - 1];

 for ( ; size && isspace(*front) ; size-- , front++)
   ;
 for ( ; size && isspace(*end) ; size-- , end--)
   ;

 lua_pushlstring(L,front,(size_t)(end - front) + 1);
 return 1;
}

int luaopen_trim(lua_State *L)
{
 lua_register(L,"trim",trim);
 return 0;
}

скомпилировать что-то вроде:

gcc -shared -fpic -O -I/usr/local/include/luajit-2.1 trim.c -o trim.so

Более подробно (по сравнению с другими методами):http://lua-users.org/wiki/StringTrim

Usage:

local trim15 = require("trim")--at begin of the file
local tr = trim("   a z z z z z    ")--anywhere at code