I want to delete elements from an array and get what number that is. Here is
an example/
[code]
use strict;
use warnings;
my @arry =
(1,2,3,4,0,9,8,0,8,6,5,0,9,0,8,0,0,0,7,6,5,4,3,5,76,0,7,0,2,0,7,54,43,0);
my $x = 0;
while($x < scalar(@arry))
{
if(length($arry[$x]) < 0)
{
delete($arry[$x]);
}
$x++;
}
print "@arry\n";
[/code]
Here is the problem, I want to delete the 0's from the array and know what
index number that was.
Thank you,
-T
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
