On 11/09/2013 23:04, Harry Putnam wrote:
Posted below is a shortened down version of a larger script that tries
to show the phenomena I'm seeing and don't understand.
open my $fh, '>>', $log or die "Can't open <$log>: $!";
print " $dtf START $rsync $shortargs\n $longargs\n $src/ $dst/\n
On Wed, Sep 11, 2013 at 5:04 PM, Harry Putnam wrote:
> while(<$cmdh>) {
> print $fh;
> print;
>
I believe this code prints the file handle. Try this:
while(<$cmdh>){
print $fh $_;
print;
--
Robert Wohlfarth
ound a bit, the lines that puzzled me disappeared.
I couldn't discover what it was I changed and lost track.
Output from rsync shows this at the start of every line:
`GLOB(0x8117548)'
But just to show that its coming from perl; if I pass the content of
($_) to a variable ($line) the
Robert Wohlfarth writes:
> On Wed, Sep 11, 2013 at 5:04 PM, Harry Putnam wrote:
>
>
>> while(<$cmdh>) {
>> print $fh;
>> print;
>>
>
>
> I believe this code prints the file handle. Try this:
> while(<$cmdh>){
> print $fh $_;
> print;
Egad! Yes, that is what's happening... thanks.
--
- Original Message -
From: "Pedro Antonio Reche" <[EMAIL PROTECTED]>
Newsgroups: perl.beginners
To: <[EMAIL PROTECTED]>
Sent: Friday, June 18, 2004 9:43 AM
Subject: puzzled
> Hi there, I am puzzled by the 'build_seq' subroutine in following code.
Hi there, I am puzzled by the 'build_seq' subroutine in following code.
#!/usr/sbin/perl -w
use strict;
use vars qw($USAGE);
# random sequence generator #
# -c=1 option will cause prot sequences to be built
# using vertebrate aa frequencies,
# with option -a putting a 1st methionine r
