Paul Rossman

oracle log regex

admin — Fri, 26 Aug 2011 01:29:00 +0000

grep HOST= | perl -ne '/^(.*?)*/; print $1;
while (/((HOST=.*?))/g) { print "$1";}; print "n"; '

list all cms site names

admin — Thu, 23 Jun 2011 17:27:00 +0000

curl xmllint

admin — Thu, 07 Apr 2011 03:18:00 +0000

curl -sk 'https://some.ulr/xml' | xmllint --format --recover -

uninstalling Mac OS X packages

admin — Mon, 21 Mar 2011 10:07:00 +0000

pkgutil --pkgs | grep [some package]

pkgutil --unlink [your ID]

pkgutil --files [your ID]

pkgutil --forget [your ID]

programmatically secure erase free space

admin — Thu, 02 Sep 2010 22:52:00 +0000

diskutil secureErase freespace 0 /Volumes/Disk1 > /var/log/secureeraselog.tmp

Usage:  diskutil secureErase [freespace] level MountPoint|DiskIdentifier|DeviceNode
Securely erases either a whole-disk or a volume's freespace.
Level should be one of the following:
        0 - Single-pass zeros.
        1 - Single-pass random numbers.
        2 - US DoD 7-pass secure erase.
        3 - Gutmann algorithm 35-pass secure erase.
        4 - US DoE 3-pass secure erase.
Ownership of the affected disk is required.
Note: Level 2, 3, or 4 secure erases can take an extremely long time.

create movie from images

admin — Sat, 06 Feb 2010 06:00:00 +0000

ffmpeg -qscale 1 -r 8 -b 9600 -i w%d.png movie.avi

ffmpeg -sameq %04d.jpg output.mp4

for loops with counting

admin — Wed, 27 Jan 2010 03:25:00 +0000

#!/bin/bash
for ((a=1; a <= 429 ; a++))
do
 echo $a
done

#!/bin/bash
counter=0
x=0
cat somefile | while read LINE
do
 echo $LINE
 let x=$x+1
 echo $x
done

script for standard deviation, arithmetic mean and median

admin — Tue, 15 Dec 2009 06:18:00 +0000

awk '{ sum += $1; sumsq += $1*$1 } END { printf "Mean: %f, Std: %fn", sum/NR, sqrt(sumsq/NR-(sum/NR)^2) }' /tmp/bbb

#!/usr/bin/env perl
use strict;
use warnings;
use Math::NumberCruncher;
my @data;
open (IN, “<”, “$ARGV[0]“) or die (“Cannot open $ARGV[0]: $!n”);
while () {
    push @data, $1 if (/(d+)/);
}
close (IN);
printf(“Mean: %ftMedian: %ftStdDev: %fn”,

Math::NumberCruncher::Mean(@data),
Math::NumberCruncher::Median(@data),
Math::NumberCruncher::StandardDeviation(@data));

extract files from rpm

admin — Wed, 02 Dec 2009 04:25:00 +0000

rpm2cpio myrpmfile.rpm
rpm2cpio - < myrpmfile.rpm
rpm2cpio myrpmfile.rpm | cpio -idmv

reading arguments in perl script

admin — Thu, 26 Nov 2009 03:05:00 +0000

#!/usr/bin/env perl

use strict;
use warnings;

use File::Path;
use File::Basename;
use LWP::Simple qw(get $ua);
use Data::Dumper;

foreach my $a (0 .. $#ARGV) {
    # do some work $ARGV[$a];
}