IO::Tee
> -邮件原件-
> 发件人: Sooraj S [mailto:soorajspadmanab...@gmail.com]
> 发送时间: 2010年11月日 23:14
> 收件人: beginners@perl.org
> 主题: Redirecting the output
>
> Hi,
>
> Can i redirect the output to a file as well as stdout at the same time...i
dont want
> to use tee command..i want this to be d
Sooraj S wrote:
> Can i redirect the output to a file as well as stdout at the same
> time...i dont want to use tee command..i want this to be done in my
> perl program itself...
Jim Gibson wrote:
Install and use the File::Tee module from CPAN:
I researched the various options a while back and
On 11/30/10 Tue Nov 30, 2010 7:13 AM, "Sooraj S"
scribbled:
> Hi,
>
> Can i redirect the output to a file as well as stdout at the same
> time...i dont want to use tee command..i want this to be done in my
> perl program itself...
>
> open STDOUT, '>' , 'log.txt'';
>
> By including this in m
Hi,
Can i redirect the output to a file as well as stdout at the same
time...i dont want to use tee command..i want this to be done in my
perl program itself...
open STDOUT, '>' , 'log.txt'';
By including this in my perl program i can redirect my output to
log.txt. But i want my output to be dis
Try:
eval "\$test =~ y/$x/$y/;";
Perfect.
Thanks,
John
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
On 29/11/2010 12:33, Manish Jain wrote:
I want to do this :
open(hndr, "/home/manjain/.bash_profile");
open(hndw, ">", "/home/manjain/bashrc.copy");
while ($nextline =)
{
$nextline =~ s/manjain/\$USER/g;
print(hndw, $nextline); #problem here
}
But perl refuses to ta
On 30/11/2010 06:39, Uri Guttman wrote:
"GK" == Guruprasad Kulkarni writes:
GK> Here is another way to do it:
GK> /^127\.0\.0\.([\d]|[1-9][\d]|[1][\d][\d]|[2]([0-4][\d]|[5][0-4]))$/) {
why are you putting single chars inside a char class? [\d] is the same
as \d and [1] is just 1.
A
On 10-11-29 11:51 PM, John wrote:
I tried using that, but $test wasn't changed here:
$test = "This is a test.";
$x = "is";
$y = "si";
eval $test =~ y/$x/$y/;
print "$test\n";
Try:
eval "\$test =~ y/$x/$y/;";
--
Just my 0.0002 million dollars worth,
Shawn
P
Here I have found a lot of helpful information.
http://andrearafeli.it/pinrx.html
Your personal Discount Coupon: discount888
William
esia...@yahoo.com
