#!/usr/bin/perl use strict; use warnings; print "Content-type:text/html\n\n"; my $parval="stat1_val"; if($parval eq "stat1_val"){ print "Statistics of RUNS"; my $var ; my $buffer=$ENV{'QUERY_STRING'}; my($path1,$filename)=split('#',$buffer); print "$path1 and $filename\n"; print "
"; for my $path ( grep -d, ) { my($first,$second,$third,$directory,$batches)=split('/',$path); my($ss,$ss1)=split('batch',$path); print "
  • $ss1 $batches
    • "; if($path eq $path1) { my @var=`ls -f $path1| grep '.txt\$'`; my $i = 0; foreach $var(@var){ $var=~s/\s+//g; print qq{
  • $i++ $var
    • }; } } } print "
    "; } #### foreach my $path (glob("/var/www/directory/*")) { next unless(-d $path); # produce output for each directory if($path eq $path1) { foreach my $file (glob("$path/*.txt")) { # produce output for each file } } }