Print Question

[tar565]

I am having one of those monday mornings!!!! Can some please tell me why the following 2 lines print the string with the array position at the begining of each line.

eg


0Hello
1I am well
2How are you
.
.
.

I know it is simple but i cant see it.
$FileString doesnt contain the index at all.

my @Lines = split(/\n/,$FileString);
print "$Lines[$i]\n", $i++ while ($i < $LineNum);

 

[Rieekan]

The reason it's printing the array id is because you're telling the system to print it in the statement print "$Lines[$i]\n", $i++. The part in bold is where the print is occurring.

- Rieekan

 

[ishnid]

Just to elaborate on what Rieekan posted: The print function takes a list as its argument and prints each element of the list. In the code you posted, the first element of the list is "$Lines[$i]\n" and the second is $i++, which is why both are getting printed. Either of these will do what you're looking for:

print "$Lines[$i]\n" && $i++ while ($i < $LineNum);

# or ...

print "$Lines[$i++]\n" while ($i < $LineNum);

 

[rharsh]

To make your bit of code work, you can modify it to read something like:

print("$Lines[$i]\n"), $i++ while ($i < $LineNum);

However, you basically used a while loop like a for/foreach loop. This does the same thing:

foreach ($i = 0; $i < $LineNum; $i++) {
    print("$Lines[$i]\n");
}

Or, to shorten that up a bit (and use a structure similar to your original) and print every element in @Lines:

print "$_\n" foreach (@Lines)

 

[tar565]

Thanks I am in another world today.