Differences

This shows you the differences between two versions of the page.

--- perl:index [2009/08/14 07:28] – tkbletsc
+++ perl:index [2010/01/08 13:50] (current) – tkbletsc
@@ Line 1: / Line 1: @@
 ====== Perl code snippets ======
+  * [[Prototype class for OO]]
   * [[Real CSV Parsing]]
   * [[ANSI color]]
@@ Line 15: / Line 16: @@
   * [[Single document web server]]
   * [[Read password without echo]]
+  * [[Amazon preview leech]]
 ====== Blobs of code ======
@@ Line 24: / Line 26: @@
 sub sum { my $r=0; for (@_) { $r += $_ }; return $r; }
 sub avg { return sum(@_)/@_; }
+sub stdev {
+	my $s=0;
+	my $avg = avg(@_);
+	foreach (@_){
+		$s += ($_ - $avg)**2;
+	}
+	return sqrt($s/(@_-1));
+}
 sub limits {
 	my $lo = my $hi = $_[0];
@@ Line 67: / Line 77: @@
 		'<undefined timestamp format>';
 }
+sub size_units {
+	my ($n) = @_;
+	if ($n>1024*1024*1024*1024) { return sprintf("%.1f T",$n/(1024*1024*1024*1024)); }
+	if ($n>     1024*1024*1024) { return sprintf("%.1f G",$n/(     1024*1024*1024)); }
+	if ($n>          1024*1024) { return sprintf("%.1f M",$n/(          1024*1024)); }
+	if ($n>               1024) { return sprintf("%.1f k",$n/(               1024)); }
+	return $n;
+}
+sub parse_size_units {
+	my ($s) = @_;
+	if ($s=~/^([.\d]+)([kmgt]?)$/i) {
+		if    ($2 eq 't' || $2 eq 'T') { return $1*1024*1024*1024*1024; }
+		elsif ($2 eq 'g' || $2 eq 'G') { return $1*1024*1024*1024; }
+		elsif ($2 eq 'm' || $2 eq 'M') { return $1*1024*1024; }
+		elsif ($2 eq 'k' || $2 eq 'K') { return $1*1024; }
+		else                           { return $1; }
+	} else {
+		return undef;
+	}
+}