«#!/usr/bin/perl use strict; &smash(«/archive»); sub smash { my $dir = shift; opendir DIR, $dir or return; my @contents = map «$dir/$_», sort grep !/^\.\.?$/, readdir… остальное →
RussenReaktor's Weblogultimapalabra wrote 9 months ago: du -ah –max-depth=1 с сортировкой: du -a –max-depth=1 | sort -n … more →
russenreaktor wrote 1 year ago: «#!/usr/bin/perl use strict; &smash(«/archive»); sub smash { my $dir = shift; … more →