Text::Label::Prepender 1.0

Text::Label::Prepender is a Perl module to dynamically prepend label to input strings.

SYNOPSIS

 use Text::Label::Prepender;

 my $prepender = Text::Label::Prepender->new (
 initial_label => '.', # initial label
 separator => '/', # output between label and data line
 label_char => ':', # the character signifying a line is a label
 ) ;

my @input = qw(aaa bbb ccc one one/hump: ddd eee fff two/hump: ggg hhh iii);

for (@input) {

 if (my $processed = $prepender->process($_)) {
 print $processed, "
";
 }

}

 OUTPUT:

 ./aaa
 ./bbb
 ./ccc
 one/hump/ddd
 one/hump/eee
 one/hump/fff
 two/hump/ggg
 two/hump/hhh
 two/hump/iii


Product's homepage

Requirements:

· Perl