■検索くんヘルパー

_ 最後の変更からいろいろ変わってきたので、追加とかしてみる。

require 'jcode.pl';

# $searchkey = &getsearchkey( REFERER_URI );
sub getsearchkey {
  local( $referer ) = shift;
  local( $found );
  local( $found_sjis );
  local( $found_sjis2 );

  $_ = $referer;
  $found = "";
  if ( /[?&]MT=([^&]+)/o )          { $found .= " $1"; }  # www.hotbot.com, www.goo.ne.jp, search.msn.com, search.msn.co.jp, 
  if ( /[?&]p=([^&]+)/o )           { $found .= " $1"; }  # ink.yahoo.com, search.yahoo.co.jp, google.yahoo.co.jp
  if ( /[?&]qt=([^&]+)/o )          { $found .= " $1"; }  # www.infoseek.co.jp, cnet.com/search/, 
  if ( /[?&]query=([^&]+)/o )       { $found .= " $1"; }  # www.lycos.co.jp, 
  if ( /[?&]key=([^&]+)/o )         { $found .= " $1"; }  # odin.ingrid.org, kensaku.org, 
  if ( /[?&]s=([^&]+)/o )           { $found .= " $1"; }  # www.excite.co.jp, 
  if ( /[?&]search=([^&]+)/o )      { $found .= " $1"; }  # www.excite.co.jp, netscape.com/search, 
  if ( /[?&]q=([^&]+)/o )           { $found .= " $1"; }  # www.altavista.com, www.technobahn.com, suche.fireball.de, www.e-sekai.com/, www.google.com, www.google.co.jp,
  if ( /[?&]as_q=([^&]+)/o )        { $found .= " $1"; }  # www.google.co.jp,
  if ( /[?&]kw=([^&]+)/o )          { $found .= " $1"; }  # search.fresheye.com,
  if ( /[?&]keyword=([^&]+)/o )     { $found .= " $1"; }  # snap.com/search/,
  if ( /[?&]Keywords=([^&]+)/o )    { $found .= " $1"; }  # www.goto.com/d/search/, 
  if ( /[?&]QueryString=([^&]+)/o ) { $found .= " $1"; }  # search.odn.ne.jp, 
  if ( /[?&]FI_1=([^&]+)/o ) {
    $found .= " $1";                                  # www.excite.co.jp, 
    if ( /[?&]FI_2=([^&]+)/o ) { $found .= " $1"; }
    if ( /[?&]FI_3=([^&]+)/o ) { $found .= " $1"; }
    if ( /[?&]FI_4=([^&]+)/o ) { $found .= " $1"; }
    if ( /[?&]FI_5=([^&]+)/o ) { $found .= " $1"; }
    if ( /[?&]FI_6=([^&]+)/o ) { $found .= " $1"; }
  }
  if ( /[?&]AW0=([^&]+)/o ) {
    $found .= " $1";                                  # www.hotbot.com, 
    if ( /[?&]AW1=([^&]+)/o )   { $found .= " $1"; }
    if ( /[?&]AW2=([^&]+)/o )   { $found .= " $1"; }
    if ( /[?&]AW3=([^&]+)/o )   { $found .= " $1"; }
    if ( /[?&]AW4=([^&]+)/o )   { $found .= " $1"; }
    if ( /[?&]AW5=([^&]+)/o )   { $found .= " $1"; }
  }
  $found =~ s/^ //o;
  $found =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/ego;
  $found_sjis = $found;
  &jcode'convert( *found_sjis, 'jis', 'sjis' );
  $found_sjis2 = $found_sjis;
  &jcode'convert( *found_sjis, 'sjis' );
  if ( $found eq $found_sjis ) {
    $found = $found_sjis2;
  } else {
    &jcode'convert( *found, 'jis' );
  }
  return ( $found );
}

[URL]

[View Log()]

[Trackback]

Name: Comment: