LOG :: procmail. Extensão Perl para Reading Procmail LogFiles
Baixe Agora

LOG :: procmail. Classificação e resumo

LOG :: procmail. Tag

visualizador Módulo Perl. procmail. Histórico leitor de log toras procmail

LOG :: procmail. Descrição

Extensão Perl para Reading Procmail LogFiles LOG :: O PROCMail é um módulo Perl para Reading Procmail LogFiles.log :: Procmailog :: Procmail Lê Procmail (1) LogFiles e retorna os resumos um por um. $ Log = Log :: Procmail-> Novo (@files); Construtor para o leitor de log de procmail. Retorna uma referência a um objeto Log :: Procmail. O construtor aceita uma lista de arquivos como parâmetro. Isso permite que você leia registros de vários arquivos em uma linha: $ log = log :: procmail-> NOVO ("$ Env {Home} /. Procmail / Log.2" ", $ Env {Home} /. Procmail / Log. .1 "", $ Env {Home} /. Procmail / Log ",); Quando $ log atinge o final do arquivo "log", ele não fecha o arquivo. Assim, depois que a Procmail processa alguns e-mails recebidos, a próxima chamada para o próximo () retornará os novos registros. $ REC = $ log-> Próximo Retornar um log :: Procmail :: Resumo Objeto que representa uma entrada no arquivo de log. Retorne indef se não houver registro no arquivo. Quando o objeto LOG :: PROCMail atinge o final de um arquivo, e este arquivo não é a última da pilha, ela fecha o arquivo atual e abre o próximo. Quando atinge o final do último arquivo, o arquivo não está fechado. Na próxima vez, o método record é chamado, ele verificará novamente no caso de novos resumos serem anexados. Procmail (1) log parece o seguinte: de karen644552@btinternet.com sexta fev 820:37:242002 Assunto: Volatilidade do mercado de ações batendo em você? (18 @ 2) Folder: / var / spool / mail / book 2840 Algumas mensagens informativas podem ser colocadas pelo procmail (1) no arquivo de log. Se o atributo de erros for verdadeiro, essas linhas serão retornadas uma de cada vez. Com erros habilitados, você precisa verificar isso de próxima () realmente retorna um log :: Procmail :: objeto abstrato. Aqui está um exemplo: $ log-> erros (1); # Buscar dados enquanto ($ rec = $ log-> next) {# Se for uma linha de erro se (! Ref $ rec) {# Este não é um log, mas uma mensagem informativa # fazer algo com isso em seguida; } # Processamento de log normal} $ log-> push ($ file ); Pressione um ou mais arquivos em cima da lista de arquivos de log para examinar. Quando LOG :: O Procmail fica sem resumos para retornar (ou seja, atinge o final do arquivo), ele abre transparentemente o próximo arquivo (se houver um) e continua retornando novos resumos. $ Log-> erros () ; Defina ou obtenha o sinalizador de erro. Se definido, quando o próximo () método devolver a string encontrada no arquivo de log, em vez de ignorá-lo. Tenha cuidado: é uma string simples, não um log :: Procmail :: objeto abstrato. O padrão é retornar nenhum erro. $ Fh = $ log-> fh () retorna o arquivo handandle atualmente aberto, a partir do qual a próxima chamada para o próximo () tentará ler um registro. $ SELECT = $ LOG-> Selecionar () Voltar Um objeto IO :: Selecionar objeto que assiste ao arquivo FileHandle atualmente aberto. Você não deveria usar add () ou remover () no objeto IO retornado :: Selecionar. Aviso adicional para MSWIN32, NetWare, DOS, VMS, RISCOS e BEOOS: Nesses sistemas, selecione () retorna Undef. (Verifique o ext / io / t / io_sel.t nas fontes de Perl para obter detalhes. Dica: Procure a mensagem 4-Arg Select só é válida em soquetes.) Log :: Procmail :: RESTREZAÇÃO :: Procmail :: Resumo é um classe que mantém a informação abstrata. Como o resumo segure de, data, assunto, pasta e informações de tamanho, tudo isso pode ser acessado e modificado através do () (), data (), assunto (), pasta () e tamanho () métodos.log :: Procmail: : Next () Retorna um log :: Procmail :: Abstract Object.log :: Procmail :: Abstract Acessores O log :: Procmail :: Resumo Acessórios de objeto são nomeados de (), data (), assunto (), pasta () e tamanho (). Eles retornam as informações relevantes quando chamadas sem argumentos e a colocam em seu primeiro argumento de outra forma. # contagem de email recebido por pasta enquanto ($ rec = $ log-> next) {$ pasta {$ rec-> pasta} ++} o acessador de origem () retorna o nome do arquivo de log ou a representação de string da alça, Se um arquivo handhandle foi dado. $ rec-> YMD () retorna a data no formulário yyyymmmddhhmmss onde cada campo é o que você acha que é. Este método é somente leitura.exampleshere é um exemplo PROCMail Biff-Like Script, cortesia de Ian Langworth: # / USR / bin / perl -w Use rigoroso; usar log :: procmail; Use logfile constante => "$ Env {home} /procmail.log"; Use constante valid_folders => ; meu formato $ = "\% 8s: \% - 30.30 /% s \ n"; meu log de $ log = log :: procmail-> novo (logfile); $ log-> erros (1); Enquanto ($ log-> select-> can_read) {my $ rec = $ log-> em seguida; # erro? avisar "$ rec \ n", a seguir, a menos que Ref $ rec; # ignore caixas de correio Nós não nos importamos com a próxima, a menos que grep {$ _ EQ $ rec-> pasta} @ {valid_folders ()}; # Imprimir dados printf $ formato, de => $ rec-> De; Printf $ Formato, Assunto => $ Rec-> Assunto, $ Rec-> pasta; } Sinopse Use LOG :: Procmail; Meu log de $ = novo log :: procmail 'procmail.log'; # Loop em cada resumo enquanto (meu $ rec = $ log-> next) {# Faça algo com $ rec-> pasta, $ rec-> tamanho, etc.} requisitos: · Perl.

LOG :: procmail. Software Relacionado