<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 &#39;;&#39;.<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&nbsp; 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>&lt;code&gt;<br>#!/usr/bin/perl -w<br>$dirname = &quot;diretorio&quot;;<br>
opendir ( DIR, $dirname ) || die &quot;Erro ao abrir $dirname\n&quot;;<br>while( ($filename = readdir(DIR))){<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next if ( ($filename eq &quot;.&quot;) || ($filename eq &quot;..&quot;) );<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open( DATA, $dirname.&#39;/&#39;.$filename ) or die $!;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while(&lt;DATA&gt;){<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if ($_ =~ /remetente\@<a href="http://temetente.com/){">temetente.com/){</a><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; print &quot;$filename\n&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; close(DATA);<br>
}<br>closedir(DIR);<br>&lt;/code&gt;<br></div>