[12677] in Perl-Users-Digest
Perl-Users Digest, Issue: 86 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jul 9 04:07:42 1999
Date: Fri, 9 Jul 1999 01:05:07 -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 Fri, 9 Jul 1999 Volume: 9 Number: 86
Today's topics:
Re: -e fails w/ large files (>2G) (Patrick Tufts)
2 simple questions for a newbie (mike)
Re: \d \s ?? <cassell@mail.cor.epa.gov>
Re: Assocative Arrays (Abigail)
CGI woes for newbie (mike)
Re: Checking if a url is valid (elephant)
great tutorials on CGI (IlIIIIIIII)
Re: help with read( ) (Abigail)
Re: I need to hide the source <crn@itga.com.au>
Re: open+0 (Abigail)
Re: Pattern match counting <hiller@email.com>
Re: Pattern match counting (Ronald J Kimball)
Re: Pattern match counting <uri@sysarch.com>
Program for Easy Writing of Perl Code <fromero@csudh.edu>
Re: Program for Easy Writing of Perl Code <uri@sysarch.com>
Re: Random Numbers <watcher_q@my-deja.com>
Re: Sorting Hashes of Arrays <dukat+n@flash.net>
Re: Sorting Hashes of Arrays <michboy@my-deja.com>
Re: Sorting Hashes of Arrays <michboy@my-deja.com>
Re: Sorting Hashes of Arrays <michboy@my-deja.com>
Telnet.pm module and logging output (or input)? (Jim Matzdorff)
Re: UPS shipping code??? <tmornini@netcom9.netcom.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 08 Jul 1999 23:58:57 -0700
From: zippy@cs.brandeis.edu (Patrick Tufts)
Subject: Re: -e fails w/ large files (>2G)
Message-Id: <zippy-0807992358570001@adsl-216-101-185-125.dsl.snfc21.pacbell.net>
In article <7m0mr3$fog$1@new-news.cc.brandeis.edu>, zippy@cs.brandeis.edu
(Patrick Tufts) wrote:
> The perl file test operators -e (exists), -f (file is a plain file),
> -s (file has non-zero size) fail on large files under Solaris 5.6 x86.
I meant Solaris 2.6 x86.
--Pat
------------------------------
Date: 9 Jul 1999 02:30:19 GMT
From: mgcon@getnet.com (mike)
Subject: 2 simple questions for a newbie
Message-Id: <8DFDC4EF9mgcongetnetcom@news.getnet.com>
I am trying to learn Perl (it is my second week) and I have two somewhat simple
questions.
1. Using CGI, All I want to do is take all the values from the form, and print
it out once I click submit. I have been able to define each one seperatley:
$name = query->param("name");
etc
etc
.
.
.
print $name;
But I would just like to loop thru the array and return all the values
Something like:
@values = query->param();
.
.
.
print join(" | ", @values;
The above line returns the names of the controls, not the values.
Any help please?
2. Once I learn how to do this (#1), I want to learn how to dump these values
into mySQL database. I can successfully connect, run a SELECT staement, and
return all the values via CGI; now I want to learn how to begin dumping all
this info into my database.
Anyone want to throw me a couple of bones!?
Mike
------------------------------
Date: Thu, 08 Jul 1999 21:24:50 -0700
From: David Cassell <cassell@mail.cor.epa.gov>
To: Cayce Collins <cayce@thurston.com>
Subject: Re: \d \s ??
Message-Id: <37857992.510E0EA0@mail.cor.epa.gov>
[courtesy e-mail to poster]
Cayce Collins wrote:
>
> I am begining my perl walk into the clouds, and need help with this
> following line:
>
> if(/^($input_for{'username'})(\s*)Hours:(\d*)(\s*)Minutes:(\d*)(\s*)/){
>
> what does the \s* and \d* mean ?
I believe Rick Delaney already gave you some direction there.
But you may want to go to this URL:
http://www.netcat.co.uk/rob/perl/win32perltut.html
and walk through Rob's [non-win32-specific] tutorial. It
includes a section on regexen which you may find very
illuminating.
HTH,
David
--
David Cassell, OAO cassell@mail.cor.epa.gov
Senior computing specialist
mathematical statistician
------------------------------
Date: 8 Jul 1999 23:29:55 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Assocative Arrays
Message-Id: <slrn7oaul1.5k.abigail@alexandra.delanet.com>
Michael Carman (mjcarman@zeus.ia.net) wrote on MMCXXXVIII September
MCMXCIII in <URL:news:37856286.697D4DD7@zeus.ia.net>:
@@
@@ If you want to print the whole thing, that gets a little uglier:
@@
@@ foreach $a (keys %hash) {
@@ foreach $b (keys %{$hash{$a}}) {
@@ foreach $c (keys %{$hash{$a}{$b}}) {
@@ foreach $d (keys %{$hash{$a}{$b}{$c}}) {
@@ print "$hash{$a}{$b}{$c}{$d}\n";
@@ }
@@ }
@@ }
@@ }
Djees. Is that why God^WLarry Wall gave us values?
foreach $a (values %hash) {
foreach $b (values %$a) {
foreach $c (values %$b) {
foreach $d (values %$c) {
print $d, "\n"
}
}
}
}
Or just:
{local $, = "\n";
print map {map {map {map values %$_} values %$_} values %$_} values %hash;
}
Too bad we can't do (without the use of do{}):
{local $, = "\n";
print for (values %$_) for (values %$_) for (values %$_) for (values %hash);
}
(Ok, ok, benchmark it, and show yours is faster...)
Abigail
--
perl -e '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
/ / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / / /
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %;
BEGIN {% % = ($ _ = " " => print "Just Another Perl Hacker\n")}'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 9 Jul 1999 03:18:16 GMT
From: mgcon@getnet.com (mike)
Subject: CGI woes for newbie
Message-Id: <8DFDCD10Dmgcongetnetcom@news.getnet.com>
I am trying to learn Perl (it is my second week) and I have two somewhat
simple
questions.
1. Using CGI, All I want to do is take all the values from the form, and
print
it out once I click submit. I have been able to define each one seperatley:
$name = query->param("name");
etc
etc
.
.
.
print $name;
But I would just like to loop thru the array and return all the values
Something like:
@values = query->param();
.
.
.
print join(" | ", @values;
The above line returns the names of the controls, not the values.
Any help please?
2. Once I learn how to do this (#1), I want to learn how to dump these
values
into mySQL database. I can successfully connect, run a SELECT staement,
and
return all the values via CGI; now I want to learn how to begin dumping all
this info into my database.
Anyone want to throw me a couple of bones!?
Mike
------------------------------
Date: Fri, 9 Jul 1999 14:27:41 +1000
From: e-lephant@b-igpond.com (elephant)
Subject: Re: Checking if a url is valid
Message-Id: <MPG.11f0254c28fe681f989b26@news-server>
Victor Gan writes ..
>The CGI script is running as nobody as expected.
forget what I said before .. there are one or two problems with your
script
>#!/usr/local/bin/perl
>
>use LWP::Simple;
>
>$url = "http://www.hotmail.com";
>
>$return = getprint $url;
>
>if ($return eq "503" ) {
> print "Content-type:text/html\n\n";
> print $return;
> print "fail\n";
>}
>elsif ($return eq "500") {
> print "Content-type:text/html\n\n";
> print $return;
> print "fail\n";
>}
>else {
> print "Content-type:text/html\n\n";
> print $return;
> print "ok!\n";
>}
the LWP::Simple function 'getprint' does three things
1) if it finds it then it prints the contents of the URL to STDOUT
2) it prints any error strings to STDERR
3) it returns the HTTP code from the URL request
what this means is that on the following line of your code
$return = getprint $url;
the page at $url is actually printed to the browser .. you shouldn't be
getting a 500 error .. you should be getting an error about incorrect
HTTP headers because at this point you haven't output a MIME type
statement
as well as this the return code from getprint is a number .. not a string
your code should look something like this
#--begin
use LWP::Simple;
my $eol = "\cJ\cM"; # CRLF
my $url = 'http://www.hotmail.com/';
print 'Content-type: text/html', $eol, $eol; # before the getprint call
my $result = getprint( $url);
SWITCH:
{
$result == 200 && last;
$result == 500 && do { print 'Fail', $eol; last; };
print 'Some other error', $eol;
}
#--end
NB: I haven't looked into the HTTP error codes at all .. so there may be
more success codes than just '200' .. you'd adjust your SWITCH
accordingly
--
jason - remove all hyphens for email reply -
------------------------------
Date: 09 Jul 1999 04:31:30 GMT
From: iliiiiiiii@aol.com (IlIIIIIIII)
Subject: great tutorials on CGI
Message-Id: <19990709003130.01977.00011153@ng-cc1.aol.com>
I found a few at http://devlib.cjb.net
------------------------------
Date: 8 Jul 1999 23:16:54 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: help with read( )
Message-Id: <slrn7oatst.5k.abigail@alexandra.delanet.com>
Bob Bridges (bbridges@seark.net) wrote on MMCXXXVIII September MCMXCIII
in <URL:news:01bec9b2$cdf500a0$5d64f5d0@bbridges.seark.net>:
{} so, any fools out there who read the manual know how to use the read ( )
{} function/operator?
You must be one of the biggest idiots on this planet.
*plonk*
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 09 Jul 1999 15:03:36 +1000
From: Clive Newall <crn@itga.com.au>
Subject: Re: I need to hide the source
Message-Id: <v5pv22ct3r.fsf@lightning.itga.com.au>
"Jürgen Exner" <juex@my-dejanews.com> writes:
> Abigail <abigail@delanet.com> wrote in message
> news:slrn7o7lb6.ued.abigail@alexandra.delanet.com...
> > rdosser@my-deja.com (rdosser@my-deja.com) wrote on MMCXXXVI September
> > MCMXCIII in <URL:news:7m09vd$m44$1@nnrp1.deja.com>:
> > ``
> > `` I should have explained more: I'm trying to conceal a decryption
> > `` algorithm for confidential data.
> >
> > And you don't trust root? Buhahhahhahahhahaa. That's stupid.
> > Find a root who you can trust.
>
> Although I have to aggree that security by obsfucation is not the right way
> to go, still the administrator of e.g. a hospital network has no business
> reading my medical records.
>
> So not trusting root for confidential data is a very valid case.
No. You cannot prevent root from breeching your security by technical
means. Your *only* hope is to enforce such security by other means.
Like hiring a good professional sysadmin.
Like ensuring all staff understand your security policies & how they
relate to confidential data.
If you don't trust root there is only one solution: dismissal.
--
Clive Newall <crn@itga.com.au> / ITG Australia Ltd, Melbourne Australia
"I think Casper is the ghost of Richie Rich. I wonder how Richie died?"
"Perhaps he realized how hollow the pursuit of money is and took his own life"
--Bart and Lisa Simpson
------------------------------
Date: 8 Jul 1999 23:39:40 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: open+0
Message-Id: <slrn7oav7l.5k.abigail@alexandra.delanet.com>
Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCXXXVIII
September MCMXCIII in <URL:news:7m3mdh$6vl$1@lublin.zrz.tu-berlin.de>:
{}
{} He forgot to mention we all start counting at zero.
Hah! Except me. I always start my programs with $[ = 7.
Abigail
--
package Just_another_Perl_Hacker; sub print {($_=$_[0])=~ s/_/ /g;
print } sub __PACKAGE__ { &
print ( __PACKAGE__)} &
__PACKAGE__
( )
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Fri, 09 Jul 1999 04:29:13 GMT
From: Jordan Hiller <hiller@email.com>
Subject: Re: Pattern match counting
Message-Id: <37857A9A.64FBA7D2@email.com>
Please excuse the ignorance, but I've never tried out Benchmark before. When I
run this exact same code on my computer, it says it only timed one iteration and
all the times are zero. Why isn't it timing more iterations on my system?
(ActivePerl on Win98)
Thanks in advance,
Jordan Hiller
Larry Rosler wrote:
>
> #!/usr/local/bin/perl -w
> use strict;
> use Benchmark;
>
> my $example_data =
> "ALLR : ALLR : ALLR : ALLR : USPA : AMCA : ALLR : USMI :
> USOH : USIL : USNY : AMCA : USME : USMD : USMD : ALLR : USMD : USMD :
> ALLR : USMD : USLA : ALLR : AUST : USAZ : ALLR : USKY : USKY : USNJ :
> USCA : USCA : USCA : ALLR : ALLR : USME : ALLR : USCA : ALLR : USNJ :
> USNJ : USCA : USWI : ALLR : AMCA : ALLR";
>
> timethese(1 << (shift || 0), {
> List => sub { my $howmany = () = $example_data =~ /ALLR/g },
> While => sub { my $howmany = 0;
> $howmany++ while $example_data =~ /ALLR/g; $howmany },
> });
> __END__
>
> Benchmark: timing 65536 iterations of List, While...
> List: 9 wallclock secs ( 8.80 usr + -0.02 sys = 8.78 CPU)
> While: 4 wallclock secs ( 3.89 usr + 0.00 sys = 3.89 CPU)
>
------------------------------
Date: Fri, 9 Jul 1999 00:43:28 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Pattern match counting
Message-Id: <1dungep.1r3ca80bgjy0wN@p103.tc2.state.ma.tiac.com>
Jordan Hiller <hiller@email.com> wrote:
> Please excuse the ignorance, but I've never tried out Benchmark before.
> When I run this exact same code on my computer, it says it only timed one
> iteration and all the times are zero. Why isn't it timing more iterations
> on my system?
When you call the script from the command line, you give it an argument
that controls how many iterations are performed. To get 65536
iterations, Larry invoked his script with an argument of 16.
If you don't give an argument, just one iteration is performed.
> Larry Rosler wrote:
> > timethese(1 << (shift || 0), {
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 09 Jul 1999 00:42:42 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Pattern match counting
Message-Id: <x7yagqsabh.fsf@home.sysarch.com>
>>>>> "JH" == Jordan Hiller <hiller@email.com> writes:
JH> Please excuse the ignorance, but I've never tried out Benchmark
JH> before. When I run this exact same code on my computer, it says it
JH> only timed one iteration and all the times are zero. Why isn't it
JH> timing more iterations on my system?
>> timethese(1 << (shift || 0), {
^^^^^^^^^^
the key is the shift. if you don't give it a command line arg, it will
iterate only one time. just run the script with an integer which loop
the power of 2 times. e.g.
script 10
will benchmark 1024 times
script 15
will benchmark 32768 times
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Thu, 08 Jul 1999 23:21:29 -0700
From: Francisco Romero <fromero@csudh.edu>
Subject: Program for Easy Writing of Perl Code
Message-Id: <37859486.8CA70542@csudh.edu>
Does anyone know if there is an application that will help you write
perl code with ease!
I use inux.
Thanks.
------------------------------
Date: 09 Jul 1999 03:27:48 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Program for Easy Writing of Perl Code
Message-Id: <x7n1x6s2ob.fsf@home.sysarch.com>
>>>>> "FR" == Francisco Romero <fromero@csudh.edu> writes:
FR> Does anyone know if there is an application that will help you write
FR> perl code with ease!
FR> I use inux.
it is called erl.
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
uri@sysarch.com --------------------------- Perl, Internet, UNIX Consulting
Have Perl, Will Travel ----------------------------- http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
"F**king Windows 98", said the general in South Park before shooting Bill.
------------------------------
Date: Fri, 09 Jul 1999 05:22:10 GMT
From: Watcher <watcher_q@my-deja.com>
Subject: Re: Random Numbers
Message-Id: <7m40ts$155$1@nnrp1.deja.com>
In article <MPG.11ee921a92212f97989c75@nntp.hpl.hp.com>,
lr@hpl.hp.com (Larry Rosler) wrote:
> [Posted and a courtesy copy mailed.]
>
> In article <7lhjlp$2ro$1@nnrp1.deja.com> on Fri, 02 Jul 1999 05:45:31
> GMT, rt_daemon@my-deja.com <rt_daemon@my-deja.com> says...
> > How do I make my random numbers to be of 7 Numbers and between 0 and
> > 9999999
> >
> > 0000000 to 9999999
>
> That depends. Will you be satisfied with < ~2**15 different numbers
in
> that range? If not, read perlfaq4: "Why aren't my random numbers
> random?" and follow the suggestons there.
>
> The little program below will demonstrate the problem very clearly.
A
> quicker way to see it is to do the command `perl -V:randbits`, which
> gives 15 on each of the systems I have tried.
<Code deleted>
Yep, Tom Phoenix (in PerlFAQ4) had another similar program that show
with a randbits=15, when generating 1e6 numbers, there are about 30+
repeats!. This, however is not Perl's fault. Instead, it is due to
the rand() in stdlib that Perl has been compiled with.
I had suggested to the perl.porter-gw group to change it but no one
replied. As I'm using perl to do some crypto work, it need a high-
quality, high speed (Math::TrulyRandom is too slow) PRNG. I settled
with an algo that has randbits=32, period of 2^19937-1. It is slightly
slower, about 1 microsec per rand() call on my machine and modest
increase in memory. It has been successfully analysed, including
spectral analysis. Furthermore, it has been implement from C to C++,
Java, PHP, Excel, FORTRAN, Haskell. I had it compiled it in place of
rand() and it seemed to work fine.
You can get the details at http://www.math.keio.ac.jp/~matumoto/emt.html
Watcher
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 09 Jul 1999 04:57:49 GMT
From: Eric Miller <dukat+n@flash.net>
Subject: Re: Sorting Hashes of Arrays
Message-Id: <3785816B.8F56B3B0@flash.net>
Greg Savage wrote:
> This works fine for keys based on login name or real name but I am unable
> to get a numeric sort on
> the group field.
>
> foreach $group (sort keys %HoL)
> {
> print "@{ $HoL{$group} }\n";
> }
Sorting things involves comparing the value between two items.
Values can be strings or numbers. You compare strings and
numbers differently. For example - "1", "12" "20" "23" -
as strings they are in order lexically, but numerically,
they aren't.
So what's wrong with your code? Look up the Perl documentation
on the sort routine, and also the comparison operators.
Eric Miller
------------------------------
Date: Fri, 09 Jul 1999 05:33:36 GMT
From: Steven W. Peters <michboy@my-deja.com>
Subject: Re: Sorting Hashes of Arrays
Message-Id: <7m41jg$1b0$1@nnrp1.deja.com>
In article <01bec9bd$da310480$f34f39cb@stingray>,
"Greg Savage" <greg@hendigital.com.au> wrote:
> I have written the following block of code to read in the login name,
group
> ID and Real name from the
> /etc/passwd file. I am using a Hash of the array so I can return all
three
> fields with a single key.
> I then use a foreach outside of the main while loop to soft on the
key.
>
> This works fine for keys based on login name or real name but I am
unable
> to get a numeric sort on
> the group field.
>
> Suggestions welcomed.
>
> John.
>
> setpwent();
> while (@list = getpwent())
> {
> ($login,$group,$name) = @list[0,3,5];
> $HoL{$group} = [ @list[0,3,5] ];
> if ($group >= 500)
> {
> # Do stuff
> }
> endpwent();
>
> foreach $group (sort keys %HoL)
> {
> print "@{ $HoL{$group} }\n";
> }
>
>
The plain old sort function sorts from ASCII. To sort alphabetically,
use
foreach $group (sort {$a <=> $b} keys %HoL) {#Stuff}
--
--
Steven W. Peters
Webdesigner
Novice Visual Basic & Perl programmer
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 09 Jul 1999 05:33:27 GMT
From: Steven W. Peters <michboy@my-deja.com>
Subject: Re: Sorting Hashes of Arrays
Message-Id: <7m41j7$1at$1@nnrp1.deja.com>
In article <01bec9bd$da310480$f34f39cb@stingray>,
"Greg Savage" <greg@hendigital.com.au> wrote:
> I have written the following block of code to read in the login name,
group
> ID and Real name from the
> /etc/passwd file. I am using a Hash of the array so I can return all
three
> fields with a single key.
> I then use a foreach outside of the main while loop to soft on the
key.
>
> This works fine for keys based on login name or real name but I am
unable
> to get a numeric sort on
> the group field.
>
> Suggestions welcomed.
>
> John.
>
> setpwent();
> while (@list = getpwent())
> {
> ($login,$group,$name) = @list[0,3,5];
> $HoL{$group} = [ @list[0,3,5] ];
> if ($group >= 500)
> {
> # Do stuff
> }
> endpwent();
>
> foreach $group (sort keys %HoL)
> {
> print "@{ $HoL{$group} }\n";
> }
>
>
The plain old sort function sorts from ASCII. To sort alphabetically,
use
foreach $group (sort {$a <=> $b} keys %HoL) {#Stuff}
--
--
Steven W. Peters
Webdesigner
Novice Visual Basic & Perl programmer
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Fri, 09 Jul 1999 05:37:30 GMT
From: Steven W. Peters <michboy@my-deja.com>
Subject: Re: Sorting Hashes of Arrays
Message-Id: <7m41qp$1dh$1@nnrp1.deja.com>
Sorry for the double post. I realized I made a mistake and tried to
stop it from sending and ended up sending it twice. Anyways the thing
I sent you was to sort numerically, not alphabetically!
HTH,
Steve
--
Steven W. Peters
Webdesigner
Novice Visual Basic & Perl programmer
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 8 Jul 1999 21:26:00 -0700
From: syran@best.com (Jim Matzdorff)
Subject: Telnet.pm module and logging output (or input)?
Message-Id: <7m3tko$r8c$1@shell18.ba.best.com>
I am having some problems with using the Telnet.pm library, and am
hoping someone can help me out.
I am opening two different telnet connection. I want to log I/O for
both connection simultaneously (using either
"$session->input_log($filename) or when I set up the initial telnet
session).
But for some reason, only one of the telnet log files writes to the
log file as it receives the data, the other one waits until the
program is done running and then dumps ALL I/O it has come across
at once into it's logfile.
Can anyone tell me what the difference is, and if it's correctable. I
am at a loss for ideas...
Thanks,
--jim
--
--
If life is a waste of time, and time is a waste of life,
then let's all get wasted together and have the time of our lives.
------------------------------
Date: 9 Jul 1999 06:04:01 GMT
From: Tom Mornini <tmornini@netcom9.netcom.com>
Subject: Re: UPS shipping code???
Message-Id: <7m43ch$b0p@dfw-ixnews4.ix.netcom.com>
David Cassell <cassell@mail.cor.epa.gov> wrote:
: Isn't that the perl script which had some bug(s) major enough
: for more than two people to come to this ng for help last
: month? If so, Tom Mornini's suggestion might be a better bet.
IMHO, my suggestions are always the best bet...which is an opinion
I share with everyone else who has opinions! :-)
-- Tom Mornini
-- InfoMania
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V9 Issue 86
************************************
