concat_sql_files.p6

use v6;

=begin pod
=TITLE Get list of files matching a pattern
=AUTHOR stmuk
You want a list of filenames matching a pattern
=end pod

sub MAIN(:$dir = ".") {
    my @perl-files = dir $dir, test => /\.pl/;

    #  returns a list of IO::Path objects
    my $big_pl = "$dir/big.pl";
    for @perl-files.sort -> $io {
	my $contents = $io.basename.IO.slurp;
	spurt $big_pl, $contents, :append;
        say $io.basename;
        say $contents;
    }
}

# vim: expandtab shiftwidth=4 ft=perl6