perl
もっとスッキリさせたい #!/usr/bin/perl my $size = 0; my $sizek = 0; my $sizem = 0; my @du; my $dusizek = 0; my $dusizem = 0; my $count = 0; my $sec; my $min; my $hour; my $mday; my $mon; my $year; open( IN, "ls -ltr $ARGV[0] |"); @INPUT_AR…
もっとスッキリさせたい #!/usr/bin/perl my $size = 0; my $sizek = 0; my $sizem = 0; my @du; my $dusizek = 0; my $dusizem = 0; my $count = 0; my $sec; my $min; my $hour; my $mday; my $mon; my $year; open( IN, "ls -ltr $ARGV[0] |"); @INPUT_AR…