Sorry,I've changed my posting. And about your question:
I think my Problem is to separate my hush in right way:
(my $id, $first{$name}, $second{$name}) = split /,/;
There is no Problem with the server
I've tested it already with this code:
open ( my $input_1, '<', 'output1.csv' ) or die $!;
while ( <$input_1> ) {
chomp;
my ($name_1, $ip_1) = split /,/;
my $xml = XML::Twig -> new -> parsefile ( 'example.xml' );
$xml ->set_pretty_print('indented_a');
open ( my $input_2, '<', 'output2.csv' ) or die $!;
while ( <$input_2> ) {
chomp;
(my $id, $first{$name}, $second{$name}) = split /,/;
$xml -> root -> set_att('name', $name_1);
$xml -> get_xpath('//ipaddress',0) -> set_text($ip_1);
my $uri="https://hostname:9060/ers/config/networkdevice/$id";
my $req = HTTP::Request->new('PUT', $uri,
[Accept=>'application/vnd.com.cisco.ise.network.networkdevice.1.1
++xml',
Content_Type=>'application/vnd.com.cisco.ise.network.networkdevic
+e.1.1+xml; charset=utf-8'], $xml->sprint);
$req->content($xml->sprint);
$req->authorization_basic("user", "user");
It works, but it works wrong!This code updates every device (also identical devices)
And I have this message.After Update it tries to do smth(I do not understand what)and I become 400,405 Http Status. I also get warnings:
UPDATE need be done for 10.56.7.80
200 OK
400 Bad Request
Use of uninitialized value $id in concatenation (.) or string at My_Fi
+le line 65, <$_[...]> line 3.
405 Method Not Allowed
Use of uninitialized value $id in concatenation (.) or string at My_Fi
+le line 65, <$_[...]> line 4.
405 Method Not Allowed
400 Bad Request
10.56.7.80 example ip address
Line 65: my $uri="https://10.66.1.16:9060/ers/config/networkdevice/$id
+";
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
|
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.