Commit: 3769dccd6df825666871edeab997d7f8b8067284 - IllustratorPackage_for_Windows (git)

IllustratorPackageのWindows版をPerlで作成中

Commit MetaInfo

• Revision: 3769dccd6df825666871edeab997d7f8b8067284 (tree)
• Time: 2012-10-10 17:36:22
• Author: macneko_ayu <macneko.ayu@gmai...>
• Commiter: macneko_ayu

Log Message

1file modified. 1file maked.

Change Summary

• modified: subroutine/sub_main.pl
• add: subroutine/sub_openfile.pl

Incremental Difference

--- a/subroutine/sub_main.pl
+++ b/subroutine/sub_main.pl
@@ -15,9 +15,10 @@ my $errcount = 0;
 
 #ファイルを引数で受け取り繰り返し処理させるメインルーチン
 sub main {
-	foreach $file (@_) {
-		push(@linkfilepath, $file);
+	foreach my $targetfile (@_) {
+		push(@linkfilepath, $targetfile);
 	}
+	return @linkfilepath;
 }
 
 main(@ARGV);
\ No newline at end of file

--- /dev/null
+++ b/subroutine/sub_openfile.pl
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use utf8;
+
+sub openfile {
+	my $targetfile = $_[0];
+	open my $fh, '<', $targetfile 
+		or die "Can't open $targetfile: $!";
+	return $fh;
+}
+
+openfile($ARGV[0]);
\ No newline at end of file