AlexBio's Blog
/dev/randomIntroduzione
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 [...]
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 [...]
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_\.-]+) [...]
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 [...]
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://
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
© AlexBio's Blog. Proudly powered by WordPress.
Registrati - Collegati