Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Re: subroutines + returning more than 1 value

by OM_Zen (Scribe)
on Mar 02, 2003 at 17:07 UTC ( #239866=note: print w/replies, xml ) Need Help??


in reply to Re: subroutines + returning more than 1 value
in thread subroutines + returning more than 1 value

Hi ,

The function get_pairs has to be written this way . The previous node has to be ignored as the usage of map is not so much appropriate , though we get the solution as required by that
use Data::Dumper; my @seg1 = ("one","two","three"); my @seg2 = ("four","five"); #create references my $seg1 = \@seg1; my $seg2 = \@seg2; my $seg3 = \@seg3; my $seg4 = \@seg4; my $seg5 = \@seg5; my @pairs = get_pairs($seg1,$seg2,$seg3,$seg4,$seg5); print Dumper \@pairs; sub get_pairs { my @seg_pairs = @_; my @pairs = map { local $arr_frst_scalar = $_; map { ["$arr_frst_scalar->[$_-1] $arr_frst_scala +r->[$_]"] ; }1..scalar(@$_) }@seg_pairs; return @pairs; } __END__ $VAR1 = [ [ 'one two' ], [ 'two three' ], [ 'three' ], [ 'four five' ], [ 'five' ] ];


Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://239866]
help
Chatterbox?
[LanX]: not my code ...
[choroba]: yeah, sounds like one of the strings is not flagged as UTF-8
[choroba]: which usually means its input wasn't handled correctly
[Corion]: choroba: Yeah, I think that would be the good solution
[LanX]: I suspect the first string which comes from the DB ...
[LanX]: ... but this part is already in production for a year now
[Corion]: LanX: The "good" approach here would be to use the appropriate DBI parameters to make the driver decode strings properly. But that will have a ripple-on effect of messing up all the places where manual decoding happens ;)
[LanX]: which means albeit being broken UTF8 it'll be handled correctly
[LanX]: and the problem only occurs since we changed the emails to base64
[LanX]: my main problem will be to cnvince my colleagues that our productive code is broken oO ... so in the end I will just make a workaround :-/

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (11)
As of 2017-01-16 13:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you watch meteor showers?




    Results (150 votes). Check out past polls.