Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

View hlegius's full-sized avatar

Hélio hlegius

  • 03:53 (UTC -03:00)
View GitHub Profile
@hlegius
hlegius / dial.pl
Created August 31, 2010 11:30
[Perl] Leitura de linhas para o Asterisk
#!/usr/bin/perl
#Script para o usuário escolher por quais portas ZAP as ligações irão sair.
#Com esse script, o usuário não tem a necessidade de editar o zapata.conf, nem dar reload no módulo zap nem no Asterisk.
print "Digite os ramais separando-os por virgulas:\n";
$line = <>;
$line =~ s/^\s+//;
$line =~ s/\s+$//;
@args = split(',', $line);