##
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
use Text::CSV;
use File::Basename;
my $base_dir = 'C:\Test'; # put in your base directory
my ($dirname,$filename,$line,$resultfile,@fp,$file);
my (@linecolumns,@dir_names,@file,@filenames);
find( \&wanted, $base_dir );
sub wanted {
return if $_ eq '.' or $_ eq '..';
if (-d) {
print " >>> dive into: $_\n" if -d;
$dirname = $_;
push(@dir_names, basename($_));
}
else {
#foreach($_){
readout_file($_); ## call subroutine readout_file
&write_output;## call subroutine to print std template in output file
print "Output file has been generated successfully.. \n";
#}
}
}
####
#sub function to write input file data into csv format
sub readout_file {
($filename) = @_;
open my $fh, '<', $filename or die "can't open file:$!";
while (<$fh>) {
chomp;
s/ /,/g; ## OR s/ /,/g; if you want
@linecolumns=split(',',$_);
$filename =~ s/.*\///;
$filename =~ s/\.[^.]+$//;
push(@filenames, $filename);
}
}
####
#sub function to write xml format in output file
sub write_output{
open ($resultfile, '>>', 'C:\Test\resultfile.dat') or die "Can't open file: $!";
print $resultfile '';
print $resultfile "\n\n";
print $resultfile "\n";
print $resultfile "\n";
print $resultfile "\n";
print $resultfile "\n";
print $resultfile "\n";
print $resultfile <
$filenames[0]
SSH
$linecolumns[5]
$linecolumns[4]
Default Settings
$linecolumns[9]
1000
750
750
750
False
False
10
EOF
;
print $resultfile " \n";
print $resultfile "\n";
#print "Output xml file has been generated successfully.. \n";
}
## ##
CCT023
SSH
1000.24008.50004.20CoioipreA
29921
Default Settings
olp.ikmj
1000
750
750
750
False
False
10
CCT023
SSH
10098.298748.509984.200901DukectreirecotA
278721A
Default Settings
Tuytt.nA
1000
750
750
750
False
False
10
CCT023
SSH
1009.248090.50904.20001WyhgbvdserMipopA
2210908A
Default Settings
uyyn.npkju1A
1000
750
750
750
False
False
10
####
CCT023
SSH
1000.24008.50004.20CoioipreA
29921
Default Settings
olp.ikmj
1000
750
750
750
False
False
10
RETEEYY
SSH
10098.298748.509984.200901DukectreirecotA
278721A
Default Settings
Tuytt.nA
1000
750
750
750
False
False
10
WMWMTTY
SSH
1009.248090.50904.20001WyhgbvdserMipopA
2210908A
Default Settings
uyyn.npkju1A
1000
750
750
750
False
False
10