use File::Basename;

$path = $ARGV[0];

my @files = glob('*.dr');

#    open(OUT, "json.txt");
#    print OUT "\n"

#print catfile($path,"json.dr");

open(DRLIST,">json.dr") || die "file.txt 文件无法打开, $!";

$first = 1;

print DRLIST "[\n";

foreach my $file (@files){
  print "$file";
  if(not $file eq "json.dr")
  {
    open(DR, $file) or die "file.txt 文件无法打开, $!";

    if ( $first == 1)
    {
      print "first line\n";
      $first = 0;
    }
    else
    {
      print DRLIST "\n,\n";
      print "not first line";
    }  
   
    while(<DR>){
      print "$_";
      print DRLIST "$_";
    }
    print basename($file), "\n";
  }
}

print DRLIST "\n]\n";
close(DRLIST) || die "无法关闭文件";