Help with Reopen file

sagiv

In the first loop, i write all the lines with the word "clients" in them .

Now i want to go over "result.txt" from the begining and edit him again

How can i make RESULT handle to point to the start of file "result.txt" ?

Thanks :)

Expand|Select|Wrap|Line Numbers

 
#!perl -w

use strict; 

use warnings;
 
my ($line,$file) ; 
 
# Open Results file

open (RESULT,">c:/test/result.txt")  or die "Can't open result.txt\n"; ; 

binmode RESULT;
 
open (RF,"<c:\test\log.txt") or die "Can't open log.txt\n";;

binmode RF;
 
while ($line = <RF>) {

 print RESULT $line if ($line=~m/clients/i);

}

KevinADC

the seek() function should work:

seek (RESULT,0,0);

add it where you need to return to the beginning of the file.

This line in your code might cause a problem:

open (RF,"<c:\test\log.txt")

\t in a double-quoted string is a tab, use forward slashes like you did earlier in your code to avoid this problem.

jagjot

Hi

What kevin said is indeed right, but if you want to use a simple feature , you can open file again in read mode n operate upon it.

eWish

sagiv,

Did you ever get your problem worked out? A reply would be nice.

--Kevin

Kelicula

Quote:

Originally Posted by KevinADC

the seek() function should work:

seek (RESULT,0,0);

add it where you need to return to the beginning of the file.

This line in your code might cause a problem:

open (RF,"<c:\test\log.txt")

\t in a double-quoted string is a tab, use forward slashes like you did earlier in your code to avoid this problem.

Yes unless you are typing within backticks perl automatically translates the slashes, no need to use backslashes....

No matter what platform you are running

Help with Reopen file

re: Help with Reopen file

re: Help with Reopen file

re: Help with Reopen file

re: Help with Reopen file

Similar Perl bytes

/bytes/development

/bytes/it

/bytes/other

/bytes/about