IllustratorPackageのWindows版をPerlで作成中
| Revision | d93644e4e9ef65feb95e69e2cf74ae8e4a43c509 (tree) |
|---|---|
| Time | 2012-10-10 17:09:39 |
| Author |  macneko_ayu <macneko.ayu@gmai...> |
| Commiter | macneko_ayu |
Subroutine's dir & file maked.
mkdir_localtime.pl => sub_mkdir_localtime.pl subroutine/sub_encode_CP932.pl (diff) subroutine/sub_encode_utf8.pl (diff) subroutine/sub_main.pl (diff) subroutine/sub_mkdir_localtime.pl (diff)| @@ -0,0 +1,15 @@ | ||
| 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 |
| @@ -0,0 +1,15 @@ | ||
| 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 |
| @@ -0,0 +1,23 @@ | ||
| 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 $file (@_) { | |
| 19 | + push(@linkfilepath, $file); | |
| 20 | + } | |
| 21 | +} | |
| 22 | + | |
| 23 | +main(@ARGV); | |
| \ No newline at end of file |
| @@ -0,0 +1,14 @@ | ||
| 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 |
Fork