add Term::ProgressBar entry
authorDon Armstrong <don@donarmstrong.com>
Mon, 19 Mar 2012 19:48:52 +0000 (12:48 -0700)
committerDon Armstrong <don@donarmstrong.com>
Mon, 19 Mar 2012 19:48:52 +0000 (12:48 -0700)
posts/using_term_progressbar.mdwn [new file with mode: 0644]

diff --git a/posts/using_term_progressbar.mdwn b/posts/using_term_progressbar.mdwn
new file mode 100644 (file)
index 0000000..cd7a8b8
--- /dev/null
@@ -0,0 +1,31 @@
+[[!meta title="Using Term::Progressbar"]] 
+
+I've been working for a while on analyzing a fairly large dataset for
+my Lupus genetics project. One of the major annoyances with analyzing
+large datasets is not knowing when a particular part of the analysis
+is going to finish, and whether I should go back and rewrite part of
+the code to be faster, or just wait for it to finish. In R, I've been
+using txtProgressBar to handle this, but I hadn't bothered to find a
+similar module for perl until now.
+
+Luckily,
+[Term::ProgressBar](http://search.cpan.org/dist/Term-ProgressBar/)
+exists, and is pretty easy to use:
+
+       my $pos = $sfh->tell();
+    $sfh->seek(0,SEEK_END);
+    my $p = Term::ProgressBar->new({count => $sfh->tell,
+                                       remove => 1,
+                                                                       ETA => 'linear'});
+    $sfh->seek($pos,SEEK_SET);
+    while (<$sfh>) {
+               ...; # yada yada yada
+               $p->update($sfh->tell());               
+       }
+
+producing useful output, which told me that my SQLite database
+creation routine would take about 2 days to finish instead of the 7
+years that the slightly less optimal version wanted.
+
+
+[[!tag tech perl]]