Help for this page

Select Code to Download


  1. or download this
    my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks) = stat $s_filename;
open FILE, "<$s_filename" or die "no such file";
...
my $pem_cert;
read FILE, $pem_cert, $size;
close FILE;
  2. or download this
    my $oref_x509= Crypt::X509->new($der);
if ( $oref_x509->error ) {
          warn "Error on parsing certificate: ",
          $oref_x509->error;
}
  3. or download this
    Odd number of elements in hash assignment at ..<path>../Crypt/X509.pm 
+line 95.
Use of uninitialized value $end in numeric ge (>=) at ..<path>../Conve
+rt/ASN1/_decode.pm line 626. 
Use of uninitialized value $end in numeric eq (==) at ..<path>../Conve
+rt/ASN1/_decode.pm line 63.  
Error on parsing certificate: decode error at ..<path>../Convert/ASN1/
+_decode.pm line 64.