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> if ( $o =~ /[0-9]{6,8}/ ) {<br> @arquivo2 = split(/\./, $o);<br> $date = pop @arquivo2;<br><br> $string = "";<br>
foreach $u (@arquivo2) {<br> $string .= ".$u";<br> }<br> }<br>}<br><br>Mas obviamente isso remonta o arquivo dessa forma: .blablabla.txt<br>Com um "." a mais no inicio.<br>
<br>Eu sou beeem novo em Perl :)<br><br>[ ]'s<br><br>Leonardo.<br>