Commit: 0efddb0421cd7faffd8da8281821f8e52cf5bcda - IllustratorPackage_for_Windows (git)

IllustratorPackageのWindows版をPerlで作成中

Commit MetaInfo

• Revision: 0efddb0421cd7faffd8da8281821f8e52cf5bcda (tree)
• Zeit: 2012-10-21 18:16:31
• Autor: macneko_ayu <macneko.ayu@gmai...>
• Commiter: macneko_ayu

Log Message

Version 1.0 released.

Ändern Zusammenfassung

• modified: .project
• modified: IllustratorPackage_perl.pl
• modified: README.txt

Diff

--- a/.project
+++ b/.project
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <projectDescription>
-	<name>practice</name>
+	<name>IllustratorPackage_for_Windows</name>
 	<comment></comment>
 	<projects>
 	</projects>

--- a/IllustratorPackage_perl.pl
+++ b/IllustratorPackage_perl.pl
@@ -13,16 +13,17 @@ fileparse_set_fstype('MSWin32');
 #ファイルを引数で受け取り繰り返し処理させるメインルーチン
 sub main {
 	foreach my $file (@_) {
-		my $errcount = 0; #カウントのための変数を初期化
 		my @linkfilepath = (); #収集するファイルのパスを入れる配列
+#		my @errorlog = ();
+		
 		push(@linkfilepath, $file);
 		@linkfilepath = &openfile($file,\@linkfilepath);
-		$errcount = &copy_linkfile(\@linkfilepath,$errcount);
+		my $result = &copy_linkfile(@linkfilepath);
 
-		if ($errcount == 0){
-			print "Successful!\n";
+		if ($result == 0){
+			print "$file successful!!!\n";
 		} else {
-			print "Done! but can't collected files : $errcount files\n";	
+			print "$file error!!! Look collected directory. This programs maked error log.\n";	
 		}
 	}
 }
@@ -49,39 +50,73 @@ sub openfile {
 }
 
 sub copy_linkfile {
-	my ($linkfilepath,$errcount) = @_;
-	if ($#$linkfilepath > -1) { #配列が空じゃなかったら
+	my @linkfilepath = @_;
+	my $errorlog = "";
+#	my $errcount = 0; #カウントのための変数を初期化
+	my @errorfile_array = (); #エラーファイル名を入れる配列を準備
+	
+	if ($#linkfilepath > -1) { #配列が空じゃなかったら
 		my $newdir = &mkdir_localtime();
 		my $newdir_CP932 = &encode_CP932($newdir); #encodeした変数を準備
+		print $newdir_CP932."\n";
 	
-		foreach my $item (@$linkfilepath){
+		foreach my $item (@linkfilepath){
 			my $item_CP932 = &encode_CP932($item); #encodeした変数を準備
 			
 			if (-f $item_CP932){ #encode_CP932した結果ファイルが存在していたら（-fでファイルの存在確認）
 				unless (copy($item_CP932, $newdir_CP932)){ #copyに失敗したら
-					print "Can't copy from \"$item_CP932\" to \"".$newdir_CP932."\": $!\n";
+#					print "Can't copy from \"$item_CP932\" to \"".$newdir_CP932."\": $!\n";
+					push(@errorfile_array,basename($item)); #エラーファイル名を配列に
+#					$errcount ++;
 				}
 			} elsif (-f $item){ #encode_CP932しないでファイルが存在していたら
 				unless (copy($item, $newdir_CP932)){ #copyに失敗したら
-					print "Can't copy from \"$item\" to \"".$newdir_CP932."\": $!\n";
+#					print "Can't copy from \"$item\" to \"".$newdir_CP932."\": $!\n";
+					push(@errorfile_array,basename($item));
+#					$errcount ++;
 				}
 			
 			} else { #ファイルが存在しなかったらIlustratorファイル直下から探す
-				my $filedir = dirname($$linkfilepath[0]); #Illustratorファイルの親ディレクトリ取得
+				my $filedir = dirname($linkfilepath[0]); #Illustratorファイルの親ディレクトリ取得
 				my $linkpath = basename($item); #配置ファイルの名前を取得
 				my $linkfile = File::Spec->catfile($filedir,$linkpath); #結合してファイルパスにする
 				$linkfile = &decode_utf8($linkfile); #内部文字列（utf8）にdecodeする
 				my $linkfile_CP932 = &encode_CP932($linkfile);
 				unless (copy($linkfile_CP932, $newdir_CP932)){
-					#print "Can't copy from \"$linkfile_CP932\" to \"$newdir_CP932\"";
-					print "Can't copy from \"$linkfile_CP932\" to \"".$newdir_CP932."\": $!\n";
-					$errcount ++;
+#					print "Can't copy from \"$linkfile_CP932\" to \"".$newdir_CP932."\": $!\n";
+					push(@errorfile_array,basename($item));
+#					$errcount ++;
 				}
 			}
 		}
+
+		#エラーログの書き出し処理
+		if ($#errorfile_array > -1) {
+			my $documentname = basename($linkfilepath[0]); #ドキュメント名を取得
+			my $errorfile = join("\n",@errorfile_array); #ファイル名を改行で結合
+			$errorfile = &decode_utf8($errorfile); #内部文字列にデコード
+			$errorfile = &encode_CP932($errorfile); #外部文字列にエンコード
+			$errorlog = $documentname.&encode_CP932("を処理中にエラーが発生しました。下記ファイルが収集されていない可能性があります。\n\n").$errorfile;
+
+			mkdir $newdir_CP932."/log"; #収集したディレクトリの中にlogディレクトリ作成
+			my $logdir = $newdir_CP932."/log"; #上記を変数でも持っておく
+			my $errorlogpath = File::Spec->catfile($logdir,'log.txt'); #上記をもとにファイルパスを作成
+
+			#エラーログ用のファイルを書き込みモードで開く
+			open my $fh, ">", $errorlogpath
+				or die "can't maked $errorlogpath: $!";
+			
+			print $fh $errorlog; #書き込む
+			close $fh;
+			return 1;
+		} else {
+			return 0;
+		}
 	}
 }
 
+
+
 #CP932でencode
 sub encode_CP932 {
 	my $target = $_[0];
@@ -108,7 +143,27 @@ sub mkdir_localtime {
 	my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime();
 	$year += 1900;
 	$mon += 1;
+	if (length($sec) == 1) {$sec = '0'.$sec}; #1桁は0を頭につける
+	if (length($min) == 1) {$min = '0'.$min};
+	if (length($hour) == 1) {$hour = '0'.$hour};
+	if (length($mday) == 1) {$mday = '0'.$mday};
+	if (length($mon) == 1) {$mon = '0'.$mon};
 	my $time = "$year-$mon-$mday $hour-$min-$sec";
+	
+	if (-d $ENV{USERPROFILE}.&encode_CP932('/デスクトップ/').$time) { #同名フォルダが存在したら
+		sleep 1;
+		my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime();
+		$year += 1900;
+		$mon += 1;
+		if (length($sec) == 1) {$sec = '0'.$sec}; #1桁は0を頭につける
+		if (length($min) == 1) {$min = '0'.$min};
+		if (length($hour) == 1) {$hour = '0'.$hour};
+		if (length($mday) == 1) {$mday = '0'.$mday};
+		if (length($mon) == 1) {$mon = '0'.$mon};
+		$time = "$year-$mon-$mday $hour-$min-$sec";
+		mkdir $ENV{USERPROFILE}.&encode_CP932('/デスクトップ/').$time;
+		return $ENV{USERPROFILE}.'/デスクトップ/'.$time; #戻り値はエンコードしない
+	}
 	mkdir $ENV{USERPROFILE}.&encode_CP932('/デスクトップ/').$time;
 	return $ENV{USERPROFILE}.'/デスクトップ/'.$time; #戻り値はエンコードしない
 }

--- a/README.txt
+++ b/README.txt
@@ -15,16 +15,18 @@ Illustratorファイル内のXMPタグを正規表現で検索し配置画像の
 2.perl IllustratorPackage_perl.plのパス Illustratorファイルのパス 
 　と入力。
 　ファイルをコマンドプロンプトにドラッグ＆ドロップすればそのファイルへのフルパスが自動的に記入されます。
+　複数ファイルの処理を行う場合は複数ファイルをドロップしてください。
 3.enterを押す。
 4.デスクトップにPerl起動時の日時を名前としたディレクトリが作成されてその中にファイルが収集されます。
-　「Successful!」と表示されれば全ファイル収集済み。
-　「Done! but can't collected files : xx files」と表示されればxxファイル分収集できなかったという意味です。
-　後者の場合「"Can't copy from "コピー元のフルパス" to "コピー先のディレクトリ"」というエラーも表示されるので、必ず確認してください。
+　「（Illustratorのドキュメント名）successful!!!」と表示された場合は全ファイル収集済み。
+　「（Illustratorのドキュメント名） error!!! Look collected directory. This programs maked error log.」と表示された場合は収集できなかったファイルがあります。
+　後者の場合デスクトップに作成されたディレクトリの中の「log」ディレクトリの中に「log.txt」が作成されます。
+　「log.txt」には収集できなかったファイル名が記載されていますので、確認してください。
 
 ＜今後の予定＞
 ●サブルーチン化 ←　2012.10.16完了
 ●複数のIllustratorファイルに対応 ←　2012.10.16完了
-●エラーログをUTF-8形式のファイルで収集先のディレクトリ内に作成
+●エラーログをUTF-8形式のファイルで収集先のディレクトリ内に作成 ←　2012.10.21完了
 ●すべて一つのフォルダ内に収集できる仕様も加える
 
 ＜謝罪＞