|
|
Sponsored Content
Top Forums
Shell Programming and Scripting
Perl script
Post 41289 by davidg on Thursday 2nd of October 2003 03:09:46 AM
10-02-2003
Hi,
I found a bad solution, but it is a solution
sub wanted {
$dir = "$File::Find::dir";
unless ($seen{$dir}++) {
next if ( $dir =~ "lost+found" );
$dm=`du -ks $dir`;
($kb, $path) = split /\s+/, $dm ;
$mb = int( $kb / 1024 );
if ( length($path) < 9) {
print "Directory $path has \t\t\t\t\t\t $mb MB \n";
}
elsif ( length($path) < 17 ) {
print "Directory $path has \t\t\t\t\t $mb MB \n";
}
elsif ( length($path) < 25 ) {
print "Directory $path has \t\t\t\t $mb MB \n";
}
elsif ( length($path) < 33 ) {
print "Directory $path has \t\t\t $mb MB \n";
}
elsif ( length($path) < 41 ) {
print "Directory $path has \t\t $mb MB \n";
}
elsif ( length($path) < 49 ) {
print "Directory $path has \t $mb MB \n";
}
else {
print "Directory $path has $mb MB \n";
}
}
}
I found a bad solution, but it is a solution
sub wanted {
$dir = "$File::Find::dir";
unless ($seen{$dir}++) {
next if ( $dir =~ "lost+found" );
$dm=`du -ks $dir`;
($kb, $path) = split /\s+/, $dm ;
$mb = int( $kb / 1024 );
if ( length($path) < 9) {
print "Directory $path has \t\t\t\t\t\t $mb MB \n";
}
elsif ( length($path) < 17 ) {
print "Directory $path has \t\t\t\t\t $mb MB \n";
}
elsif ( length($path) < 25 ) {
print "Directory $path has \t\t\t\t $mb MB \n";
}
elsif ( length($path) < 33 ) {
print "Directory $path has \t\t\t $mb MB \n";
}
elsif ( length($path) < 41 ) {
print "Directory $path has \t\t $mb MB \n";
}
elsif ( length($path) < 49 ) {
print "Directory $path has \t $mb MB \n";
}
else {
print "Directory $path has $mb MB \n";
}
}
}
|
|
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a question regarding running perl in the current process.
I shall demonstrate with an example.
Look at this.
sh-2.05b$ pwd
/tmp
sh-2.05b$ cat test.sh
#! /bin/sh
cd /etc
sh-2.05b$ ./test.sh
sh-2.05b$ pwd
/tmp
sh-2.05b$ . ./test.sh
sh-2.05b$ pwd
/etc
sh-2.05b$
So... (10 Replies)
Discussion started by: vino
10 Replies
2. Shell Programming and Scripting
I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows:
$count = 0;
while ( $count < $#test )
{
`sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`;
`cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies
3. Shell Programming and Scripting
so in unix this command works works and shows me a list of directories
find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt
but when i try running a perl script to run this command
my $query = 'find . -name \*.xls -exec dirname {} \; | sort -u | > list.txt';... (2 Replies)
Discussion started by: kpddong
2 Replies
4. Shell Programming and Scripting
Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.
How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ?
Like in Shell script, we use tee, is there anything in Perl or any other option ? (2 Replies)
Discussion started by: butterfly20
2 Replies
5. Shell Programming and Scripting
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies
6. Shell Programming and Scripting
I am trying to run a perl script which needs input arguments from a parent perl script, but doesn't seem to work. Appreciate your help in this regard.
From parent.pl
$input1=123;
$input2=abc;
I tried calling it with
system("/usr/bin/perl child.pl $input1 $input2");
and
`perl... (1 Reply)
Discussion started by: grajp002
1 Replies
7. Shell Programming and Scripting
Hi Folks,
I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS.
In the 1st perl script that I had, I am calling the 2nd script
main.pl
===========
print "This is my main script\n";
`perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`;
... (3 Replies)
Discussion started by: giridhar276
3 Replies
8. Shell Programming and Scripting
Hi All,
I am aware that html tags can be embedded in cgi script as below.. In the same way is it possible to embed the below javascript in perl cgi script ??
print("<form action="action.htm" method="post" onSubmit="return submitForm(this.Submitbutton)">");
print("<input type = "text"... (1 Reply)
Discussion started by: scriptscript
1 Replies
9. Shell Programming and Scripting
Not sure what I am doing wrong here, but I can print the list with no issue. Just a blank screen with the 'do'.
#!/usr/bin/perl
open FILE, "upslist.txt";
while ($line=<FILE>){
if ($line=~/^(.*?),(.*?)$/){
#print "ups:$1 string:$2\n";
do 'check_snmp_mgeups-0.1.pl -H $1 -C $2';
} ... (1 Reply)
Discussion started by: mrlayance
1 Replies
10. Programming
I have reviewed many examples on-line about running another process (either PERL or shell command or a program), but do not find any usefull for my needs way. (Reviewed and not useful the system(), 'back ticks', exec() and open())
I would like to run another PERL-script from first one, not... (1 Reply)
Discussion started by: alex_5161
1 Replies
LEARN ABOUT DEBIAN
gnome2::canvas::pathdef
Gnome2::Canvas::PathDef(3pm) User Contributed Perl Documentation Gnome2::Canvas::PathDef(3pm) NAME
Gnome2::Canvas::PathDef - Container and functions for manipulating ArtBpaths HIERARCHY
Glib::Boxed +----Gnome2::Canvas::PathDef METHODS
pathdef = Gnome2::Canvas::PathDef->new pathdef = Gnome2::Canvas::PathDef->new_sized ($length) o $length (integer) boolean = $path->all_closed boolean = $path->all_open boolean = $path->any_closed boolean = $path->any_open pathdef = $path->close_all pathdef = $path->closed_parts $path->closepath $path->closepath_current pathdef = Gnome2::Canvas::PathDef->concat (...) o ... (list) Gnome2::Canvas::PathDef objects to concatenate $dst->copy ($src) o $src (Gnome2::Canvas::PathDef) Copy the path from $src into $dst. Note: this method has very different semantics than the copy provided by Glib::Boxed. "duplicate" is the analog there. $path->curveto ($x0, $y0, $x1, $y1, $x2, $y2) o $x0 (double) o $y0 (double) o $x1 (double) o $y1 (double) o $x2 (double) o $y2 (double) pathdef = $path->duplicate $path->ensure_space ($space) o $space (integer) $path->finish boolean = $path->has_currentpoint boolean = $path->is_empty integer = $path->length $path->lineto ($x, $y) o $x (double) o $y (double) $path->lineto_moving ($x, $y) o $x (double) o $y (double) $path->moveto ($x, $y) o $x (double) o $y (double) pathdef = $path->open_parts $path->reset @pathdefs = $path->split SEE ALSO
Gnome2::Canvas, Glib::Boxed COPYRIGHT
Copyright (C) 2003-2004 by the Gtk2-Perl Team. This software is licensed under the LGPL; see Gnome2::Canvas for a full notice. perl v5.14.2 2011-11-16 Gnome2::Canvas::PathDef(3pm)