Monday 21 June 2010

Minusvalia y compra de coches

Ver este hilo en debates.coches.net.

- minusvalía > 33%, en minusválido tiene que ir siempre en el coche. Es dificil de controlar por la policia, pero que sepas que es así.
- pedir documentación en hacienda y llevar a concesionario.
- ahorro impuesto de matriculación: si < 2000 cc es el 7%
- ahorro impuesto de matriculación: si > 2000 cc es el 12%
- concesionario puede hacer algún descuento adicional, algunos del 8%
- iva reducido 4% en lugar del 16%
- exento del impuesto municipal (numerito), sólo un coche puede estar exento.
- si movilidad reducida (varemo de movilidad) -> tarjeta aparcamiento.
- no vender en coche en 4 años
- hay que esperar 2 o 4 años (no está claro) para comprar otro coche con exención.

Friday 18 June 2010

Log analizer

  • AWStats - Free log file analyzer for advanced statistics (GNU GPL).
  • webalizer - Webalizer, a fast, free web server log analysis program
Otra cosilla:

cloudapp.net - para ver tv

swig - interfacles para librerías.

Wednesday 16 June 2010

Perl reference

Wednesday, 16 June 2010

 Reference material
Online guide for object oriented perl:

my $am = Graph::AdjacencyMatrix->new($g, distance_matrix => 1);

--
implemented as:

use 5.006;
use strict;
use warnings;

package Graph::AdjacencyMatrix;

use Parent::Class;

our $VERSION = '4.4';
our @ISA     = qw(Parent::Class);
our @EXPORT  = qw(export_functions_by_default); # otherway export everything

..
sub new {
my ($class, $g, %opt) = @_;

my $self = $class->SUPER::new( $_[1], $_[2], $_[3] );

--OR--
my $self = {
_firstName => shift,
_lastName  => shift,
_ssn       => shift,
};


...
bless $self, $class;
}

sub MyMethod
{
my $self = shift;
$self->SUPER::MyMethod();
print "   MySubClass::MyMethod called!\n";
}

isa (package name)

can (function name)


Formatting Strings w/ Formatting Characters \Q..\E - here

Regular expression especials - here

Here operator here

File operators: z -e -f -d ... here

Perl reference:
  • ref EXPR -- if (ref($r) eq "HASH") -- Returns SCALAR ARRAY HASH CODE REF GLOB LVALUE FORMAT IO VSTRING Regexp
  • our $var_name -
  • our $VERSION = qv("v1.2.3"); # shorthand
  • $Module::VERSION.
  • use Module VERSION LIST
  • my $x = "abc" x 3; #$x is now the string "abcabcabc"
  • my @a = ("abc") x 3; #@a is now ("abc", "abc", "abc")
  • Prototypes: sub mylink ($$) -- mylink $old, $new
  • Operator (..) :
my $i = 4;
my $x = ("a" .. "z")[$i]; #$x is now "e"
my $y = ("a" .. "z")[-$i]; #$y is now "w"
my @a = ("a" .. "z")[0 .. $i]; #@a is now ("a", "b", "c", "d", "e")
my @b = ("a" .. "z")[1, 0, 3]; #@b is now ("b", "a", "d")


Number of elements in an array:
$#ARGV    - scalar index del último elementos
scalar( @ARGV ) - número de elementos