2 use 5.010;

     2 use 5.010;

     3 use strict;

     3 use strict;

     4 use warnings;

     4 use warnings;

     5 use Carp;

     5 use Carp;

     6 use File::Basename;

     6 use File::Basename;

     7 

     9 

     8 sub read_file {

    10 sub read_file {

     9     my ($file, $basedir) = @_;

    11     my ($file, $basedir) = @_;

    10     open(my $fh, '<', $file)

    12     open(my $fh, '<', $file)

    11       or croak "Can't open $file: $!\n";

    13       or croak "Can't open $file: $!\n";

    17             read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file);

    19             read_file($_, $basedir) foreach (glob -d $file ? "$file/*" : $file);

    18             next;

    20             next;

    19         }

    21         }

    20         print;

    22         print;

    21     }

    23     }

    22 }

    25 }

    23 

    26 

    24 die "$0: Need file name (httpd.conf)\n"

    27 die "$0: Need file name (httpd.conf)\n"

    25   unless @ARGV;

    28   unless @ARGV;

    26 read_file($ARGV[0], dirname($ARGV[0]));

    29 read_file($ARGV[0], dirname($ARGV[0]));