<p>Perl 게시판 소스</p><p>ChatGPT</p><p>Perl과 CGI를 이용한 간단한 게시판(Bulletin Board System) 예제를 제공하겠습니다. 이 예제는 글 작성, 글 목록 보기, 글 상세 보기를 포함합니다. 또한, 텍스트 파일을 데이터 저장소로 사용하여 간단한 구조를 유지합니다.</p><p>1. 환경 설정</p><p>1.1 Perl 및 웹 서버 설치</p><p>Perl이 설치되어 있어야 합니다. Strawberry Perl을 사용하거나, 대부분의 Unix 계열 시스템에서는 기본적으로 설치되어 있습니다. 웹 서버는 Apache를 사용할 수 있습니다.</p><p>1.2 Apache 설정 (Windows 기준)</p><p>Apache 설정 파일에 Perl CGI를 활성화해야 합니다. httpd.conf 파일에 다음을 추가합니다:</p><p>apache</p><p>코드 복사</p><p>ScriptAlias /cgi-bin/ "C:/path/to/your/cgi-bin/"</p><p><Directory "C:/path/to/your/cgi-bin"></p><p>Options +ExecCGI</p><p>AddHandler cgi-script .cgi .pl</p><p></Directory></p><p>2. 파일 구조</p><p>bash</p><p>코드 복사</p><p>/bbs</p><p>/cgi-bin</p><p>bbs.pl</p><p>/data</p><p>posts.txt</p><p>/templates</p><p>index.html</p><p>post.html</p><p>create.html</p><p>3. bbs.pl - CGI 스크립트</p><p>perl</p><p>코드 복사</p><p>#!/usr/bin/perl</p><p>use strict;</p><p>use warnings;</p><p>use CGI qw(:standard);</p><p>use File::Slurp;</p><p>my $data_file = "../data/posts.txt";</p><p>my $cgi = CGI->new;</p><p>print $cgi->header('text/html');</p><p>my $action = $cgi->param('action') || 'list';</p><p>if ($action eq 'list') {</p><p>list_posts();</p><p>} elsif ($action eq 'view') {</p><p>view_post($cgi->param('id'));</p><p>} elsif ($action eq 'create') {</p><p>if ($cgi->request_method eq 'POST') {</p><p>create_post($cgi->param('title'), $cgi->param('content'));</p><p>} else {</p><p>show_create_form();</p><p>}</p><p>}sub list_posts {</p><p>my @posts = read_file($data_file);</p><p>print read_file("../templates/index.html");</p><p>foreach my $line (@posts) {</p><p>my ($id, $title, $created_at) = split /::/, $line;</p><p>print qq{<li><a href="?action=view&id=$id">$title</a> ($created_at)</li>};</p><p>}</p><p>print qq{</ul><a href="?action=create">새 글 쓰기</a></body></html>};</p><p>}sub view_post {</p><p>my ($id) = @_;</p><p>my @posts = read_file($data_file);</p><p>foreach my $line (@posts) {</p><p>my ($post_id, $title, $content, $created_at) = split /::/, $line;</p><p>if ($post_id == $id) {</p><p>my $template = read_file("../templates/post.html");</p><p>$template =~ s/{title}/$title/;</p><p>$template =~ s/{content}/$content/;</p><p>$template =~ s/{created_at}/$created_at/;</p><p>print $template;</p><p>last;</p><p>}</p><p>}</p><p>}sub create_post {</p><p>my ($title, $content) = @_;</p><p>my $id = time;</p><p>my $created_at = localtime;</p><p>my $line = join("::", $id, $title, $content, $created_at);</p><p>append_file($data_file, "$line\n");</p><p>print qq{<meta http-equiv="refresh" content="0; url=?action=list">};</p><p>}sub show_create_form {</p><p>print read_file("../templates/create.html");</p><p>}4. index.html - 글 목록 페이지 템플릿</p><p>html</p><p>코드 복사</p><p><!DOCTYPE html></p><p><html lang="en"></p><p><head></p><p><meta charset="UTF-8"></p><p><title>글 목록</title></p><p></head></p><p><body></p><p><h1>글 목록</h1></p><p><ul></p><p>5. post.html - 글 상세 보기 페이지 템플릿</p><p>html</p><p>코드 복사</p><p><!DOCTYPE html></p><p><html lang="en"></p><p><head></p><p><meta charset="UTF-8"></p><p><title>{title}</title></p><p></head></p><p><body></p><p><h1>{title}</h1></p><p><p>{content}</p></p><p><small>Posted on {created_at}</small></p><p><p><a href="../cgi-bin/bbs.pl?action=list">뒤로</a></p></p><p></body></p><p></html></p><p>6. create.html - 글 작성 페이지 템플릿</p><p>html</p><p>코드 복사</p><p><!DOCTYPE html></p><p><html lang="en"></p><p><head></p><p><meta charset="UTF-8"></p><p><title>새 글 쓰기</title></p><p></head></p><p><body></p><p><h1>새 글 쓰기</h1></p><p><form method="post" action="../cgi-bin/bbs.pl?action=create"></p><p><label for="title">제목:</label></p><p><input type="text" id="title" name="title" required></p><p><br></p><p><label for="content">내용:</label></p><p><textarea id="content" name="content" required></textarea></p><p><br></p><p><button type="submit">글 작성</button></p><p></form></p><p><p><a href="../cgi-bin/bbs.pl?action=list">뒤로</a></p></p><p></body></p><p></html></p><p>7. posts.txt - 데이터 파일</p><p>이 파일은 처음에는 비어 있어야 하며, 각 게시글은 아래 형식으로 저장됩니다:</p><p>arduino</p><p>코드 복사</p><p>id::title::content::created_at</p><p>8. 실행 방법</p><p>파일 배치: bbs.pl 스크립트는 웹 서버의 cgi-bin 디렉토리에, templates와 data 디렉토리는 웹 서버의 적절한 위치에 복사합니다.</p><p>파일 권한 설정: CGI 스크립트에 실행 권한을 부여합니다.</p><p>bash</p><p>코드 복사</p><p>chmod +x /path/to/cgi-bin/bbs.pl</p><p>웹 브라우저: 웹 브라우저에서 http://localhost/cgi-bin/bbs.pl?action=list를 엽니다.</p><p>테스트: 게시판을 사용하여 글을 작성하고, 목록을 보고, 상세 보기를 테스트합니다.</p><p>참고</p><p>Perl과 CGI를 사용한 이 예제는 단순한 기능만을 제공하며, 실제 사용 시에는 보안 및 확장성을 고려한 더 복잡한 시스템이 필요합니다.</p><p>텍스트 파일 대신 데이터베이스(DBD::mysql 모듈 사용)를 사용하면 더 나은 성능과 기능을 제공할 수 있습니다.</p>
<!-- -->
