I know that this is not a exact perl question, but maybe someone has a
perl solution.
You have the passwd file such this:
test:x:593:501::/usr/local/etc5/test:/bin/bash
and you have to convert it to:
---
John W. Krahn wrote:
Emilio Casbas wrote:
Hi,
Hello,
I have this script;
---
use File::Find;
$File::Find::no_chdir = 0;
find(\&wanted, @ARGV);
sub wanted {
print "$File::Find::name\n" if(-d);
}
---
I want to do a directory search for a giv
Hi,
I have this script;
---
use File::Find;
$File::Find::no_chdir = 0;
find(\&wanted, @ARGV);
sub wanted {
print "$File::Find::name\n" if(-d);
}
---
I want to do a directory search for a given ARG, but no a recursive
search, for example
this script show this;
[EMAIL
