DCC is a wonderful tool, but it needs to be fed constantly. After going through the process of blacklisting a few emails that weren’t tag as spam, I found myself in a not so lazy position. We don’t like that … Continue reading
Category Archives: Development
To get an overview of what is running on a certain UNIX/Linux host, most users will usually run of one the following commands: ps top htop But most of the times, they will not give a correct view of what … Continue reading
Intro The easy-fancybox WordPress is actually a rather simple but cool plugin to use, if it would work out-of-the-box in WordPress 3.x (on Debian unstable). First of all, a bit of background information: I’ve installed WordPress using apt-get install wordpress on a … Continue reading
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
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); } |