루프 자체에서 perl 파일을 덮어 씁니다.

Question

그래서 파일에 값을 출력하는 루프가 있습니다. 유일한 문제는 루프의 마지막 인쇄물 만 얻는다는 것입니다. 이 내 루프에서 인쇄되는 내용 인 경우 예를 들어, :

1 1 
2 2 
3 3 

모든 것 내 파일은 라인 제 등 3 3 것이다. 여기 내 코드입니다 : 내가 플러시 $| = 1를 사용하려고했습니다

open my $f, '>', 'file.txt'; 

#$node_id set above somewhere... 
for my $key (keys %{$todo->{$node_id}->{'urls_hash'}}) { 
    print $f "$node_id $todo->{$node_id}->{'urls_hash'}->{$key}->{'domain_id'}\n"; 
} 

close $f; 

은,하지만 아무것도 할 것으로 보인다 didin't. 어쩌면 누군가가 이것에 뛰어 들기를 바랬습니다. 그리고 ... 등의 해시 해쉬에 대해 유감스럽게 생각합니다. 나는 그것이 지저분하다는 것을 안다.

Answer 1

귀하의 질문은 #$node_id set above somewhere...입니다. 당신의 예상 출력에서 ​​:

1 1 
2 2 
3 3 

이 $node_id 설정되는 코드없이 말을 열심히하지만이 파일은 $node_id을 증가 할 때마다 다시 열 것 같습니다. open을 외부로 이동해야하는 또 다른 루프가 있습니까?

Answer 2

당신의 질문에 anwer가 아니다, 미안.

파일을 추가하려면 파일을 열 때 >>를 사용하십시오.

open my $f, '>>', 'file.txt';