안녕하세요.
perl/oracle/apache에서 돌아가는 프로그램 깔다가 regular expression 부분에서
잘못 된거 같아 여러분께 도움을 구합니다. (96번줄)
잘못됐다고 생각하는 이유는 98번줄에서 에러 메시지(맨밑에 첨부)가 떴고, vi 에디터에서 9
8번 이후 로 뻘겋게 나타나거든요. (이말은 98번 이후의 명령어는 인식못한다는 뜻이겠죠.)
  $cookie_path =~ s'/[^/]+$'/'; 가 뭐가 잘못됐고 어찌해야 할까요.
정규표현식은 고대 문자 같아서리.
고수님의 손길을 기다립니다.
 92 sub createAuthHeader {
93     my $self        = shift;
94     my $user        = shift;
95     my $cookie_path = $q->url(-absolute=>1);
96     $cookie_path =~ s'/[^/]+$'/';
97   
98     my $cipher = new Crypt::CBC($SECRET_KEY, 'IDEA');
99     my $encrypted_user = $cipher->encrypt("$user");
100
101     my $cookie = $q->cookie(-name    => 'MAName',
102                             -path    => "$cookie_path",
103                             -value   => "$encrypted_user");
104     my $head = $q->header(-cookie => $cookie);
105     return $head;
106 }
 Software error:
 Usage: Crypt::CBC::new(new Crypt::CBC block-cipher) at ../protected/Lib/NHGRI/ArrayDB/Authenticator.pm line 98
NHGRI::ArrayDB::Authenticator::createAuthHeader('NHGRI::ArrayDB=HASH(0x81211b0)', 'admin') called at /home/httpd/html/ar
raydb/cgi/array_viewer.cgi line 126 main::processLogin() called at /home/httpd/html/arraydb/cgi/array_viewer.cgi line 54
 main::main() called at /home/httpd/html/arraydb/cgi/array_viewer.cgi line 44