Usos de VI

Mi editor favorito, o quizá me he acostumbrado demasiado a él.
Imaginar que teneis un archivo con 7000 lineas generadas a partir de un script en perl
y teneis que introducir estas lineas en un sitio en concreto de otro segundo archivo.
¿Como hacerlo con vi?, seguro que hay formas alternativas de hacerlo, pero esta es la que me ha funcionando perfectamente.

Nos situamos al principio del fichero A.
yG (copiamos todo al buffer)
:e fichero_B (abrimos el segundo fichero sin perder el buffer)
p (nos colocamos en la posicion deseada y copiamos el buffer).

ctrl+g: comprobamos las lineas del fichero B.

Decodifica base64

#!/usr/bin/perl
use MIME::Base64;
while (<>) {
print MIME::Base64::decode_base64($_);
}

Como trabaja SIP (Protocolo de inicio de sesión)

¿Te has preguntado alguna vez por qué las llamadas de larga distancia cuestan tanto? En parte la razón es debido a que las lineas de teléfono cuestan mucho. Cuando vas en tu coche, a veces puedes ver a un técnico telefónico realizando tareas de mantenimiento en la línea telefónica, pero quizá no te has parado a pensar es en que hay literalmente miles de individuos trabajando para mantener nuestras líneas telefónicas.

El sistemas telefónico trabaja vía una configuración "rueda de diente". Lo que esto significa es que cada llamada de larga distancia es enrutada a través de el cable telefónico a una estación central donde tu voz es enrutada a su vez a otra estación central que al final la entrega a la persona con la que estabas intentando comunicarte. Para que esta llamada se pueda mantener, el tiempo completo que estas hablando, un espacio entre todas las lineas que hay entre tú y la persona con la que estas en contacto debe estar completamente dedicado a vosotros. Dado que hay millones de personas hablando al mismo tiempo, el pequeño espacio a lo largo de las líneas telefónicas se convierte en una propiedad muy deseada. Y por lo tanto igual que todas las cosas que son muy deseadas, el precio es alto. Sin embargo antes de las recientes innovaciones no existia alternativas por lo que todo el mundo a regañadientes paga el costo de una llamada a larga distancia.

SIP, o el protocolo de inicio de sesión ha hecho descender al mundo telefónico, en terminos económicos. Específicamente SIP se refiere al protocolo que permite a los ordenadores hablar entre sí sin la necesidad de pasar por una estación central.
Practicamente lo que esto significa para ti y para mí, es que ahora no es necesario pagar por carísimas líneas de teléfono para realizar nuestras llamadas. La tecnología SIP es un desarrollo relativamente nuevo en el cual las llamadas son hechas peer-a-peer, esto es equipo-a-equipo, más que a través de una rueda de dientes a través de diferentes estaciones centrales. Lo que esto significa es que ahora eres capaz de hablar con gente directamente desde tu telefono SIP. Esta forma es radicalmente más barata que el viejo método de llamar.

El sistema SIP no requiere un ordenador central ni operadores tal y como necesitaba el anterior sistema telefónico. Sólo necesitas tu ordenador, y un telefono SIP, que se ocuparan de todo el routing por tí.

SIP ha estado presente desde hace algunos años, pero sólo recientemente ha empezado a crecer en popularidad. Este rápido incremento de interes en SIP es sobre todo gracias a compañias como Mobalex, quienes fueron conscientes en el hecho de hace bastante hemos estado esperando ciertos tonos, botones y protocolos de nuestros teléfonos, lo que ellos han hecho ha sido pasar todas estas funciones al sistema SIP. Más que forzar a los usuarios a comunicarse de una forma totalmente nueva, lo que estas compañias han hecho es proveer una experiencia de llamada en la cual desde la perspectiva de los usuarios es completamente idéntica a la telefonía tradicional.

Sip is tipicamente ofrecido en dos formatos, basado en ordenador y basado en hardware. Sip basado en ordenador es un sistema que te permite realizar llamadas usando tu ordenador como router y comunicandote vía un microfono y auriculares de tú ordenador. La más popoular y práctica versión sin embargo actualmente te provee con nuevos telefonos SIP, tal y como los antiguos, o conviritiendo tu teléfono actual en SIP. Eliminando cualquier requerimiento técnico, los proveedores modernos de SIP lo han hecho usando el sistema tan fácil o más facil aún que usar un teléfono tradicional. Digo más fácil porque muchas compañías son capaces de tomar ventaja sobre el hecho de que este sistema esta basado en internet para darnos beneficios únicos. Estos incluyen la habilidad de ajustar tu plan, cambiar tus opciones de llamada y pagar tus facturas del mismo sitio web.

La tecnología SIP es una revolución en el mundo de la comunicación. Creando una red peer-to-peer, SIP ha sido capaz radicalmente de recortar los precios de la telefonía tradicional, tomar ventaja de internet y todo ello maantenteniendo la tranquilidad de la telefonía tradicional. Es sólamente cuestión de tiempo antes de que todos nosotros usemos SIP para todas nuestras necesidades telefónicas.

Traducido de asteriskvoipnews

Verifica enlaces rotos para unos directorios dados.

#!/usr/bin/perl

########################################################
#
# Perl script para chequear links rotos en el sistema
#
#
########################################################

use warnings;

use File::Find ();

#Directorios a chequear.
@direc=("/usr/local/etc3", "/usr/local/etc4");

use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
*prune = *File::Find::prune;

foreach $directory (@direc)
{
File::Find::find({wanted => \&wanted}, $directory);
}

exit;

sub wanted {
-l && !-e && print "Broken link: $File::Find::name\n";
}

Rompe enlaces simbolicos y deja el original

-Script para romper enlaces simbolicos desde la ruta actual donde nos encontramos
y deja sólamente los originales donde apuntaba.


#!/usr/bin/perl

########################################
#Rompe enlaces y copia los originales
#
########################################

@lineas= `ls -la`;
$n=0;
#$formato="tmpl";

print "Entra formato: ";
$formato = ;
chomp($formato);

print "$formato\n";
foreach $line (@lineas)
{
chomp($line);


if ( $line =~ /($formato)$/i)
{
@partes = split ( / +/,$line);
#$partes[8]= enlace
#$partes[10] = original
$propietario=$partes[2];
$grupo=$partes[3];

system("unlink $partes[8]");
system("cp -pr $partes[10] .");

$n +=1;
}

}

print "\n";
print "Aplicando permisos correspondientes...\n";
system("chown -R $propietario.$grupo *.$formato");
system("chmod 770 *.$formato");
print "$n enlaces rotos..\n";