Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

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??


in reply to Is it possible to get the array with all the elements at the end of a loop?

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?
Download Code
Re^2: Is it possible to get the array with all the elements at the end of a loop?
by supriyoch_2008 (Scribe) 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,

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1001386]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2015-07-03 10:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (51 votes), past polls