Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Shawn H Corey
On 11-04-20 06:55 AM, Agnello George wrote: Thanks a lot , but was just wondering if i could ignore it in the File::Find function Yup. my @all = qw( /classes/mail.class.php classes/dealer.class.php classes/memcache.class.php classes/phpmailer classes/phpmailer/.htaccess classes/phpmailer/cla

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
On Wed, Apr 20, 2011 at 4:34 PM, Shlomi Fish wrote: > Hi Agnello, > > On Wednesday 20 Apr 2011 13:59:24 Agnello George wrote: >> On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: >> > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: >> > >> > You can remove the ./: >> > >> > [CODE] >> >

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Shlomi Fish
Hi Agnello, On Wednesday 20 Apr 2011 13:59:24 Agnello George wrote: > On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: > > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: > > > > You can remove the ./: > > > > [CODE] > > foreach my $filename (@all) > > { > >my $fn_wo_prefix =

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: >> Hi >> >> I have script where i need to  go in to a directory and put all files >> in to a array >> >> if ( chdir ("$dirtemp") ) { >>  find (sub { push @all , $File::Find::name}, "."); >

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Agnello George
On Wed, Apr 20, 2011 at 4:14 PM, Shlomi Fish wrote: > On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: >> Hi >> >> I have script where i need to  go in to a directory and put all files >> in to a array >> >> if ( chdir ("$dirtemp") ) { >>  find (sub { push @all , $File::Find::name}, "."); >

Re: unable to remove the ./ when using File::Find::name

2011-04-20 Thread Shlomi Fish
On Wednesday 20 Apr 2011 12:50:45 Agnello George wrote: > Hi > > I have script where i need to go in to a directory and put all files > in to a array > > if ( chdir ("$dirtemp") ) { > find (sub { push @all , $File::Find::name}, "."); > > my %selectfiles = qw( /classes/mail.class.php > classes