Eu sei que vc eh uma pessoa Boa :-) porem um pouco sem paciencia com os menos favorecidos :) huahuaha<br>Eu entendo.. fico meio bravinha.. masssssssssss entendo!! e desculpe alguma ignorancia!! :)<br><br>Entao.. a maquina q estou testando eh 64 bits achu que eh poir isso que nao esta rodando...<br><br>A solucao que vc me deu eu uso em outros casos.. eu entro em um diretorio porem quero listar somente arquivos que comecem com filesys* entao.. u usei o parsedir que achei + facil!!<br>:)<br><br><br>Obrigada<br><br><br><br><b><i>Igor Sutton <igor.sutton@gmail.com></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Patty,<br><br>Eu não sou tão mau assim, os que me conhecem pode confirmá-lo. Vamos começar do início, que é: qual é o seu problema? Se você quer listar o conteúdo de um diretório, existem maneiras mais fáceis de fazê-lo, como por exemplo: <br><br><code><br>use strict;<br>use
warnings;<br><br>my $basedir = "/var/www";<br><br>opendir my $dir, $basedir or die "Problemas ao abrir diretório: $!";<br>while (defined(my $file = readdir($dir))) { <br> print "Arquivo: $file\n";<br>}<br></code><br><br>Outra opção que você tem é utilizar glob (assumindo que o trecho modificado seja o de depois da definição de variável $basedir:<br><br><code><br> foreach my $file (glob("${basedir}/*")) {<br> print "Arquivo: $file\n";<br>}<br></code><br><br>Porém esta utilização é desaconselhada.<br><br>Eu preferiria uma solução dessas pois é independente do sistema operacional. <br><br><div><span class="gmail_quote">[snip]</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><span class="e" id="q_10bb3e59186b9066_1"> <blockquote style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"><div><blockquote
class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> <div><span><div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>#!/usr/bin/perl<br><br>use File::Listing qw(parse_dir);<br><br>for (parse_dir(`ls -l`)) <br>{<br>print "teste";<br> ($name, $type, $size, $mtime, $mode) = @$_;<br> next if $type ne 'f'; # plain file <br>}<br><br></div></blockquote></div></span></div></blockquote></div></blockquote></span></div> </blockquote></div>[snip]<br><br>-- <br>Igor Sutton Lopes<br> _______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm</blockquote><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger
<br>http://br.messenger.yahoo.com/