Obrigada Nelson!!<br>Gosto de aprender como fazer de varias maneiras :) assim fico sabendo + dos comandos perl!! <br><br>Thanks<br><br><br><b><i>Nelson Ferraz &lt;nferraz@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Patty Silva wrote:<br>&gt; Pessoal.. consegui resolver meu problema..<br>&gt; minha variavel sempre vem com um B na frente + 4 numeros, quero <br>&gt; substituir o B por 2<br>&gt; fiz assim:<br>&gt; $id=~ /\w(\d\d\d\d)/;<br>&gt; $id="2"."$1";<br>&gt; <br>&gt; Teria como fazer de outra forma??<br><br>Gostei da forma como você postou a pergunta! :)<br><br>Aqui vai uma alternativa:<br><br>$id =~ s/B(\d\d\d\d)/2$1/;<br><br>&gt; E outra coisa.. tenho a variavel $data que vem nesse formato (yyyymmdd_hhmm)<br>&gt; preciso passar para o formato do MYSQL pois vou inserir no banco..<br>&gt; yyyy-mm-dd hh:mm<br>&gt; Por expressa regular ficaria assim:<br>&gt; $data=~
 /(\d\d\d\d)(\d\d)(\d\d)_(\d\d)(\d\d/);<br>&gt; $data="$1"."-"."$2"."-"."$3".""."$4".":"."$5";<br>&gt; <br>&gt; Teria como fazer de outra forma??<br><br>Dá para fazer assim:<br><br>$data =~ s/(\d\d\d\d)(\d\d)(\d\d)_(\d\d)(\d\d/)/$1-$2-$3 $4:$5/;<br><br>Veja também o módulo Date::Manip:<br><br>http://search.cpan.org/~sbeck/DateManip-5.44/Manip.pod<br><br>-- <br>Nelson Corrêa de Toledo Ferraz<br><br>Segula Technologies (www.segula.fr)<br>Free Software Foundation Associate Member #3203<br>Sociedade Perl do Brasil (www.perl.org.br)<br>Rede Livre de Compartilhamento de Cultura Digital<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></blockquote><br><p>
                <hr size=1> 
<a href="http://us.rd.yahoo.com/mail/br/tagline/mail/*http://br.info.mail.yahoo.com/">Abra sua conta no Yahoo! Mail</a> - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.