Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re^2: Using Perl and WriteExcel to split data from one column to many others

by squarez (Initiate)
on Oct 03, 2012 at 01:20 UTC ( #996951=note: print w/replies, xml ) Need Help??


in reply to Re: Using Perl and WriteExcel to split data from one column to many others
in thread Using Perl and WriteExcel to split data from one column to many others

I apologize, I am using the Spreadsheet::WriteExcel module. As I mentioned to roboticus above, the problem is splitting the column data, not fetching and writing from an array. I need to take each entry from the data array, split up that string by "," delineation, then pass those values to the sequential columns. Think of that first column I am returning as a compressed view of a table all in one column.

Thank you for the help :)

  • Comment on Re^2: Using Perl and WriteExcel to split data from one column to many others

Replies are listed 'Best First'.
Re^3: Using Perl and WriteExcel to split data from one column to many others
by kcott (Chancellor) on Oct 03, 2012 at 02:47 UTC

    I think the confusion stems from (x,y,z,etc) which looks like an array; when, in fact, it's a string, i.e. '(x,y,z,etc)'.

    Assuming I've got that right, this piece of code shows how to split the data. I'm still not entirely sure what you mean by "There are also times when there is no data": I've added 3 additional tests with no data between commas, between parentheses and between single-quotes.

    #!/usr/bin/env perl use strict; use warnings; use Data::Dumper; my $res_re = qr{ \A [(] ( .* ) [)] \z }x; my @all_res = ( ['(x,y,z,etc)', 'maybe other stuff'], ['(x,y,z,etc,,abc,,,def)', 'maybe other stuff'], ['()', 'maybe other stuff'], ['', 'maybe other stuff'], ); for (@all_res) { my @res = @$_; print Dumper \@res; $res[0] = '()' unless $res[0]; my $res_wanted = [ split /,/ => ($res[0] =~ $res_re)[0] ]; $res_wanted = [ '' ] unless @$res_wanted; print Dumper $res_wanted; print '-' x 60, "\n"; }

    Here's the output:

    $ pm_split_res_for_excel.pl $VAR1 = [ '(x,y,z,etc)', 'maybe other stuff' ]; $VAR1 = [ 'x', 'y', 'z', 'etc' ]; ------------------------------------------------------------ $VAR1 = [ '(x,y,z,etc,,abc,,,def)', 'maybe other stuff' ]; $VAR1 = [ 'x', 'y', 'z', 'etc', '', 'abc', '', '', 'def' ]; ------------------------------------------------------------ $VAR1 = [ '()', 'maybe other stuff' ]; $VAR1 = [ '' ]; ------------------------------------------------------------ $VAR1 = [ '', 'maybe other stuff' ]; $VAR1 = [ '' ]; ------------------------------------------------------------

    -- Ken

      Thank you for all the help Ken, with your help I was able to find a solution. :)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://996951]
help
Chatterbox?
[choroba]: Related to the new release, anyone could explain this or this tester report?
[Discipulus]: hello crew! marto thanks for the message: but I how can I help? i'm testing cpan Padre atm problem with Client::Debug
[choroba]: I don't happen to have 5.10.0 nor 5.8.5 handy...
[Corion]: Hmm - I would say the 5.8.5 is a broken installation / corrupt tarball download, and the 5.10.0 is really weird, and maybe a bug in that version of Perl
[Corion]: I don't see how my $result = eval q{'abc' =~ ?b?}; could create a "Modification of read-only value" error
[marto]: Discipulus the issue that should be adressed is that the page needs to be updated to reflect modern perl on Windows
[Discipulus]: but is really necessary to support these ancient versions? from 5.14 onward is not enough?
[Discipulus]: yes marto I understood
[Corion]: Discipulus: I'm slowly migrating my code to require 5.8.x ;) Most of my code works on 5.6, but Filter::signatures requires 5.10 I think

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2018-06-25 08:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (126 votes). Check out past polls.

    Notices?