[29330] in Perl-Users-Digest

home help back first fref pref prev next nref lref last post

Perl-Users Digest, Issue: 574 Volume: 11

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jun 25 16:10:10 2007

Date: Mon, 25 Jun 2007 13:09:12 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)

Perl-Users Digest           Mon, 25 Jun 2007     Volume: 11 Number: 574

Today's topics:
    Re: Assigning another filehandle to STDOUT, using binmo <hjp-usenet2@hjp.at>
    Re: Assigning another filehandle to STDOUT, using binmo <hjp-usenet2@hjp.at>
    Re: Assigning another filehandle to STDOUT, using binmo <hjp-usenet2@hjp.at>
    Re: Assigning another filehandle to STDOUT, using binmo <a24061@ducksburg.com>
    Re: Assigning another filehandle to STDOUT, using binmo <a24061@ducksburg.com>
    Re: Assigning another filehandle to STDOUT, using binmo <a24061@ducksburg.com>
        gcc help  rogv24@yahoo.com
    Re: gcc help <asuter@cisco.com>
    Re: gcc help  rogv24@yahoo.com
    Re: Perl Best Practices - Code Formatting. <louisREMOVE@REMOVEh4h.com>
    Re: Perl Best Practices - Code Formatting. <louisREMOVE@REMOVEh4h.com>
    Re: Perl Best Practices - Code Formatting. <vronans@nowheresville.spamwall>
    Re: please splain dis scoping issure <jurgenex@hotmail.com>
    Re: Portable general timestamp format, not 2038-limited <steveo@eircom.net>
    Re: Portable general timestamp format, not 2038-limited <martin@see.sig.for.address>
        Problem with Storable qw(store_fd fd_retrieve) (J.D. Baldwin)
    Re: Problem with Storable qw(store_fd fd_retrieve) <m@rtij.nl.invlalid>
    Re: SSH plus tail -f without key exchange possible? <jrpfinch@gmail.com>
    Re: SSH plus tail -f without key exchange possible? xhoster@gmail.com
    Re: SSH plus tail -f without key exchange possible? xhoster@gmail.com
    Re: SSH plus tail -f without key exchange possible? anno4000@radom.zrz.tu-berlin.de
        Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)

----------------------------------------------------------------------

Date: Mon, 25 Jun 2007 20:34:22 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Assigning another filehandle to STDOUT, using binmode.
Message-Id: <slrnf802le.o9o.hjp-usenet2@zeno.hjp.at>

On 2007-06-25 10:13, Adam Funk <a24061@ducksburg.com> wrote:
> On 2007-06-22, Mumia W. wrote:
>>> As I said, I'm running the program in a UTF-8 environment but getting
>>> thousands (I think) of identical warnings about "Wide characters"
>>> which actually refer to correct UTF-8 characters that Perl has read
>>> from input data files without a hiccup.
>>> 
>>> Why is it unreasonable that I find this annoying?
>>>   or
>>> What am I doing that constitutes an error?
>>
>> You probably are assuming that open() configures your filehandles with 
>> binmode() for you. This isn't true.
>>
>> If you open a file, and it needs a special encoding, 
>
> By "special" you mean "anything other than ASCII, right?

"Anything other than what happens to be the default in your perl
implementation" actually. That might be EBCDIC :-).

It might be a good idea to always specify the intended encoding.

If you want to get the current charset/encoding from the locale, you can
use I18N::Langinfo:


 use I18N::Langinfo qw(langinfo CODESET)
 $charset = langinfo(CODESET)

 [...]

 open(my $fh, "<:encoding(charset)", $filename);

	hp


-- 
   _  | Peter J. Holzer    | I know I'd be respectful of a pirate 
|_|_) | Sysadmin WSR       | with an emu on his shoulder.
| |   | hjp@hjp.at         |
__/   | http://www.hjp.at/ |	-- Sam in "Freefall"


------------------------------

Date: Mon, 25 Jun 2007 20:40:58 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Assigning another filehandle to STDOUT, using binmode.
Message-Id: <slrnf8031q.o9o.hjp-usenet2@zeno.hjp.at>

On 2007-06-25 10:28, Adam Funk <a24061@ducksburg.com> wrote:
> As far as I can tell, I'm not getting errors or warnings reading the
> input files (but I'm not doing it directly with my own code --- I'm
> using XML::Twig's parsefile($input_filename) method; the input files
> are XML with Cyrillic UTF-8 PCDATA) --- does Perl by default take the
> environment into consideration,

No. By default it assumes (on Unix) binary input. You are reading and
writing a stream of bytes, not a stream of characters.

> or assume UTF-8, for input but not output?

No. The XML parser gets the encoding from the XML file. If the XML file
doesn't explicitely specify an encoding, it must be UTF-8. This is
completely independent of the locale. XML files are supposed to be
portable and must not be interpreted differently depending on the
locale.

	hp


-- 
   _  | Peter J. Holzer    | I know I'd be respectful of a pirate 
|_|_) | Sysadmin WSR       | with an emu on his shoulder.
| |   | hjp@hjp.at         |
__/   | http://www.hjp.at/ |	-- Sam in "Freefall"


------------------------------

Date: Mon, 25 Jun 2007 20:45:42 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Assigning another filehandle to STDOUT, using binmode.
Message-Id: <slrnf803am.o9o.hjp-usenet2@zeno.hjp.at>

On 2007-06-25 10:18, Adam Funk <a24061@ducksburg.com> wrote:
> But to be fair to Mumia, the "simpler" form of open() doesn't do that,
> and I was expressing surprise that open() didn't assume the
> environment locale to be applicable.

open cannot know whether the file it opens is supposed to be a text file
or a binary file. Since perl treated all files as binary on Unix
previously, to keep that as default. Changing the default would have
broken lots of old scripts.

> Is there any difference between
>
>    open(OUTPUT, '>:utf8', $output_filename);
>
> and
>
>    open(OUTPUT, ">" . $output_filename);
>    binmode (OUTPUT, ":utf8");
>
> or should I just use whichever one I find more aesthetic?

AFAIK they are equivalent.

	hp


-- 
   _  | Peter J. Holzer    | I know I'd be respectful of a pirate 
|_|_) | Sysadmin WSR       | with an emu on his shoulder.
| |   | hjp@hjp.at         |
__/   | http://www.hjp.at/ |	-- Sam in "Freefall"


------------------------------

Date: Mon, 25 Jun 2007 20:25:11 +0100
From: Adam Funk <a24061@ducksburg.com>
Subject: Re: Assigning another filehandle to STDOUT, using binmode.
Message-Id: <ndh5l4-bc2.ln1@news.ducksburg.com>

On 2007-06-25, Peter J. Holzer wrote:

> On 2007-06-25 10:28, Adam Funk <a24061@ducksburg.com> wrote:
>> As far as I can tell, I'm not getting errors or warnings reading the
>> input files (but I'm not doing it directly with my own code --- I'm
>> using XML::Twig's parsefile($input_filename) method; the input files
>> are XML with Cyrillic UTF-8 PCDATA) --- does Perl by default take the
>> environment into consideration,
>
> No. By default it assumes (on Unix) binary input. You are reading and
> writing a stream of bytes, not a stream of characters.
>
>> or assume UTF-8, for input but not output?
>
> No. The XML parser gets the encoding from the XML file. If the XML file
> doesn't explicitely specify an encoding, it must be UTF-8. This is
> completely independent of the locale. XML files are supposed to be
> portable and must not be interpreted differently depending on the
> locale.

Oh of course!  I got so caught in up in this business of setting
encodings that I forgot about the encoding specified explicitly in the
XML file.


------------------------------

Date: Mon, 25 Jun 2007 20:27:06 +0100
From: Adam Funk <a24061@ducksburg.com>
Subject: Re: Assigning another filehandle to STDOUT, using binmode.
Message-Id: <ahh5l4-bc2.ln1@news.ducksburg.com>

On 2007-06-25, Peter J. Holzer wrote:

> On 2007-06-25 10:18, Adam Funk <a24061@ducksburg.com> wrote:
>> But to be fair to Mumia, the "simpler" form of open() doesn't do that,
>> and I was expressing surprise that open() didn't assume the
>> environment locale to be applicable.
>
> open cannot know whether the file it opens is supposed to be a text file
> or a binary file. Since perl treated all files as binary on Unix
> previously, to keep that as default. Changing the default would have
> broken lots of old scripts.

It's starting to make sense now.


>> Is there any difference between
>>
>>    open(OUTPUT, '>:utf8', $output_filename);
>>
>> and
>>
>>    open(OUTPUT, ">" . $output_filename);
>>    binmode (OUTPUT, ":utf8");
>>
>> or should I just use whichever one I find more aesthetic?
>
> AFAIK they are equivalent.

Thanks.


------------------------------

Date: Mon, 25 Jun 2007 20:26:13 +0100
From: Adam Funk <a24061@ducksburg.com>
Subject: Re: Assigning another filehandle to STDOUT, using binmode.
Message-Id: <lfh5l4-bc2.ln1@news.ducksburg.com>

On 2007-06-25, Peter J. Holzer wrote:

>>> You probably are assuming that open() configures your filehandles with 
>>> binmode() for you. This isn't true.
>>>
>>> If you open a file, and it needs a special encoding, 
>>
>> By "special" you mean "anything other than ASCII, right?
>
> "Anything other than what happens to be the default in your perl
> implementation" actually. That might be EBCDIC :-).

I've got enough trouble already, thanks.  ;-)


------------------------------

Date: Mon, 25 Jun 2007 12:18:29 -0700
From:  rogv24@yahoo.com
Subject: gcc help
Message-Id: <1182799109.574291.145310@c77g2000hse.googlegroups.com>

I need to download gcc for a solaris server then recompile perl with
gcc.

I have never done this.  Can some one recommend a download website.
Once the module is downloaded
How do I recompile with perl.

thanks



------------------------------

Date: Mon, 25 Jun 2007 12:24:15 -0700
From: "Asim Suter" <asuter@cisco.com>
Subject: Re: gcc help
Message-Id: <1182799457.727492@sj-nntpcache-2.cisco.com>


<rogv24@yahoo.com> wrote in message 
news:1182799109.574291.145310@c77g2000hse.googlegroups.com...
>I need to download gcc for a solaris server then recompile perl with
> gcc.
> I have never done this.  Can some one recommend a download website.

Try http://gcc.gnu.org/
So far so good.

> Once the module is downloaded
> How do I recompile with perl.

??
Can you explain what you want exactly ?


Regards.
Asim Suter





------------------------------

Date: Mon, 25 Jun 2007 12:54:20 -0700
From:  rogv24@yahoo.com
Subject: Re: gcc help
Message-Id: <1182801260.342589.195890@w5g2000hsg.googlegroups.com>

On Jun 25, 3:24 pm, "Asim Suter" <asu...@cisco.com> wrote:
> <rog...@yahoo.com> wrote in message
>
> news:1182799109.574291.145310@c77g2000hse.googlegroups.com...
>
> >I need to download gcc for a solaris server then recompile perl with
> > gcc.
> > I have never done this.  Can some one recommend a download website.
>
> Tryhttp://gcc.gnu.org/
> So far so good.
>
> > Once the module is downloaded
> > How do I recompile with perl.
>
> ??
> Can you explain what you want exactly ?
>
> Regards.
> Asim Suter

thanks for the website.  After I download gcc what needs to be done?

regards
Roger



------------------------------

Date: Mon, 25 Jun 2007 09:41:56 -0700
From: "Wayne M. Poe" <louisREMOVE@REMOVEh4h.com>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <5ea9ipF37v121U1@mid.individual.net>

Michele Dondi wrote:
> On Sat, 23 Jun 2007 18:59:19 GMT, Uri Guttman <uri@stemsystems.com>
> wrote:
>
>> as for the tab indents, i was supporting damian's and my positions,
>> not the perlmonk nor his purported ancestry. and since JC had no
>> biological father and therefore no Y chromosome, how could he begat
>> any sons? :)

He was created in some way or another, and carried by a women. Maybe the 
process in which he was created (by God or so) he was given all the 
necessary fill-ins.

Too bad there wasn't an autopsy :) 




------------------------------

Date: Mon, 25 Jun 2007 09:51:53 -0700
From: "Wayne M. Poe" <louisREMOVE@REMOVEh4h.com>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <5eaa5fF37uc4pU1@mid.individual.net>

Uri Guttman wrote:
>>>>>> "TM" == Tad McClellan <tadmc@seesig.invalid> writes:
>
>> Uri Guttman <uri@stemsystems.com> wrote:
>  >> COME TO YAPC::HOUSTON AND I WILL GIVE A
>  >> PIECE OF MY MIND!!!!
>
>> as if you had any to spare...
>
> i keep a spare mind in my wallet.

That explains the size. 




------------------------------

Date: Mon, 25 Jun 2007 10:08:44 -0700
From: "Vronans" <vronans@nowheresville.spamwall>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <j8edne4H8d48a-LbnZ2dnUVZ_tyinZ2d@wavecable.com>

Michele Dondi wrote:
> On Fri, 22 Jun 2007 12:17:50 -0700, "Vronans"
> <vronans@nowheresville.spamwall> wrote:
>
> > No offense, but it's difficult to ignore "trivial formatting" when
> > you
> > cannot even use proper quoting delimiters. I think you have bene
> > asked countless times to fix that. There are some basic stanards one
> > -should-
> > adhere too, or at least try to stay close to. Standard quoting falls
> > right into that catagory so why not stop breaking news reader quote
> > processing abroad?
>
> While I sort of agree with you, Abigail's skills and precious
> contributions overweight too much the slight inconvenience for me to
> really care.

I agree Abigail has been a helpful person around here, but I still don't 
understand how an otherwise intelligent person could simply ignore age 
old established standards and continue to do so after being asked so 
many times of the years to stop. It breaks readers that do any sort of 
meaningful quote processing.

All I know if Abigail has been asking nicely many MANY times and flat 
out ignores anyone that does. Yet we're supposed to be following the 
examples and advice of the "regulars"... IMHO, he's setting a rather 
poor example in this regard and I find that to be just plain bizzare.

I mean come on, what is so difficult to understand that "> " has been 
the standard quote delimiter for about 2 decades? I can understand 
wanting to be different, but I think there are valid limitation to how 
far one should go in doing so.





------------------------------

Date: Mon, 25 Jun 2007 15:20:49 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: please splain dis scoping issure
Message-Id: <l3Rfi.5620$pT4.4089@trndny06>

bpatton wrote:

Subject: please splain dis scoping issure
Spell checker suggested: please slain dies scoping issuer

I have no idea what you mean by that.

jue 




------------------------------

Date: Mon, 25 Jun 2007 13:38:43 +0100
From: Steve O'Hara-Smith <steveo@eircom.net>
Subject: Re: Portable general timestamp format, not 2038-limited
Message-Id: <20070625133843.9e25d0ab.steveo@eircom.net>

On Mon, 25 Jun 2007 11:17:27 GMT
Roedy Green <see_website@mindprod.com.invalid> wrote:

> On Sun, 24 Jun 2007 18:14:08 -0700, rem642b@yahoo.com (Robert Maas,
> see http://tinyurl.com/uh3t) wrote, quoted or indirectly quoted
> someone who said :
> 
> >- Stick to astronomical time, which is absolutely consistent but
> >   which drifts from legal time?
> 
> depends what you are measuring. IF you are doing astronomy, your
> advice would apply. If you are doing payrolls, you want effectively to
> pretend the leap seconds never happened, just as Java does.

	Which leaves you about 30 seconds out by now - smelly.

-- 
C:>WIN                                      |   Directable Mirror Arrays
The computer obeys and wins.                | A better way to focus the sun
You lose and Bill collects.                 |    licences available see
                                            |    http://www.sohara.org/


------------------------------

Date: Mon, 25 Jun 2007 18:36:33 +0100
From: Martin Gregorie <martin@see.sig.for.address>
Subject: Re: Portable general timestamp format, not 2038-limited
Message-Id: <82b5l4-tvh.ln1@zoogz.gregorie.org>

Steve O'Hara-Smith wrote:
> On Mon, 25 Jun 2007 11:17:27 GMT
> Roedy Green <see_website@mindprod.com.invalid> wrote:
> 
>> On Sun, 24 Jun 2007 18:14:08 -0700, rem642b@yahoo.com (Robert Maas,
>> see http://tinyurl.com/uh3t) wrote, quoted or indirectly quoted
>> someone who said :
>>
>>> - Stick to astronomical time, which is absolutely consistent but
>>>   which drifts from legal time?
>> depends what you are measuring. IF you are doing astronomy, your
>> advice would apply. If you are doing payrolls, you want effectively to
>> pretend the leap seconds never happened, just as Java does.
> 
> 	Which leaves you about 30 seconds out by now - smelly.
> 
Easy solution: always read Zulu time directly from a recognized 
real-time clock and store the result in a database as a 
ccyymmddhhmmssfff ASCII string where fff is milliseconds). By 
"recognized real-time clock) that I mean an atomic clock and 
distribution network such as GPS or (in the UK or Germany) an MSF low 
frequency radio broadcast. NTP using tier-1 sources may do the job too. 
The clock interface may need to be JINI because most suitable receivers 
have serial interfaces.

This is certainly accurate for financial transactions: the UK CHAPS 
inter-bank network has a Rugby MSF receiver in each bank's gateway 
computer and uses that for all timestamps.






-- 
martin@   | Martin Gregorie
gregorie. | Essex, UK
org       |


------------------------------

Date: Mon, 25 Jun 2007 18:49:15 +0000 (UTC)
From: INVALID_SEE_SIG@example.com.invalid (J.D. Baldwin)
Subject: Problem with Storable qw(store_fd fd_retrieve)
Message-Id: <f5p2nb$ict$1@reader2.panix.com>



Not sure why Storable's sister functions won't talk each other's
language.  Here's a stripped down version of what I have:

    #!/bin/perl

    use strict;
    use warnings;

    use Storable qw(store_fd fd_retrieve);
    use Data::Dumper;
    my $uploaded_ref;
    
    my $TRACKING_DATA_FILE='tracking.dat';   # Does not exist
    my $LIST_FILE='biglist.txt';             # 64,109-line text file,
                                             #    one token per line

    open my $fd, '>', $TRACKING_DATA_FILE;
    open my $list_fd, '<', $LIST_FILE;
    
    while ( <$list_fd> )
    {
       chomp;
       $uploaded_ref->{$_} = 1;
    }
    
    store_fd($uploaded_ref, $fd);
    close $fd;
    
    open $fd, '>>', $TRACKING_DATA_FILE;
    my $new_ref = fd_retrieve($fd);
    
    my $numkeys = keys %{$new_ref};
    print "Number: $numkeys\n";

This fails with

    Magic number checking on storable file failed at blib/lib/Storable.pm
       (autosplit into blib/lib/auto/Storable/fd_retrieve.al) line 398,
       <$list_fd> line 64109, at ./init.pl line 27

Any ideas what is going on here?  I have to use store_fd and
fd_retrieve because of the kind of locking my project requires.

Storable version is 2.16; Perl is 5.8.8.
-- 
  _+_ From the catapult of |If anyone disagrees with any statement I make, I
_|70|___:)=}- J.D. Baldwin |am quite prepared not only to retract it, but also
\      /  baldwin@panix.com|to deny under oath that I ever made it. -T. Lehrer
***~~~~-----------------------------------------------------------------------


------------------------------

Date: Mon, 25 Jun 2007 20:54:56 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Problem with Storable qw(store_fd fd_retrieve)
Message-Id: <pan.2007.06.25.18.55.01@rtij.nl.invlalid>

On Mon, 25 Jun 2007 18:49:15 +0000, J.D. Baldwin wrote:

> Not sure why Storable's sister functions won't talk each other's
> language.  Here's a stripped down version of what I have:

(snip)

I'm not sure, but...
 
>     open $fd, '>>', $TRACKING_DATA_FILE;

You open $fd for append...

>     my $new_ref = fd_retrieve($fd);

 ... and try to read from it.
>     
>     my $numkeys = keys %{$new_ref};
>     print "Number: $numkeys\n";
> 
> This fails with
> 
>     Magic number checking on storable file failed at
>     blib/lib/Storable.pm
>        (autosplit into blib/lib/auto/Storable/fd_retrieve.al) line 398,
>        <$list_fd> line 64109, at ./init.pl line 27

As there is nothing to read, the magic number check fails.

HTH,
M4


------------------------------

Date: Mon, 25 Jun 2007 08:29:57 -0700
From:  jrpfinch <jrpfinch@gmail.com>
Subject: Re: SSH plus tail -f without key exchange possible?
Message-Id: <1182785397.966201.204700@n60g2000hse.googlegroups.com>

I am come across a further problem.  Currently my code looks like
this:

[snip]
{
    $dieOutput = undef;
    local $SIG{ALRM} = sub { die "Timed out" };
    alarm 10;
    eval("\$conn = Net::SSH::Perl -> new ('$host', protocol => 2);".
         "\$conn->login('$user','$password')");
    alarm 0;
    $dieOutput = $@ if $@;
}

$conn->register_handler("stdout", sub { #do stuff# })

$conn->cmd("tail -f somefile");

# part 2 - when connection dies/terminated do some more stuff

The problem with this is that if the script terminates for some
reason, I am left with an orphan tail -f process on the remote
machine.  Also, I would like to be able to put something in the
register_handler to kill the connection if a certain line appears in
somefile.

Any ideas?  Or am I going about this in completely the wrong way?  I
would like to avoid Net::SSH2 if possible, as this would require a
rewrite and I am unable to compile the libssh2 libraries on Solaris 9.



------------------------------

Date: 25 Jun 2007 16:15:56 GMT
From: xhoster@gmail.com
Subject: Re: SSH plus tail -f without key exchange possible?
Message-Id: <20070625121557.645$yg@newsreader.com>

jrpfinch <jrpfinch@gmail.com> wrote:
> I am come across a further problem.  Currently my code looks like
> this:
>
> [snip]
> {
>     $dieOutput = undef;
>     local $SIG{ALRM} = sub { die "Timed out" };
>     alarm 10;
>     eval("\$conn = Net::SSH::Perl -> new ('$host', protocol => 2);".
>          "\$conn->login('$user','$password')");
>     alarm 0;
>     $dieOutput = $@ if $@;
> }
>
> $conn->register_handler("stdout", sub { #do stuff# })
>
> $conn->cmd("tail -f somefile");
>
> # part 2 - when connection dies/terminated do some more stuff
>
> The problem with this is that if the script terminates for some
> reason, I am left with an orphan tail -f process on the remote
> machine.

I suspect, but do not know for certain, that once the file grows to the
point that the remote tail -f has filled up it's pipe buffer, it will die.
If the file grows slowly, that might take a while.

> Also, I would like to be able to put something in the
> register_handler to kill the connection if a certain line appears in
> somefile.

How about just dying inside the register_handler?  It should kill the
client end of the connection, at least.

I'd consider writing a Perl script to be used in the place of tail -f on
the remote machine.  You can have the Perl script quite on the remote side
when it sees the qualifying line.  It could also handle the time-out.

http://groups.google.com/group/comp.lang.perl.misc/browse_frm/thread/4af4a659423b5b6e/42b07d4640c02b15

>
> Any ideas?  Or am I going about this in completely the wrong way?  I
> would like to avoid Net::SSH2 if possible, as this would require a
> rewrite and I am unable to compile the libssh2 libraries on Solaris 9.


Xho

-- 
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service                        $9.95/Month 30GB


------------------------------

Date: 25 Jun 2007 16:39:23 GMT
From: xhoster@gmail.com
Subject: Re: SSH plus tail -f without key exchange possible?
Message-Id: <20070625123925.556$AB@newsreader.com>

Some moron named xhoster@gmail.com wrote:

> I suspect, but do not know for certain, that once the file grows to the
> point that the remote tail -f has filled up it's pipe buffer, it will

its, not it's.

> I'd consider writing a Perl script to be used in the place of tail -f on
> the remote machine.  You can have the Perl script quite

quit, not quite.

Sigh.

I used to think Perl was my first language.  Now I'm starting to think it
is my only language.

Xho

-- 
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service                        $9.95/Month 30GB


------------------------------

Date: 25 Jun 2007 16:45:13 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: SSH plus tail -f without key exchange possible?
Message-Id: <5ea9opF374d19U2@mid.dfncis.de>

<xhoster@gmail.com> wrote in comp.lang.perl.misc:

> I used to think Perl was my first language.  Now I'm starting to think it
> is my only language.

Hehe.

Anno


------------------------------

Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>


Administrivia:

#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc.  For subscription or unsubscription requests, send
#the single line:
#
#	subscribe perl-users
#or:
#	unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.  

NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice. 

To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.

#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.

#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.


------------------------------
End of Perl-Users Digest V11 Issue 574
**************************************


home help back first fref pref prev next nref lref last post