FAQ

Tels wrote:
Maybe you can write a PerlIO layer to "fix" the output?
Excellent suggestion! Another general purpose tool to add to my toolbelt:

package PerlIO::via::mychop;

$VERSION = 1.0;

use strict;

sub PUSHED { bless \*PUSHED,$_[0] }
sub FILL { readline( $_[1] ) }

sub WRITE {
$_[1] =~ s/[|]//;
print {$_[2]} $_[1];
return length($_[1]) - 1;
} #WRITE

1;

based on PerlIO::via::chop...

John

--
John Peacock
Director of Information Research and Technology
Rowman & Littlefield Publishing Group
4501 Forbes Boulevard
Suite H
Lanham, MD 20706
301-459-3366 x.5010
fax 301-429-5748

Search Discussions

Discussion Posts

Previous

Follow ups

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 7 of 12 | next ›
Discussion Overview
groupperl5-porters @
categoriesperl
postedJun 21, '07 at 9:08p
activeJun 22, '07 at 4:43p
posts12
users6
websiteperl.org

People

Translate

site design / logo © 2019 Grokbase