Perl로 사용자입력받아서 파일 내용 수정하기
글쓴이: happyand / 작성시간: 화, 2012/04/10 - 11:21오전
안녕하세요~
perl 질문 드립니다!
파일 입력 관련해서,,
파일에 이런식으로 되어있다고 할 때,,
Key1=Value1
Key2=Valeu2
COUNT=10
key와 value를 자동으로 읽어들여서
사용자에게 보여주고..
사용자가 value값을 변경안하고 enter를 누르면
저장되어있는 기본값으로 설정하고
값을 변경하면 그 값으로 설정해놓고 싶은데..
어떻게 짜야할지 모르겠네요ㅠㅠ..
찾아봐도 도저히 잘 모르겠어요..;
제가 해본건 일일히 변수 하나하나 입력받는거로 했는데,,
나중에 파일이 바뀌거나 하면 다 바꿔줘야해서
함수를 구현해야지 싶습니다ㅠㅠ
Forums:
perl 을 접한지 1주일 밖에 안되서 뭔가 perl
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"; }댓글 달기