#!/usr/bin/perl use strict; use warnings; use Net::eBay; use Data::Dumper; my $eBay = new Net::eBay; # use new eBay API $eBay->setDefaults( { API => 2, debug => 0 } ); my $result = $eBay->submitRequest( "GetMyeBayBuying", { DetailLevel => 'ReturnAll', WatchList => { Sort => 'TimeLeft', IncludeNotes => 'true', Pagination => { EntriesPerPage => 200, PageNumber => 1 } } } ); if( ref $result ) { print "Result: " . Dumper( $result ) . "\n"; };
ascii image
0010101000011111101001101010000010011000
1110101110110101011011111010010010001011
0001011100011101111001010011010010111110
0000010111101001100000110011101100001000
0011000000111010001111111000100110000001
1010110110000000000001011001000110001010
0101100010101100000100000010100100010101
0001011001011101100011000101110111101110
0110010100110100111101110100110011111101
0010111100110011010010110010101111011011
0100000000001001001011000010110100101001
1101000111100000110111011100110111000010
1111110001111111101101001010000111101100
0010110000100000111011000000101100010110
0101111000011100111010000000011111101111
0010010011110010011101001000110101000101
0000000001000100001111111100111010001111
Wednesday 21 March 2012
Perl code to download your WatchList from eBay.
Subscribe to:
Posts (Atom)