Shell Programming and Scripting

my $i;
my $j;
for($i=1;$i<=5;$i++)
{
for($j=$i;$j<5;$j++)
{
print " ";
}
print "$i\n";
}


But the output i need is
1
12
123
1234
12345

Help me please

my $i;
my $j;
for($i=1;$i<=5;$i++)
{
for($j=$i;$j<5;$j++)
{
print " ";
}
print "$i\n";
}


But the output i need is
12345
1234
123
12
1


Help me please

Seems like a homework question.

Code:

bash-3.2$ perl -e '{ for($i=1; $i<=5; $i++){ print substr("12345",0,$i),"\n"; } }'
1
12
123
1234
12345
bash-3.2$

You should be able to work out the reverse pyramid from here.

HTH,
tyler_durden

______________________________________________
"Only after disaster can we be resurrected."

the output required is
12345
1234
123
12
1


i myself tried but the output iam getting is


1
2
3
4
5

Well, then you haven't tried hard enough !
Instead of me providing a cooked 'n ready-to-eat script, I'd suggest you look at the earlier script closely and understand how it works.

(a) understand how to write a for loop with a decrementing iterator.
(b) check the syntax of the substr command and the arguments/variations therein. See what happens when you change the values of the arguments.(Perldoc page - perl - perldoc.perl.org).

Once things become clearer, you should be able to come up with the solution yourself.

As Larry Wall says - "If you can't figure it out, you didn't want to know anyway."

HTH,
tyler_durden

I agree with tyler_durden, looks like school work, and I agree that more study of the code and perl in general is required. But this person has at least shown some effort which most people posting school work on this forum do not, so I am willing to post some code. Note I have used perlish loops instead of C style loops, but the same logic could be applied to the ugly C style loops:

Code:

my $end = 5;
for my $j (1..$end){
   for my $i (1..$end--){
      print $i;
   }
   print "\n";
}