문자열을 해시로 분해하려면 어떻게해야합니까?

Question

나는 내가 같은 문자열이 다시 축소 할

myhashkey => { 
    key1 => val1, 
    key2 => val2, 
    key3 => val3 
} 

로 폭발 할 문자열

"myhashkey?key1=val1&key2=val2&key3=val3&key4=val4" 

에게 있습니다.

지금까지 인덱스를 사용) (내가 얼마나 비싼 인덱스(), 분할을 모르는 손

 $arg = $_[0]; 

#if arg has = it may be key=val string 
     if(index($arg,'=') > -1){ 

#if arg has & character it might be key=val&key1=val 

      if(index($arg,'&') > -1){ 

       #$arg =~ m/[=&\?]/ 
       @r = split(/[=&\?]/,$arg); 
       my $hashkey = shift(@r) 
       my %values = @r; 
       return $class->$orig(key => $k, $value => \%values); 
       ... 

      }else{ 
       @r = split('=',$arg); 
       return (key => $r[0], $value => $r[1]); 
      } 

     } 

하여 값을 만들려고 꽤 지저분 마련했는지, join() 함수는 이것을 수행하는 다른 방법과 비교됩니다. 아마도 map + grep을 사용할 수 있다고 생각했지만 grep 용 regex를 만드는 방법을 알지 못했습니다.

나는 또한 바퀴를 재발 명하고 싶지 않으므로 누군가가 이것을 어떻게하는지 더 잘 알 수 있습니다.

은 BTW이 무스 BUILDARGS 하위에서 어떤 일이 일어나고 업데이트, 그래서 매번 문자열을 구문 분석 할 URI와 같은 모듈을 사용하지 않습니다.

이 내가

my $w = My::Param->new('hashkey?key1=val1&key2=val2&key3=val3'); 
my $x = My::Param->new(key => 'x', value => '7'); 
my $y = My::Param->new('y=123'); 

BUILDARGS

에서 함수를 사용하여 인쇄 덤퍼 (*), 이미 발명 휠의 이름은이 경우

{ 'key1' => 'val1', 'key2' => 'val2', 'key3' => 'val3' } 
bless({ 'key' => 'hashkey', 'meta_info' => [ #0 'hashkey?key1=val1&key2=val2&key3=val3' ], 'value' => { 'key1' => 'val1', 'key2' => 'val2', 'key3' => 'val3' } }, 'My::Param') 
bless({ 'key' => 'x', 'meta_info' => [ #0 'key', #1 'x', #2 'value', #3 '7' ], 'value' => '7' }, 'My::Param') 
bless({ 'key' => 'y', 'meta_info' => [ #0 'y=123' ], 'value' => '123' }, 'My:Param') 

Answer 1

에이를 생산하고있어 어떻게 URI

$ perl -MData::Dumper -MURI -e' 
    $uri = URI->new("myhashkey?key1=val1&key2=val2&key3=val3&key4=val4"); 
    $h{ $uri->path } = { $uri->query_form }; 
    print Dumper(\%h); 
' 

Answer 2

이것이 작동하는 동안 (1) :

my $str = "myhashkey?key1=val1&key2=val2&key3=val3&key4=val4"; 

my ($path,$data) = split /\?/, $str, 2; 
my %h = (
     $path => { 
      map { 
       split /=/, $_, 2 
      } split /\&/, $data 
     } 
     ); 

use Data::Dumper; 
print Dumper \%h; 

URI 사용에 대한 귀하의 반대 의견은 조숙 한 최적화의 경우라고 생각합니다. 오버 헤드가 중요하다는 것을 알지 못하면 그것을 땀을 내지 마십시오.

(1) - 제한 사항은 원하는 텍스트 안에 & 같은 것을 다루는 것을 포함합니다. URI와 같은 정상적인 상황에서는 % escape sequences로 처리됩니다. 그러나 위의 코드를 처리 할 코드가 없습니다. (다른 맵을 거기에 추가하는 것은 반드시 어렵지는 않겠지 만) URI를 직접 사용하고 포함 할 수있는 (무시할 수있는) 오버 헤드를 발생시키는 것보다 코딩 유지 보수가 훨씬 더 비쌉니다.