현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

Perl로 사용자입력받아서 파일 내용 수정하기

happyand의 이미지
글쓴이: happyand / 작성시간: 화, 2012/04/10 - 11:21오전

안녕하세요~


perl 질문 드립니다!
파일 입력 관련해서,,

파일에 이런식으로 되어있다고 할 때,,

Key1=Value1
Key2=Valeu2
COUNT=10

key와 value를 자동으로 읽어들여서

사용자에게 보여주고..

사용자가 value값을 변경안하고 enter를 누르면

저장되어있는 기본값으로 설정하고

값을 변경하면 그 값으로 설정해놓고 싶은데..

어떻게 짜야할지 모르겠네요ㅠㅠ..
찾아봐도 도저히 잘 모르겠어요..;

제가 해본건 일일히 변수 하나하나 입력받는거로 했는데,,

나중에 파일이 바뀌거나 하면 다 바꿔줘야해서

함수를 구현해야지 싶습니다ㅠㅠ

Forums: 
프로그래밍 QnA
익명 사용자의 이미지

글쓴이: 익명 사용자 / 작성시간: 수, 2012/04/11 - 7:44오후

perl 을 접한지 1주일 밖에 안되서 뭔가 perl 같지 않네요;;;

도움 되었으면 좋겠네요 : )

#!/usr/bin/perl
 
open CONFIG, "<", "config.dat" or die "can not open file $!";
 
while (<CONFIG>) {
        @line=split(/=/, $_);
        $config{$line[0]}=$line[1];
}
 
while (<>) {
        last if ($_ eq "end\n");
        @line=split(/=/, $_);
        $config{$line[0]}=$line[1];
}
 
close CONFIG;
 
open CONFIG_W, ">", "config.dat" or die "can not open file $!";
 
while (($key, $value) = each %config) {
        print CONFIG_W "$key=$value";
}

둘러보기