HTML 일괄 생성 프로그램 문의
글쓴이: 세벌 / 작성시간: 월, 2010/05/10 - 5:49오후
이미지 파일들이 여러 개 있습니다.
0101.jpg
0102.jpg
0105.jpg
0115.jpg
0120.jpg
....
이런식으로 형식은 네자리 숫자.jpg 형식이고 번호는 연속되어 있지는 않습니다.
수작업으로 .html 하나씩 만들기 싫어서 아래와 같이 C 프로그램을 하나 만들었습니다.
f10.c
#include <stdio.h> #include <string.h> int main(int argc, char**argv) { const char*sPre= "이전"; const char*sNext="다음"; FILE*fp; char pre[128], me[128], next[128]; char prehtm[128], mehtm[128], nexthtm[128]; int i; for(i=2; i<argc-1; i++){ strcpy(pre, argv[i-1]); sprintf(prehtm, "%s.html",pre); strcpy(me, argv[i]); sprintf(mehtm, "%s.html",me); strcpy(next, argv[i+1]); sprintf(nexthtm, "%s.html",next); fp=fopen(mehtm, "w"); fprintf(fp, "<html>\n" "<head>\n" "<title>%s</title>\n" "</head>\n" "<body>\n" "<p>\n" "<a href=\"%s\">%s</a> <a href=\"%s\">%s</a>\n" "</p><p>\n" "<img src=\"%s.jpg\" />\n" "</p><p>\n" "2010\n" "</p>\n" "</body>\n" "<html>\n", me, nexthtm, sNext, prehtm, sPre, me ); fclose(fp); } return 0; }
이렇게 프로그램 만들어서 실행시킬 때는
./f10 0101 0102 0105
이런 식으로 하고 있는데 실행시킬 때 매개변수를 몇십 몇백 개씩 입력하는 것도 꽤 손이 많이 가네요.
위에서 처럼 매개변수를 입력하지 않고 한 디렉토리 안의 .jpg 파일을 프로그램에서 일괄적으로 읽어서 html 파일을 생성하려고 하는데 잘 안되네요.... 도움 부탁드려요.
Forums:
Perl로
약간 더 간단하게 수정
실행시키면 현재 디렉토리의 모든 jpg파일에 대해서 html파일을 만듭니다.
( 알아서 첫번째 파일은 다음링크만, 마지막 파일은 이전링크만 넣어줌, 나머지는 전/후 링크 모두 )
#!/usr/bin/env
#!/usr/bin/env bash names=$(echo *.jpg) names=(${names//.jpg/}) cnt=0 let end=${#names[*]}-1 for name in ${names[*]} do [ ${cnt} -eq 0 ] \ && prev_link="" \ || prev_link="<a href=\"${names[((cnt-1))]}.html\">이전</a>" [ ${cnt} -eq ${end} ] \ && next_link="" \ || next_link="<a href=\"${names[((cnt+1))]}.html\">다음</a>" ((cnt++)) cat > "${name}.html" << HTML || exit $? <html> <head> <title>${name}</title> </head> <body> <p> ${prev_link}${next_link} </p><p> <img src="${name}.jpg" /> </p><p> 2010 </p> </body> </html> HTML doneOTL
작성하신 코드 +
작성하신 코드 + perl
작성하신 코드는 항상 이전,다음이 존재하므로 환형으로 연결할 수 밖에 없겠네요.
즉, 처음 파일의 이전 파일은 맨 마지막 파일이 됩니다.
마지막 파일의 다음 파일은 처음 파일이 되구요.
동작은 물론 system 함수를 자주 사용하므로 조금 느릴 수 있습니다.
$Myoungjin_JEON=@@=qw^rekcaH lreP rehtonA tsuJ^;$|++;{$i=$like=pop@@;unshift@@,$i;$~=18-length$i;print"\r[","~"x abs,(scalar reverse$i),"~"x($~-abs),"]"and select$good,$day,$mate,1/$~for 0..$~,-$~+1..-1;redo}
댓글 달기