De momento no hay nada, mas adelante pondré mis scripts en perl y demás paridas.
![]()

De paso pondre paridas de series de anime pata negra que me gusten (JoJo Bizarre, Hunter x Hunter, Naruto etc etc)
Kioler Buffel!
Haciendo mi visita diaria a www.somethingawful.com me he encontrado esta foto. Solo enfermos del street fighter! Jab,Jab,towards,short,Fierce! ![]() |
Llamadme enfermo, pero me he apuntado a un fanlisting de Urumi Kanzaki. Los que hayan visto GTO sabrán quien es, sino, a investigar. |
|
Como no se me ocurre que poner, ahí va otro screenshot. Sigue siendo un FreeBSD pero ahora actualizado a 5.3 con Xfce 4.2 PD: Me he sacado el carnet de conducir! (Todo a la primera y teórica por libre!) |
|
Mirando las estadísticas de la web veo que los 4 gatos que entran buscan la rom del Kof Neowave. Os lo digo por si no lo sabeis, no existe emulador de la placa Atomiswave (la del Guilty Gear) ni roms para descargar, asi que a esperar a la versión de PS2/XBOX |
|
Actualización trapera, un screenshot de mi escritorio. (Uso xfce4 en una FreeBSD 4.10) screenshot El chavalote que sale en el wallpaper es Uchiha Sasuke de la serie Naruto. Os recomiendo que la veais o la leais, vale la pena... |
|
Aquí teneis diferentes formas de hacer un script en perl para buscar la letra de un dni: |
| #!/usr/bin/perl @l=qw(T R W A G M Y F P D X B N J Z S Q V H L C K E T);$d=pop;print$l[$d-(23*(sprintf("%d",$d/23)))]
#!/usr/bin/perl @l=(T,R,W,A,G,M,Y,F,P,D,X,B,N,J,Z,S,Q,V,H,L,C,K,E,T);$d=pop;$_=$d/23;m/(\d+)/;print$l[$d-=$1*23] #!/usr/bin/perl $d=pop;$_=$d/23;/(\d+)/;$l=TRWAGMYFPDXBNJZSQVHLCKET;print substr($l,$d-=$1*23,1) Mirando por ahí me he dado cuenta de que hice el brevas con estos scripts pudiendolos reducir a esto: #!/usr/bin/perl $l=TRWAGMYFPDXBNJZSQVHLCKET;print substr($l,($_=pop)%23,1) |
Como de cagarla se aprende, reducimos más todavia (53 chars) 2004-12-29:
#!/usr/bin/perl
$l=TRWAGMYFPDXBNJZSQVHLCKET;print substr$l,(pop)%23,1
Venga con el festival de reducciones! (2006/03/10) (48 chars)
#!/usr/bin/perl
print substr TRWAGMYFPDXBNJZSQVHLCKET,(pop)%23,1
|
Y por aquí mi japh: #!/usr/bin/perl
@e=(
0
,74
,117,
115,116
,32,65,110
,111,116,104
,101,114,32,80,
101,114,108,32,72
,97,99,107,101,114,
012);for
(1..
scalar
@e){
print chr
@e[$_]}
|
|
Hace casi un año me dió por participar en un concurso de golf en el que tenias que imprimir la siguiente tabla ascii:
!"#$%&'()*+,-./
0123456789:;<=>?
@ABCDEFGHIJKLMNO
PQRSTUVWXYZ[\]^_
`abcdefghijklmno
pqrstuvwxyz{|}~
En su momento hice esta versión: for(32..126){print chr;print"\n"if($_-31)%16==0}print"\n"
Hoy la he mirado y he retocado algunas cosas reduciendola a 50: for(1..95){print chr$_+31;print$/if$_%16<1}print$/
Quiero aclarar que quedé de los últimos... :P Por si a alguien le interesa cuelgo el script para comprobar si tu script cumple con lo necesario. asciitest.plEstos concursos se pueden seguir en http://terje2.perlgolf.org |
|
PARIDA!! Un foto que me enviaron de un supuesto test de conducir (lloré de la risa): test |
|
Uno de los juegos de puzzles mas currados que he jugado en la vida: Private Garden 3 |
|
Para los fanáticos de JoJo Bizarre Adventure, podeis descargar scans en ingles de la 3 y 4 parte al completo y de la 5 y 6 parte que están en progreso. JoJo Scans |
|
Proximament migraré esta pagina a Mason, estad atentos! |
|
Supongo que mucha gente lo habrá visto ya, pero yo lo pongo igualmente, el texto de una camiseta de un compañero de trabajo (y dueño del servidor...): who | grep -i blonde | date ; cd ~; unzip; touch; strip; finger; mount; gasp; yes; uptime; umount; sleep Solo frikis... |
|
He aquí unos Wallpapers que he hecho del nuevo King Of Fighters NeoWave para la placa Atomiswave de Sammy (Guilty Gear). 1 2 3 |