Catalog batteries avtoakkumulator.ru
Pumped for our needs catalog automotive batteries by producers from the site avtoakkumulator.ru - I spread can someone for something needed: download directory avtoakkumulator.ru
Looks unloaded directory as follows:
<! - Banner total: 108 -> <brand name="Banner"> <model name="UNI BULL, 50500, 010505000101"> <capacity> 80 </ capacity> <cranking> <en> 700 </ en> <sae> 750 </ sae> <din> 440 </ din> </ Cranking> <dimensions> 278 * 175 * 190 </ dimensions> <Execution underside strap> projection from 4 sides </ Execution underside strap> <Voltage> 12 </ voltage> <Polarity> universal polarity </ Polarity> <Location of terminals> recessed </ Location terminals> <Terminal Type> Combination </ type terminals> </ Model>
Use who need ![]()
PS If you need to "clean" XML tags from the gaps and other debris - see below.
#! / Usr / bin / perl #================================================= ======== # FILE: xmlcleaner.pl # USAGE: cat input_file *. xml | sed'/<!--/' d |. / Xmlcleaner.pl output_file.xml # VERSION: 0.2 #================================================= ======== use warnings; use strict; use encoding 'utf8', STDOUT => 'utf8'; my $ outfile = shift | | die "enter outfile name \ n"; open (OUT, '>', $ outfile) or die "Can't open $ outfile: $! \ n"; print OUT '<? xml version = "1.0" encoding = "UTF-8 "?>'," \ n \ n"; print OUT '<root>', "\ n \ n"; while (my $ line = <>) ( chomp ($ line); if ($ line = ~ / ^ (\ s *)(<.+?>)(.+?< \ /)(.+?>)$/) ( my ($ indent, $ first, $ middle, $ end) = ($ 1, $ 2, $ 3, $ 4); #(.,;:/ \) $ First = ~ s / \ s / _ / g; $ First = ~ s / [\.,:; \ \ \ / \ (\)] / / G; $ End = ~ s / \ s / _ / g; $ End = ~ s / [\.,:; \ \ \ / \ (\)] / / G; $ Line = $ indent. $ First. $ Middle. $ End; ) print OUT $ line, "\ n"; ) print OUT '</ root>', "\ n \ n"; close (OUT); exit 0;

Recent comments