perl progress bar dialog Post: 302136175

Login or Register to Ask a Question and Join Our Community

Sponsored Content

Top Forums Shell Programming and Scripting perl progress bar dialog Post 302136175 by cbkihong on Saturday 15th of September 2007 10:42:30 PM

Old

09-15-2007

Registered User

This is an example. You need to install Term::ReadKey module from CPAN before you can run it.

Code:

#!/usr/bin/perl -w

$| = 1;

my $steps = 50;
my $columns = &getTerminalSize()->[1];

for (my $i=1; $i<=$steps; $i++) {
    my $percent = ($i/$steps*100);
    my $pbwidth = $columns-10;
    my $numhashes = ($i/$steps*$pbwidth);
    printf("\r% -${pbwidth}s% 10s", '#' x $numhashes, "[ " . $percent . "% ]");
    sleep 1;
}

sub getTerminalSize {
    use Term::ReadKey;
    my ($w, $h) = GetTerminalSize(STDOUT);
    if (!defined $w || !defined $h) {
        die "Cannot determine terminal size!";
    }
    return [$h, $w];
}

Output looks like this:

Code:

#########                                                                [ 14% ]

cbkihong

View Public Profile for cbkihong

Find all posts by cbkihong

9 More Discussions You Might Find Interesting

1. UNIX for Advanced & Expert Users

progress bar

Hi all, I want to print # like that in a progress bar.. For e.g We can notice that during installation ... but,how to do that? Thnx, sakthi.

2. UNIX for Advanced & Expert Users

how to have a cp progress bar?

Hi all, This is a reformed post to my earlier ones!!!!!! I would like to know how to include a progress bar while using the cp... I am copying a few huge files from cdrom but am unable to figure out ,how to give a progress bar!!!!! I checked out other sites as well,but the issue here is...

3. Shell Programming and Scripting

Progress bar

Hi friends, how can I show a progress bar for any running process in the shell script. For example when I am copying or compressing a file. Thanks.

4. Shell Programming and Scripting

progress bar

hi all, in shell script (ksh), how do i write a progress bar ?? i have a script which searches files and while its searching i am currently printing out "." and if it finds what its searching for the script prints out the name of the file e.g .................. firstFile.txt...

5. Shell Programming and Scripting

Progress Bar in Perl for UNIX

Hi Programmers, I just wrote a small script to print the percent complete. This maybe useful for someone! #!/usr/local/bin/perl # Total from which percentage will be calculated $cnt = 16; $|=1; for($i=0;$i<$cnt;$i++) { # Calculate Percentage $percent = ($i/$cnt)*100;

6. Programming

A progress bar in C

Hello, it's me again...:eek: I need to create a progress bar in C, but i have no idea on how to do it. i want it to output something like this: Progress: 58% But i can't get it to work. Could you please post an example progress bar written in ANSI C? Thanks

7. Shell Programming and Scripting

Progress bar for cp

I'm trying to use this code to get a progress bar for cp: "Can you get cp to give a progress bar like wget?" But I'm getting these errors: stat: illegal option -- c usage: stat awk: division by zero input record number 1, file source line number 4 I'm using Mac OS X 10.6...

8. Shell Programming and Scripting

Perl Progress BAR

Looking for a solution to why my progress bar not working My code print "STARTED:\n "; my $pdf = CAM::PDF->new('XYZ.pdf') or die $CAM::PDF::errstr; print STDOUT "Processing File: "; open (FILE, ">bill_data.txt") || die "Unable to save Bill_data.txt file"; for my $pagenum (1 .....

9. Shell Programming and Scripting

Progress bar

Hi Experts; Im in the process of writing a shell script for enabling an IT operations to run archiving.We use netbackup. The script is complete, though there is one bit that i need help on. Im trying to have a progess bar for the procedure.I have gone through the man page of the command in...

LEARN ABOUT DEBIAN

bgoffice-dict-download

BGOFFICE-DICT-DOWNLOAD(1)				User Contributed Perl Documentation				 BGOFFICE-DICT-DOWNLOAD(1)

NAME

       bgoffice-dict-download - download dictionaries for bgoffice

SYNOPSIS

	   # list known dictionaries
	   bgoffice-dict-download --list

	   # download a dictionary
	   bgoffice-dict-download --dict bg-en_dual

	   # explicit output file
	   bgoffice-dict-download --dict bg-en_dual --output=/some/where.tar.bz2

DESCRIPTION

       bgoffice-dict-download is a small program to help download bgoffice dictionaries off sourceforge.net. It browses the bgoffice project
       download area and follows the download links.

       The dictionary is downloaded in the current directory, unless the "--output" option is used.

OPTIONS

       --list
	   Prints the list of the known dictionaries.

       --dict dictionary name
	   Specifies the dictionary to be downloaded. See "--list" for the known dictionaries. This option is mandatory, unless "--list" is given.

       --output file
	   Saves the downloaded dictionary in the given file, instead of ./<dict>.tar.bz2

COPYRIGHT AND LICENSE

       Copyright: (C) 2010 Damyan Ivanov dmn@debian.org

       Permission is granted to use this work, with or without modifications, provided that this notice is retained. If we meet some day, and you
       think this stuff is worth it, you can buy me a beer in return.

perl v5.14.2							    2010-12-16						 BGOFFICE-DICT-DOWNLOAD(1)