
e ae galera aqui um pequeno script que salva documentação RFC que sao usadas para padronização de protocolos principalmente de rede
github#!/usr/bin/perl
#coder: kodo no kami
#data: 28/07/15
require WWW::Mechanize;
my $url = "https://tools.ietf.org/rfc/";
my $rfc;
my $kodo = WWW::Mechanize->new;
print "==========================\n fts docRFC down\n==========================\n";
if(($ARGV[0] eq "--help") || ($ARGV[0] eq "-h"))
{
print "coder: kodo no kami\n\nsintaxe:\n script.pl <rfc>\n script.pl -r <numero do rfc>\n\nexemplo:\n script.pl rfc3330\n script.pl -r 3330\n\n";
exit(0);
}
if($ARGV[0] eq "-r")
{
$rfc = "rfc" . $ARGV[1];
$url .= $rfc . ".txt";
}
else
{
$rfc = $ARGV[0];
$url .= $rfc . ".txt";
}
$kodo->get($url);
open(ARQS,">$rfc.txt");
print ARQS $kodo->content;
print "RFC salvo com sucesso\n\n";
close(ARQS);
para usar ele basta usar o nome do script seguido do rfc, exemplo
$ perl script.pl rfc1918
ou usar a sintaxe -r seguido do numero
$ perl script.pl -r 1918
ele vai salvar o arquivo em formato txt