|
|
|
 현재위치: 메인  해피포럼 황금 : 게시물 펼쳐읽기 |
|
|
|
| Total related article : 1 |
 |
| 등록일: | 2001-03-18 |
| 시간: | 17:30:45 |
| 조회수: | 1999 |
| from: | 211.110.166.20 |
|
|
펄 마니아 (http://perlmania.or.kr/) 발췌글입니다.
파일한줄씩 읽어서 해당하는 문자열이 왔을때
삭제시키는 간단한 로직입니다.
일반적으로 텍스트 게시판이나 텍스트 방명록에서 많이
쓰이는 방법이죠. ^^
원문시작 (김현승님글)
###################################################
파일에서 필요한 부분만 처리하는 걸 몇번 해봤는데요
이렇게 하면 좀 낫습니다.
######### 방법1 "바보"라는 문자열이 들어있는 라인을 삭제시
open(INFILE,"<data.txt");
open(OUTFILE,">temp.txt"); #임시파일
while(<FILE>){ # 한줄씩 읽어서 처리하니까 메모리 별로 안씀
print OUTFILE $_ if(! ($_=~/바보/) ); #해당되는 내용의 라인은 출력않음
}
close(OUTFILE);
close(INFILE);
unlink("data.txt");
rename("temp.txt","data.txt"); # 새로 생성한 파일로 대체
######### 방법2 인덱스파일과 데이터파일로 나누기(좀 고난도)
&adddat("나바부다."); #<-- 9바이트크기입니다.
&adddat("니는아니가?"); #<-- 11바이트입니다.
&adddat("12345"); #<-- 5바이트입니다.
[test.idx의 내용(시작바이트:데이터의 길이)]
0:9 <--각 데이터마다 기록
9:11
20:5
[test.dat의 내용]
나바부다.니는아니가?12345
print &getdat(1);
[결과]
니는아니가?
### 글의 추가
sub adddat($){ #저장하려는 스칼라를 인수로 준다.
open(IDX,">>test.idx");
local($start)= -s"test.dat";
local($len)=length($_[0]);
print IDX "$start:$len
";
close(IDX);
open(DAT,">>test.dat");
print DAT "$_[0]";
close(DAT);
}
### 글의 열람
sub getdat($){ #가져오려는 라인번호를 인수로 준다.
local($ret,$i,$each);
open(IDX,"<test.idx");
while($each=<IDX>){
if($i==$_[0]){
chomp($each);
local($start,$len)=split(:,$each);
open(DAT,"<test.dat");
seek(DAT,$start,0); #처음부터 $start만큼 건너뜀
read(DAT,$ret,$len);
#이게 맞나 몰겠네요 DAT에서 $len만큼 읽어서 $ret에 저장.
#혹시 아니면 맞게 고쳐주세요
close(DAT);
last;
}
$i++; #현재 라인번호 카운터
}
return($ret); #읽어온 값을 반환
}
### 해당 라인의 삭제 - 열람만 안되면 되므로 인덱스 정보만 삭제
sub deldat($){
local($ret,$i,$each);
open(IDX,"<test.idx");
open(TEMP,">temp.idx");
while($each=<IDX>){
print TEMP "$each" if ( $i != $_[0] ); #해당 라인만 빼고 새로 생성
$i++;
}
close(TEMP);
close(IDX);
unlink("test.idx");
rename("temp.idx","test.idx"); # 기존 인덱스 대체
}
이렇게 하면 데이터 파일에는 실질적으로 삭제가 안되고
열람만 못하게 되죠. 데이터 파일의 내용을 변경된 인덱스에 맞춰
정리하려면 각데이터를 읽어와 새로이 인덱스와 데이터파일을 생성하면 됩니다.
검색기능과 수정,삽입 같은 기능도 이런 방법으로 만들수 있습니다.
도움이 되셨길
|
|
 |
|
|
텍스트파일 삭제팁 
