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 REDHAT

xltworking

XltWorking(3X)															    XltWorking(3X)

NAME

       XltWorking - Convenience function to display a Working dialog, and update the bar graph in the dialog.

SYNOPSIS

       #include <Xlt/Xlt.h>

       Boolean XltWorking(widget, question, percent_done)
	    Widget    widget;
	    String    question;
	    int       percentdone;

DESCRIPTION

       XltWorking  Creates  a  dialog  containing  a  message string, a bar showing the percentage of the task complete, and an abort button. When
       called with a percent_done value of zero the dialog is managed, and a timer installed to update the bar every second. If  question  is  not
       NULL,  the message string in the dialog is set to this. When called with a percent_done of 100, the dialog is un-managed.  If called with a
       percent_done of -1, only the message is changed. Any value between 0 and 100 will cause the bar graph to be updated the next time the timer
       fires, and processes any pending timer and X events. If the return value is True, the user has requested that the task should be aborted.

       widget The widget to wait for.

       question
	      The message to display in the working dialog. Or NULL, meaning no change.

       percent_done
	      The  percentage  of  the	task complete. 0 will cause the dialog to be managed.  100 will cause the dialog to be un-managed. -1 will
	      update the question only.  Any value between 0 and 100 will update the bar graph.

RETURN VALUE

       Boolean, if True the abort button was pushed, or the window was closed by the window manager.

RELATED INFORMATION

																    XltWorking(3X)