logo AlexBio's Blog /dev/random

Tips

Manipolare file audio con SoX

Introduzione
SoX (Sound eXchange) è uno strumento multipiattaforma di manipolazione di file audio. Con esso è possibile convertire e modificare (cambiare attributi, aggiungere effetti, ecc…) oltre 20 diversi formati audio.
Per una lista dei formati supportati, completa di informazioni:

$ sox –help-format all

Sintetizzare un file audio
SoX mette a disposizioni alcune semplici funzioni di sintetizzazione (o creazione) di file [...]

Bash Tip #1: foreach file in una cartella

Un semplice esempio per mostrare tutti i file in una data cartella (in questo caso /tmp):

#!/bin/sh
 
for filename in /tmp/*
do
echo $filename
done;

Poche righe che mi sono spesso tornate molto utili. Ad esempio mi è capitato di dover convertire una serie di file wav (circa 80) in mp3. A mano risulta un lavoro immane, ma semplicemente [...]

Regex Tip #1: Email Matching

Una semplice regex (con relativa spiegazione) per ugugliare indirizzi email.

/^([a-z0-9_\.-]+)@([a-z0-9_\.-]+)\.([a-z\.]{2,6})$/

L’espressione inizia, indicando all’interprete di trovare l’inizio di una stringa (^). Nel primo gruppo ([a-z0-9_\.-]+) vengono uguagliate lettere minuscole, numeri, underscore, trattini e punti (con relativa \ in quanto un semplice punto indica qualsiasi carattere). Dopodichè viene la chiocciola (@) seguita da un altro gruppo ([a-z0-9_\.-]+) [...]

Perl Tip #2: Gtk2 TrayIcon

Da qualche tempo mi sono messo a giocare con i moduli Perl per Gtk2. In particolare mi sono interessato alla tray icon, per un picoolo porgetto che sto creando. Vediamo dunque come aggiungere in icona alla tray bar.

#!/usr/bin/perl
 
use Gtk2::TrayIcon;
Gtk2->init;
 
my $trayicon= Gtk2::TrayIcon->new(’prova’);
 
# Carica un’immagine
my $img = Gtk2::Image->new_from_file(’/percorso/immagine’);
$trayicon->add($img);
 
# Crea un tooltip
$tooltip = Gtk2::Tooltips->new;
$tooltip->set_tip( $trayicon, "Questa è una [...]

Shell Tip #1: Mostrare l’indirizzo IP

Ecco un semplice quanto brutto script per mostrare il proprio indirizzo ip:

$ /sbin/ifconfig eth0 | head -2 | tail -1 | awk ‘{ print $2; }’ | sed s/addr://

Perl Tip #1: Check OS

Come dire ad un proprio script Perl in che sistema operativo è stato eseguito? Semplice, usando una delle variabili speciali fornite da Perl stesso.

#!/usr/bin/perl
 
my $os = $^O;
print "Sistema Operativo: $os\n";
 
exit 0;

Per maggiori informazioni

$ perldoc perlvar



Spread Firefox Affiliate Button