#!/usr/local/bin/perl open INI, "<IgnorURL.ini" or die $!; open TXT, ">IgnorURL.txt" or die $!; my $i = 0; my @url; foreach(<INI>){ next unless /^Item\d+=/; s[Item\d+="(.+?)"][$1]; $url[$i++] = $_; } @url = sort @url; print TXT @url; close INI; close TXT; __END__#!/usr/local/bin/pe</ini></ignorurl.ini">…