Esta ocorrendo pois você está colocando o "." antes
de TODOS os valores de $u.<br /><br />Como voc&ecirc; disse que
est&aacute; come&ccedil;ando a aprender Perl, saiba que existem meios mais
f&aacute;ceis e r&aacute;pidos de fazer o que voc&ecirc; quer.<br /><br
/>Dentro do loop &quot;foreach $o (@arquivo) {&quot;<br />basta voc&ecirc;
usar o mecanismo de substitui&ccedil;&atilde;o das express&otilde;es
regulares:<br /><br />$o =~ s/\.[0-9]{6,8}//;<br /><br />De resto te
recomendo que voc&ecirc; leia a vasta documenta&ccedil;&atilde;o que
est&aacute; a sua disposi&ccedil;&atilde;o, para come&ccedil;ar, execute
na linha de comando:<br />perldoc perl<br />perldoc&nbsp; perlrequick<br
/><br />Uma &uacute;ltima observa&ccedil;&atilde;o, pesquise outras
maneiras de se carregar o array @arquivo. O Perl tem fun&ccedil;&atilde;o
para isto.<br /><br />Espero ter-lhe ajudado.<br />Luiz.<br /><br />&gt;
Boa tarde,<br />&gt; <br />&gt; eu tenho v&aacute;rios arquivos no
modelo:<br />&gt; <br />&gt; blablabla.txt.300606<br />&gt;
blobloblo.300705<br />&gt; bliblibli.org.txt.140504<br />&gt;
blublublu.14062004<br />&gt; <br />&gt; Como eu edito todos os arquivos
para tirar essa data do final?<br />&gt; <br />&gt; Eu tentei isso:<br
/>&gt; <br />&gt; @arquivo = `ls`;<br />&gt; foreach $o (@arquivo) {<br
/>&gt;     if ( $o =~ /[0-9]{6,8}/ ) {<br />&gt;         @arquivo2 =
split(/\./, $o);<br />&gt;         $date = pop @arquivo2;<br />&gt; <br
/>&gt;         $string = &quot;&quot;;<br />&gt;         foreach $u
(@arquivo2) {<br />&gt;             $string .= &quot;.$u&quot;;<br />&gt; 
       }<br />&gt;     }<br />&gt; }<br />&gt; <br />&gt; Mas obviamente
isso remonta o arquivo dessa forma: .blablabla.txt<br />&gt; Com um
&quot;.&quot; a mais no inicio.<br />&gt; <br />&gt; Eu sou beeem novo em
Perl :)<br />&gt; <br />&gt; [ ]'s<br />&gt; <br />&gt; Leonardo.<br
/>&gt; _______________________________________________<br />&gt;
Cascavel-pm mailing list<br />&gt; Cascavel-pm@pm.org<br />&gt;
http://mail.pm.org/mailman/listinfo/cascavel-pm