Using perl Syntax Highlighting
- #!usr/bin/perl
- #ppm install http://www.bribes.org/perl/ppm/Crypt-SSLeay.ppd
- use LWP::UserAgent;
- use Crypt::SSLeay;
- my $nave = LWP::UserAgent->new;
- $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
- $nave->timeout(5);
- my $code = tomar("https://anonfiles.com/api?plain",{"file"=>"test.txt"});
- print $code;
- sub toma {
- return $nave->get($_[0])->content;
- }
- sub tomar {
- my ( $web, $var ) = @_;
- return $nave->post( $web, [ %{$var} ] )->content;
- }
- #The End ?
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y me devuelve esto :
No input file specified.
Según la ayuda de la API: https://anonfiles.com/api/help
¿ Qué estoy haciendo mal ?
