### Re: Is it possible to get the array with all the elements at the end of a loop?

by toolic (Bishop)
 on Oct 29, 2012 at 15:52 UTC ( #1001386=note: print w/replies, xml ) Need Help??

I think you want push:
```#!/usr/bin/perl
use warnings;
\$word = "ABCDEFGHIJKLMNO";
## Determining the number of 4-letter Fragments:
\$a         = length(\$word);
\$four      = 4;                # Line 5
\$frag_Num1 = \$a / \$four;
\$frag_Num  = int \$frag_Num1;
print "Total Fragments= \$frag_Num\n\n";
print "The 4-Letter Fragments are:\n\n";
\$frag = 0;

while ( \$word =~ /(.{4}?)/igs )    # Line 10
{
\$frag++;
\$b    = \$&;
\$pos  = \$-[0] + 1;
\$leng = length(\$b);
print "Fragment: \$&; Fragment Number: \$frag of length \$leng letter
+s Starting at position: \$pos\n";
print "Its length= \$leng Letters;\n\n";    # Line 15
\$newlist = \$leng;
push @newarray, \$newlist;
}
print "\n Newarray (should be 4 4 4): @newarray\n\n";    # Line 19
exit;

__END__

Last line of output is now...

Newarray (should be 4 4 4): 4 4 4
• I ran your code through perltidy (a little whitespace is a good thing).
• Comment on Re: Is it possible to get the array with all the elements at the end of a loop?

Replies are listed 'Best First'.
Re^2: Is it possible to get the array with all the elements at the end of a loop?
by supriyoch_2008 (Monk) on Oct 30, 2012 at 01:07 UTC

Toolic,

Thanks for the code. Yes, the perl code push as shown by you has served my purpose.

Regards,

Create A New User
Node Status?
node history
Node Type: note [id://1001386]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2018-06-25 16:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Should cpanminus be part of the standard Perl release?

Results (127 votes). Check out past polls.

Notices?