Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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

by toolic (Chancellor)
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 rifling through the Monastery: (5)
As of 2014-08-20 23:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (125 votes), past polls