NAME
Meta::Utils::Text::Lines - library to do operations on sets of lines.
COPYRIGHT
Copyright (C) 2001 Mark Veltzer; All rights reserved.
LICENSE
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
DETAILS
MANIFEST: Lines.pm PROJECT: meta
SYNOPSIS
package foo;
use Meta::Utils::Text::Lines qw();
my($obje)=Meta::Utils::Text::Lines-
new();> $obje-
set_text("mark\ndoron\n","\n");> $obje-
remove_line("doron");> my($new_text)=$obje-
get_text();>
DESCRIPTION
This is a library to help you do things with lines of text coming from a file. Currently it supports splitting the text and removing lines and returning the text that results.
EXPORTS
new($)
set_text($$$)
remove_line($$)
remove_line_re($$)
remove_line_nre($$)
get_text($)
get_text_fixed($)
FUNCTION DOCUMENTATION
- new($)
-
Gives you a new Lines object.
- set_text($$$)
-
This will set the text that the object will work on.
- remove_line($$)
-
This will remove a line that you know the text of.
- remove_line_re($$)
-
This will remove all lines matching a certain regexp.
- remove_line_nre($$)
-
This will remove all lines not matching a certain regexp.
- get_text($)
-
This will retrieve the text currently stored in the object.
- get_text_fixed($)
-
This method is the same as get_text except it adds the delimiter at the end if it is not there.
BUGS
None.
AUTHOR
Mark Veltzer <mark2776@yahoo.com>
HISTORY
start of revision info 1 Tue Jan 9 17:00:22 2001 MV fix up perl checks 2 Tue Jan 9 18:15:19 2001 MV check that all uses have qw 2 Tue Jan 9 19:29:31 2001 MV fix todo items look in pod documentation 3 Wed Jan 10 12:05:55 2001 MV more on tests/more checks to perl 4 Fri Jan 12 15:53:19 2001 MV change new methods to have prototypes 5 Sun Jan 28 02:34:56 2001 MV perl code quality 6 Sun Jan 28 13:51:26 2001 MV more perl quality 7 Tue Jan 30 03:03:17 2001 MV more perl quality 8 Wed Jan 31 19:51:08 2001 MV get papers in good condition 9 Sat Feb 3 23:41:08 2001 MV perl documentation 10 Mon Feb 5 03:21:02 2001 MV more perl quality 11 Tue Feb 6 01:04:52 2001 MV perl qulity code 12 Tue Feb 6 07:02:13 2001 MV more perl code quality 13 Tue Feb 6 22:19:51 2001 MV revision change end of revision info
SEE ALSO
Nothing.
TODO
Nothing.