Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: Split string to arrayref? SQL::Abstract

by ww (Bishop)
on Nov 02, 2011 at 12:02 UTC ( #935366=note: print w/ replies, xml ) Need Help??


in reply to Split string to arrayref? SQL::Abstract

moritz is briefer (and direct creation of the ref is likely better) but this is tut form:

#!/usr/bin/perl use Modern::Perl; # 935351 # how can I split a string (on bar character) into an array ref for us +e in SQL::Abstract? my $string = 'foo|bar|baz|bat'; my @array = split /\|/, $string; # 1 my $arrayref = \@array; # 2 spititout($arrayref); # 3 sub spititout { my $array_ref_in_sub = shift; # 4 my @workingarray = @$array_ref_in_sub; # 5 for $_(@workingarray) { # 6 say $_; } }

Notes:

  1. break the string on VBARs and stuff the resulting elements to @array
  2. create a ref to @array
  3. call the sub
  4. get the ref to the original $array back from the arrayref passed to the sub
  5. dereference; put the data referenced (loosely, "pointed to") in the reference into an array with which we can work
  6. demonstrate that $array_ref_in_sub has what OP wants for SQL::Abstract


Comment on Re: Split string to arrayref? SQL::Abstract
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://935366]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2014-07-13 07:34 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (248 votes), past polls