SleipnirのIgnorURL.ini

#!/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/perl
open TXT, "<IgnorURL.txt" or die $!;
open INI, ">IgnorURL.ini" or die$!;
my @url = <TXT>;
@url = sort @url;
print INI "[IgnoreURL]\nCount=", scalar @url, "\n";
my $i = 0;
foreach(@url){
	chomp;
	print INI "Item$i=\"$url[$i]\"\n";
	$i++;
}
close INI;
__END__

SleipnirのIgnorURL.iniを編集するのに書いてみた。いや、私は全部禁止URLに登録して、「ポップアップ広告のブロック」を使ってないのです。昔書いたのがあったんだけど、index、rindex、substrばっかりで読みにくいのなんの。正規表現なしで書いてたらしょうがないんだけどね。