<div dir="ltr">Monges,<br><br>Uma conta de e-mail recebe um arquivo que o script
abaixo vai ler e inserir numa base de dados. Pode existir vários
arquivos, porém, alguns desses e-mails quem envia é sempre o mesmo remetente.
Existe um padrão para o conteúdo desses e-mails, cada coluna separada por ';'.<br>
<br>O cabeçalho do e-mail contém o e-mail do remetente e o no conteúdo
tem uma coluna que seu conteúdo é iniciado por um valor padrão (ex:
4223xxxxx). Até aqui o script verifica o remetente, se for verdade, imprime o nome da arquivo.<br><br>Estou pensando em verificar o remetente antes de entrar no while, se o retorno for verdadeiro faço a leitura do arquivo fazendo outras verificações:<br>
<br>- se as linhas iniciam com 4223 <br>- se as linhas estão com oito colunas<br><br>Por fim monto as querys e insiro no banco.<br><br>Sugestões?<br><br><code><br>#!/usr/bin/perl -w<br>$dirname = "diretorio";<br>
opendir ( DIR, $dirname ) || die "Erro ao abrir $dirname\n";<br>while( ($filename = readdir(DIR))){<br> next if ( ($filename eq ".") || ($filename eq "..") );<br> open( DATA, $dirname.'/'.$filename ) or die $!;<br>
while(<DATA>){<br> if ($_ =~ /remetente\@<a href="http://temetente.com/){">temetente.com/){</a><br> print "$filename\n";<br> }<br> }<br> close(DATA);<br>
}<br>closedir(DIR);<br></code><br></div>