Using perl Syntax Highlighting
- #!/usr/bin/perl
- $banner ='
- _________.__ .__ __ ________
- / _____/| |__ __ _________|__| | __\_____ \ ____
- \_____ \ | | \| | \_ __ \ | |/ / _(__ < / \
- / \| Y \ | /| | \/ | < / \ | \
- /_______ /|___| /____/ |__| |__|__|_ \/______ /___| /
- \/ \/ \/ \/ \/
- Shurik3n Installer
- ';
- print $banner ."\n" ;
- $user = $< ;
- if($user !=0 ){
- print "[-]Be root my friend\n";
- exit ;
- }
- my @modulos = (
- "Module::Load",
- "Module::Util",
- "Term::Screen",
- "Switch"
- );
- for(my $i = 0 ; $i <= $#modulos ; $i++ ){
- print "Instalando $modulos[$i] \n";
- sleep 1;
- system("cpan -e install $modulos[$i]");
- sleep 1;
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El problema está en la linea 40. Si le quito el parámetro -e falla. Y si se lo agrego me vuelca esto entre módulo y módulo instalado
Unknown option: e
El caso es que los módulos se instalan bien... aunque si alguien me pudiera decir el porqué de este efecto paranormal se lo agradecería.
Saludos y gracias de antemano.
=^.^=
