perl addition operator. query.

[gerry.brennan]

Hi is there a way to do the following in perl.


for ($i = 0; $i < $EndNo; $i++)
{
print("$i+1\n");
}

inline addition.

 

[A. Sinan Unur]

(e-mail address removed) wrote in @i40g2000cwc.googlegroups.com:

Hi is there a way to do the following in perl.


for ($i = 0; $i < $EndNo; $i++)
{
print("$i+1\n");

print $i + 1, "\n";

or

UGLY: print "@{[ $i + 1 ]}\n";

}

for my $i ( 1 .. $EndNo ) {
print "$i\n";
}

Sinan
--
A. Sinan Unur <[email protected]>
(remove .invalid and reverse each component for email address)

comp.lang.perl.misc guidelines on the WWW:
http://augustmail.com/~tadmc/clpmisc/clpmisc_guidelines.html

 

[Brian Wakem]

Hi is there a way to do the following in perl.


for ($i = 0; $i < $EndNo; $i++)
{
print("$i+1\n");
}

inline addition.

printf "%d\n",$i+1;

 

[Mintcake]

Hi is there a way to do the following in perl.


for ($i = 0; $i < $EndNo; $i++)
{
print("$i+1\n");
}

inline addition.

Any expression may be embedded in a string (although as already pointed
out it can be UGLY)

Since arrays can be interpolated into double quoted strings (e.g.
"foo@bar") you just interpolate an anonymous array containing a single
element.

e.g.

my $var = 123;
print ">>> @{[$var]} <<<\n";

gives:

 

[Anno Siegel]

Hi is there a way to do the following in perl.


for ($i = 0; $i < $EndNo; $i++)
{
print("$i+1\n"); print "$_\n" for $i + 1;
}

inline addition.

Anno

 

[Charles DeRykus]

(e-mail address removed) wrote in @i40g2000cwc.googlegroups.com:
...
or

UGLY: print "@{[ $i + 1 ]}\n";

another UGLY one: print "${ \($i+1) }\n";

 

[Bart Lateur]

(e-mail address removed) wrote in @i40g2000cwc.googlegroups.com:
...
or

UGLY: print "@{[ $i + 1 ]}\n";

another UGLY one: print "${ \($i+1) }\n";

Don't forget about the module Interpolation:

<http://search.cpan.org/perldoc?Interpolation>


Documented synopsis:

use Interpolation E => 'eval';
print "$E{$i+1}\n";

%E is/must be a global variable.