Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^4: to copy certain content in file & repeat it .

by harshmane (Initiate)
on Jul 01, 2011 at 09:27 UTC ( #912312=note: print w/ replies, xml ) Need Help??


in reply to Re^3: to copy certain content in file & repeat it .
in thread to copy certain content in file & repeat it .

i m rewriting the current code here i m printing the give n part but i want it in between.

use warnings; use strict; my $fg=0; my $i=0; open(FF ,"lib"); open (FF1,>lib1"); while(<FF>) { my $lin =$_; print FF1 $lin; if ($lin=~m/pattern to be patched for stat copying/) { $fg=1; } if ($fg) { $lin=$_; my @arr =$lin[$i]; $i++; } if($lin=~m/pattern where to stop copying & repeating/) { $fg=0; } } if ($fg==0) { for (my $j=0;$j<$i;$j++) { print FF1 @arr[$j]; } }
i want to actuaaly print the given para in between here using these script i am print @ end of file.


Comment on Re^4: to copy certain content in file & repeat it .
Download Code
Re^5: to copy certain content in file & repeat it .
by Anonymous Monk on Jul 01, 2011 at 10:02 UTC
      i am not using push because my file is very huge around 400 lines so i dont want to run out of mem and also i am not using any module .. so if you can write the certain part where i am making mistake.

        i am not using push because my file is very huge around 400 lines so i dont want to run out of mem

        If you're concerned about memory, why did you chose the approach of building an array?

        If you want your program to work , given the approach you've chosen, you have to put data in the array, otherwise there is no data to print later (at which point you can empty the array).

        and also i am not using any module ..

        How is that relevant?

        so if you can write the certain part where i am making mistake

        No thanks. I explained in sufficient detail how you should make the changes. If I make the changes for you, you learn nothing. I'm attempting to teach you to fish (Give a fish or teach to fish?), if you're willing.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2014-04-18 06:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (462 votes), past polls