| [ LinuxFreeBSD ] in KIDS 글 쓴 이(By): alfo (마야) 날 짜 (Date): 2000년 8월 4일 금요일 오후 12시 53분 57초 � 목(Title): [질문]다음 regular expression 좀 봐주세� 안녕하세요. perl/oracle/apache에서 돌아가는 프로그램 깔다가 regular expression 부분에서 잘못 된거 같아 여러분께 도움을 구합니다. (96번줄) 잘못됐다고 생각하는 이유는 98번줄에서 에러 메시지(맨밑에 첨부)가 떴고, vi 에디터에서 98번 이후 로 뻘겋게 나타나거든요. (이말은 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/arraydb/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 |