Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: Need help with removing values from arrays

by AnomalousMonk (Archbishop)
on Aug 15, 2017 at 05:05 UTC ( [id://1197399]=note: print w/replies, xml ) Need Help??


in reply to Need help with removing values from arrays

Can you please provide us with a Short, Self-Contained, Correct Example? Otherwise, we're left trying to reverse engineer an application from the rather vague description in your OP. Few monks will be willing to invest much time in what seems likely to be a futile guessing game. Please help us to help you.


Give a man a fish:  <%-{-{-{-<

Replies are listed 'Best First'.
Re^2: Need help with removing values from arrays
by GrizzlyRizly (Novice) on Aug 15, 2017 at 05:48 UTC

    Hi, i have updated the information given, i hope it is enough but if you need anything more i can keep trying to add as much as i can.

      Okay, I had a few minutes, so I added all the mystatements and provided some initializers to get around the error messages.

      Your code still doesn't do anything:

      #!/usr/bin/perl use strict; use warnings; my $str = "1,2,3,4,5"; my @array = (); my ($ids, $attri) = split /,/, $str; print " \$ids: [$ids]\n"; print " \$attri: [$attri]\n"; splice (@array,$ids, 1); print " \@array:\n"; my $array_index = 0; foreach my $array_element (@array) { print " [$array_index]: [$array_element]\n"; } print "Okay, now what?\n"; sub refreshdisplay{ my $id=0; my $arraylist = ""; for($id=0;$id<=$#array;$id++){ if($id == 0){ $arraylist = "$array[0]"; } else{ $arraylist .= "$id,$array[$id]\n"; } } }

      Yields:

      S:\Steve\Dev\PerlMonks\P-2017-08-15@0704-combobox>perl combobox0b.pl $ids: [1] $attri: [2] splice() offset past end of array at combobox0b.pl line 12. @array: Okay, now what? S:\Steve\Dev\PerlMonks\P-2017-08-15@0704-combobox>

        > Okay, I had a few minutes, so I added all the my statements
        Not true, this post is one minute older than the last pointless one you made. adding all 4 mys must have really messed with your mind. What a saint, thanks for your amazing efforts so far.

      You have not given us a complete working example:

      S:\Steve\Dev\PerlMonks\P-2017-08-15@0704-combobox>perl combobox0a.pl Global symbol "$str" requires explicit package name at combobox0a.pl l +ine 5. Global symbol "@array" requires explicit package name at combobox0a.pl + line 6. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 9. Global symbol "$arraylist" requires explicit package name at combobox0 +a.pl line 10. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 11. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 11. Global symbol "@array" requires explicit package name at combobox0a.pl + line 11. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 11. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 12. Global symbol "$arraylist" requires explicit package name at combobox0 +a.pl line 13. Global symbol "@array" requires explicit package name at combobox0a.pl + line 13. Global symbol "$arraylist" requires explicit package name at combobox0 +a.pl line 16. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 16. Global symbol "@array" requires explicit package name at combobox0a.pl + line 16. Global symbol "$id" requires explicit package name at combobox0a.pl li +ne 16. Execution of combobox0a.pl aborted due to compilation errors. S:\Steve\Dev\PerlMonks\P-2017-08-15@0704-combobox>

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others cooling their heels in the Monastery: (None)
    As of 2024-04-19 00:10 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      No recent polls found