

Todo el mundo odia a los niños Pöplick, incluso yo odio a los niños Pöplick.
Aquí penso posar les anades de olla que em passin pel cap, no feu gaire cas. Tambe intentare posar les coses que m'agraden per si algu (no crec) té gustos semblants. Agusti 8{>
busco travajo inmediato de lo que sea
busco travajo soide sabadell y nezesito travajar
de lo k sea ya se de lipieza komo de dependienta
e estado travajando en panaderias restaurantes
kuidanod niños pekeños de limpieza bueno y ahora
mismo nezesito travajar si algien me nezesita o
me ayuda a enkontrar un travajo si puede ser por
sabadell solo si puede ser este es mi numero de
kontacto ***** y el del movil **** me
yamo **** **** **** tengo 17 años kumplo 18
en abril notengo beiculo y e estado en el instituto
asta 4ª de ESO
grcias por su amabilidad de poder escribir aki!
if ($_SERVER['SERVER_NAME']=='www.example.es'
|| $_SERVER['SERVER_NAME']=='example.es'
|| $_SERVER['SERVER_NAME']=='nou.example.cat')
{
header ('HTTP/1.1 301 Moved Permanently');
header ('Location: http://www.example.cat'.$_SERVER['REQUEST_URI']);
die();
}
Un "MVC Framework" no es un fi en si mateix, ha de servir per el projecte pel qual l'estas creant.
Ai mareta, que fotriem sense el Firebug ???
Espectaculaaaaaaaa !
So
I have planned my grand attacks
I will stand behind their backs
with my brand-new battle ax
Then they will they taste my wrath
They will hear me say
as the pavement whirls
"I hate California girls..."
Don't missunderstandme, I'm a huge fan of the google tools and services, the automatic ones and this post is based on my personal opinion only.
Les eines de desenvolupament son espectaculars si fem cas de les demos, trempera tecnológica a tope !
Si encara no era un "believer" avui m'han convençut, l'iPhone arrasarà, es un producte trencador que pot capturar molt "developer mind share" en molt poc temps i aquest cop Microsoft no té ni idea del que li ve a sobre.
Per mi, es un backup incremental prou bo.
use strict;
use warnings;
use File::Find;
use File::Copy;
use File::stat;
my $files_copied=0;
my $files_updated=0;
my $dirs_scanned=0;
my $files_scanned=0;
my $dirs_created=0;
my $source = 'c:/apons/';
my $destination = 'd:/apons2/';
print "Anem a copiar tot el contingut de manera incremental de $source a $destination!\n";
find(\&Wanted, $source);
print "Dirs scanned: $dirs_scanned, Files Scanned: $files_scanned\n";
print "Dirs created: $dirs_created, Files copied: $files_copied, Files updated: $files_updated\n";
sub Wanted
{
my $elemento = $_;
my $source_file=$File::Find::name;
my $destination_file=$destination.substr($source_file, length($source)-1);
if (-d $elemento)
{# Es un directori
$dirs_scanned++;
if (-e $destination_file)
{# Ya existia el directori, no fem res
#print "Directorio $destination_file ya creado NO action \n";
}
else
{# No existia el directori, el creem
$dirs_created++;
print "Vamos a crear -> $destination_file\n";
mkdir $destination_file;
}
}
Ja portem 40 línies, ai mareta, no se si arribarem, ens queden 25 !!!
if (-f $elemento)
{# Es un fitxer
$files_scanned++;
if (-e $destination_file)
{# El fitxer ja existeix, mirem la data de modificacio
#print "El fichero $destination_file existe, comprobamos si esta actualizado.\n";
my $source_stat = stat($source_file);
my $source_mtime = $source_stat->mtime();
my $destination_stat = stat($destination_file);
my $destination_mtime = $destination_stat->mtime();
if ($source_mtime > $destination_mtime)
{# Efectiviwonder, el fitxer s'ha modificat, el copiem
print "OJITO, algo ha canviat al fitxer origen $source_file, maxaquem el backup\n";
copy($source_file, $destination_file);
$files_updated++;
}
}
else
{# El fitxer de desti no existeix, el copiem
print "El fichero $destination_file NO existe, lo copiamos.\n";
copy($source_file, $destination_file);
$files_copied++;
}
}
}
my $source_stat = stat($source_file);
my $source_mtime = $source_stat->mtime();
my $destination_stat = stat($destination_file);
my $destination_mtime = $destination_stat->mtime();
print "OJITO, algo ha canviat al fitxer origen $source_file, maxaquem el backup\n";
copy($source_file, $destination_file);
$files_updated++;
print "El fichero $destination_file NO existe, lo copiamos.\n";
copy($source_file, $destination_file);
$files_copied++;
C:\apons>test.pl
Anem a copiar tot el contingut de manera incremental de c:/apons/ a d:/apons2/!
El fichero d:/apons2//lvg200706120451lb.pdf NO existe, lo copiamos.
OJITO, algo ha canviat al fitxer origen c:/apons/test.pl, maxaquem el backup
El fichero d:/apons2//i_want_you_to_learn_perl.jpg NO existe, lo copiamos.
Vamos a crear -> d:/apons2//proves
El fichero d:/apons2//proves/jquery.js NO existe, lo copiamos.
El fichero d:/apons2//proves/provainplace.html NO existe, lo copiamos.
El fichero d:/apons2//proves/provainplace2.html NO existe, lo copiamos.
El fichero d:/apons2//Superman-RedSon/Superman - Red Son 03/RED SON08.JPG NO existe, lo copiamos.
Dirs scanned: 250, Files Scanned: 2653
Dirs created: 1, Files copied: 6, Files updated: 1
No torno a copiar tot el codi complert, perquè son només 65 línies, una mica de entrenament de copy&paste no us anirà malament ;)