Parse::Debian::Packages - parse the data from a debian Packages.gz

Parse-Debian-Packages documentation Contained in the Parse-Debian-Packages distribution.

Index

Code Index:

NAME

Top

Parse::Debian::Packages - parse the data from a debian Packages.gz

SYNOPSIS

Top

 use YAML;
 use IO::File;
 use Parse::Debian::Packages;
 my $fh = IO::File->new("Packages");

 my $parser = Parse::Debian::Packages->new( $fh );
 while (my %package = $parser->next) {
     print Dump \%package;
 }

DESCRIPTION

Top

This module parses the Packages files used by the debian package management tools.

It presents itself as an iterator. Each call of the ->next method will return the next package found in the file.

For laziness, we take a filehandle in to the constructor. Please open the file for us.

AUTHOR

Top

Richard Clamp <richardc@unixbeard.net>

COPYRIGHT

Top

Copyright (C) 2003 Richard Clamp. All Rights Reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Module::Packaged

Parse-Debian-Packages documentation Contained in the Parse-Debian-Packages distribution. 
use strict;
package Parse::Debian::Packages;
our $VERSION = '0.01';

sub new {
    my $class = shift;
    my $fh = shift;

    return bless { fh => $fh }, $class;
}

sub next {
    my $self = shift;
    my $fh   = $self->{fh};

    my %parsed;
    while (<$fh>) {
        last if /^$/;
        if (my ($key, $value) = m/^(.*): (.*)/) {
            $parsed{$key} = $value;
        }
        else {
            s/ //;
            s/^\.$//;
            $parsed{body} .= $_;
        }
    }

    return %parsed;
}

1;