Many times I have been looking on the Internet to find a suitable solution for this, but in the end I’ve created my own solution. These next steps will explain how to recover a deleted file back into the HEAD … Continue reading
Monthly Archives: August 2010
MacOSX can install and upgrade your favourite UNIX and Linux packages. The Darwin Ports project (http://darwinports.com/) was created to help in these tasks. First we need to update the list of updates available on the internet:
|
1 2 |
$ sudo su - # /opt/local/bin/port -d selfupdate |
Secondly, we update … Continue reading
I had to mimic a certain web application for a customer I’m currently working for, so I’ve created a small standard webserver in Perl using HTTP::Daemon. The only thing it does, is serving one particular file.
This is a small code snippet I wrote along time ago for a bigger framework I’ve created. No extra modules are required. It calculates the netmask of a network based on the network address and network bit (CIDR notation).
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
#!/usr/bin/perl use strict; use warnings; sub _calc_netmask { my($subnet) = @_; # e.g.: 10.0.0.0/24 192.168.1.0/16 my($network, $netbit) = split /\//, $subnet; my $_bit = ( 2 ** (32 - $netbit) ) - 1; my ($full_mask) = unpack( "N", pack( "C4", 255,255,255,255 ) ); my $netmask = join( '.', unpack( "C4", pack( "N", ( $full_mask ^ $_bit ) ) ) ); return $netmask; } foreach my $line (<DATA>){ chomp($line); printf "SUBNET: %18s | NETMASK: %15sn", $line, _calc_netmask($line); } __DATA__ 10.0.0.0/24 192.168.1.0/27 195.94.76.0/29 172.16.0.0/17 172.19.0.0/16 1.0.0.0/8 2.0.0.0/12 4.0.0.0/13 |
A small script I wrote to see how fast a file grows (for instance when it’s being copied from one partition to another, disk to disk, network to network, …)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
#!/usr/bin/perl use strict; use warnings; my $file = shift @ARGV; $| = 1; my @LABELS = qw/kbytes mbytes gbytes/; my $prev_size = -s $file; my ($_TOTAL, $count) = (0, 1); while(1) { my $size = -s $file; my $size_diff = $size - $prev_size; $_TOTAL = ( $_TOTAL + $size_diff ) / $count++; my($total, $label) = human_readable($_TOTAL); printf "r%80s", ' '; printf "rSize: %0.2f %s | Speed: %0.2f %s/s", human_readable($size) , $total , $label; sleep 1; $prev_size = $size; } sub human_readable { my ($bytes) = @_; my $label = 'bytes'; my @labels = @LABELS; while ( $bytes > 1024 ) { $bytes /= 1024; $label = shift @labels; } return ($bytes, $label); } |