0828名無しの報告垢版 | 大砲2019/09/09(月) 13:36:50.25ID:mE4ikfDv0 $Return_mark = [qw|000000 000000 000000 000000|] if $GB->{DATE} =~ /00:00:00/; $Return_mark = [qw|000000.00 000000.00 000000.00 000000.00|] if $GB->{DATE} =~ /00:00:00\.00/; $Return_mark = [qw|012345 012345 012345 012345|] if $GB->{DATE} =~ /01:23:45/;