Commit: 65ce41869fcfb0df8aaaea67c8a69c8584be0bfc - IllustratorPackage_for_Windows (git)

IllustratorPackageのWindows版をPerlで作成中

Commit MetaInfo

• Revisão: 65ce41869fcfb0df8aaaea67c8a69c8584be0bfc (tree)
• Hora: 2012-10-10 17:13:08
• Autor: macneko_ayu <macneko.ayu@gmai...>
• Commiter: macneko_ayu

Mensagem de Log

.ploject add & sub_mkdir_localtime.pl removed.

Mudança Sumário

• add: .project
• delete: sub_mkdir_localtime.pl

Diff

--- /dev/null
+++ b/.project
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+	<name>practice</name>
+	<comment></comment>
+	<projects>
+	</projects>
+	<buildSpec>
+		<buildCommand>
+			<name>org.epic.perleditor.perlbuilder</name>
+			<arguments>
+			</arguments>
+		</buildCommand>
+	</buildSpec>
+	<natures>
+		<nature>org.epic.perleditor.perlnature</nature>
+	</natures>
+</projectDescription>

--- a/sub_mkdir_localtime.pl
+++ /dev/null
@@ -1,14 +0,0 @@
-use Encode qw/decode encode/;
-use utf8;
-
-#デスクトップに現在時刻名のディレクトリを作成
-sub mkdir_localtime {
-	my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime();
-	$year += 1900;
-	$mon += 1;
-	my $time = "$year-$mon-$mday $hour-$min-$sec";
-	mkdir $ENV{USERPROFILE}.encode('CP932','/デスクトップ/').$time;
-	return $ENV{USERPROFILE}.'/デスクトップ/'.$time; #戻り値はエンコードしない
-}
-
-print mkdir_localtime();
\ No newline at end of file