Shell Programming and Scripting

#!/bin/bash

compact() {
        local compacted=""
        local length=${#1}
        for((char=0;$char<=$length;char=$char+7)) ; do
                compacted="$compacted${1:$char:1}"
        done
        _res=$compacted
}

while read line ;do 
        compact "${line:7}"
        printf "%6s %s\n" ${line:0:6} $_res
done <$1

#!/usr/bin/env lua

local data = io.open(arg[1],"r")

function compact(string)
        local compacted=""
        local length = string:len()
        for char=1,length,7 do
                compacted=compacted..string:sub(char,char)
        end
        return compacted
end

for line in data:lines() do
      print(line:sub(1,7)..compact(line:sub(8)))
end