리눅스 분류
perl 다룰 줄 아시는 분...
작성자 정보
- 이상봉 작성
- 작성일
컨텐츠 정보
- 1,676 조회
- 2 댓글
- 0 추천
- 목록
본문
cgi 게시판 어드민 암호를 잊어버렸습니다. .config에 암호가 저장되어 있는데
cat .config 로 보면 이상한 문자가 나오고 암호가 나오지 않습니다.
게시판은 펄로 만들어졌고,..(제가 만든게 아님)
아래부분이 DB만드는 것과 패스워드 생성하는 건데요. 저기서
print로 패스워드 찍을 수 있는 방법이 있을까요? 펄은 다뤄보질 않아서
어떻게 해야할 지 모르겠씁니다.
#!/usr/bin/perl
do "cgi-lib.pl";
do "web-bbs.pl";
&ReadParse;
$DB=$in{'DB'};
$PASSWORD=$in{'PASSWORD'};
if (($DB eq "") || ( -e "./data/$DB" )) { &PrintMSG("이미 DB를 생성하셨습니다!"); }
else {
system "mkdir ./data/$DB";
dbmopen(%item,"./data/$DB/.config",0777);
관련자료
-
이전
-
다음
댓글 2
소재영님의 댓글
- 소재영
- 작성일
아래의 소스로 확인하셔서 확인하시기 바랍니다.
#!/usr/bin/perl
# 혹시 모를 라이브러리 로딩.
do "cgi-lib.pl";
do "web-bbs.pl";
# 간단하게 원하시는 파일명 적어주세요.
$DB="경로의 파일명";
dbmopen(%item,"./data/$DB/.config",0777) || die "먼열것지유"
# 이제 확인을 위해 loop 돌립니다.
foreach $key (keys %item) {
print "$key:$item{$key}
";
}
dbmclose(%item);
#!/usr/bin/perl
# 혹시 모를 라이브러리 로딩.
do "cgi-lib.pl";
do "web-bbs.pl";
# 간단하게 원하시는 파일명 적어주세요.
$DB="경로의 파일명";
dbmopen(%item,"./data/$DB/.config",0777) || die "먼열것지유"
# 이제 확인을 위해 loop 돌립니다.
foreach $key (keys %item) {
print "$key:$item{$key}
";
}
dbmclose(%item);
이상봉님의 댓글
- 이상봉
- 작성일
답변감사합니다 ^^ 그런데.. 이런 에러가 나네요.. syntax error at find.pl line 12, near "$key (" Execution of find.pl aborted due to compilation errors.