perladdict has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, I am very happy to tell you that i got some work on perl,from the below code i can read the csv file, from this output
i need to generate the .doc file from each row of the CSV file. The standerd document template is below 
[DOCUMENT]
INPUT=
FORMAT=
DESCRIPTION=
RECDATE=
DELETEINPUT=NO
NODE_ID=1
VOLUME_ID=1


[CBNTFLDR]
CABINET=
FOLDER=

[USER_DEFINITIONS]
Freq:Daily Application:

[download]

Each line of the CSV will have 8 columns like Report Name,Report desciption,Actual filename,Report format,Report execution frequency,cabinet,folder and Apllication name.I have to parse each line of the CSV for obtaining the reportname,Report format,Report description,cabinet,folder and application name from the CSV file and need to create a .doc file for each row of CSV and save with teh report name as in the above .doc template.

Below is the code which i have obtained from this site to read the CSV file
use strict;
  use warnings;
  use Text::CSV_XS;

  my $file = "C:\\Users\\..\\Desktop\\reportlist.csv";
  open my $fh, "<", $file or die "$file: $!";

  my $csv = Text::CSV_XS->new ({
      binary    => 1, # Allow special character. Always set this
      auto_diag => 1, # Report irregularities immediately
      });
  while (my $row = $csv->getline ($fh)) {
      print "@$row\n";
      
      }
  close $fh;

[download]
After running the above code it displayes the o/p as below 

Report Name  Report Description Actual Filename Report Format  Report 
+Execution Frequency Cabinet Folder Application
GACCNTS MIS report  csv Monthly DBNLRP GACCOUNT IDMS
IDEALSCT IDEALIncomingCreditTransfers NVSEPAORT.yyyymmddnn.01 txt Mont
+hly DBNLNVRP IDEALSCT MINT
OVRSTPRJ  OVERSTAP Rejected Transactions SEPAORT.yyyymmddnn.01 txt Mon
+thly DBNLRP OVRSTPRJ RANSYS
NLACGLST AcceptGiroVolumeperAccount SEPAAGL.yyyymmdd.01 txt Monthly DB
+NLRP NLACGRVL MERVA
NLACGVLM AcceptGiroVolume SEPAAGV.yyyymmdd.01 txt Monthly DBNLRP NLACG
+RLS FMS
NVACGLST AcceptGiroVolumeperAccount NVSEPAAGL.yyyymmdd.01 txt Monthly 
+DBNLNVRP NVACGRVL FMSFIN
NVACGVLM AcceptGiroVolume NVSEPAAGV.yyyymmdd.01 txt Monthly DBNLNVRP N
+VACGRLS DBCORAL

[download]

I have to create the number of .doc file for each row of CSV data and need to save the each documnet as with first field as Report name.Monks please suggest me the way to accomplish this task,This will be an humble request .Monks thanks in advance.

Replies are listed 'Best First'.
Re: How to generate the .doc file for each row from a csv file
by hdb (Monsignor) on Feb 23, 2014 at 10:09 UTC

    There might be modules to build a fully blown template system, but in a crude fashion you could just do this kind of thing: 

    use strict;
use warnings;

my $row = [ "input", "format", "description", "recdate", "cabinet", "f
+older" ];

print <<"DOC";
[DOCUMENT]
INPUT=$$row[0]
FORMAT=$$row[1]
DESCRIPTION=$$row[2]
RECDATE=$$row[3]
DELETEINPUT=NO
NODE_ID=1
VOLUME_ID=1


[CBNTFLDR]
CABINET=$$row[4]
FOLDER=$$row[5]

[USER_DEFINITIONS]
Freq:Daily Application:
DOC
print "\n";

    [download]

    Of course, you would need to first open your .doc file with the correct name and add the file handle to the print statement.

[reply]
[d/l]
      Hi HDB, Thanks for the inputs, based on your input i have remodified the script for generating .doc files as below 
      #!/usr/bin/perl
$file = "C:\\Users\\xxx\\Desktop\\reportlist.csv";

open(FH,"$file") or die"$!\n";
@arr = <FH>;
$first = shift(@arr);
foreach $line(@arr) {

($reportname,$reportdesc,$actfl,$format,$freq,$cabinet,$folder,$appl) 
+= split(',',$line);
#print "$reportname,$reportdesc,$actfl,$format,$freq,$cabinet,$folder,
+$appl\n";
@files = "C:\\Users\\xxx\\Desktop\\$reportname.doc";
#print "@files\n";
foreach $doc(@files) {

  open(FH,'>'.$doc) or die"$!\n";
  print FH "\[DOCUMENT\]\n";
  print FH "INPUT=$reportname" ."\n";
  print FH "FORMAT=$format" . "\n";
  print FH "DESCRIPTION=$reportdesc" ."\n";
  print FH "RECDATE=  " ."\n";
  print FH "DELETEINPUT=NO" ."\n";
  print FH "NODE_ID=1" ."\n";
  print FH "VOLUME_ID=1" ."\n";
  print FH "    " ."\n";
   
  print FH "[CBNTFLDR]" ."\n";
  print FH "CABINET=$cabinet" . "\n";
  print FH "FOLDER=$folder" ."\n";
  print FH "   " ."\n";
  print FH "[USER_DEFINITIONS]" ."\n";
  print FH "Freq:Daily Application:$appl" ."\n";
  print FH "      " ."\n";
  }

 close(FH);
}

      [download]
      When i run the above code it is perfectly creating the .doc files for all the csv rows.
[reply]
[d/l]

        One comment: you have a single .doc file in for each row in your csv file, so you can assign the filename directly to $doc: 

        $doc = "C:\\Users\\xxx\\Desktop\\$reportname.doc";

        [download]

        without any need for a loop over @files.

[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom