Hello Folks;
I see an earlier post about sluggish code - I am not really sure what I am
doing, so I let me post my entire script here.
++
#!/usr/bin/perl
#use strict;
use DBI;
use XML::XPath;
use XML::XPath::XMLParser;
# Set the input dir where
On Mon, Jun 11, 2012 at 2:06 PM, GlenM wrote:
> Hello Folks;
>
> I see an earlier post about sluggish code - I am not really sure what I am
> doing, so I let me post my entire script here.
>
> ++
>
> #!/usr/bin/perl
>
> #use strict;
> use DBI;
> use
On Mon, Jun 11, 2012 at 9:36 PM, Ken Slater wrote:
> On Mon, Jun 11, 2012 at 2:06 PM, GlenM wrote:
>> Hello Folks;
>>
>> I see an earlier post about sluggish code - I am not really sure what I am
>> doing, so I let me post my entire script here.
>>
>>
Hi GlenM,
Please my comments below:
On Mon, Jun 11, 2012 at 7:06 PM, GlenM wrote:
> Hello Folks;
>
> I see an earlier post about sluggish code - I am not really sure what I am
> doing, so I let me post my entire script here.
>
> ++
>
> #!/usr/bin/
From: GlenM
> # Read them into an array
> my @files_in_dir = grep { /xml/ } readdir(DIR);
You want all files with lowercase "xml" anywhere the the name?
Really? I think you want
my @files_in_dir = grep { /\.xml$/i } readdir(DIR);
instead. That is files with extension .xml.
> closedir DIR;
>
