Hello, I've been trying to use the Text::Balanced module, but having no luck at
all. I've read the manpage a dozen times, and still don't know why my (very)
simple test cases fail.

Any insight, into what I'm missing, would be appreciated.

Stephen ~runester~ Jarjoura


>perl -v

This is perl, v5.6.1 built for MSWin32-x86-multi-thread
(with 1 registered patch, see perl -V for more detail)

Copyright 1987-2001, Larry Wall

Binary build 626 provided by ActiveState Tool Corp. http://www.ActiveState.com
Built 01:31:15 May  2 2001

========== [Here is my test program] ==========
use strict;
use Text::Balanced qw (
        extract_delimited
        extract_quotelike
        extract_tagged
);

my @txt = ();
$txt[0] = q#this is a test of "quotelike text", not another.#;
$txt[1] = q#this is a <b>test</b> of <a href="www">tagged text</a>, not
another.#;
$txt[2] = q#this is a _test_ of _delimited text_, not another.#;

print "\n",map{"#$_#\n"} extract_quotelike($txt[0]);
if($@){ print STDERR "Error: [EMAIL PROTECTED]" }

print "\n",map{"#$_#\n"} extract_tagged($txt[1],'<b>');
if($@){ print STDERR "Error: [EMAIL PROTECTED]" }

print "\n",map{"#$_#\n"} extract_delimited($txt[2],'_');
if($@){ print STDERR "Error: [EMAIL PROTECTED]" }

========== [Here is the output] ==========
>text-balanced_test.pl

##
#this is a test of "quotelike text", not another.#
##
Error: No quotelike operator found after prefix at "this is a test of "q...",
detected at offset 0

##
#this is a <b>test</b> of <a href="www">tagged text</a>, not another.#
##
Error: Did not find opening tag: /<b>/, detected at offset 0

##
#this is a _test_ of _delimited text_, not another.#
##
Error: Not a delimited pattern, detected at offset 0

 
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm

Reply via email to