есть код на perl, как это на родной php переписать?

[grin]

есть код на perl, как это на родной php переписать?

есть код на перле:

#!/usr/bin/perl

#@INC="../CyberCheck";
use ExtUtils::testlib;
use CyberCheck;


my $pass="11111111111";

# Load private key
open fh,"private.key";
my $seckey;
while(<fh>)
{
    $seckey .=$_;
}

# Load public key
open fh2,"public.key";
my $pubkey;
while(<fh2>)
{
    $pubkey .=$_;
}

# Message
my $msg="Message for sign";


# Make signature
my $doc1=CyberSign($msg,$seckey,$pass);
print "CyberSign:\n$doc1\n\n";

# Check signature
my $doc2=CyberCheck($doc1,$pubkey);
print "CyberCheck:\n$doc2\n";

так же есть файл CyberCheck.pm

package CyberCheck;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(
    CyberSign
    CyberCheck
);
$VERSION = '0.01';

bootstrap CyberCheck $VERSION;
1;
__END__

что сие делает понятно (немного), можно ли это на пыхе изобразить?

 

[Silent]

Сначала нужно найти аналог модуля CyberCheck, потому что он сишный и основная часть скорее всего лежит в path_to_perl/site/lib/auto/CyberCheck.

 

[grin]

ok, я его нашел, это действительно сишная либа, можно ли ее заюзать из пехапея?

 

[Silent]

Не знаю, но из ПХП можно вызвать перловый скрипт и не думать больше ни очем.

 

[Линк]

Хотелось бы добавить что если снять коммнетарий со строки
#@INC="../CyberCheck";

то модуль CyberCheck начнецца искаться в соответствующей папке
где наверное и лежит CyberCheck.pm

а еще лучше
$INC="../CyberCheck";

(
use МОДУЛЬ - включает МОДУЛЬ.pm

после чего к его методам (sub) можно обращацца так
МОДУЛЬ::метод

@INC -= массив, где искать модули
вообще $var - контекст скаляр, @var - контекст массив, %var - контекст hash)
эт в php все в кучу)))))
)