Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl script to merge cells in column1 which has same strings, for all sheets in a excel workbook
Top Forums Programming Perl script to merge cells in column1 which has same strings, for all sheets in a excel workbook Post 302952603 by Jack_Bruce on Thursday 20th of August 2015 09:54:00 AM
Old 08-20-2015
Below is the complete code which works great converting all csv files(sorted based on column1) in dest directory to a single xls with multiple tabs.

Code:
use warnings;
use Spreadsheet::WriteExcel;
my $dest = '/home/dest';
my $workbook = Spreadsheet::WriteExcel->new("test.csv");
chdir $dest or die "no such directory: $!";
if ( -d $dest ) {
    opendir my $dh, $dest or die "can't open directory: $!";
	my @files = sort { $a cmp $b } readdir($dh);
	while ( my $file = shift @files ) {
        chomp $file;
        next if $file eq '.' or $file eq '..';
        my $sheetname = `basename $file | cut -d. -f1`;
        my $wrksheet = $workbook->add_worksheet($sheetname);
        open(my $in, '<', $file) or die "Could not open file: $!";
        my $rowCount = 0;
		my $colCount = 0;
		$colCount = 0;
        while(<$in>)
        {
			my @elements = split(',',$_);
			foreach my $el(@elements)
            {
				$wrksheet->write($rowCount,$colCount,$el);
				$colCount++;
            }
            $colCount = 0;
            $rowCount++;
        }
    }
}

---------- Post updated at 07:24 PM ---------- Previous update was at 07:23 PM ----------

The xls file(with multiple rows on each sheet) which i am generating with above code will look like below:

Code:
abs-pq        tfr23 	 12345
abs-pq	tfr24	         12843
abs-pq       tfr24           12435
abs-pqrst	rts09           19923|23141
abs-pqrst	rts10	         23456
tbs-pqrst	tfr25	          21938|22143
tbs-pqrst	zzz0z	          2414|5213|4306

column1 duplicates needs to be removed and merged as one cell.
column2 duplicates needs to be removed based on merged column1 only.( first three lines of below )
column3 should be unchanged.

need output like below(ignore ___ just filled gaps to show difference) :
Code:
abs-pq  tfr23 12345
______tfr24 12843
___________12435
abs-pqrst  rts09 19923|23141
_________rts10	23456
tbs-pqrst	tfr25	21938|22143
_________zzz0z	2414|5213|4306

any help in extending my original code to meet the requirement is greatly appreciated.
Last edited by Corona688; 08-20-2015 at 12:13 PM..
 

10 More Discussions You Might Find Interesting

1. Programming

creating more than 2 excel sheets in C

Hi, I have a question about using C to write excel file. There is a way to write into a sheet into a file excel, like this: FILE * File; pMyFile = fopen("test.xls", "w+"); fprintf(File, "\n\n"); /* go to the row 2 of the column A*/ fprintf(File, "%s", "Hi pippo!"); /* write... (7 Replies)
Discussion started by: manceryder
7 Replies

2. Shell Programming and Scripting

Multiple excel work sheets through UNIX

Hi, There is this requirement to create multiple work sheets in an MS Excel file through UNIX. We normally can create one work sheet in unix by either tab or comma delimiting and appending .xls or .csv to the file name, but can we create multiple work sheets. Regards, Puspendu (1 Reply)
Discussion started by: puspendu
1 Replies

3. Shell Programming and Scripting

How to format excel sheets in UNIX??

Hi, I have generated an excel sheet using a shell script. i have converted the output text file to an excel and got the desired output. However, in a particular column in the excel the values of the numbers start with 0. e.g. 078393343, 00342442, etc. But, in the resulting excel I get as... (2 Replies)
Discussion started by: Vijay06
2 Replies

4. Shell Programming and Scripting

PERL: Split Excel Workbook to Indiv Excel files

Hi, I am trying to find a way to read an excel work book with multiple worksheets. And write each worksheet into a new excel file using perl. My environment is Unix. For example: I have an excel workbook TEST.xls and it has Sheet1, Sheet2, Sheet3 worksheets. I would like to create... (2 Replies)
Discussion started by: sandeep78
2 Replies

5. Shell Programming and Scripting

Sending SQL Queries output to different Excel sheets

Hi, I need your help in sedning sql queries output to different excel sheets. My requirement is like this: Query1: Select name from table1 where status = 'Complete' Query2: Select name from table1 where status = 'Failed' Query3: Select name from table1 where status = 'Ignored' ... (4 Replies)
Discussion started by: parvathi_rd
4 Replies

6. Shell Programming and Scripting

modify Existing MS excel workbook in perl

Hi I need to modify an excel file in perl and for which I installed perl in Linux 1. Open a existing excel file 2. delete an unwanted Sheet called "summary" 3. and i want to insert some data into range of cells ( B1:B11) 4. Remove unwanted value called "Sum" repeated in the... (1 Reply)
Discussion started by: luke_devon
1 Replies

7. Shell Programming and Scripting

Merge two cells in excel via UNIX?

Hi UNIX Gods! Is it possible to merge two cells in .csv file using unix commands? Imagine that this is my present csv file opened via excel: Gate Reports| | fatal alerts | 200 | is is possible to make it look like this using unix? Gate Reports | fatal... (1 Reply)
Discussion started by: 4dirk1
1 Replies

8. Shell Programming and Scripting

Perl script to Merge contents of 2 different excel files in a single excel file

All, I have an excel sheet Excel1.xls that has some entries. I have one more excel sheet Excel2.xls that has entries only in those cells which are blank in Excel1.xls These may be in different workbooks. They are totally independent made by 2 different users. I have placed them in a... (1 Reply)
Discussion started by: Anamika08
1 Replies

9. Shell Programming and Scripting

Write two csv files into one excel with multiple sheets

I have requirement to write two CSV files to one single excel with multiple sheets. Data present in the two files should sit in excel as different sheets. How can we achieve this using shell script? 1.csv 2. csv 1,2,3,4 5,6,7,8 XXXXX YYYYY Res.excel 1.csv data... (1 Reply)
Discussion started by: duplicate
1 Replies

10. Shell Programming and Scripting

Help with Perl script for identifying dupes in column1

Dear all, I have a large dictionary database which has the following structure source word=target word e.g. book=livre Since the database is very large in spite of all the care taken, it so happens that at times the source word is repeated e.g. book=livre book=tome Since I want to... (7 Replies)
Discussion started by: gimley
7 Replies

LEARN ABOUT DEBIAN

git-merge-index

GIT-MERGE-INDEX(1)						    Git Manual							GIT-MERGE-INDEX(1)

NAME

       git-merge-index - Run a merge for files needing merging

SYNOPSIS

       git merge-index [-o] [-q] <merge-program> (-a | [--] <file>*)

DESCRIPTION

       This looks up the <file>(s) in the index and, if there are any merge entries, passes the SHA1 hash for those files as arguments 1, 2, 3
       (empty argument if no file), and <file> as argument 4. File modes for the three files are passed as arguments 5, 6 and 7.

OPTIONS

       --
	   Do not interpret any more arguments as options.

       -a
	   Run merge against all files in the index that need merging.

       -o
	   Instead of stopping at the first failed merge, do all of them in one shot - continue with merging even when previous merges returned
	   errors, and only return the error code after all the merges.

       -q
	   Do not complain about a failed merge program (a merge program failure usually indicates conflicts during the merge). This is for
	   porcelains which might want to emit custom messages.

       If git merge-index is called with multiple <file>s (or -a) then it processes them in turn only stopping if merge returns a non-zero exit
       code.

       Typically this is run with a script calling git's imitation of the merge command from the RCS package.

       A sample script called git merge-one-file is included in the distribution.

       ALERT ALERT ALERT! The git "merge object order" is different from the RCS merge program merge object order. In the above ordering, the
       original is first. But the argument order to the 3-way merge program merge is to have the original in the middle. Don't ask me why.

       Examples:

	   torvalds@ppc970:~/merge-test> git merge-index cat MM
	   This is MM from the original tree.			 # original
	   This is modified MM in the branch A. 		 # merge1
	   This is modified MM in the branch B. 		 # merge2
	   This is modified MM in the branch B. 		 # current contents

       or

	   torvalds@ppc970:~/merge-test> git merge-index cat AA MM
	   cat: : No such file or directory
	   This is added AA in the branch A.
	   This is added AA in the branch B.
	   This is added AA in the branch B.
	   fatal: merge program failed

       where the latter example shows how git merge-index will stop trying to merge once anything has returned an error (i.e., cat returned an
       error for the AA file, because it didn't exist in the original, and thus git merge-index didn't even try to merge the MM thing).

GIT

       Part of the git(1) suite

Git 1.7.10.4							    11/24/2012							GIT-MERGE-INDEX(1)
All times are GMT -4. The time now is 12:10 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy