#!/usr/bin/perl
# ------------------------------------------------------------------------------------
#  Program for downloading XPlanet cloud images from a random mirror
#
#  Copyright (c) 2003, cueSim Ltd.                  http://www.cueSim.com, Bedford, UK
#
# ------------------------------------------------------------------------------------
#
#  Redistribution and use, with or without modification, are permitted provided
#  that the following conditions are met:
#
#      * Redistributions of source code must retain the above copyright notice,
#  		this list of conditions and the following disclaimer.
#      * Neither the cueSim name nor the names of its contributors may
#  		be used to endorse or promote products derived from this software without
#  		specific prior written permission.
#
#  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY
#  EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
#  OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT
#  SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
#  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
#  OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
#  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
#  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
#  SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#

use LWP::Simple;

# Set options:
#  - where to save the downloaded file (default is current directory)
my $Filename = "/home/usuario/.xplanet/images/clouds.jpg";

# - how often the image is updated on the server
my $MaxDownloadFrequencyHours = 2;

# - how many times to retry, if the server doesn't respond
my $MaxRetries = 3;

## Note: excessive requests to a single image server is discouraged.
## This script limits max retries, does not download more frequently
## than every two hours (the file is generated every 3 hours). and
## picks a random mirror location for every download.
##
## Change these settings at the risk of being blacklisted from the
## image servers.


# Get file details
if(-f $Filename)
{
	my @Stats = stat($Filename);
	my $FileAge = (time() - $Stats[9]);
	my $FileSize = $Stats[7];

	# Check if file is already up to date
	if($FileAge < 60 * 60 * $MaxDownloadFrequencyHours && $FileSize > 200000)
	{
		print "File is already up to date\n";
		exit(1);
	}
}


# Try several times to download the file if necessary
for(1..$MaxRetries)
{
	# Get a random website to hit for the file
	my $MirrorURL = GetRandomMirror("mirrors.txt");

	# Download the file
	print "Using $MirrorURL\nDownloading...\n";
	my $Response = getstore($MirrorURL, $Filename);

	# If successfully downloaded, that's it, nothing more to do
	if( IndicatesSuccess($Response))
	{
		print "Finished: file successfully downloaded to $Filename\n";
		exit(0);
	}

	# Warning that we're retrying another random server
	print "Download not available, trying another website\n\n";
}

# Warning that no servers could be contacted
print "ERROR: Tried to download the file $MaxRetries times, but no servers could provide the file\n";
exit(2);



# Return codes of 200 to 299 are "success" in HTTP-speak
sub IndicatesSuccess()
{
	my $Response = shift();
	if($Response =~ /2\d\d/)
	{
		return(1);
	}
	else
	{
		return(0);
	}
}

# Returns the name of an internet resource which can provide the clouds image
sub GetRandomMirror()
{
	# Populate a list of mirrors
  my @Mirrors = (
          "http://user.chol.com/~winxplanet/cloud_data/clouds_2048.jpg",
          "http://home.megapass.co.kr/~gitto88/cloud_data/clouds_2048.jpg",
          "http://php.nctu.edu.tw/~ijliao/clouds_2048.jpg",
          "ftp://ftp.iastate.edu/pub/xplanet/clouds_2048.jpg");

	# Return one at random
	return $Mirrors[rand scalar(@Mirrors)];
}

(define (round-corners in-filename out-filename)
	(let* (
		(image (car (gimp-file-load RUN-NONINTERACTIVE in-filename in-filename)))
		(drawable (car (gimp-image-get-active-layer image)))
		)
		(script-fu-round-corners image drawable 15 TRUE 8 8 15 TRUE FALSE)
		(gimp-file-save RUN-NONINTERACTIVE image drawable out-filename out-filename)
		(gimp-image-delete image)))
							

;
; Ejemplos:
;		(round-corners-victorsanchez2 "/home/vsanchez/img/*.jpg")
;		(round-corners-victorsanchez2 "/home/vsanchez/img/*.xcf")
;		(round-corners-victorsanchez2 "/home/vsanchez/img/fotolibre*.jpg")
;
; Origen: http://lists.xcf.berkeley.edu/lists/gimp-user/2006-November/009015.html
;
; Modificaciones: VictorSanchez2
;		- Error en los parámetros de unbreakupstr
;
(define (round-corners-victorsanchez2 pattern)
	(let* (
			(filelist (cadr (file-glob pattern 1)))
			(xcfname)
			(jpgname)
			(filename)
			(image)
			(drawable)
			)
		(while filelist
			(set! filename (car filelist))
			(print (list "Procesando:" filename))
			(set! image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
			(set! xcfname (unbreakupstr (butlast (strbreakup filename ".")) "."))
			(set! xcfname (string-append xcfname ".xcf"))
			(set! drawable (car (gimp-image-get-active-layer image)))
			(script-fu-round-corners image drawable 15 TRUE 8 8 15 TRUE FALSE)
			(gimp-file-save RUN-NONINTERACTIVE image drawable xcfname xcfname)
			(set! image (car (gimp-file-load RUN-NONINTERACTIVE xcfname xcfname)))
			(set! jpgname (unbreakupstr (butlast (strbreakup xcfname ".")) "."))
			(set! jpgname (string-append jpgname "-new"))
			(set! jpgname (string-append jpgname ".jpg"))
			(set! drawable (car (gimp-image-flatten image)))
			(gimp-file-save RUN-NONINTERACTIVE image drawable jpgname jpgname)
			(gimp-image-delete image)
			(set! filelist (cdr filelist))
			(print (list "...finalizado:" filename))
			)
		)
	)
							

#!/bin/bash

if [ $# -ne 1 ]
then
        echo "Uso: $0 <extension_origen> <extension_destino>"
        echo "Ejemplos: "
        echo "$0 jpg jpg"
        echo "$0 JPG jpg"
        exit 1
fi

j=0
for i in `ls *.$1`
do
        j=$((j+1))
        if [ $j -lt 10 ]
        then
                mv $i puertas_abiertas08_0$j.$2
        else
                mv $i puertas_abiertas08_$j.$2
        fi
        echo "Procesado $j"
done
							

#!/bin/sh

cat $1  \
	| awk '{for(i=1;i<=NF;i++) print $i;}' \
	| awk '{n[$1]++;}END{for(i in n) print n[i], i;}' | sort -nr
						

#!/bin/sh

o1=0
o2=0
sel_o=1
c=0

for i in `cat colas_obsoletas.dat`
do
	# Almacena la clave actual y diferencia la clave seleccionada
	if [ $sel_o -eq 1 ]
	then
		o1=$i
		sel_o=2
	else
		o2=$i
		sel_o=1
	fi

	# Si las claves son distintas quiere decir que se han terminado de
	# contar las ocurrencias.
	# Si además el contador es 1 o 2, se muestra esa clave.
	if [ $o1 -ne $o2 ] && [ $c -eq 1 -o $c -eq 2 ]
	then
		if [ $sel_o -eq 1 ]
		then
			echo $o1
		else
			echo $o2
		fi
	fi

	# Si la clave anterior es distinta de la clave actual, inicializar el contador
	# sino, aumentar el contador porque se está contando la siguiente ocurrencia
	# de la clave primaria
	if [ $o1 -ne $o2 ]
	then
		c=1
	else
		c=`expr $c + 1`
	fi
done

Pruebas de velocidad:

$ for i in `seq 1 2000`; do echo -e "`expr $RANDOM % 100`\n`expr $RANDOM % 100`" >> fichero.out; done

$ time ./colas_awk.sh fichero.out > fichero_awk.out

real	0m0.022s
user	0m0.024s
sys	0m0.008s

#!/bin/sh

cat $1  \
	| pgawk '{for(i=1;i<=NF;i++) print $i;}' \
	| pgawk '{n[$1]++;}END{for(i in n) print n[i], i;}' | sort -nr

        # perfil de gawk, creado Sun Mar  2 14:25:34 2008

        # Regla(s)

  4000  {
  4000          n[$1]++
        }

        # bloque(s) END

        END {
   100          for (i in n) {
   100                  print n[i], i
                }
        }