<p><pre>
use strict;
use warnings;
-
use SOAP::Lite;
use Data::Dumper;
-
my $GUID = '11111111-1111-1111-1111-111111111111';
my $App = 'test';
my $servicetag = $ARGV[0] or die "Please supply a servicetag. $!\n";
my ($deal, $latest, @dates);
-
my $s = SOAP::Lite
-> uri('http://support.dell.com/WebServices/')
-> on_action( sub { join '', @_ } )
SOAP::Data->name('applicationName')->value($App)->type(''),
SOAP::Data->name('serviceTags')->value($servicetag)->type(''),
);
-
-# Do the grabbing
-my $asset = $a -> result;
-
-print Dumper($asset) ;
+print Dumper($a -> result) ;
</pre></p>
<p>The output can look like this:</p>
<tr><td>2</td><td>Pris for blyfri 95 oktan, flyttall med punktum som desimalskille.</td></tr>
<tr><td>3</td><td>Klokkeslett da prisen ble oppdatert, format HH:MM. </td></tr>
<tr><td>4</td><td>Telefon-ID på formen Android-123456789012345 eller hex-kodet streng/MD5-sum</td></tr>
-<tr><td>5</td><td>tall, uviss betydning. muligens relatert til day-verdien.</td></tr>
+<tr><td>5</td><td>tall, uviss betydning. muligens relatert til day-verdien. <b>Oppdatering 2012-06-02: Denne verdien er antall bekreftelse en gitt pris har fått.</td></tr>
<tr><td>6</td><td>Pris for blyfri 98-oktan?</td></tr>
<tr><td>7</td><td>samme som felt 3</td></tr>
<tr><td>8</td><td>samme som felt 4</td></tr>