golden hour

/usr/lib64/perl5/vendor_perl/Filter

⬆️ Go Up

Upload

File/Folder	Size	Actions
Util	-	Del OK
cpp.pm	2.13 KB	Del OK
decrypt.pm	2.93 KB	Del OK
exec.pm	1.23 KB	Del OK
m4.pm	2.75 KB	Del OK
sh.pm	1.36 KB	Del OK
tee.pm	793 B	Del OK

Edit: tee.pm

package Filter::tee ; require 5.006 ; require XSLoader; our $VERSION = "1.60" ; XSLoader::load('Filter::tee'); 1; __END__ =head1 NAME Filter::tee - tee source filter =head1 SYNOPSIS use Filter::tee 'filename' ; use Filter::tee '>filename' ; use Filter::tee '>>filename' ; =head1 DESCRIPTION This filter copies all text from the line after the C<use> in the current source file to the file specified by the parameter C<filename>. By default and when the filename is prefixed with a '>' the output file will be emptied first if it already exists. If the output filename is prefixed with '>>' it will be opened for appending. This filter is useful as a debugging aid when developing other source filters. =head1 AUTHOR Paul Marquess =head1 DATE 20th June 1995. =cut
Save