Re^3: dbf_dump to apply to multiple files in a directory


Your skill will accomplish what the force of many cannot
	PerlMonks

Re^3: dbf_dump to apply to multiple files in a directory

by AppleFritter (Vicar)

on Aug 03, 2014 at 20:56 UTC ( [id://1096078]=note: print w/replies, xml )

Need Help??

in reply to Re^2: dbf_dump to apply to multiple files in a directory
in thread dbf_dump to apply to multiple files in a directory

You're welcome!

Here's another tip: although you can of course use opendir and grep to get your list of files, Perl also has a built-in function called glob for filename expansions. Using that, the code that my anonymous brother posted in Re: dbf_dump to apply to multiple files in a directory simplifies to:

#!/usr/bin/env perl

use warnings;
use strict;
use IPC::System::Simple qw/system/; # recommended but optional

foreach my $file (glob "*.dbf") {
    system(qq{dbf_dump --fs "," "$file" > "$file.csv"}) == 0
        or die "system() failed (\$?=$?)";
}
[download]

I've also replaced $_ with $file here -- $_ is not otherwise used and never assigned any value --, and put quotes around the CSV file's name to avoid problems with filenames that contain spaces.

Comment on Re^3: dbf_dump to apply to multiple files in a directory Download Code

Replies are listed 'Best First'.

Re^4: dbf_dump to apply to multiple files in a directory
by Anonymous Monk on Aug 03, 2014 at 21:25 UTC

I think glob should always come with a disclaimer to read its docs (including File::Glob) because it has a lot of functionality under the hood. In this case it may work fine, but for example it won't list files that begin with a dot. And once people start writing glob($pattern_I_got_somewhere) things can get real fun with wildcards and such.

Whenever I don't want glob's features getting in the way of having full control of which files get listed, I prefer readdir or File::Find.

P.S. Thanks for catching the $_, I missed that above.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom