|
ユーザーズマニュアル・画像一括処理編
用途別目次: ユーザーズマニュアル 項目別目次: 利用手順 /* PopCornマニュアル(画像一括処理編) Ver.2001.1122 /* /* 2001/12/21 /* PopCornワーキンググループ /* /************************************************/
▼ 大量画像の超超整理法「マスタクリップ」 |
#!/usr/bin/perl ####################################### #初期DB&Clipファイル生成スクリプト ####################################### require 'popcorn.pl'; &machine; #サイトのフォルダ名 $GSITE = "bird"; #サイトのタイトル $GSITE_T = "霞ヶ浦の野鳥"; #サイトのローカルパス $GPATH = "mmdb:kasumigaura:$GSITE"; #MIMEタイプ(画像形式) $GMIME = "jpg"; #画像の格納フォルダ名 $GFOLDER = "2000:1001g"; #分類キー $GCATG = "未定義分類"; #地域キー $GPLACE = "霞ヶ浦町"; #生成ページの仮のタイトル $GPTITLE = "〔00/01〕鳥"; #撮影日 $GDATE = "2000/01/02"; #1ページ当たりのクリップ数 $GNUM = 20; #追加するデータベースソースのファイル $GADD = "add.db"; #マスタフォルダ名 $GMASTER = "master"; #マスタのデータベースソースファイル名 $GDB_F = "$GSITE.db"; #以下はおまじない $GIMAGECLIP = "off"; $GFOLDER3 = $GFOLDER; $GFOLDER3 =~ s/エ:/エ//g; $GFOLDER3 =~ s/エエ/エ//g; $GCLIPFILE = "$GPATH$GDELIMITER" . "clip" . "$GDELIMITER$GFOLDER.clip"; $GUPDATE = &getdate2("/"); #画像フォルダのクリップファイルを生成 &make_folder_clip ("$GPATH:$GMIME:$GFOLDER", $GFOLDER3, "$GCLIPFILE", $GMIME, $GDATE, $GPLACE, ""); #クリップファイルからDBソースを生成 &make_dbdata($GCLIPFILE, "$GPATH:$GMASTER:$GADD", $GSITE_T, $GCATG, $GPLACE, $GFOLDER, $GDATE, $GUPDATE, $GPTITLE, $GNUM); #生成したDBソースをマスタのDBソースに追加 &filemerge( "$GPATH$GDELIMITER$GMASTER$GDELIMITER" . $GADD, "$GPATH$GDELIMITER$GMASTER$GDELIMITER$GDB_F", "add_to_top"); |
|
|