Perl split and add new line

Shell Programming and Scripting
1

Hi All,

I find the below code printing the output of a particular field in same line, which i want it to be printed on a new line.
---CODE START---

    foreach $defectRec (@outLs) {
      my($def_id,$status,$files_mod) = split(/,/, $defectRec);
      print "DEFECT ID: $def_id, Status: $status, Files Mod: $files_mod\r\n" if( defined ($debug) );

----CODE END----

OUTPUT when redirected to a CSV file prints as:
-----OUTPUT BEGIN------

DEFECT_ID Status Files_Modified
20222        Testing File1;File2;File3
20333        Testing File4;File6

-----OUTPUT END------

Am good with output but i want the column containing Files_Modified field to split as follows:

-----EXPECTED OUTPUT BEGIN------

DEFECT_ID Status Files_Modified
20222        Testing File1;
                           File2;
                           File3
20333        Testing File4;
                           File6

-----EXPECTED OUTPUT END------

As the output is redirected to a CSV file, please let me know how i can split values of Files_modified attribute to print in new line.

Thanks,
nmattam

2

Hi,
It's not the good part of perl code. the print line is execute only on debug mode and I expect output is:

DEFECT ID: 20222, Status: Testing, Files Mod: File1;File2;File3

Regards.

3

HI disedorgue,

Thanks for your reply. Is there a way i can redirect my output to a csv file as:

DEFECT ID Status: Files Mod
20222 Testing File1
File2;
File3

Thanks,
nmattam

4

Hi,
If I respect your code (change in red):

$ cat cc3cc.pl
@outLs=<>; # <= add line just for example (no need in your code)
    foreach $defectRec (@outLs) {
      my($def_id,$status,$files_mod) = split(/,/, $defectRec);
      print "DEFECT ID: $def_id, Status: $status, Files Mod: $files_mod\r\n" if( defined ($debug) );
      $_= $files_mod;
      $_=~ s/;/;\r\n  /g;
      print "$def_id $status $_";
} # <== idem first line

input example:

$ cat cc2cc.vv
DEFECT_ID,Status,Files_Modified
20222,Testing,File1;File2;File3
20333,Testing,File4;File6

and then:

$ perl cc3cc.pl cc2cc.vv
DEFECT_ID Status Files_Modified
20222 Testing File1;
  File2;
  File3
20333 Testing File4;
  File6

Regards.