Printing the elements of array

viktor has asked for the wisdom of the Perl Monks concerning the following question:

I have an array(5,4,10). the total of these array would be 19 . I want to print in range like (1-5,6-9,10-19) I tried writing a script but i have just started programming so I don't know how to do it still I have written a code. Can some one help me out

#!/usr/bin/perl -w
use strict;
my @array=qw (5 4 10);
for(my $i=0;$i<$#array;$i++){
            my $first=$array[$i];
            my $b=$i+1;
            my $second=$array[$b];
            my $sum=$first+$second;
            print $first."-".$sum."\n";
            
        }
[download]

Comment on Printing the elements of array Download Code

Replies are listed 'Best First'.
Re: Printing the elements of array by toolic (Bishop) on Jan 16, 2012 at 17:39 UTC
`#!/usr/bin/perl -w use strict; my @array=qw (5 4 10); for(my $i=0;$i<$#array;$i++){ my $first=$ar_no[$i];` [download] The code you posted does not compile: `Global symbol "@ar_no" requires explicit package name at` [download] You can use diagnostics to get a more verbose explanation. You declared an array name "array", but you did not declare an array named "ar_no". Try changing ar_no to array.	[reply] [d/l] [select]
Re^2: Printing the elements of array by viktor (Acolyte) on Jan 16, 2012 at 17:44 UTC
sorry i just updated it	[reply]
Re: Printing the elements of array by Not_a_Number (Prior) on Jan 16, 2012 at 17:47 UTC
`use strict; use warnings; my @array = ( 5, 4, 10 ); my $start = 1; my $sum = 0; for my $num ( @array ) { $sum += $num; print "$start-$sum\n"; $start += $num; }` [download]	[reply] [d/l]
Re: Printing the elements of array by ansh batra (Friar) on Jan 16, 2012 at 17:49 UTC
`#!/usr/bin/perl -w use strict; my @array=qw (5 4 10); my $sum=0; my $str="("; foreach my $num(@array) { my $temp=$sum + 1; $sum=$sum+$num; $str=$str."$temp-$sum,"; } chop($str); $str=$str.")"; print "$str\n";` [download] output `(1-5,6-9,10-19)` [download]	[reply] [d/l] [select]
Re: Printing the elements of array by JavaFan (Canon) on Jan 16, 2012 at 21:15 UTC
Untested: `my $sum = 0; my $str = ""; foreach my $elem (@array) { $str .= ($sum + 1) . "-" . ($sum += $elem) . ","; } chop $str; print $str, "\n";` [download]	[reply] [d/l]