when i save data in an array and th

[kavi98]

when i save data in an array and then try to access it element wise ,what loop condition do i give to stop it.

#!/usr/local/bin/perl

sysopen SOURCE,openfil,2 or die "can't open file SOURCE ";
@_ = <SOURCE>;

while (<SOURCE>) {
foreach $line (@_) {
@element[$x] = split (/\t/,@_);

print &quot;@element[$x] \n&quot;;
$x++;
}
}
close SOURCE;
foreach $elem (@element) {
if ($elem =~m/,/) {
@elements = split (/,/,$elem);
}
}

 

[luciddream]

i think you can use last;

add that to the end of your if statement.

 

[tanderso]

my $loop = 1;
while ($loop)
{
  # do stuff in the loop which would
  # set $loop=0 when you want to stop
}

I also think break() or return() might work
Sincerely,

Tom Anderson
CEO, Order amid Chaos, Inc.

http://www.oac-design.com