Updating Darwin ports on Mac OS X

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: $ sudo su – # /opt/local/bin/port -d selfupdate Secondly, we update the already installed Darwin ports: # /opt/local/bin/port upgrade […]

Calculate netmask in Perl

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). #!/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, […]

Perl script: speed.pl

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, …) #!/usr/bin/perl use strict; use warnings; my $file = shift @ARGV; $| = 1; my @LABELS = qw/kbytes mbytes gbytes/; my $prev_size = -s $file; my […]