Skip Menu | will be shut down on March 1st, 2021.

This queue is for tickets about the Spreadsheet-ParseExcel-Simple CPAN distribution.

Report information
The Basics
Id: 16983
Status: new
Priority: 0/
Queue: Spreadsheet-ParseExcel-Simple

Owner: Nobody in particular
Requestors: lealvf [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Return-Path: <lealvf [...]>
X-Original-To: bug-Spreadsheet-ParseExcel-Simple [...]
Delivered-To: cpan-bug+spreadsheet-parseexcel-simple [...]
Received: from ( []) by (Postfix) with SMTP id B19884D801A for <bug-Spreadsheet-ParseExcel-Simple [...]>; Tue, 10 Jan 2006 00:05:02 -0500 (EST)
Received: (qmail 6276 invoked by alias); 10 Jan 2006 05:04:33 -0000
X-Spam-Status: No, hits=-2.6 required=8.0 tests=BAYES_00,DK_SIGNED,DK_VERIFIED,SPF_PASS
Received-SPF: pass ( domain of lealvf [...] designates as permitted sender)
Received: from (HELO ( by (qpsmtpd/0.28) with ESMTP; Mon, 09 Jan 2006 21:04:28 -0800
Received: by with SMTP id j2so3532466nzf for <bug-Spreadsheet-ParseExcel-Simple [...]>; Mon, 09 Jan 2006 21:04:25 -0800 (PST)
Domainkey-Signature: a=rsa-sha1; q=dns; c=nofws; s=beta;; h=received:from:to:subject:date:mime-version:content-type:content-transfer-encoding:x-mailer:thread-index:in-reply-to:x-mimeole:message-id; b=eXbQiTbsWcgi9akH2WNrclnXVnLvboIUNcViNO8mt+eg2CF5XYXDDswlBUxaIQn4a8cMCM91WjajxsPFM63SIHkLMF/gbeLj/iAQKUuY6XuS8yESDx6Hfx6Gnr21r+/7dNx/7LJk3aJ5ecpMdyZwSpHul5vmzE7HQz2YQuYTuQ4=
Received: by with SMTP id r45mr6449679nzi; Mon, 09 Jan 2006 21:04:24 -0800 (PST)
Received: from USVLEAL ( []) by with ESMTP id 18sm3152393nzo.2006.; Mon, 09 Jan 2006 21:04:24 -0800 (PST)
From: "Victor Leal" <lealvf [...]>
To: <bug-Spreadsheet-ParseExcel-Simple [...]>
Subject: Convert Excel to Text (Spreadsheet::ParseExcel::Simple;) Part 2
Date: Tue, 10 Jan 2006 00:04:24 -0500
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
X-Mailer: Microsoft Office Outlook, Build 11.0.6353
Thread-Index: AcYR2giDcZYMXVYOSh6WWMucyM6GRgDxxtcg
In-Reply-To: <rt-16920-50992.9.25611402354619 [...]>
X-Mimeole: Produced By Microsoft MimeOLE V6.00.2900.2527
Message-Id: <43c34058.7b2bde9f.4a64.7509 [...]>
X-RT-Original-Encoding: us-ascii
Content-Length: 2049
This is another question/maybe bug in regards to the following code seen later below. The code takes an excel spreadsheet and converts it to a PIPE delimited text file. This script will create a text file for a SPECIFIC Excel tab. I have an issue with SOME spreadsheets where I will specify a specific sheet to select but it will pick the sheet 3 tabs over to the one I specify. Any ideas on why on some Excel files it would select the sheet 3 tabs over? =====BEGIN PERL SCRIPT===== use Spreadsheet::ParseExcel::Simple; my ($p_src_file) = @ARGV[0]; my ($p_sheet) = @ARGV[1]; my ($p_target_file) = @ARGV[2]; $p_src_file =~ /(.*)\.xls$/i or die "Invalid filename: $p_src_file\a"; my $xls = Spreadsheet::ParseExcel::Simple->read($p_src_file) or die "Can't read $p_src_file: $!\a"; foreach my $sheet ($xls->sheets) { next unless $sheet->sheet->{Name} eq $p_sheet; print("The $p_target_file file has been created!\n"); open(TXT, ">$p_target_file.TXT"); print($sheet->sheet->{Name}); while ($sheet->has_data) { my @row = $sheet->next_row; foreach (@row) { if (/[,"]/) { s/"/""/g; s/^/"/; s/$/"/; } } print TXT join('|', @row), "\n"; } close TXT; } continue { #$index++; } =====END PERL===== Show quoted text
-----Original Message----- From: Tony Bowden via RT [] Sent: Thursday, January 05, 2006 4:26 AM To: Subject: Re: [cpan #16920] Convert Excel to Text (Spreadsheet::ParseExcel::Simple;) Full context and any attached attachments can be found at: <URL: > On Thu, Jan 05, 2006 at 01:01:17AM -0500, Victor Leal via RT wrote:
> For example, if I have a tab > called "employee" I would like to pass in a parameter value of > "employee" to my Perl script and it converts that excel file's tab to a > pipe delimited format. Any ideas on how I could accomplish this? > foreach my $sheet ($xls->sheets) {
next unless $sheet->sheet->{Name} eq $wanted; Tony

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to