#counter
**内容 [#ib971370]
#setlinebreak(on)
#contents
**目的 [#m00eeb48]
携帯で撮った写真をブログに載せる際の手間を少なくする。

**使用イメージ [#af8d57b8]
マイクロSDカードをPCにさして、gazou_up.batを起動(ダブルクリック)。

**実行されること [#e9045168]

***1.マイクロSDカードからHDDへ画像の移動 [#va0ec77a]
gazou_up.batを実行したディレクトリの配下に実行日時のディレクトリ(20090321_23020440等)を作成し、マイクロSDカードのJPGファイルをすべてその配下に移動する。
 例)
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T
 配下に20090321_23020440を作成し、そこに
 I:\PRIVATE\MYFOLDER\My Items\Pictures
 配下のJPG画像をすべて移動。
***2.画像のアップ [#c043b37b]
設定したベースURL(http://hinata.la.coocan.jp/814T/等)の配下に実行日時のディレクトリを作成し、その配下に画像をすべてアップする。
 例)
 http://hinata.la.coocan.jp/814T/20090321_23020440/090321_225235.JPG
 http://hinata.la.coocan.jp/814T/20090321_23020440/090321_225107.JPG
 http://hinata.la.coocan.jp/814T/20090321_23020440/090321_225048.JPG
 http://hinata.la.coocan.jp/814T/20090321_23020440/090321_225014.JPG

***3.ココログ画像貼り付け用タグを作成 [#c75916f2]
実行日時のディレクトリ配下にtag.htm
を作成。
 例)
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T\20090321_23020440\tag.htm
#ref(tag_090524.htm)

↑の写真に対応するタグをココログの編集画面に貼り付けると、[[ここ>http://hinatamitsuru.cocolog-nifty.com/blog/2009/03/321-8a47.html]]の「■ツールで作成したtagを貼り付けた結果↓。」の箇所のように表示される。

(その画像が縦であるか横であるか分からないので両方のタグを作成。)

***4.画像表示バッチの作成 [#n4b7de94]
実行日時のディレクトリ配下にhyouji.batを作成。
 例)
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T\20090321_23020440\hyouji.bat
中は
 for %%A in (*.JPG) do start "" "http://hinata.la.coocan.jp/814T/20090321_23020440/%%A"
のような内容。
これをダブルクリックすると2でアップした画像をすべてWeb上で表示する。
5-1で表示するけど、一度閉じた後も画像の表示だけしたいこともあるかと思い、作成。
***5.実行結果の表示 [#k3530889]
-5-1.Web上の画像の表示
 2でアップロードした画像をすべてWeb上で表示する。
-5-2.HDD上に移動した画像の表示
 HDD上に作成したディレクトリを表示する。
 例)
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T\20090321_23020440
-5-3.tag.txtの表示
3で作成したtag.htmを開く。

**導入方法 [#v686bdb1]
***1.最新版gazou_up_xxxxxx.zipのダウンロード [#qece50fc]
#ref(gazou_up_090324.zip)
をダウンロードする。
***2.zipファイルの展開 [#ub7d1055]
任意のディレクトリにgazou_up_xxxxxx.zipを配置し、展開する。
 例)
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T
 にgazou_up_090324.zipを配置しダブルクリック。
***3.展開されたファイルの確認 [#jd0fad34]
 gazou_up.bat
 gazou_up\make_ftptxt.pl
         makebat.pl
         maketag.pl
         putjpg.bat
の構成で1ディレクトリ、5ファイルが展開されることを確認する。
 例)
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T\090324\gazou_up.bat
                                                                       gazou_up\make_ftptxt.pl
                                                                                makebat.pl
                                                                                maketag.pl
                                                                                putjpg.bat
***4.Perlのインストール [#lb110df2]
Perlをインストールしていない場合、[[ここ>http://www.forest.impress.co.jp/lib/stdy/program/progdevenv/activeperl.html]]等からPerlをダウンロードし、インストールする。
***5.gazou_up.batの編集 [#r6f9cae2]
gazou_up.batを右クリック→編集
により開き、環境に合わせて内容を編集する。
編集するのは以下の7変数。
 REM =========ここから変数設定=========
 REM (マイクロ)SDカードのパス
 set SD_DIR=I:\PRIVATE\MYFOLDER\My Items\Pictures
 REM ベースとなるWeb上のURL
 set URL_BASE=http://hinata.la.coocan.jp/814T
 REM Perl.exeの配置場所
 set PERL="C:\Documents and Settings\日向充\My Documents\08.Perl\bin\Perl.exe"
 REM [サーバ情報]アドレス
 set SERVER_ADDR=ftp.la.coocan.jp
 REM [サーバ情報]ユーザ名
 set SERVER_USER=hinata.la.coocan.jp
 REM [サーバ情報]パスワード
 set SERVER_PASS=xxxxxxxxxx
 REM [サーバ情報]ベースとなるディレクトリ(URL_BASEに対応するサーバ上のディレクトリ)
 set SERVER_DIR=/hinata.la.coocan.jp/homepage/814T
 REM =========ここまで変数設定=========
修正したら保存し、閉じる。
***6.ツールの実行 [#p28d06d2]
gazou_up.batをダブルクリックし、上記に記述している[[実行されること>携帯画像自動アップ&tag作成ツール#e9045168]]がすべて実行されたら導入成功。

**ディレクトリ構成 [#m8302041]
 C:\Documents and Settings\日向充\My Documents\My Pictures\814T\gazou_up.bat                        ←これをダブルクリック
                                                               \gazou_up\putjpg.bat                 ←gazou_up.batから呼ばれるサブモジュール。(ユーザは意識しなくてOK)
                                                                        make_ftptxt.pl             ←同上
                                                                        makebat.pl                 ←同上
                                                                        maketag.pl                 ←同上
                                                                         putjpg.txt                 ←ツールの実行により生成される中間ファイル(ユーザは意識しなくてOK)
                                                                         ftp.log                    ←ツールの実行により生成されるログファイル(ユーザは意識しなくてOK)
                                                              \20090321_23020440\                  ←ツールの実行により生成される画像格納ディレクトリ
                                                                                 hyouji.bat         ←ツールの実行により生成されるWeb画像表示バッチ
                                                                                 tag.txt            ←ツールの実行により生成されるココログ用tagテキスト
                                                                                 090321_225014.JPG  ←自動退避された画像たち
                                                                                 090321_225048.JPG
                                                                                 090321_225107.JPG
                                                                                 090321_225235.JPG
                                                              \20090321_22513134\                  ←ツールを実行するたびにこういったディレクトリが作成される。
                                                                                                      (中身は20090321_23020440と同じ。)
                                                              \20090321_21582725\
                                                               ・・・・・・・・・
                                                               ・・・・・・・・・
**ソースイメージ [#v8d7c0fa]
***gazou_up.bat [#qe40e42a]
 REM =========ここから変数設定=========
 REM (マイクロ)SDカードのパス
 set SD_DIR=I:\PRIVATE\MYFOLDER\My Items\Pictures
 REM ベースとなるWeb上のURL
 set URL_BASE=http://hinata.la.coocan.jp/814T
 REM Perl.exeの配置場所
 set PERL="C:\Documents and Settings\日向充\My Documents\08.Perl\bin\Perl.exe"
 REM [サーバ情報]アドレス
 set SERVER_ADDR=ftp.la.coocan.jp
 REM [サーバ情報]ユーザ名
 set SERVER_USER=hinata.la.coocan.jp
 REM [サーバ情報]パスワード
 set SERVER_PASS=xxxxxxxxxx
 REM [サーバ情報]ベースとなるディレクトリ(URL_BASEに対応するサーバ上のディレクトリ)
 set SERVER_DIR=/hinata.la.coocan.jp/homepage/814T
 REM =========ここまで変数設定=========
 
 REM =========ここから処理=========
 REM マイクロSDカードの内容を表示
 dir %SD_DIR%
 REM 日付のディレクトリを作成
 set DT=%date:/=%
 set DT=%DT:月 =%
 set DT=%DT:火 =%
 set DT=%DT:水 =%
 set DT=%DT:木 =%
 set DT=%DT:金 =%
 set DT=%DT:土 =%
 set DT=%DT:日 =%
 set DT=%DT: =%
 set TM=%time::=%
 set TM=%TM:.=%
 set TM=%TM: =0%
 set dirame=%DT%_%TM%
 md %dirame%
 REM SDカードから画像を移動
 move "%SD_DIR%\*.JPG" .
 REM ftpでサーバにアップ
 cd gazou_up
 %PERL% "make_ftptxt.pl" %SERVER_ADDR% %SERVER_USER% %SERVER_PASS% %SERVER_DIR% %dirame%
 Call putjpg.bat
 cd ..
 REM 画像を日付ディレクトリに退避
 move *.JPG %dirame%
 REM 画像をWeb上で表示
 cd %dirame%
 for %%A in (*.JPG) do start "" "%URL_BASE%/%dirame%/%%A"
 REM ブログ貼り付け用tagの作成
 for %%A in (*.JPG) do %PERL% "../gazou_up/maketag.pl" %URL_BASE% %dirame% %%A
 REM 配下のJPGに対応するWebページをすべて表示するbatの作成。
 %PERL% "../gazou_up/makebat.pl" %URL_BASE% %dirame%
 REM HDD上のディレクトリを表示
 start "" "."
 REM ブログ貼り付け用tag.htmの表示
 start "" "tag.htm"
***make_ftptxt.pl [#p65f87b9]
 #!/usr/bin/perl
 
 $server="${ARGV[0]}";
 $user="${ARGV[1]}";
 $pass="${ARGV[2]}";
 $base_dir="${ARGV[3]}";
 $thistime_dir="${ARGV[4]}";
 
 open(FW,">putjpg.txt");
 
 print FW << "EOL";
 open $server
 $user
 $pass
 cd $base_dir
 mkdir $thistime_dir
 cd $thistime_dir
 lcd ..
 binary
 prom
 mput *.JPG
 ls
 disconnect
 bye
 EOL
 close(FW);
※ このperlをgazou_up.bat内で起動している。
 %PERL% "make_ftptxt.pl" %SERVER_ADDR% %SERVER_USER% %SERVER_PASS% %SERVER_DIR% %dirame%
のように実行することにより、putjpg.txtという名前で以下の内容のファイルができる。(%で囲まれている各変数はgazou_up.batの冒頭で設定している値。)
 open ftp.la.coocan.jp
 hinata.la.coocan.jp
 ■この行にパスワードが記載されている
 cd /hinata.la.coocan.jp/homepage/814T
 mkdir 20090321_23020440
 cd 20090321_23020440
 lcd ..
 binary
 prom
 mput *.JPG
 ls
 disconnect
 bye


***putjpg.bat [#a78a93e2]
 ftp -s:putjpg.txt>>ftp.log
これは、、まったくバッチを分ける必要なかったかもしれないけど、モジュール分割していた方がデバッグや動作確認等楽だったので。。
([[どうぶつの森の写真アップツール]]からの使いまわし。)

※ ftpはこのように呼べば、txtに記載された内容を実行する。

***maketag.pl [#dd15dabe]
tag.htmを生成するpl。(tag.htmについては[[上記>携帯画像自動アップ&tag作成ツール#c75916f2]]を参照のこと。)
 #!/usr/bin/perl
 
 $URL="${ARGV[0]}/${ARGV[1]}/${ARGV[2]}";
 $filename="${ARGV[2]}";
 open(FW,">>tag.htm");
 print FW << "EOL";
 ■$filename
 <table>
     <tr>
         <td>
             <img title="$filename" height="75" alt="$filename" src="$URL" width="100">
         </td>
         <td>
 <PRE>
 &lt;a class="mb" href="$URL"&gt;
 &lt;img title="$filename" height="75" alt="$filename" src="$URL" 
 width="100" border="0" style="FLOAT: left; MARGIN: 0px 5px 5px 0px" /&gt;&lt;/a&gt;
 </PRE>
         </td>
     </tr>
     <tr>
         <td>
             <img title="$filename" height="133" alt="$filename" src="$URL" width="100">
         </td>
         <td>
 <PRE>
 &lt;a class="mb" href="$URL"&gt;
 &lt;img title="$filename" height="133" alt="$filename" src="$URL" 
 width="100" border="0" style="FLOAT: left; MARGIN: 0px 5px 5px 0px" /&gt;&lt;/a&gt;
 </PRE>
         </td>
     </tr>
 </table>
 
 EOL
 close (FW);
※ このperlをgazou_up.bat内で起動している。
 %PERL% "../gazou_up/maketag.pl" %URL_BASE% %dirame% %%A
のように実行することにより、[[上記>携帯画像自動アップ&tag作成ツール#c75916f2]]で記述したtag.htmができる。(%で囲まれている各変数はgazou_up.batの冒頭で設定している値。%%Aはforの繰り返しで使用している変数。)


***makebat.pl [#n97daaf5]
各日時ディレクトリ配下にhyouji.batを作成するpl。(hyouji.batについては[[上記>携帯画像自動アップ&tag作成ツール#n4b7de94]]を参照のこと。)
 #!/usr/bin/perl
 #配下のJPGに対応するWebページをすべて表示するbatの自動作成。
 
 open(FW,">>hyouji.bat");
 print FW << "EOL";
 for %%A in (*.JPG) do start "" "${ARGV[0]}/${ARGV[1]}/%%A"
 EOL
 close (FW);
※ このperlをgazou_up.bat内で起動している。
 %PERL% "../gazou_up/makebat.pl" %URL_BASE% %dirame%
のように実行することにより、[[上記>携帯画像自動アップ&tag作成ツール#n4b7de94]]で記述したhyouji.batができる。(%で囲まれている各変数はgazou_up.batの冒頭で設定している値。)
**改版履歴 [#xbebe6f0]
***090321(初版) [#mab7c9de]
#ref(gazou_up.bat_090321.txt)
#ref(make_ftptxt.pl_090321.txt)
#ref(putjpg.bat_090321.txt)
#ref(maketag.pl_090321.txt)
#ref(makebat.pl_090321.txt)

***090323 [#w3a1b0aa]
tag.txtではなくtag.htmにしtableで画像とタグを並べて画像とタグのくくり付けをわかりやすくした。
#ref(gazou_up.bat_090323.txt)
#ref(maketag.pl_090323.txt)
以前のtag.txtのイメージは[[こちら>http://hinata.la.coocan.jp/pukiwiki/?cmd=backup&page=%B7%C8%C2%D3%B2%E8%C1%FC%BC%AB%C6%B0%A5%A2%A5%C3%A5%D7%A1%F5tag%BA%EE%C0%AE%A5%C4%A1%BC%A5%EB&age=3#c75916f2]]。
この日のメモ→メモメモ/2009-03-23

***090324 [#ceeb9c71]
メンテ性向上と、誰でも使いやすくするために環境ごとに設定する変数をすべてgazou_up.batの頭に集約。
あわせて、[[導入方法>携帯画像自動アップ&tag作成ツール#v686bdb1]]も記述。
#ref(gazou_up.bat_090324.txt)
#ref(make_ftptxt.pl_090324.txt)
#ref(maketag.pl_090324.txt)
#ref(makebat.pl_090324.txt)
#ref(readme_090324.txt)
#ref(gazou_up_090324.zip)

//**バグ管理簿 [#od1d05c2]
//#ls2


----
- すべての画像を90度回転させてアップするかどうか。 --  &new{2009-03-22 (日) 01:34:36};
- makebat.plの実行結果にスラッシュが2つ入っているのでいつか直す。 --  &new{2009-03-22 (日) 01:35:22};
- tag.txtのhtml化を実施したい。(画像とタグの関連づけをわかりやすく。) --  &new{2009-03-23 (月) 15:08:40};
- tagのhtml化は090323版、スラッシュ2つは090324版で修正。 --  &new{2009-03-25 (水) 01:18:03};
- lTyKjS  <a href="http://schcgegxtypo.com/">schcgegxtypo</a>, [url=http://aryrefqnzcqe.com/]aryrefqnzcqe[/url], [link=http://rvosweopzgpa.com/]rvosweopzgpa[/link], http://kogkcbmmelei.com/ -- [[ngxrcljs]] &new{2010-03-11 (木) 10:50:07};
- http://www.hotfrog.ca/Companies/Canadian-viagra-distributions/Cheap-viagra-20520 viagra   :[[[  http://www.findtheneedle.co.uk/company-postcode.asp?postcode=K1G viagra   >:-PPP   -- [[Ywcpmfwr]] &new{2010-03-19 (金) 11:39:36};
- http://www.ratemds.com/filecache/doctor-ratings.jsp?did=957857&option=cialis cialis   >:-DD  http://www.ratemds.com/filecache/doctor-ratings.jsp?did=957853&option=viagra viagra   8-((   -- [[Nmirlrcs]] &new{2010-03-21 (日) 11:01:29};
- http://www.ratemds.com/filecache/doctor-ratings.jsp?did=957857&option=cialis#1 cheap cialis   %-]  http://www.findtheneedle.co.uk/company-postcode.asp?postcode=K1G&code=viagra buy viagra   >:-[[   -- [[Dpwmeiue]] &new{2010-03-22 (月) 11:27:38};
- http://www.findtheneedle.co.uk/jobs/1830-bioinformatics-analyst-40plan43541.asp viagra   8-(((   -- [[Bomttluu]] &new{2010-03-28 (日) 11:21:59};
- http://www.stlouisbusinesslist.com/category/business.asp?uid=5021837&function=interview viagra   %DDD   -- [[Zpohtolg]] &new{2010-03-29 (月) 13:48:04};
- http://www.hotfrog.ca/Companies/Canadian-viagra-distributions viagra   =(   -- [[Gavhxdec]] &new{2010-03-29 (月) 13:48:10};
- http://www.ratemds.com/doctor-ratings/957853/NY/New-York/Lousanne?tag=viagra viagra   =-OO   -- [[Ubwsmcbn]] &new{2010-03-29 (月) 13:48:22};
- http://www.ratemds.com/doctor-ratings/957853/NY/New-York/Lousanne?tag=viagra viagra   >:PP   -- [[Crycnvmc]] &new{2010-03-29 (月) 13:48:25};
- http://www.armenian.com/cgi-bin/links.cgi?searchstring=buy%20viagra viagra   %(((   -- [[Fcmogpcy]] &new{2010-03-29 (月) 13:48:35};
- http://www.findtheneedle.co.uk/products/2700385-buy-cheap-viagra-pack.asp viagra   =(   -- [[Arfkcrqq]] &new{2010-03-29 (月) 13:48:38};
- http://www.hotfrog.ca/Companies/Canadian-viagra-distributions/Cheap-viagra-20520 viagra   %-]   -- [[Vhyzsfdp]] &new{2010-03-29 (月) 13:48:39};
- http://www.armenian.com/cgi-bin/links.cgi?searchstring=cheap%20viagra viagra   %-]   -- [[Nzareftu]] &new{2010-03-29 (月) 13:48:43};
- http://www.hotfrog.ca/Companies/Canadian-viagra-distributions/Cheap-viagra-20520 viagra   >:-O   -- [[Jpmhmkku]] &new{2010-03-29 (月) 13:48:51};
- http://www.psu.com/forums/member.php?u=224294 tramadol prescription   =-((   -- [[Ksnyfbsn]] &new{2010-04-10 (土) 10:29:45};
- http://www.psu.com/forums/member.php?u=224296 soma   %-(   -- [[Kfpyltzc]] &new{2010-04-10 (土) 10:29:47};
- http://www.psu.com/forums/member.php?u=224297 tramadol purchase   >:-]]]   -- [[Uauxakza]] &new{2010-04-10 (土) 10:29:49};
- http://baseballjersey.portbb.com/profile.php?id=10552 viagra   =-]]]  http://ps3world.ch/forum/index.php?action=profile;u=20236 tramadol   >:-DD  http://malachi.org/forum/profile.php?id=34493 cheap tramadol   %O  http://www.quoatdis.com/forums/profile.php?id=93314 buy viagra   >:-(  http://www.procomomentum.com/forum/profile.php?id=39940 tramadol   :]]   -- [[Jxagnump]] &new{2010-05-22 (土) 20:36:32};

#comment
----
-[[batメモ]]
[[プログラミング]]
#amazon_live(books-jp,search,Dos,48)
#amazon_search(small)

トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS