<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body><P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Primeiramente,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman"> <o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Muito obrigado pelas respostas,<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Desculpa não ter respondido antes, só consigo mexer com web na madrugada e ontem estava frio pra Caceta e fui dormir..rsrs<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman"> <o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">“Sávio, por favor, se isto é trabalho de escola, eu gostaria de<SPAN style="mso-spacerun: yes"> </SPAN><BR>saber. Não me incomoda nada ajudar pessoas que não sabem perl, mesmo<SPAN style="mso-spacerun: yes"> </SPAN><BR>que seja para trabalho de escola. Mas não vou deixar ninguém sair<SPAN style="mso-spacerun: yes"> </SPAN><BR>daqui se achando espertinho por que fez os "gurus" de Perl da cidade<SPAN style="mso-spacerun: yes"> </SPAN><BR>de São Paulo escreverem o trabalho da faculdade dele.”<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman"> <o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=ES-TRAD style="FONT-SIZE: 10pt; COLOR: #333333; mso-ansi-language: ES-TRAD"><FONT face="Times New Roman">Luis Motta Campos,<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN lang=ES-TRAD style="FONT-SIZE: 10pt; COLOR: #333333; mso-ansi-language: ES-TRAD"><FONT face="Times New Roman"> <o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333">Esclarecendo,</SPAN><SPAN lang=ES-TRAD style="FONT-SIZE: 10pt; mso-ansi-language: ES-TRAD; mso-bidi-font-size: 12.0pt"><o:p></o:p></SPAN></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT color=#000000><FONT face="Times New Roman">Trabalho com Telecomunicações para uma empresa de engenharia em São Paulo.<o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT color=#000000><FONT face="Times New Roman">Meus conhecimentos em programação vêm do colegial (15 anos atrás), estou um pouco enferrujado mas como achei que isso era como andar de bike...rs aqui estol....<o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT color=#000000><FONT face="Times New Roman">Desculpa não ser elegante mas para aprender perl comprei um livro “guia de referencia “de 100 paginas com os comando..rsrs<BR>sobre a facuuuu...estou pensando em Oceanografia “Minha paixão pena não render Dindin para pagar as contas..rsrs”<o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT color=#000000><FONT face="Times New Roman">Tenho 3 projetos de web.<BR>Para empresa um controle gerencial dos clientes e seus trabalhos na web.<o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT color=#000000><FONT face="Times New Roman">Um site para escola de mergulho que trabalho com ”Fotografia / filmagem”.<o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT face="Times New Roman" color=#000000>Um site para um amigo. (</FONT><A href="http://www.mdesign.art.br/"><U><FONT face="Times New Roman" color=#800080>www.mdesign.art.br</FONT></U></A><FONT color=#000000><FONT face="Times New Roman">) onde preciso dessa rotina.<o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; mso-bidi-font-size: 12.0pt"><FONT color=#000000><FONT face="Times New Roman"> <o:p></o:p></FONT></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">“Especifique mais oque quer e como está desenvolvendo seu projeto...<BR>Se possivel mande o codigo em que está com problemas para ficar<BR>melhor de ser analisado... =)”<BR><SPAN style="mso-spacerun: yes"> </SPAN><BR>Daniel Vinciguerra –<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman"> <o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">O site esta praticamente pronto, mas como meu amigo não manja nada de web.<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Gostaria de criar uma forma bem simpels de atualizar as imagens do site.<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Assim ele fará um FTP das img para uma pasta “/IMG” e com isso eu monto o portifolio da pagina dele.<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">BCP001.JPG<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Cliente <SPAN style="mso-spacerun: yes"> </SPAN>BCP<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">Numero da img <SPAN style="mso-spacerun: yes"> </SPAN>001<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman">hoje esta funcionando com uma Variável dentro do Flash que contem os nomes das img. assim que concluir esse código em perl pretendo substituir esse trecho da rotina.<o:p></o:p></FONT></SPAN></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-SIZE: 10pt; COLOR: #333333"><FONT face="Times New Roman"> <o:p></o:p></FONT></SPAN></P>
<SPAN style="FONT-SIZE: 10pt; COLOR: #333333; FONT-FAMILY: 'Times New Roman'; mso-fareast-font-family: 'Times New Roman'; mso-ansi-language: PT-BR; mso-fareast-language: PT-BR; mso-bidi-language: AR-SA">Novamente muito obrigado pelas respostas, e desculpa encher tanta lingüiça..</SPAN><BR><BR>Sávio B. da Silva<BR><BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR> <BR>
<HR id=stopSpelling>
<BR>
> From: luismottacampos@yahoo.co.uk<BR>> Date: Tue, 8 May 2007 09:54:08 +0200<BR>> To: saopaulo-pm@mail.pm.org<BR>> Subject: Re: [SP-pm] S.O.S<BR>> <BR>> On May 8, 2007, at 8:33 AM, Daniel Vinciguerra wrote:<BR>> > my @teste = system("dir *.jpg");<BR>> ><BR>> > print("@teste ");<BR>> ><BR>> > A grosso modo é um exemplo de como poderia ser feito...<BR>> > já que não entendi sua pergunta...<BR>> ><BR>> > Especifique mais oque quer e como está desenvolvendo seu projeto...<BR>> > Se possivel mande o codigo em que está com problemas para ficar<BR>> > melhor de ser analisado... =)<BR>> <BR>> <BR>> Daniel, de todas as soluções possíveis para o problema, você <BR>> escolheu a menos elegante, menos portável, a mais complicada.<BR>> <BR>> Para usar system(), você precisa garantir que o sistema <BR>> operacional do Sávio é conhecido (e, no seu caso, Janelous - argh!). <BR>> Depois, sempre que você chama um programa com system(), precisa <BR>> lembrar que o programa pode ter problemas para executar e vai setar <BR>> um monte de códigos de erro - que precisam ser tratados, ou vão matar <BR>> um programador louco. Se você não fizer estas coisas, está pedindo <BR>> encrenca, e o Perl vai se vingar de você. ;-)<BR>> <BR>> Sávio, por favor, se isto é trabalho de escola, eu gostaria de <BR>> saber. Não me incomoda nada ajudar pessoas que não sabem perl, mesmo <BR>> que seja para trabalho de escola. Mas não vou deixar ninguém sair <BR>> daqui se achando espertinho por que fez os "gurus" de Perl da cidade <BR>> de São Paulo escreverem o trabalho da faculdade dele.<BR>> <BR>> Soluções possíveis, elegantes e simples para o seu problema:<BR>> <BR>> 1. Use File::Find: (o script abaixo foi gerado pelo find2perl, <BR>> fácil e simples de usar).<BR>> <BR>> #! /usr/bin/perl -w<BR>> eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'<BR>> if 0; #$running_under_some_shell<BR>> <BR>> use strict;<BR>> use File::Find ();<BR>> <BR>> # for the convenience of &wanted calls, including -eval statements:<BR>> use vars qw/*name *dir *prune/;<BR>> *name = *File::Find::name;<BR>> *dir = *File::Find::dir;<BR>> *prune = *File::Find::prune;<BR>> <BR>> sub wanted {<BR>> my ($dev,$ino,$mode,$nlink,$uid,$gid);<BR>> <BR>> (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&<BR>> -f _ &&<BR>> /^.*\.JPG\z/s<BR>> && print("$name\n");<BR>> }<BR>> <BR>> # Traverse desired filesystems<BR>> File::Find::find({wanted => \&wanted}, '.');<BR>> exit;<BR>> __END__<BR>> <BR>> 2. Use globs:<BR>> <BR>> my @jpeg_files = glob( '*.JPG' );<BR>> <BR>> Isto não é recursivo, você precisa fazer outras vezes para listar <BR>> os demais diretórios.<BR>> <BR>> 3. Use opendir e readdir para ler os diretórios, e encontrar os <BR>> arquivos que você quer. Isto também não é recursivo, e tem a <BR>> desvantagem de precisar de tratamento de erros (diretórios podem dar <BR>> problemas ao serem abertos e fechados, é preciso que o programa saiba <BR>> o que fazer em caso de problemas. E isto também não lê sub diretórios <BR>> recursivamente.<BR>> <BR>> Leia sobre o opendir e readding nas man-pages do Perl:<BR>> <BR>> perldoc -f opendir<BR>> <BR>> perldoc -f readdir<BR>> <BR>> Espero que isso ajude.<BR>> Putamplexos!<BR>> --<BR>> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,<BR>> Perl fanatic evangelist, and amateur {cook, photographer}<BR>> <BR>> <BR>> _______________________________________________<BR>> SaoPaulo-pm mailing list<BR>> SaoPaulo-pm@pm.org<BR>> http://mail.pm.org/mailman/listinfo/saopaulo-pm<BR><BR><br /><hr />Procure em qualquer página Web com protecção eficaz. Obtenha já o Windows Live Toolbar GRATUITO! <a href='http://www.toolbar.live.com' target='_new'>Experimente já!</a></body>
</html>