Hello there, I'm trying to understand and modify some perl code to
create an index of word. The subroutine I have is in OO Perl, and I'm
just starting to learn normal Perl. So I'd like to transform it. Here
it is:
sub make_word_list {
my ( $self ) = @_;
my %all_words;
forea
On 28 Nov, 01:44, [EMAIL PROTECTED] (Jeff Pang) wrote:
> Hello,
>
> Just show another way to do it.
>
> use strict;
>
> local $/="\n\n";
> while() {
> next unless /^DOC-START\n(.*?)\nDOC-END$/sm;
> my $content = $1;
> parse($content);
>
> }
Thank you all for your answers. In particula
Hello there. I'm a real beginner and I was wondering if you could be
so kind to help me on this.
I have a text file, containing a number of varying length documents,
all tagged with DOC-START and DOC-END, structured as follows:
DOC-START
content of the document
DOC-END
DOC-START
some text
DOC-EN
