Re: Write to file and tty from same print call

2004-12-12 Thread Harry Putnam
Harry Putnam <[EMAIL PROTECTED]> writes: > Note that the original example from perldoc IO::Tee > has no opens in it: > > use IO::Tee; > >$tee = IO::Tee->new($handle1, $handle2); >print $tee "foo", "bar"; >my $input = <$tee>; > > Haa, I dug it up o

Re: Write to file and tty from same print call

2004-12-12 Thread Harry Putnam
Harry Putnam <[EMAIL PROTECTED]> writes: > cat io.pl > #!/usr/local/bin/perl -w > > use IO::Tee; > > open($handle1, "file1") or die("No!"); > open($handle2, "echo") or die("No2!"); > > $tee = IO::Tee->new($handle1, $handle2); > > print $tee "Hello world!"; Note that the or

Re: Write to file and tty from same print call

2004-12-12 Thread Harry Putnam
Tor Hildrum <[EMAIL PROTECTED]> writes: > #!/usr/bin/perl > use IO::Tee; > > open($handle1, "file1") or die("No!"); > open($handle2, "echo") or die("No2!"); > > $tee = IO::Tee->new($handle1, $handle2); > print $tee "Hello world!"; Well thats better than what I came up with but it dies here on the

Re: Write to file and tty from same print call

2004-12-12 Thread Tor Hildrum
On Sun, 12 Dec 2004 19:32:53 -0600, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Yeah, probably something like that but what else needs to be in there > to make the example work? Wild guess: #!/usr/bin/perl use IO::Tee; open($handle1, "file1") or die("No!"); open($handle2, "echo") or die("No2

Re: Write to file and tty from same print call

2004-12-12 Thread reader
Tor Hildrum <[EMAIL PROTECTED]> writes: > I have never used this module before in my life, but are you sure > $handle1 and $handle2 aren't supposed to be refs to actual > File-Handles? Yeah, probably something like that but what else needs to be in there to make the example work? Running it just

Re: Write to file and tty from same print call

2004-12-12 Thread Tor Hildrum
On Sun, 12 Dec 2004 15:33:44 -0600, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Trying to see something of how it works: > > #!/usr/local/bin/perl -w > use IO::Tee; > my ($handle1, $handle2); > $handle1 = "./one" > $handle2 = "./two" > $tee = IO::Tee->new($handle1, $handle2); I have never use

Re: Write to file and tty from same print call

2004-12-12 Thread reader
[EMAIL PROTECTED] writes: > Scott Dial <[EMAIL PROTECTED]> writes: > >> Try: >> http://search.cpan.org/~kenshan/IO-Tee-0.64/Tee.pm > >>> === >>> Something I've wanted a few times was a way to write to two places at >>> once or really I mean with one print call. >>> >>> Something like: >>> print

Re: Write to file and tty from same print call

2004-12-12 Thread reader
Scott Dial <[EMAIL PROTECTED]> writes: > Try: > http://search.cpan.org/~kenshan/IO-Tee-0.64/Tee.pm >> === >> Something I've wanted a few times was a way to write to two places at >> once or really I mean with one print call. >> >> Something like: >> print FILE1 FILE2 "something\n"; >> or >>

Re: Write to file and tty from same print call

2004-12-12 Thread Scott Dial
Try: http://search.cpan.org/~kenshan/IO-Tee-0.64/Tee.pm -smd +++ Harry Putnam [12/12/04 14:02 -0600]: > Duplication alert: I hope this isn't a duplicate but I think something > strange happened to my first try > > === > Something I've wanted a few times was a way to write to two places at > once