du alternative in perl Post: 302233832

Sponsored Content

Top Forums Shell Programming and Scripting du alternative in perl Post 302233832 by insania on Monday 8th of September 2008 03:20:10 PM

09-08-2008

Registered User

du alternative in perl

I have a perl script that just does a `du -sk -x` and formats it to look groovy ( the argument can be a directory but usually is like /usr/local/* )

Code:

#!/usr/bin/perl

use strict;
use warnings;

my $sizes = `du -x -sk @ARGV | sort -n`;
my $total = 0;

print "MegaBytes Name\n";
for(split /[\r\n]+/,$sizes)                     #split on one or more newline characters
{
        my($number,$file) = split /\t/,$_,2;    #split on tab ($file not used here)
        my $number1 = sprintf ("%9.2f",$number / 1024);
        printf "$number1 $file\n";
        $total += $number;
}

printf ("TOTAL: %9.2f\n",$total / 1024);

The script works fine and does all that i want it to and i use it all the time, however is there an internal perl function that could replace the du -sk -x? I am just curious and would like to have a pure perl script with no shell options (primarily because the du options are not standard across the UNIX/Linux world). This is on a RHEL box just FYI. An external module might work too, if i can get them to let me install it.

Sean

insania

View Public Profile for insania

Find all posts by insania

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

alternative for mailx

hi i am struggling with mailx command, my command is mailx -a attachment.txt -s "hi this is subject " my_name@domain.com (Interrupt -- one more to kill letter) the control doesn't comes out automatically, i have to press CTRL + C .. why is it happening so ?

2. Shell Programming and Scripting

help with while loop or any other alternative?

i=1 while do mm=02 dd=03 yy=2008 echo "$mm$dd$yy" i=$(( i+1)) echo "$i" done whenever i execute the script above i will get the error below: syntax error at line 30: `i=$' unexpected

3. Shell Programming and Scripting

Alternative for Cron

Hi... I want to know whether if there is any alternative for cron.:confused: I had written a script which checks for all system/application processes every 15 min(placed in cron though). But looks funny - what if cron daemon isn't running!! and expecting that script to update the OUTPUT FILE...

4. HP-UX

alternative for egrep -o on HP-UX

Hello to all board members!! I have a problem on a HP-UX system. I should write a script. Therefore I need to search after IP addresses in the output of a command. On Debian this works: ifconfig | egrep -o "{1,3}\.{1,3}\.{1,3}\.{1,3}" The script where i need this is not ifconfig, but...

5. Shell Programming and Scripting

Alternative for wc -l

Hi techies .. This is my first posting hr .. Am facing a serious performance problem in counting the number of lines in the file. The input files i get will be in some 10 to 15 Gb of size or even sometimes more ..and I will load it to db I have used wc -l to confirm whether the loader...

6. Solaris

vi alternative

Is there any other editor, installed by 'default' in Sparc Solaris10, besides vi? I'd like to avoid installing anything new. If not, how to make vi more user-friendly? thanks.

7. Shell Programming and Scripting

Looking for an alternative to Tcl

I've created quite a collection of tcl scripts which have buttons, radio buttons, check boxes, text fields, etc. These tcl scripts in turn call and execute several hundred sh, csh, bash, perl scripts and pass in the args based on the gui selections on the same and other redhat machines. We're...

8. Shell Programming and Scripting

Alternative to Sleep?

Greetings. I've been wondering about this one for some time: Is there an alternative to sleep in bash? The reason: I'd like to simply limit the amount of processor usage in continuous while : script scenarios without spawning endless sleep processes as well. After beating the manpages, I...

9. Shell Programming and Scripting

Converting shell to Perl I run into shell built in function trap and need alternative in Perl

I am working on converting shell to Perl script. In shell we have built in function trap Do you know alternative in Perl or actually we don't need it? Thanks for contribution

10. Cybersecurity

Alternative for chattr

Hello im working on "remover script" which try to remove "kthrotlds MINER VIRUS" in next part of my remover script i have to work on files that it destroyed, virus use chattr to open and lock files and replace them with malicious content im looking for a solution to remove chattr and disable...

LEARN ABOUT DEBIAN

grape

grape(1)						      General Commands Manual							  grape(1)

NAME

       grape - inspection and management of the local grape cache used by Groovy

DESCRIPTION

       usage: grape [options] <command> [args] options:

       -D,--define <name=value>
	      define a system property

       -d,--debug
	      debug log level 4 will print out full stack traces

       -h,--help
	      usage information

       -i,--info
	      info log level 2 will print out information

       -q,--quiet
	      quiet log level 0 will print only errors

       -v,--version
	      display the Groovy and JVM versions

       -V,--verbose
	      verbose log level 3 will print verbose logs

       -w,--warn
	      warn log level 1 will print only errors and warnings

COMMANDS

       install <groupId> <artifactId> [<version>]:
	      This  installs  the  specified  groovy module or maven artifact.	If a version is specified that specific version will be installed,
	      otherwise the most recent version will be used (as if '*' we passed in).

       list:  Lists locally installed modules (with their full maven name in the case of groovy modules) and versions.

       resolve (<groupId> <artifactId> <version>)+:
	      This returns the file locations of the jars representing the artifcats for the specified module(s)  and  the  respective	transitive
	      dependencies.   You may optionally pass in -ant, -dos, or -shell to get the dependencies expressed in a format applicable for an ant
	      script, windows batch file, or unix shell script respectively.

SEE ALSO

       groovy(1)

AUTHOR

       This manual page was generated using help2man and edited by Ludovic Claude <ludovic.claude@laposte.net>, for the Debian project (but may be
       used by others).

								     July 2009								  grape(1)

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

alternative for mailx

Discussion started by: achneaz1

2. Shell Programming and Scripting

help with while loop or any other alternative?

Discussion started by: filthymonk

3. Shell Programming and Scripting

Alternative for Cron

Discussion started by: reddybs

4. HP-UX

alternative for egrep -o on HP-UX

Discussion started by: vostro