もっとスッキリさせたい #!/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…

NetAppをnfsでマウントしている領域で「File too large」。 touchでファイル作っても「File too large」。 1ディレクトリ内のファイル数上限を超えた...? 2,221,918以上作れない。根拠となる仕様や式が見つからないので、前述のtouchでexitコード1が戻るまで…

対話型シェルスクリプトを作り、隣の人にレビューしてもらいました。 レビュー前後でこう変わりました。 レビュー前 echo -n "please input targets_arg1 (default = HOGE) : " read ARG1 if [ -z $ARG1 ]; then ARG1=HOGE fi レビュー後 echo -n "please in…