How to use fseek in perl ??

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

Hi All,
I wanna add some text to a file in its fixed position.Say the line 3. How to achieve? That is , if the file(a.txt) like:

ab
cd
ef
ghij
klmn

I wanna add "a test content\n" after the "ef".My ideal result is :

ab
cd
ef
a test content
<blank line>
ghij
klmn

Comment on How to use fseek in perl ??

Replies are listed 'Best First'.
Re: How to use fseek in perl ?? by Somni (Friar) on Oct 24, 2007 at 12:29 UTC
Perl 5.6 had an excellent FAQ entry on this very concept that quite often helps to clear up this natural confusion. You can find the FAQ entry here. The short answer is, use Tie::File.	[reply]
Re^2: How to use fseek in perl ?? by pysome (Scribe) on Oct 24, 2007 at 13:23 UTC
yeah. Tie::File is good choice.Thanks	[reply]
Re: How to use fseek in perl ?? by mwah (Hermit) on Oct 24, 2007 at 11:53 UTC
Your request would be solved formally by `for Unix: perl -i.bak -0777 -lpe 's/\nef\n/\nef\na test content\n<blank line>\n +/' a.txt for Windows: perl -i.bak -0777 -lpe "s/\nef\n/\nef\na test content\n<blank line>\n +/" a.txt` [download] Addendum: If you only want to insert sth. after a specified line, then you may get along by doing this: `Unix: perl -i.bak -pe 'print "a test content\n<blank line>\n" if $.==4' a.t +xt Windows: perl -i.bak -pe "print qq{a test content\n<blank line>\n} if $.==4" a +.txt` [download] So here we count on $. (line number) and the line after #3 is #4. Maybe you meant something else by your term "fseek in perl". Better you'd give a small hint what exactly you are trying to solve by that? Regards mwa	[reply] [d/l] [select]