nlitsme

#!/usr/bin/perl -w
use strict;
use Compress::Zlib;
use Getopt::Long;
Getopt::Long::Configure ("bundling");

# xpcap shows the payloads of udp and tcp connections, parsing
# the output of tcpdump -x

$|=1;

nlitsme

#!/usr/bin/perl -w
# (C)2009 Willem Hengeveld  [email protected]
use strict;
use MIME::Base64;
local $/;

# script to convert macosx .plist xml files to perl, this makes them much more readable
# NOTE: there is also  "/usr/libexec/PlistBuddy -c Print  x.plist"
#
#

nlitsme

use strict;
use warnings;
use IO::File;
sub readbin {
    my $fn= shift;
    my $fh= IO::File->new($fn, "r") or die "$fn: $!\n";
    binmode $fh;
    my $data;
    $fh->read($data, -s $fn);
    $fh->close();

nlitsme

#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <[email protected]>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
#

use strict;

nlitsme

#!/usr/bin/perl
# (C) 2003-2007 Willem Jan Hengeveld <[email protected]>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
#
use strict;

# this script decodes urls listed on stdin.

nlitsme

#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <[email protected]>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
#
#  script that transposes a tab separated matrix

use strict;

nlitsme

#!perl -w
# vim: sw=4 ts=4 et :
# (C) 2003-2007 Willem Jan Hengeveld <[email protected]>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id: $
#
# http://en.wikipedia.org/wiki/Linear_regression
# http://mathworld.wolfram.com/LeastSquaresFitting.html

nlitsme

#!/usr/bin/perl -w
use strict;
use Getopt::Long;
use POSIX;

# todo: convert back to time in output

sub parseint {
    return $_[0];
}

nlitsme

#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <[email protected]>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
#

use strict;

nlitsme

#!/usr/bin/perl -w
# (C) 2003-2007 Willem Jan Hengeveld <[email protected]>
# Web: http://www.xs4all.nl/~itsme/
#      http://wiki.xda-developers.com/
#
# $Id$
#
use strict;
use IO::File;
use Getopt::Long qw(:config no_ignore_case);