View file

File name : pdf-debug.pl

Content :

#!/usr/bin/perl

use strict;
use warnings;

# VERSION

use PDF::API2::Basic::PDF::File;

my $file = shift(@ARGV);
unless ($file) {
    print "Usage: $0 <file.pdf>\n\nDisplays information about a PDF file.\n";
    exit;
}

my $pdf = PDF::API2::Basic::PDF::File->open($file) or die "Unable to open $file: $!";
my $command = shift(@ARGV);

unless ($command) {
    print "PDF Version: " . $pdf->{' version'} . "\n";
    print "XRef Table:  " . $pdf->{' xref_position'} . "\n";
    print "Info:        " . _obj_reference($pdf->{'Info'}) . "\n" if $pdf->{'Info'};
    print "Root:        " . _obj_reference($pdf->{'Root'}) . "\n" if $pdf->{'Root'};
    print "\n";
    print "To view an object:\n";
    print "$0 <file.pdf> obj <id> [generation]\n";
    print "\n";
    print "To view a cross-reference dictionary (with optional offset in bytes):\n";
    print "$0 <file.pdf> xref [offset]\n";
    print "\n";
}
elsif ($command eq 'xref') {
    my $location = shift(@ARGV);
    $location = $pdf->{' xref_position'} unless defined $location;
    my $object = $pdf->readxrtr($location);
    print "XRef at $location\n";
    print '--------' . ('-' x length($location)) . "\n";
    _print_obj($object);
}
elsif ($command eq 'obj') {
    my $id = shift(@ARGV);
    die "Missing required object number" unless $id and $id =~ /^[0-9]+$/;
    my $generation = shift(@ARGV) || 0;

    my $location = $pdf->locate_obj($id, $generation);
    my $object = $pdf->read_objnum($id, $generation);
    print "Object $id";
    unless (ref($location)) {
        print " (file position $location)\n";
    }
    else {
        my ($obj_num, $obj_idx) = @$location;
        print " (object stream $obj_num index $obj_idx)\n";
    }
    print '-------' . ('-' x length($id)) . "\n";
    unless ($object) {
        print "[Unable to read object]\n";
    }
    else {
        _print_obj($object);
    }
}

sub _print_obj {
    my $object = shift();
    if ($object->isa('PDF::API2::Basic::PDF::Dict')) {
        print _obj_dictionary($object);
    }
    elsif ($object->isa('PDF::API2::Basic::PDF::Array')) {
        print _obj_array($object) . "\n";
    }
    elsif ($object->isa('PDF::API2::Basic::PDF::Name') or
           $object->isa('PDF::API2::Basic::PDF::Number') or
           $object->isa('PDF::API2::Basic::PDF::String')) {
        if ($object->val() =~ /^[[:print:]]+$/) {
            print $object->val() . "\n";
        }
        else {
            print $object->as_pdf() . "\n";
        }
    }
    elsif ($object->isa('PDF::API2::Basic::PDF::Null')) {
        print "<Null>\n"
    }
    else {
        print "[" . ref($object) . "]\n";
    }

    if ($object->{' stream'}) {
        print "\n";
        print "Stream\n";
        print "------\n";
        eval { $object->read_stream(1) };
        if ($@) {
            print "[Stream could not be read or decoded]\n";
        }
        elsif ($ENV{'FORCE'} or $object->{' stream'} =~ /^[[:print:]\s]*$/) {
            print $object->{' stream'} . "\n";
        }
        else {
            print "[Stream contains non-printable characters.  Set environment FORCE=1 to show the stream anyway.]\n";
        }
    }
}

sub _obj_reference {
    my $object = shift();
    return '<Object ' . $object->{' objnum'} . ($object->{' objgen'} ? ' ' . $object->{' objgen'} : '') . '>';
}

sub _obj_dictionary {
    my $object = shift();
    my $indent = shift() || 0;
    my $data = {};
    foreach my $key (keys %$object) {
        next if $key =~ /^ /;
        if (ref($object->{$key})) {
            if ($object->{$key}->isa('PDF::API2::Basic::PDF::Array')) {
                $data->{$key} = _obj_array($object->{$key}, $indent + 1);
                chomp $data->{$key};
            }
            elsif ($object->{$key}->isa('PDF::API2::Basic::PDF::Dict')) {
                if ($object->{$key}->{' objnum'}) {
                    $data->{$key} = '<Object ' . $object->{$key}->{' objnum'} . ($object->{$key}->{' objgen'} ? ' ' . $object->{$key}->{' objgen'} : '') . '>';
                }
                else {
                    unless (scalar grep { $_ !~ /^ / } keys %{$object->{$key}}) {
                        $data->{$key} = '<Empty Dictionary>';
                    }
                    else {
                        $data->{$key} = "\n" . _obj_dictionary($object->{$key}, $indent + 1);
                        chomp $data->{$key};
                    }
                }
            }
            elsif ($object->{$key}->isa('PDF::API2::Basic::PDF::Name') or
                   $object->{$key}->isa('PDF::API2::Basic::PDF::Number') or
                   $object->{$key}->isa('PDF::API2::Basic::PDF::String')) {
                if ($object->{$key}->val() =~ /^[[:print:]]+$/) {
                    $data->{$key} = $object->{$key}->val();
                }
                else {
                    $data->{$key} = $object->{$key}->as_pdf();
                }
            }
            elsif ($object->{$key}->isa('PDF::API2::Basic::PDF::Null')) {
                $data->{$key} = '<Null>';
            }
            elsif ($object->{$key}->isa('PDF::API2::Basic::PDF::Objind') and $object->{$key}->{' objnum'}) {
                $data->{$key} = '<Object ' . $object->{$key}->{' objnum'} . ($object->{$key}->{' objgen'} ? ' ' . $object->{$key}->{' objgen'} : '') . '>';
            }
            else {
                $data->{$key} = '[' . ref($object->{$key}) . ']';
            }
        }
        else {
            $data->{$key} = $object->{$key};
        }
    }
    my $longest_key = 0;
    foreach my $key (keys %$data) {
        next if $data->{$key} =~ /^\n/;
        $longest_key = length($key) if length($key) > $longest_key;
    }
    $longest_key++;
    my $value = '';
    my $cr = sub {  return 1 if substr($data->{$_[0]}, 0, 1) eq "\n"; return -1; };
    foreach my $key (sort { &$cr($a) <=> &$cr($b) or $a cmp $b } keys %$data) {
        if ($indent) {
            $value .= ' ' x ($indent * 4);
        }
        $value .= sprintf("%-${longest_key}s ", $key . ':') . $data->{$key} . "\n";
    }
    return $value;
}

sub _obj_array {
    my $object = shift();
    my $indent = shift() || 0;

    return '[ ]' unless scalar $object->elements();

    my @elements;
    my $is_complex = 0;
    foreach my $element ($object->elements()) {
        unless (ref($element)) {
            push @elements, $element;
        }
        else {
            if ($element->isa('PDF::API2::Basic::PDF::Array')) {
                push @elements, _obj_array($element, $indent + 1);
            }
            elsif ($element->isa('PDF::API2::Basic::PDF::Dict')) {
                if ($element->{' objnum'}) {
                    push @elements, '<Object ' . $element->{' objnum'} . ($element->{' objgen'} ? ' ' . $element->{' objgen'} : '') . '>';
                }
                else {
                    unless (scalar grep { $_ !~ /^ / } keys %$element) {
                        push @elements, "<Empty Dictionary>";
                    }
                    else {
                        $is_complex = 1;
                        push @elements, "Dictionary: \n" . _obj_dictionary($element, $indent + 1);
                        chomp $elements[-1];
                    }
                }
            }
            elsif ($element->isa('PDF::API2::Basic::PDF::Name') or
                   $element->isa('PDF::API2::Basic::PDF::Number') or
                   $element->isa('PDF::API2::Basic::PDF::String')) {
                if ($element->val() =~ /^[[:print:]]+$/) {
                    push @elements, $element->val();
                }
                else {
                    push @elements, $element->as_pdf();
                }
            }
            elsif ($element->isa('PDF::API2::Basic::PDF::Null')) {
                push @elements, '<Null>';
            }
            elsif ($element->isa('PDF::API2::Basic::PDF::Objind') and $element->{' objnum'}) {
                push @elements, '<Object ' . $element->{' objnum'} . ($element->{' objgen'} ? ' ' . $element->{' objgen'} : '') . '>';
            }
            else {
                push @elements, '[' . ref($element) . ']';
            }
        }
    }
    my $value;
    unless ($is_complex) {
        $value = '[ ' . join(' ', @elements) . ' ]';
    }
    else {
        $value = "\n";
        foreach my $element (@elements) {
            $value .= ' ' x ($indent * 4) if $indent;
            $value .= '- ' . $element . "\n";
        }
    }
    return $value;
}

DATA DRIVEN ECOMMERCE

Ready to improve your ecommerce business’ performance?

Get better lead generation, engagement and enhanced ROI with a more customer centered approach.

See our services

Take this quiz

Services

Our Services

Let us help boost your internet exposure, turn more visitors into clients, save your time and increase your revenue. We’ve got a range of products and services to help you reach your goal.

For more information, click the one which suits your needs.

Build Optimise Serve Systemise
Build

Build your ecommerce website

“A website is a window through which your business says hello to the world.”

Learn more

Optimise

Optimise your website and other online platforms

“Google only loves you when everyone else loves you first.” ~ Wendy Piersall

Learn more

Serve

Serve and engage your audience

Provide them with the best services and make them loyal fans of your products.

Learn more

Systemise

Apply a systemised approach

Systemise and set up your actionable metrics by creating a Growth Scorecard.

Learn more

Build your ecommerce website

“A website is a window through which your business says hello to the world.”

Learn more

Optimise your website and other online platforms

“Google only loves you when everyone else loves you first.” ~ Wendy Piersall

Learn more

Serve and engage your audience

Provide them with the best services and make them loyal fans of your products.

Learn more

Apply a systemised approach

Systemise and set up your actionable metrics by creating a Growth Scorecard.

Learn more

metaverse marketing

Strategy

Boost your online sales

Providing an immersive experience

As Web3 is gradually gaining a foothold on the web, we’ve also structured our marketing solutions and strategies with you in mind. You tell us what you want to achieve and we will run an analysis of your ecommerce business in order to give you pointers on what to improve on, in order to boost your sales.

Not only that, we also offer done for you services, geared towards relieving you of the burden of having to figure things out by yourself.

Learn More

Latest Posts

Testimonials

What People Are Saying

Eva and I met at personal development course and renmained in contact. Over the years, I was fascinated by the care, compassion and energy she put into everything she does. She’s always there for you supporting and giving ideas to help you to carry on in whatever you are engage with.
Even though is she quite technical, she is nurturing and doen’t zoom straight into the technology part of it until necessary. She helped me to clearly identify my customer’s avatar and product pathways. Her step-by-step advice was invaluable as we embarked on the technical implementation itself.

Johanna Tresierra
Educator, Spanish Mentor and Entrepreneur, SpanishwithJo Ltd
I was referred to Eva by a friend. After our discussion, I took the opportunity to work with her to grow my business online and increase my revenue especially since I did not consider myself to be very technical and wanted a very personalised service.
Previously, I mainly showcased my products at in person events and definitely had to pivot my business online due to lockdown-Covid-19. Since working with Eva, I have launched some of my products on Amazon and we are now working on a Q4 promotion plan to add a subscription model to my business. Eva offers a personalised service including a hand holding teaching/mentoring approach which I vitally need at this stage in my business.

Jacalyn Belgrave
Owner, Ndulge Skincare Products Ltd

Like what you’ve seen so far?

Let’s Talk!

Click here

Gel4y Mini Shell

View file

Ready to improve your ecommerce business’ performance?

Services

Our Services

Strategy

Boost your online sales

Providing an immersive experience

Latest Posts

Testimonials

What People Are Saying

Like what you’ve seen so far?

Let’s Talk!