IllustratorPackageのWindows版をPerlで作成中
| Revision | f5fc922843e0173697e83034bec01fb2c3791d9f (tree) |
|---|---|
| Time | 2012-10-21 18:12:43 |
| Author |  macneko_ayu <macneko.ayu@gmai...> |
| Commiter | macneko_ayu |
subroutine-directory deleted.
subroutine/sub_encode_CP932.pl subroutine/sub_encode_utf8.pl subroutine/sub_main.pl subroutine/sub_mkdir_localtime.pl subroutine/sub_openfile.pl| @@ -1,15 +0,0 @@ | ||
| 1 | -use strict; | |
| 2 | -use warnings; | |
| 3 | -use utf8; | |
| 4 | -use Encode qw/decode encode/; | |
| 5 | - | |
| 6 | -my $var = "ダミーテキスト"; | |
| 7 | - | |
| 8 | -#CP932でencode | |
| 9 | -sub encode_CP932 { | |
| 10 | - my $target = $_[0]; | |
| 11 | - $target = encode('CP932', $target); | |
| 12 | - return $target; | |
| 13 | -} | |
| 14 | - | |
| 15 | -print encode_CP932($var); | |
| \ No newline at end of file |
| @@ -1,15 +0,0 @@ | ||
| 1 | -use strict; | |
| 2 | -use warnings; | |
| 3 | -use utf8; | |
| 4 | -use Encode qw/decode encode/; | |
| 5 | - | |
| 6 | -my $var = "ダミーテキスト"; | |
| 7 | - | |
| 8 | -#utf8でencode | |
| 9 | -sub encode_utf8 { | |
| 10 | - my $target = $_[0]; | |
| 11 | - $target = encode('utf8', $target); | |
| 12 | - return $target; | |
| 13 | -} | |
| 14 | - | |
| 15 | -print encode_utf8($var); | |
| \ No newline at end of file |
| @@ -1,24 +0,0 @@ | ||
| 1 | -use strict; | |
| 2 | -use warnings; | |
| 3 | -use utf8; | |
| 4 | -use Encode qw/decode encode/; | |
| 5 | -use File::Basename; #ファイルパス分割のため | |
| 6 | -use File::Copy; #ファイルコピーのため | |
| 7 | - | |
| 8 | -# ファイルシステムの設定（デフォルト:Unix） | |
| 9 | -fileparse_set_fstype('MSWin32'); | |
| 10 | - | |
| 11 | -my $temp = ""; | |
| 12 | -my $file = ""; | |
| 13 | -my @linkfilepath = (); #収集するファイルのパスを入れる配列 | |
| 14 | -my $errcount = 0; | |
| 15 | - | |
| 16 | -#ファイルを引数で受け取り繰り返し処理させるメインルーチン | |
| 17 | -sub main { | |
| 18 | - foreach my $targetfile (@_) { | |
| 19 | - push(@linkfilepath, $targetfile); | |
| 20 | - } | |
| 21 | - return @linkfilepath; | |
| 22 | -} | |
| 23 | - | |
| 24 | -main(@ARGV); | |
| \ No newline at end of file |
| @@ -1,14 +0,0 @@ | ||
| 1 | -use Encode qw/decode encode/; | |
| 2 | -use utf8; | |
| 3 | - | |
| 4 | -#デスクトップに現在時刻名のディレクトリを作成 | |
| 5 | -sub mkdir_localtime { | |
| 6 | - my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime(); | |
| 7 | - $year += 1900; | |
| 8 | - $mon += 1; | |
| 9 | - my $time = "$year-$mon-$mday $hour-$min-$sec"; | |
| 10 | - mkdir $ENV{USERPROFILE}.encode('CP932','/デスクトップ/').$time; | |
| 11 | - return $ENV{USERPROFILE}.'/デスクトップ/'.$time; #戻り値はエンコードしない | |
| 12 | -} | |
| 13 | - | |
| 14 | -print mkdir_localtime(); | |
| \ No newline at end of file |
| @@ -1,12 +0,0 @@ | ||
| 1 | -use strict; | |
| 2 | -use warnings; | |
| 3 | -use utf8; | |
| 4 | - | |
| 5 | -sub openfile { | |
| 6 | - my $targetfile = $_[0]; | |
| 7 | - open my $fh, '<', $targetfile | |
| 8 | - or die "Can't open $targetfile: $!"; | |
| 9 | - return $fh; | |
| 10 | -} | |
| 11 | - | |
| 12 | -openfile($ARGV[0]); | |
| \ No newline at end of file |
Fork