How to use fseek in perl ??

[pysome]

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

[Somni]

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.

[pysome]

yeah. Tie::File is good choice.Thanks

[mwah]

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

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

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