Depending on what dir you specify it tells you any sub-directories that have greater than 10Mb worth of files in them. eg checking the amount of dirs in /home/:#!/usr/bin/perl -w use strict; my (@output, $dir); print "What dir? "; chomp($dir = <STDIN>); @output = `du -h $dir`; foreach (@output) { while (/[0-9][0-9].*?M\s/) { print; last; } }
In reply to Re: interpolate using backticks?
by djw
in thread interpolate using backticks?
by djw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |