펄을 php로좀 바꿔주세요 정보
펄을 php로좀 바꿔주세요본문
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use Data::Dumper;
use Verotel::Purchase qw(validate_signature);
my $secret = 'aaB';
my $q = CGI->new;
my $params = $q->Vars();
my $result = validate_signature($secret, %{$params});
if ($result == 1) {
print "OK";
} else {
print "Validation FAILURE!\n" . Dumper($params);
}
use strict;
use warnings;
use CGI;
use Data::Dumper;
use Verotel::Purchase qw(validate_signature);
my $secret = 'aaB';
my $q = CGI->new;
my $params = $q->Vars();
my $result = validate_signature($secret, %{$params});
if ($result == 1) {
print "OK";
} else {
print "Validation FAILURE!\n" . Dumper($params);
}
댓글 전체
validate_signature 펑션이 없네요.
무슨뜻이에요? 좀 바꿔주면 안될까요? php전혀몰라서...
펑션-> 밑에 동작하는 무언가가 있다는 의미 입니다.
없는 소스코드를 바꿀수는 없습니다.
없는 소스코드를 바꿀수는 없습니다.