Boa tarde,<br><br>eu tenho vários arquivos no modelo:<br><br>blablabla.txt.300606<br>blobloblo.300705<br>bliblibli.org.txt.140504<br>blublublu.14062004<br><br>Como eu edito todos os arquivos para tirar essa data do final?<br>
<br>Eu tentei isso:<br><br>@arquivo = `ls`;<br>foreach $o (@arquivo) {<br>&nbsp;&nbsp;&nbsp; if ( $o =~ /[0-9]{6,8}/ ) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; @arquivo2 = split(/\./, $o);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $date = pop @arquivo2;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $string = &quot;&quot;;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; foreach $u (@arquivo2) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $string .= &quot;.$u&quot;;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;&nbsp;&nbsp; }<br>}<br><br>Mas obviamente isso remonta o arquivo dessa forma: .blablabla.txt<br>Com um &quot;.&quot; a mais no inicio.<br>
<br>Eu sou beeem novo em Perl :)<br><br>[ ]&#39;s<br><br>Leonardo.<br>