I have no new ideas. Hence i cannibalize my older nodes:
#!/usr/bin/env perl use strict; use warnings; use Path::Iterator::Rule; use Path::Tiny; use Data::Dump; use feature qw (say); my $rule = Path::Iterator::Rule->new; my $level = 1; my $suffix = q(*.csv); $rule->file->name($suffix); $rule->file->max_depth($level); my $dir = q(.); my $next = $rule->iter($dir); my ( @data, @files ); while ( defined( my $file = $next->() ) ) { my $data = path($file)->slurp_utf8; push @data, $data; push @files, $file; } dd \@data; dd \@files; __END__
Slurping is object of disputes. Consider it's use as an option.
Regards, Karl
«The Crux of the Biscuit is the Apostrophe»
Furthermore I consider that Donald Trump must be impeached as soon as possible
In reply to Re: Capturing and then opening multiple files
by karlgoethebier
in thread Capturing and then opening multiple files
by Peter Keystrokes
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |