start putty -ssh -P 2210908A 1009.248090.50904.20001WyhgbvdserMipopA -l root -pw uyyn.npkju1A #### #!/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