Ir para o conteúdo

Template para futuros scripts

Este script serve para criar novos scripts utilizando um template predefinido. Este script vai adquirir as informações relativas ao sistema e escreve-as no novo script. Atenção só funciona em sistemas Unix.

#!/usr/bin/perl
#Developed by:Rubem Mota
use strict;
use autodie;
chomp(my $hostname =`hostname`);
chomp(my $creationdate = `date +%a%d%m%y`);
chomp(my $filename = $ARGV[0]);
chomp(my $author = `whoami`);

open(FILE,">$ARGV[0]");
print FILE "#!/usr/bin/perl -w \nuse strict \n";
print FILE "#Hostname:" . $hostname . "\n";
print FILE "#author:" . $author ."\n";
print FILE "#Creationdate: " . $creationdate."\n";
print FILE "#FIlename:" . $ARGV[0]."\n";
print FILE "#=====================================================# Config#=====================================================#\n" ;
print FILE "#Inserir a configuracao aqui\n";
print FILE "#my (variaveis a declarar);\n";
print FILE " ##### Código  ####\n"; 
close(FILE);
system("chmod +x $filename");

Por fim este script utiliza-se da seguinte forma

 ./template2perl.pl <nome_do_script_novo> 

E depois irão ficar com um um novo ficheiro com o seguinte template.

#!/usr/bin/perl -w 
use strict
#Hostname:debian
#author:rubem
#Creationdate: Dom250312
#FIlename:teste2.pl
#=====================================================# Config#=====================================================#
#Inserir a configuracao aqui
#my (variaveis a declarar);
 ##### Code  ####