утечка памяти, чтение процессов и кое что по мелочи

#!/usr/bin/ruby
                                    
                                    
`echo  "Говорилка включена"| RHVoice | aplay `         # озвучка включения пограммы
 
system(" lsof +D ~/.purple/logs |grep pidgin | cat > RabFile.txt")  # определяем какой процесс и
                                                                                                # какой файл открыты и записываем вывод 
                                                                                                # во временный файл RabFile.txt
 
                                       # если старый файл "adres.txt" существует, то удоляем его 
# File.delete( "adres.txt" ) if File::exists?( "adres.txt" )                    
 
 
                                                   # составляем новый список адресов читаемых(прослушиваемых) файлов
 
$vvod = Array.new                           # массив старых строк. для сравнения
time = Time.now                                 # запускаем счётчик времени
 
 
def newAdress
 
    adresArr = Array.new                    # инициализация массива адресов
                                    # (активные контакты. которых мы слушаем)                                       
    $kString = 0                        # счётчик строк файла проверяемых адресов            
 
    file = File.new("RabFile.txt")                  # открываем RabFile для чтения
    file.each do | line |                       # пока в файле есть строки, используем их по очереди
        f = line                        # копируем в переменную f  для дальнейшей обработки
#       puts " Сторка RabFile : "                                     
#       puts f                                          # вывод f для отладки
 
        j = f.length                        # узнаём длинну строки переменной
        i = 0                           # новый счётчик
        while f[ i ] !="/" do                       # пока не увидем символ / в строке будем выполнять:
            i += 1                                  # увеличиваем счётчик на 1
            #puts i                 # вывод значения счётчика для отладки
            #puts f[ i ]                    # вывод перебераемого символа для отладки
            #sleep 0.2                  # пауза, чтобы видеть что и как перебирает
        end                         # конец цикла 
        
        adresArr[ $kString ] = f[ i...j ]           # записываем оставшиеся в строке символы в файл adres
        #puts " Адрес № " , $kString , " : \n"   # порядковый номер выводимого адреса. для отладки
        #puts adresArr [ $kString]          # вывод  adres для отладки
        $kString += 1                   # на одну строку (один активный контакт) больше    
 
        for nString in 0..($kString-1) do       # начинаем перебирать адреса по порядку
            $vvod[ nString ] = "pusto"      # записываем "pusto" в старую строку с порядковым номером адреса
            ad = File.open( "adres#{ nString }.txt", "w")   # открываем файл с порятковым номером адреса
            ad.puts  adresArr[ nString ]                # пишем в него адрес
            ad.close                            # закрываем
        end
 
    end     
    
end
 
 
 
 def goOzvuchka(line , nString)                     # запуск озвучки строки line с порядковым номером nString
            puts "listing :" , line                         # вывод новой строки. для отладки
            puts "vvod :" , $vvod [ nString ]           # вывод старой строки. для отладки
            j = line.length                     # узнаём длину прочтённой строки
            i = -1                              # новый счётчик символов строки
            s = 0                               # счётчик пробелов (для выделения фразы)
            while s < 3  do                         # пока пробелов < 3х
                i += 1                          # увеличиваем счётчик символов
                if line[ i ] == "\s" then               # если символ с номером i равен пробелу, то
                    s += 1                  # увеличиваем счётчик пробелов на 1
                end
    
                # print i                   # вывод значения счётчика для отладки
                # print line[ i ]               # вывод перебираемого символа для отладки
                # sleep 0.1                 # пауза, чтобы видеть что и как перебирает
            end 
                                                        # пишем фразу в файл p(порядковый номер собеседника).txt
            gov = File.open( "p#{nString}.txt" , "w")  # открываем файл фразы с порядковым номером nString
            gov.puts  line[i...j]               # пишем в него саиу фразу (без времени и имени)
            gov.close                       # закрываем файл
        
            if $vvod[ nString ] != "pusto" then                 # если прочтение не первое, то..
                system(" cat p#{nString}.txt|RHVoice|aplay")    # озвучка фразы
            end
        
            $vvod[ nString ] = line                     # заносим прочитанную строку в массив для последующего сравнения
 end        
 
 
 
 
                                    # проверка подключения новых собеседников                               
def newContacts
    system(" lsof +D ~/.purple/logs |grep pidgin | cat > RabFileNew.txt")       # определяем какой процесс и
                                                                                                            # какой файл открыты и записываем вывод 
                                                                                                            # в новый файл RabFileNew.txt
                # сравнение старого и нового списков рабочих процессов
    if File.size("RabFile.txt") != File.size( "RabFileNew.txt") then            # если не совподают то..
        if File.size("RabFile.txt") < File.size( "RabFileNew.txt") then     # если старый файл < нового, то..
            ` echo "новый контакт активен"|RHVoice|aplay`        # озвучиваем, что "активен новый контакт"
            else `echo "контакты не активны" |RHVoice|aplay`       # иначе озвучиваем, что "контакты не активны"
        end
        File.delete("RabFile.txt")                          # удаляем старый (рабочий) файл процессов
        File.rename("RabFileNew.txt" , "RabFile.txt")               # помечаем новый файл как старый (рабочий)
        newAdress                                                                                   # обновляем список адресов читаемых файлов
    end
end 
 
                                    # собственно программа.
                                                
newAdress                                               # опрос активных контактов и составления списка адресов
 
loop do                                                 # бесконечный цикл
    if  $kString > 0 then                                   # если в файле строк больше, чем 0 (не пустой) , то ..
        for nString in 0..($kString-1) do                       # перебираем номера строк файла адресов
        
            line = `tail  -n  1 $(cat adres#{ nString }.txt)`                   # читаем  последнюю(новую) строку файла с 
                                                                                                        # адресом № nString
            # puts line                                 # вывод строки. для отладки
            if $vvod[ nString ] != line  then                       # если старая строка файла не равна только что прочтённой то..
                goOzvuchka(line , nString)                  # озвучиваем новую строку
            end 
 
        end     
        
    end
    sleep 0.5                                   # пауза полминуты. что бы не грелся проц
    period = Time.now                           # сравниваем время со счётчиком
    if period - time > 10 then                      # если прошло > 10 секунд, то..
    time = Time.now                             # сбрасываем счётчик времени
    newContacts                             # проверяем новые активные контакты
    end
#   puts time                                   # смотрим когда запустили(сбросили) счётчик времени. для отладки
#   puts period                                 # и для сравнения настоящее время. для отладки
#   puts " активных контактов : ", $kString                    # смотрим количество активных контактов. для отладки
end

#!/usr/bin/ruby
 
# From the ruby-dbus project
require 'dbus'
# System Bus is for OS events, shared for all users
system_bus = DBus::SystemBus.instance
# Session Bus is per desktop instance
session_bus = DBus::SessionBus.instance
 
 # Get the pidgin service
 pidgin_dbus = session_bus.service("im.pidgin.purple.PurpleService")
 # Get the object from this service
 pidgin = pidgin_dbus.object("/im/pidgin/purple/PurpleObject")
 pidgin.introspect
 pidgin.default_iface = "im.pidgin.purple.PurpleInterface" 
 
pidgin.on_signal("ReceivedImMsg")  { |account, sender, message, conversation, flags|
    `echo #{[message]} |RHVoice|aplay`
}
    
pidgin.on_signal("SendingImMsg")  { |account, reciever, message|
    `echo #{[message]} |RHVoice|aplay`
}
            
        `echo "Добр+о пожаловать в Pigin"|RHVoice|aplay`
        m = DBus::Main.new
        m << session_bus
        m.run

#!/usr/bin/env ruby
 
require 'dbus'
 
# Session Bus is per desktop instance
session_bus = DBus::SessionBus.instance
 
# Get the pidgin service
pidgin_dbus = session_bus.service('im.pidgin.purple.PurpleService')
# Get the object from this service
pidgin = pidgin_dbus.object('/im/pidgin/purple/PurpleObject')
pidgin.introspect
pidgin.default_iface = 'im.pidgin.purple.PurpleInterface'
 
rhvoice = proc do |_account, _sender, message, _conversation, _flags|
  `echo #{[message]} |RHVoice|aplay`
end
 
pidgin.on_signal 'ReceivedImMsg', &rhvoice
pidgin.on_signal 'SendingImMsg', &rhvoice
 
rhvoice[nil, nil, 'Добро пожаловать в Pidgin']
m = DBus::Main.new
m << session_bus
m.run

# ...
 
module RHVoice
  module PidginDBus
    module SignalHandler
      class << self
        def to_proc
          def self.to_proc
            @proc
          end
 
          puts 'aah, that crazy ruby\'s object-oriented model %-]'
          @proc = proc do |account, recepient, message, conversation, flags|
            RHVoice.say message
          end
        end
      end
    end
  end
 
  def self.say(msg)
    puts msg
  end
end
 
pidgin.on_signal 'ReceivedImMsg', &RHVoice::PidginDBus::SignalHandler
pidgin.on_signal 'SendingImMsg', &RHVoice::PidginDBus::SignalHandler
 
RHVoice.say 'Добро пожаловать в Pidgin'
m = DBus::Main.new
m << session_bus
m.run