1Quoted(3)             User Contributed Perl Documentation            Quoted(3)
2
3
4

NAME

6       Text::Quoted - Extract the structure of a quoted mail message
7

SYNOPSIS

9           use Text::Quoted;
10           my $structure = extract($text);
11

DESCRIPTION

13       "Text::Quoted" examines the structure of some text which may contain
14       multiple different levels of quoting, and turns the text into a nested
15       data structure.
16
17       The structure is an array reference containing hash references for each
18       paragraph belonging to the same author. Each level of quoting
19       recursively adds another list reference. So for instance, this:
20
21           > foo
22           > # Bar
23           > baz
24
25           quux
26
27       turns into:
28
29           [
30             [
31               { text => 'foo', quoter => '>', raw => '> foo' },
32               [
33                   { text => 'Bar', quoter => '> #', raw => '> # Bar' }
34               ],
35               { text => 'baz', quoter => '>', raw => '> baz' }
36             ],
37
38             { empty => 1 },
39             { text => 'quux', quoter => '', raw => 'quux' }
40           ];
41
42       This also tells you about what's in the hash references: "raw" is the
43       paragraph of text as it appeared in the original input; "text" is what
44       it looked like when we stripped off the quotation characters, and
45       "quoter" is the quotation string.
46

CREDITS

48       Most of the heavy lifting is done by a modified version of Damian
49       Conway's "Text::Autoformat".
50

52       Copyright (C) 2002-2003 Kasei Limited Copyright (C) 2003-2004 Simon
53       Cozens Copyright (C) 2004 Best Practical Solutions, LLC
54
55       This software is distributed WITHOUT ANY WARRANTY; without even the
56       implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
57       PURPOSE.
58
59       This library is free software; you can redistribute it and/or modify it
60       under the same terms as Perl itself.
61
62
63
64perl v5.12.0                      2010-03-15                         Quoted(3)
Impressum