/
dzavalishin
/
Modest
Обзор
Документация
Войти
/
dzavalishin
/
Modest
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
utils/MyHTML/forall.pl
38 строк
935 B
lexborisov
added all utils files
26 дек 2016, 16:58
26 дек 2016, 16:58
5e0aadd
Код
Авторство
О чём код?
#!/usr/bin/perl -w BEGIN { use FindBin; push @INC, $FindBin::Bin. "/../ext/"; }; use utf8; use strict; use MyHTML::Base; my $utils = MyHTML::Base->new(); my $enum = q~ xlink:actuate xlink actuate XLink namespace xlink:arcrole xlink arcrole XLink namespace xlink:href xlink href XLink namespace xlink:role xlink role XLink namespace xlink:show xlink show XLink namespace xlink:title xlink title XLink namespace xlink:type xlink type XLink namespace xml:lang xml lang XML namespace xml:space xml space XML namespace xmlns (none) xmlns XMLNS namespace xmlns:xlink xmlns xlink XMLNS namespace ~; my @list; my $count = 0; foreach my $line (split /\n/, $enum) { $line =~ s/^\s+//; $line =~ s/\s+$//; next if $line eq ""; my ($key, $prefix, $value, $namespace) = split /\t/, $line; print "{\"$key\", ", length($key), ", \"$value\", ", length($value), "},\n"; }