[source] fts docRFC down

Discussão em 'Dicas e tutoriais' iniciado por kodo no kami, 6 Julho 2016.

  1. kodo no kami
    Offline

    kodo no kami Membro Conhecido

    Afiliado:
    16 Dezembro 2015
    Mensagens:
    235
    Sexo:
    Masculino
    Avaliações:
    +312 / -0
    [​IMG]

    e ae galera aqui um pequeno script em perl que salva documentação RFC que sao usadas para padronização de protocolos principalmente de rede

    github

    Código (Forge Crash):
    #!/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

    Código (Forge Crash):
    $ perl script.pl rfc1918
    ou usar a sintaxe -r seguido do numero

    Código (Forge Crash):
    $ perl script.pl -r 1918
    ele vai salvar o arquivo em formato txt
     
    • Gostei Gostei x 1

Compartilhe esta Página