Re: File::find with no_chdir

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 given ARG, but no

Re: File::find with no_chdir

On 18 Sep 2006 at 22:34, John W. Krahn wrote: I see. Thanx And this I guess: Ternary ``?:'' is the conditional operator, just as in C. It works much like an if-then-else. If the argument before the ? is true, the argument before the : is returned, otherwise the argument after the : is return

Re: File::find with no_chdir

Beginner wrote: > On 18 Sep 2006 at 15:05, John W. Krahn wrote: >> >>my $dir = '/tmp'; >> >>opendir my $dh, $dir or die "Cannot open '$dir' $!"; >> >>print "$dir\n", >> map !/\A\.\.?\z/ && -d "$dir/$_" ? "$dir/$_\n" : (), >> readdir $dh; > > That's looks nice John...but what is actually

XLS-files with Unicode?

Hi, Perl-world, Once time I tried to make XLS-file (in clean Linux machine, without ODBC, OLE...). Homework was fine, but I was need in Russian text (cp1251) in fields. How make I a russian text in xls-fields? Modules, functions, unicode, example...? Thanks for your Creativity -- To un

Re: File::find with no_chdir

On 18 Sep 2006 at 15:43, David Romano wrote: > Beginner wrote on Mon, Sep 18, 2006 at 03:24:08PM PDT: > > > print "$dir\n", > > > map !/\A\.\.?\z/ && -d "$dir/$_" ? "$dir/$_\n" : (), > > > readdir $dh; > > > > > > John > > > > That's looks nice John...but what is actually happening

Re: finding matches in multiple arrays

On Mon, 18 Sep 2006, Jeff Pang wrote: Yes, the FAQ answer is more efficient. Using Big O notation[1], the FAQ's solution is O(n) and your's is O(n**2) where is the FAQ?sorry I never knew it. You mean perldoc perlfaq? it has perlfaq1, perlfaq2...perlfaq9. If it is not what you asked, the

Re: File::find with no_chdir

Beginner wrote on Mon, Sep 18, 2006 at 03:24:08PM PDT: > On 18 Sep 2006 at 15:05, John W. Krahn wrote: > > opendir my $dh, $dir or die "Cannot open '$dir' $!"; > > > > print "$dir\n", > > map !/\A\.\.?\z/ && -d "$dir/$_" ? "$dir/$_\n" : (), > > readdir $dh; > > > > John > > That's lo

Re: File::find with no_chdir

On 18 Sep 2006 at 15:05, John W. Krahn wrote: > Emilio Casbas wrote: > > I have this script; > > > > --- > > use File::Find; > > > > $File::Find::no_chdir = 0; > > find(\&wanted, @ARGV); > > > > sub wanted { > >print "$File::Find::name\n" if(-d); > >} > > > > --- > > >

Re: File::find with no_chdir

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 given ARG, but no a rec

Re: transition to Perl developer

On Mon, 2006-09-18 at 12:38 -0700, Derek B. Smith wrote: > To the Gurus, > > I am in the process of making a transition over to a > Perl Developer. From a knowledge standpoint, is there > anything I should know or need to know. For example I > do not know OO that much. > What about any specifi

transition to Perl developer

To the Gurus, I am in the process of making a transition over to a Perl Developer. From a knowledge standpoint, is there anything I should know or need to know. For example I do not know OO that much. What about any specific modules that are useful? Any other advice? thank you derek ___

Re: File::find with no_chdir

Emilio Casbas am Montag, 18. September 2006 17:11: > Hi, Hi Emilio > 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

Re: File::find with no_chdir

On 9/18/06, Emilio Casbas <[EMAIL PROTECTED]> wrote: 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 recurs

File::find with no_chdir

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

Re: changing the group that files are created with

On 09/18/2006 02:06 AM, Ken Foskey wrote: I have a lot of files created by a (much too) complex script and the user I am running with has a default group of 'staff' but I want all files created to have grp which we create to ensure that only authorised people have access to a particular clients d

RE: Modules to extract calendar info from Exchange

Hi, I've looked at cpan, nothings coming up. What I need to do is just extract calendar information from MS Exchange. Sending SMS I've already completed that. Just hoping maybe there's some help out there. William -Original Message- From: D. Bolliger [mailto:[EMAIL PROTECTED] Sent: 15

Re: changing the group that files are created with

On 9/18/06, Ken Foskey <[EMAIL PROTECTED]> wrote: I have a lot of files created by a (much too) complex script and the user I am running with has a default group of 'staff' but I want all files created to have grp which we create to ensure that only authorised people have access to a particular

changing the group that files are created with

I have a lot of files created by a (much too) complex script and the user I am running with has a default group of 'staff' but I want all files created to have grp which we create to ensure that only authorised people have access to a particular clients data. I have a command in Linux that does t