itech9

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

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

#!/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);

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

}

#!/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";
}

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