Archive for October, 2008

 

Setting up swap space ..

Oct 17, 2008 in Linux

# dd if=/dev/zero of=/swapfile bs=1M count=128
# mkswap -L swapfile /swapfile
# swapon /swapfile
[...]
# swapoff /swapfile
# rm /swapfile

Program for scripting Windows Device Manager functions..

Oct 10, 2008 in Microsoft, Windows

To unmount a USB memory stick from a batch (or some other)
script in Windows, use the DevCon utility here:

http://support.microsoft.com/?kbid=311272

Perl passing hashes to functions ..

Oct 09, 2008 in Perl


#!/usr/bin/perl -w
use strict;

sub showHash($)
  {
    my(%hashh) = %{$_[0]};

    my($temp);
    foreach $temp (keys(%hashh)) { print "$temp=" . $hashh{$temp} . "\n"; }
    print "\n";
  }

sub higherLevel($)
  {
    my(%hashh) = %{$_[0]};

    showHash(\%hashh);
  }

my %hash = ("1"=>"one","2"=>"two","3"=>"three");

higherLevel(\%hash);

Perl passing arrays to functions..

Oct 09, 2008 in Perl

From http://www.cs.cf.ac.uk/Dave/PERL/node61.html ..


@array1  = (1..5);
@array2  = ("A".."E");

firstSub( \@array1,  \@array2);         # One

sub firstSub {
    my($ref_firstArray, $ref_secondArray) = @_;   # Two

    print("The first array is  @{$ref_firstArray}.\n");  # Three

    print("The second array is @{$ref_secondArray}.\n"); # Three

}

Perl basic class definition and usage example..

Oct 07, 2008 in Perl

#!/usr/bin/perl

use strict;

{ package SomeClass;

  sub new {
    my $class = shift;
    my $self = {
	v1 => undef,
	v2 => undef,
    };
    bless($self, $class);
    return $self;
  }

  sub setV1($) {
    my $self = shift;
    if (@_) {
      $self->{v1} = shift
    }
    return $self->{v1};
  }

  sub getV1() {
    my $self = shift;
    return $self->{v1};
  }
}

main();

sub main() {
  my $foo = SomeClass->new();
  $foo->setV1(38);
  print $foo->getV1() . "\n";
}

Linux usb tree view info..

Oct 02, 2008 in Linux, Ubuntu

To view a tree of USB devices in Linux, install ‘usbview’ (apt-get install usbview)
or get the ‘usbtree’ script from here:

http://www.linux-usb.org/usb2.html

Furthermore, if /dev/bus/usb/devices is not enabled, tweak
/etc/init.d/mountdevsubfs.sh to do so. See here for more info:

https://bugs.launchpad.net/debian/+source/usbview/+bug/156085