open (O, ">1.get");
for $f (<*.sjs>){
  print $f, "\n";
  open (I, $f);
  while(<I>){
    chop;
#    print $f, $_, "\n";
    if (/\<a href=([^\>]*)\>([^\>]*)\<\/a\>/){
#      print $1, $2, "\n";
      $D{$1} = $2;
    }
  }
}

for (sort keys %D){
#  next if $D{$_} eq "";
  next if (&chke($_) == 1);
  print "[$_][$D{$_}]\n";
  &o("<a href=$_>$D{$_}</a> \n");
}

sub chke {
  local($n) = shift;
  return 1 unless $D{$n} =~ /‚³‚ñ/;
  return 1 unless $n =~ /plaza.rakuten.co.jp/;
  return 1 if $n=~ /\/\?func\=/;
  return 1 if $n eq '';
  return 0; 
}

sub o {
  local($_) = shift;
  print O $_;
}