![]() |
![]()
| ![]() |
![]()
NAMEText::Chomp - a module implementing a portable chomp. SYNOPSISuse strict; use warnings; use Text::Chomp; open FILE, "file.dat" or die "Unable to open file: $!"; while (<FILE>) { # Strip off any end of line character, not just $/ my $line = tchomp $_; ... } close FILE; DESCRIPTIONText::Chomp implements a single function, tchomp, which will remove all known (by me, at least) line separators. chomp() works only on the value in $/, which can be difficult if working in multi-platform environments. EXPORTStchomp() is the only function exported. Attempts to export other functions will cause the module to fail to load. FUNCTIONStchomp $textThis function removes the end of line character from a line of text and returns the text. Line separators currently handled include: TODOPrecompile the regular expression used for speed, and so that it can be accessed for split(). BUGSPlease report any bugs or feature requests to "bug-text-chomp@rt.cpan.org", or through the web interface at <http://rt.cpan.org>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. ACKNOWLEDGEMENTSOriginal inspiration came from an ancient perlbug <http://rt.perl.org/rt3/Ticket/Display.html?id=1807>. #p5p provided some additional ideas regarding the Unicode (and a suggested name of Ch::omp). Finally, the "Perl Cookbook" had information on how to match the Unicode line and page separators. COPYRIGHT & LICENSECopyright 2004 Steve Peters, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|