Pois é Pessoal..<br><br>testei como vcs falaram e nao aparece nenhuma msg de erro e nao lista nada<br><br>mudei um pouquinho o script<br><br>#!/usr/bin/perl<br>use warnings;<br>use diagnostics;<br>use File::Listing qw(parse_dir);<br><br>for (parse_dir(`ls -l`))<br>{<br>print "teste";<br>($arquivo) = @$_;<br><br>print "ARQUIVO $arquivo\n";<br>}<br><br><br><br><br><br><br><br><b><i>Igor Sutton &lt;igor.sutton@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,<br><br>Você não aprendeu ainda? Se você quer ajuda, você tem que mostrar o erro. Não somos adivinhos, se é que você ainda não percebeu.<br><br>Mas primeiro de tudo, como você não aprendeu:<br><br>use strict;<br>use warnings; <br>use diagnostics;<br><br><br><div><span class="gmail_quote">On 6/8/06, <b class="gmail_sendername">Patty Silva</b> &lt;<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>&gt;
 wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> <div>Pesssoal.. troquei de maquina e o File::Listing nao funciona..:( ja instalei pelo modo CPAN e nada<br>meu script de teste:<br><br>#!/usr/bin/perl<br><br>use File::Listing qw(parse_dir);<br><br>for (parse_dir(`ls -l`)) <br>{<br>print "teste";<br>&nbsp;&nbsp;&nbsp;&nbsp; ($name, $type, $size, $mtime, $mode) = @$_;<br>&nbsp;&nbsp;&nbsp;&nbsp; next if $type ne 'f'; # plain file<br>}<br><br><br>O que pode estar acontecendo?? o pior eh que meus scripts estao usando esse parse_dir ... <br><br><br>Obrigada<br></div><div><span class="ad"><div> __________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br><a href="http://br.messenger.yahoo.com/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> http://br.messenger.yahoo.com/</a> 
 </div></span></div><br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank"> http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br><br></blockquote></div><br><br clear="all"><br>-- <br>Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/</a> _______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm</blockquote><br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/