HELP US, HELP YOU!

Bot Depot Forum Index -> Code Help

Author	Message
JTW God Like Joined: 07 Mar 2004 Posts: 581 Location: Maidstone votes: 4	Posted: Wed Feb 13, 2008 1:58 pm    Post subject: Arrays Hi, Im having trouble emptying an array. What I need to do is send message which are stored in the array. Code:    sub emptyMessageArray{       for ($i=0;$i<50;$i++){          my($to, $mirror,$message) = split(/ - /,  $messages[$i], 3);          $bot->{msn}->{$mirror}->call($to,"$message");          delete $messages[$i];       }    } Basicly right now the whole sub is not working, it does not clear the array or send the messages. What am I doing wrong? Thanks JT _________________ "Help us, Help you" - BotDepot
Back to top
Cer Upgraded Agent Joined: 03 Feb 2004 Posts: 3776 Location: Michigan votes: 4	Posted: Wed Feb 13, 2008 3:36 pm    Post subject: You need to shift() or pop() the array; delete is for hashes. push = add item to end of array pop = remove item from end unshift = add item to beginning shift = remove item from beginning _________________ Current Site (2008) http://www.cuvou.com/
Back to top
JTW God Like Joined: 07 Mar 2004 Posts: 581 Location: Maidstone votes: 4	Posted: Wed Feb 13, 2008 4:26 pm    Post subject: Thanks, I was also wondering if there was a way to find out what the highest 'number' of an array is, Not the highest content but how many individual bits of data are stored in it. Beacuse what I am trying to do is get the attached sub to run through the array, send the message and then delete the data it has just sent. I am not sure if that make sense or not, but I am finding it kind of hard to explain. Code:    sub emptyMessageArray{    my $i=@array;       while ($i ne 0){          my($to, $mirror,$message) = split(/-/,  $messages[$i], 3);          print"To: $to\nMirror: $mirror\nMessage: $message\n\n\n";          $bot->{msn}->{$mirror}->call($to,"$message");          pop(@messages);       }    } Since the code I posted in my original post I have changed the delete to pop, and modified the loop but I still cant get it to work. Thanks _________________ "Help us, Help you" - BotDepot
Back to top
Cer Upgraded Agent Joined: 03 Feb 2004 Posts: 3776 Location: Michigan votes: 4	Posted: Thu Feb 14, 2008 11:22 pm    Post subject: Yeah, scalar(@array) will return the number of elements in the array (starting at 1, so $array [ scalar(@array) - 1 ] is the last item in the array. Why are you using a for $i loop anyway? Perl has a foreach loop (i.e. foreach my $item (@array) {}), but in this case you could just do a... Code: while (scalar(@array) > 0) {    my $next = shift(@array);    my ($to,$mirror,$msg) = split(/-/, $next, 3);    ... } _________________ Current Site (2008) http://www.cuvou.com/
Back to top
spx2 Newbie Joined: 07 Jan 2008 Posts: 2	Posted: Tue Jul 08, 2008 6:49 pm    Post subject: Re: Arrays JTW wrote: Code:    sub emptyMessageArray{       for ($i=0;$i<50;$i++){          my($to, $mirror,$message) = split(/ - /,  $messages[$i], 3);          $bot->{msn}->{$mirror}->call($to,"$message");          delete $messages[$i];       }    } you can modify htis source code to this Code:    sub emptyMessageArray{       for ($i=0;$i<50;$i++){          my($to, $mirror,$message) = split(/ - /,  $messages[$i], 3);          $bot->{msn}->{$mirror}->call($to,"$message");       }               @messages=();    } but as Cer mentioned ,the approach with the shift operator is better and more natural when using Perl
Back to top
Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First

	Bot Depot Forum Index -> Code Help	All times are GMT
Page 1 of 1