[12786] in Perl-Users-Digest
Perl-Users Digest, Issue: 196 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 20 03:07:22 1999
Date: Tue, 20 Jul 1999 00:05:09 -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 Tue, 20 Jul 1999 Volume: 9 Number: 196
Today's topics:
Re: Anybody know how to to this? (Ronald J Kimball)
Re: Comparing a Hash value to a string <kelly@pcocd2.intel.com>
error in loading? error in library? (Derek Wilkinson)
Help requested with my "paging" script. <portboy@home.com>
Re: Listing Files <kmsproule@worldnet.att.net>
Re: Listing Files (Ronald J Kimball)
Re: Listing Files (John Stanley)
Re: Listing Files (Martien Verbruggen)
Re: Need help with socket loop? <uri@sysarch.com>
Re: PERL & SQL <mgoelz@efn.org>
Perl Win 32 GUI, TreeView problem, help needed ! <frederic.descamps@origin-it.com>
Script doesn't always finish <onecor@hotmail.com>
Re: Script doesn't always finish <ahands@sprynet.com>
Re: Script doesn't always finish (Anno Siegel)
Re: Simple Question: how to add another element to an a (Larry Rosler)
Re: Simple Question: how to add another element to an a (Abigail)
Re: Simple Question: how to add another element to an a <ahands@sprynet.com>
Re: still buggy... (Ronald J Kimball)
submit -> image <anzej@skavt.net>
Subroutines in a deperate file <kbilbee@wgn.net>
Re: Subroutines in a deperate file (Andreas Fehr)
Re: Subroutines in a deperate file <zigouras@mail.med.upenn.edu>
Re: TPJ/Earthweb junk mail? (Ronald J Kimball)
Re: using perl to talk to a modem (Mike Tancsa)
Re: What does REUSED_ADDRESS in -d mean? (Ronald J Kimball)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 20 Jul 1999 00:34:58 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Anybody know how to to this?
Message-Id: <1dv7r5c.1tl5l9y1dr73m0N@p52.tc18.metro.ma.tiac.com>
Abigail <abigail@delanet.com> wrote:
> Ronald J Kimball (rjk@linguist.dartmouth.edu) wrote:
> ** Seriously, though, 'CGI' as a shortening of 'CGI program' is
> ** understandable, even though misguided. If I say "I need someone to
> ** write a CGI" you can tell what I mean. 'program' as a shortening of
> ** 'CGI program' does not make sense, because there's no way to distinguish
> ** from any other sort of program. If I say "I need someone to write a
> ** program" you have no way of knowing what kind of program I need written.
>
>
> That's true. If you tell me "I need a CGI program written", it's instantly
> clear what the program must do. No need for further specification.
I did not say "what the program must do". I said "what kind of
program". The point is that "a CGI", even though incorrect usage,
provides more information than "a program".
--
_ / ' _ / - 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: 19 Jul 1999 21:54:06 -0700
From: Michael Kelly - FVC PCD VET ~ <kelly@pcocd2.intel.com>
Subject: Re: Comparing a Hash value to a string
Message-Id: <us2ogh7ncpd.fsf@fht002.fm.intel.com>
Blair Kissel <blair.kissel@mts.mb.ca> writes:
>
> Thanks very much for your help. Actually, my problem wasn't related to the
> compare operation, the hash values were read in from a text file and thus had
> a trailing \n that had to be removed in order for the compare to work
> correctly. :) I used chop for this and it now works wonderfully! =)
Blair,
You might want to look at the documentation on 'chomp'. At
the unix prompt, enter `perldoc -f chomp`.
--
Not speaking for Intel
Michael Kelly (the one in Folsom)
1900 Prarie City Road desk (916) 356-2822
Folsom, CA. 95630 Page (916) 360-5847
------------------------------
Date: 19 Jul 1999 20:33:19 GMT
From: dwilkins@f1n06.kent.edu (Derek Wilkinson)
Subject: error in loading? error in library?
Message-Id: <7n022f$b40$1@usenet.kent.edu>
Keywords: perl errors loading libraries not LD_LIBRARY_PATH
Hello,
I got the following error while trying to run a perl 4 script
from a tcl wish4.0 script:
------------------------------------------------------
Error: ld.so.1: /usr/local/bin/perl: fatal: libucb.so.1: open
failed: No such file or directory
------------------------------------------------------
Now please don't tell me that I need to add /usr/ucblib to my
LD_LIBRARY_PATH environment variable. I have already tried it and it
didn't work.
It all seems really really strange. I wrote another tcl script
which didn't do much other than calling the same perl script. It worked!!
They called the perl script in exactly the same way:
eval exec "$command"
but one gives an error on startup.
Also envoking $command (where $command is the perl script) from
the command line works just like a charm which doesn't make much sense.
Could it maybe be something in the logic of the perl script that
is causing it to die.
I wish that these errors would make sense.
I've heard that all of the libraries in /usr/ucblib are flaky, but
I need some sort of solution anyway.
Yes, I know people (and buisnesses) should use perl 5 not 4. I do
in my spare time.
*********************************************************
* Derek Wilkinson http://www.mcs.kent.edu/~dwilkins *
*********************************************************
mailto: dwilkins@kenotrightnt.edu
Hint: take out notright to get my e-mail address.
------------------------------
Date: Tue, 20 Jul 1999 05:58:38 GMT
From: Mitch <portboy@home.com>
Subject: Help requested with my "paging" script.
Message-Id: <37940FBD.94734301@home.com>
I'm working on a script that provides ths user (at times) with a lot of
textual information. Sometimes this information is coming from files,
and other times it comes from "in memory" configuration, sometimes
both. Well, this information (depending on its size) will scroll past
the user. this I don't want. So, I began writing a script that will
work as a pager (similar to the 'more' command in unix/linux) on files.
This seems to work just fine, however, I can't seem to figure out how to
make my script work on paging of an in memory configuration etc.
Now, I know some of you might be saying, why don't you just pipe it to
more? Well, I can't - so I need to come up with my own. Unless someone
has already done this or knows of a module. I've searched CPAN and deja
and found nothing. Maybe I missed something? Anyway, I'm assuming that
the "paging" in any situation (in-memory, files, or both) requires me to
somehow watch what's coming out of stdout, and deal with the paging
there, however, I'm not exactly sure how to do this. Below is my code
for paging a file. Let me know if anyone has any ideas on how to make
this work in "any situation" where "paging" is required.
Thanks again,
MITCH
# the script takes a filename and a number of lines to scroll through.
#!/usr/bin/perl5
open(OUT,">/dev/tty00");
open(IN,"/dev/tty00");
select IN;
$| = 1;
select OUT;
$| = 1;
my $lines = shift;
my $file = shift;
#SLURP
open(F,"$file");
my @lines = ;
close(F);
$max = (@lines > $lines) ? $lines : @lines;
&dump_lines(0,$max);
$current_line = $max;
while(1)
{
while (1)
{
&print_prompt;
$_ = &get_char;
print "\n";
last if (/[\cjq ]/);
}
CASE:
{
/q/i && do { exit };
/\cj/ && do {
&dump_lines($current_line,$current_line+1);$current_line++;last
CASE};
(ord == 32) && do {
$max = (@lines - $current_line > $lines) ? $lines :
@lines-$current_line;
&dump_lines($current_line++,$current_line+$max);
$current_line += $max;
last CASE;
};
}
#print STDERR "Current line is $current_line lines:
".@lines."\n";
exit if ($current_line >= @lines);
}
sub dump_lines
{
my($start,$end) = @_;
#print STDERR "dumping $start to $end\n";
for (my $i = $start; $i < $end && $i < @lines; $i++)
{
print $lines[$i];
}
}
sub get_char
{
system "stty cbreak /dev/tty00 2>&1";
my $key = getc IN;
system "stty -cbreak /dev/tty00 2>&1";
$key;
}
sub print_prompt
{
print "<ret> one line <space> page 'q' quit ";
}
------------------------------
Date: Mon, 19 Jul 1999 21:23:32 -0700
From: "Kevin M. Sproule" <kmsproule@worldnet.att.net>
Subject: Re: Listing Files
Message-Id: <7n0thh$ih4$1@bgtnsc03.worldnet.att.net>
Kevin M. Sproule wrote in message
<7n0sdf$bjb$1@bgtnsc03.worldnet.att.net>...
>
>Ashish Kadakia wrote in message <932424514.5244@www.remarq.com>...
>>Hi, I would like to list all the files starting with the
>>root directory..
>>Can anyone point me how to do that?
>>
>> SNIP <<
Oops, typing error on line:
# push @array,$file."\\",$entry;
Should be:
# push @array,$file."\\".$entry;
------------------------------
Date: Tue, 20 Jul 1999 00:34:59 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: Listing Files
Message-Id: <1dv7rus.9c4rcvrdtb0N@p52.tc18.metro.ma.tiac.com>
chrisd <cmd@maths.uq.edu.au> wrote:
> Sorry, my bad
>
> opendir(DIR, "/");
> foreach $file (readdir(DIR)) {
> push @array, $file;
> }
> close(DIR);
>
Okay, you corrected the <> already. :)
But reading one filename at a time just to push onto an array is silly.
@array = readdir(DIR);
--
_ / ' _ / - 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: 20 Jul 1999 05:22:00 GMT
From: stanley@skyking.OCE.ORST.EDU (John Stanley)
Subject: Re: Listing Files
Message-Id: <7n111o$81l$1@news.NERO.NET>
In article <7n0sdf$bjb$1@bgtnsc03.worldnet.att.net>,
Kevin M. Sproule <kmsproule@worldnet.att.net> wrote:
>
>What the previous examples lack in functionality they make up for in
>brevity. ;)
What the elided code lacks in brevity it makes up for in ... complexity.
File::Find is your friend.
------------------------------
Date: Tue, 20 Jul 1999 07:01:14 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Listing Files
Message-Id: <_8Vk3.233$Vs6.12084@nsw.nnrp.telstra.net>
In article <7n0sdf$bjb$1@bgtnsc03.worldnet.att.net>,
"Kevin M. Sproule" <kmsproule@worldnet.att.net> writes:
> What the previous examples lack in functionality they make up for in
> brevity. ;) The request was to list "all" the files starting with the root
> directory. Here a a working WIN32 solution.
>
>>>> Start Code <<<
> #!/perl/bin/perl.exe
> # walker.pl - Walks a win32 directory structure. Kevin Sproule 7/19/1999
[SNIP of redundant and unnecessary code]
use File::Find
Martien
--
Martien Verbruggen |
Interactive Media Division | You can't have everything, where would
Commercial Dynamics Pty. Ltd. | you put it?
NSW, Australia |
------------------------------
Date: 20 Jul 1999 00:27:46 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Need help with socket loop?
Message-Id: <x7g12keyil.fsf@home.sysarch.com>
posting it multiple times will not get you any more help than one
time. in fact you will probably get less help.
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: Mon, 19 Jul 1999 22:45:05 +0100
From: MLG <mgoelz@efn.org>
Subject: Re: PERL & SQL
Message-Id: <37939C61.9D8BEAF7@efn.org>
I am not sure exactly what you are doing from the description. However, I
do know that if you are able to call SQL*Plus and execute a PL/SQL / SQL
script that spools the output to a file which is then picked up by the perl
script you should be able to generate whatever output you what. It is
possible to use SQL*Plus to generate a text file that is formated like HTML
, a csv file, or whatever you wish. It may be difficult but the formatting
capacity of SQL*Plus combined with PL/SQL and SQL can be leveraged to do
this.
Mark L. Goelz
ether_nut@my-deja.com wrote:
> I've been working on a PERL/SQL script that runs a simple query
> like : select distinct
> c.rowid
> c.column_name
> c.column_names
> from c.table_name
> where c.rowid='rowid' and
> c.column_name = ..etc
> After the query runs I can get it to generate a file & it will run
> the results through SQL*PLUS no problem, but I'm having problems making
> the query info show up on output from the PERL script (It's a web page
> which is embedded in PERL).
>
> Does anyone have an example of a good way to display the query results
> in PERL. (any example will do)
>
> Thanks
>
> Dave
> dave@worldexpress.com
>
> Sent via Deja.com http://www.deja.com/
> Share what you know. Learn what you don't.
------------------------------
Date: Tue, 20 Jul 1999 07:40:35 +0200
From: "Frederic Descamps" <frederic.descamps@origin-it.com>
Subject: Perl Win 32 GUI, TreeView problem, help needed !
Message-Id: <0E16861EE7BCD111BE9400805FE6841F0A6A9A17@c1s5x001.cor.srvfarm.origin-it.com>
Hi,
Could somebody show me how to put the text value of an item clicked in a
treeview ?
Thank you,
Fred
------------------------------
Date: Tue, 20 Jul 1999 04:07:00 GMT
From: "Tiro Verus" <onecor@hotmail.com>
Subject: Script doesn't always finish
Message-Id: <932443620.730600@router1.nyct.net>
- - - - - - - - - - - - - - - - - - - - - -
while ( defined ( $one = <> )) {
if ( defined ( $two = <> )) {
; } else { $two = " \n"; }
chomp $one; chomp $two;
print " $one $two \n";
}
- - - - - - - - - - - - - - - - - - - - - -
The above excerpt is intended to "double up" lines
in a text file, printing one line where there were
two. It does it, but when the number of lines in
the input file is odd, it doesn't return to the
command line*, and one has to use Ctl-D to end it.
Does anyone know why?
* Rather like less doesn't, except one learns
from the man page on less that one needs q to
exit less.
--
your deed of goodness and kindness will hasten the redemption
http://www.universalperfection.org
------------------------------
Date: Tue, 20 Jul 1999 00:43:08 -0400
From: Adrian Hands <ahands@sprynet.com>
To: Tiro Verus <onecor@hotmail.com>
Subject: Re: Script doesn't always finish
Message-Id: <3793FE5C.17225823@sprynet.com>
Tiro Verus wrote:
>
> - - - - - - - - - - - - - - - - - - - - - -
> while ( defined ( $one = <> )) {
> if ( defined ( $two = <> )) {
> ; } else { $two = " \n"; }
> chomp $one; chomp $two;
> print " $one $two \n";
> }
> - - - - - - - - - - - - - - - - - - - - - -
>
> The above excerpt is intended to "double up" lines
> in a text file, printing one line where there were
> two. It does it, but when the number of lines in
> the input file is odd, it doesn't return to the
> command line*, and one has to use Ctl-D to end it.
>
> Does anyone know why?
Well, on my system (version 5.005_03 built for i386-linux),
your script works fine for odd and even numbers of lines.
I'd have to guess that on your system after "$one = <>" returns undef,
stdin is being set back to the keyboard.
How does this work for you:
#!/usr/bin/perl -w
use strict;
my $two;
while(my $one = <>) {
chomp $one;
if(defined($two)) { print " $two $one \n"; $two = undef; }
else { $two = $one; }
}
if(defined($two)) { print " $two\n"; }
------------------------------
Date: 20 Jul 1999 05:29:15 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Script doesn't always finish
Message-Id: <7n11fb$pra$1@lublin.zrz.tu-berlin.de>
Tiro Verus <onecor@hotmail.com> wrote in comp.lang.perl.misc:
>
>- - - - - - - - - - - - - - - - - - - - - -
>while ( defined ( $one = <> )) {
> if ( defined ( $two = <> )) {
> ; } else { $two = " \n"; }
> chomp $one; chomp $two;
> print " $one $two \n";
> }
>- - - - - - - - - - - - - - - - - - - - - -
>
>The above excerpt is intended to "double up" lines
>in a text file, printing one line where there were
>two. It does it, but when the number of lines in
>the input file is odd, it doesn't return to the
>command line*, and one has to use Ctl-D to end it.
>
>Does anyone know why?
Yup. From the Camel, p 55:
The <> symbol will return false only once. If you call it again after
this it will assume you are processing another @ARGV list, and if you
haven't set @ARGV, it will input from STDIN.
Nuff said?
Anno
------------------------------
Date: Mon, 19 Jul 1999 21:10:24 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Simple Question: how to add another element to an array
Message-Id: <MPG.11fd968a3251ca8a989d01@nntp.hpl.hp.com>
[Posted and a courtesy copy sent.]
In article <3793ED0D.36D58F2@umd5.umd.edu> on Mon, 19 Jul 1999 23:29:17
-0400, Winston Riley IV <rriley@umd5.umd.edu> says...
> I have an array (@AlumniData) which I need to add another element to
> ($NewLine). the program than sorts and write the array back to a file.
perldoc -f push
perldoc -f sort
You don't have to actually add the element to the array in order to
sort:
print OUTFILE sort { ... } (@AlumniData, $NewLine);
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 20 Jul 1999 00:09:02 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Simple Question: how to add another element to an array
Message-Id: <slrn7p812c.oqh.abigail@alexandra.delanet.com>
Winston Riley IV (rriley@umd5.umd.edu) wrote on MMCXLIX September
MCMXCIII in <URL:news:3793ED0D.36D58F2@umd5.umd.edu>:
?? This seems so simple that I can't believe I need to ask. . . but I do!
??
?? I have an array (@AlumniData) which I need to add another element to
?? ($NewLine). the program than sorts and write the array back to a file.
??
?? I have spent two nights trying to figure this silly thing out. I must be
?? overlooking the obvious.
The manual mentions various ways. I cannot believe you spent 2 nights,
and missed all the possible ways.
Abigail
--
perl -wlpe '}$_=$.;{' file # Count the number of lines.
-----------== 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: Mon, 19 Jul 1999 23:52:12 -0400
From: Adrian Hands <ahands@sprynet.com>
To: rriley@umd5.umd.edu
Subject: Re: Simple Question: how to add another element to an array
Message-Id: <3793F26C.DB7E46A5@sprynet.com>
Winston Riley IV wrote:
>
> This seems so simple that I can't believe I need to ask. . . but I do!
>
> I have an array (@AlumniData) which I need to add another element to
> ($NewLine). the program than sorts and write the array back to a file.
>
> I have spent two nights trying to figure this silly thing out. I must be
> overlooking the obvious.
>
> Any help is recieved with many thanks.
>
> <<< Rex >>>
push @AlumniData, $NewLine;
e.g.:
$ perl -we 'use strict; use Data::Dumper; my @AlumniData = (2, 3, 8);
push @AlumniData, 5; print Dumper(\@AlumniData);'
$VAR1 = [
2,
3,
8,
5
];
$
------------------------------
Date: Tue, 20 Jul 1999 00:35:01 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: still buggy...
Message-Id: <1dv7sf8.a3f8st1h1hf2fN@p52.tc18.metro.ma.tiac.com>
James Gerard Coleman <jgc5a@j2.mail.virginia.edu> wrote:
> } # then loop through and find
> for ($j=0; $j<=$#tempauth; $j++) { # all key values and match
> for ($k=0; $k<=$#cryptokeys; $k++) {# with the lines. print.
> if ($tempauth[$j] =~ $cryptokeys[$k]) {
> print OUT "$j $tempauth[$j]";
> }
> }
> }
>
> what this is doing, is printing all the values of @tempauth twice..
Presumably, each loop through @cryptokeys results in two successful
matches against the value from @tempauth. Why not change that print to:
print OUT "$j '$cryptokeys[$k]' $tempauth[$j]";
so you can see what is being matched each time.
--
_ / ' _ / - aka -
( /)//)//)(//)/( Ronald J Kimball rjk@linguist.dartmouth.edu
/ http://www.tiac.net/users/chipmunk/
perl -e '$_="\012534`!./4(%2`\cp%2,`(!#+%2j";s/./"\"\\c$&\""/gees;print'
------------------------------
Date: Tue, 20 Jul 1999 08:49:27 +0200
From: "Anzej Becan" <anzej@skavt.net>
Subject: submit -> image
Message-Id: <7n168l$ir3$1@planja.arnes.si>
Hello!
Till now I use in perl script Submit button, but now I would like to use
image button.
now I have:
<INPUT type="Submit" name="izpis_delnic" Value="Portfelj">
for image I tried to use:
<INPUT type="image" src="button1.gif" name="izpis_delnic" Value="Portfelj">
But here comes a problem. Script in second case does not recognize name
"izpis_delnic" and doesn't work regulary.
If someone would like to take a look at acting script -
http://www.soncek.net/borza/uporabniki.html. Use rok/bicikl for entry.
Thanks!
Anzej
------------------------------
Date: Mon, 19 Jul 1999 22:49:25 -0700
From: "Kevin Bilbee" <kbilbee@wgn.net>
Subject: Subroutines in a deperate file
Message-Id: <37940e2e@news.wgn.net>
I am trying to put my commonly used subroutines in a seperate file, but when
I run my script I get the following error message.
/home/kbilbee/public_html/cgi-bin/lib/subprint.pl did not return a true
value at main.pl line 4.
Does anybody know what I am doing incorrectly?
Main routine
----------------------------------------------------------------------------
#!/usr/lib/bin/perl
require "/home/kbilbee/public_html/cgi-bin/lib/subprint.pl";
print print_hello();
Subroutine
----------------------------------------------------------------------------
# subprint.pl
#
#
sub print_hello {
return "hello";
}
Kevin Bilbee
kbilbee@wgn.net
------------------------------
Date: Tue, 20 Jul 1999 06:43:26 GMT
From: backwards.saerdna@srm.hc (Andreas Fehr)
Subject: Re: Subroutines in a deperate file
Message-Id: <37941805.4337667@news.uniplus.ch>
On Mon, 19 Jul 1999 22:49:25 -0700, "Kevin Bilbee" <kbilbee@wgn.net>
wrote:
>I am trying to put my commonly used subroutines in a seperate file, but when
>I run my script I get the following error message.
>
>/home/kbilbee/public_html/cgi-bin/lib/subprint.pl did not return a true
>value at main.pl line 4.
>
>Does anybody know what I am doing incorrectly?
>
Check perldiag if you find the answer there!
Andreas
------------------------------
Date: Tue, 20 Jul 1999 02:59:28 -0400
From: Nico Zigouras <zigouras@mail.med.upenn.edu>
To: Kevin Bilbee <kbilbee@wgn.net>
Subject: Re: Subroutines in a deperate file
Message-Id: <37941E50.3AD738A@mail.med.upenn.edu>
Try putting a one at the end of subprint.pl to have it always return true.
like
1;
Kevin Bilbee wrote:
> I am trying to put my commonly used subroutines in a seperate file, but when
> I run my script I get the following error message.
>
> /home/kbilbee/public_html/cgi-bin/lib/subprint.pl did not return a true
> value at main.pl line 4.
>
> Does anybody know what I am doing incorrectly?
>
> Main routine
> ----------------------------------------------------------------------------
> #!/usr/lib/bin/perl
>
> require "/home/kbilbee/public_html/cgi-bin/lib/subprint.pl";
>
> print print_hello();
>
> Subroutine
> ----------------------------------------------------------------------------
> # subprint.pl
> #
> #
>
> sub print_hello {
> return "hello";
> }
>
> Kevin Bilbee
> kbilbee@wgn.net
------------------------------
Date: Tue, 20 Jul 1999 00:35:02 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: TPJ/Earthweb junk mail?
Message-Id: <1dv7t4u.1vjz0eu1fsd57jN@p52.tc18.metro.ma.tiac.com>
Well, as long as we're on the topic...
The very first issue of the Perl Journal published by EarthWeb has a
magic 8-ball on the cover. Is the 8-ball's message a coincidence?
--
_ / ' _ / - 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: Tue, 20 Jul 1999 05:25:18 GMT
From: mike@sentex.net (Mike Tancsa)
Subject: Re: using perl to talk to a modem
Message-Id: <379407f7.637150113@news.sentex.net>
On 19 Jul 1999 13:40:51 GMT, rwadman@morgan.ucs.mun.ca (Ray Wadman) wrote:
>
>hi, i hope someone can help. i need to to know the best way to
>to use perl to communicate with a modem on fbsd 2.2.7
>(what i have to do is use perl to talk to a modem and send out a
>page (the numvber is a pager system) and inform when a critcal host
>goes down.)
>
>does anyone know how to do this or know of a resource?
>
>please respond via email: rwadman@morgan.ucs.mun.ca
Take a look at the bb (big brother port)... It has everything you need
there, as well as a kermit interface script to a modem that can easily be
used to dial a modem and send out a numeric page.
---Mike
Mike Tancsa (mdtancsa@sentex.net)
Sentex Communications Corp,
Waterloo, Ontario, Canada
"Who is this 'BSD', and why should we free him?"
------------------------------
Date: Tue, 20 Jul 1999 00:35:03 -0400
From: rjk@linguist.dartmouth.edu (Ronald J Kimball)
Subject: Re: What does REUSED_ADDRESS in -d mean?
Message-Id: <1dv7tdm.hms5w9udeo9wN@p52.tc18.metro.ma.tiac.com>
Andrew J Perrin <aperrin@mcmahon.qal.berkeley.edu> wrote:
> In a package I'm working on, I have a rather ugly data structure; when
> I'm working in the debugger and view the structure using:
>
> <4> x $foo
>
> some of the elements eventually work their way down to:
> -> REUSED_ADDRESS
>
> I have two questions:
> 1.) I assume that this refers to the fact that the element is a
> reference to something that's already been printed in the list (that
> would make sense). Am I somewhere close to right here?
Yes, you are exactly right. In particular, this solves the problem of
circular references leading to an infinite loop of printing values, but
it also makes the output shorter for non-circular repeated references as
well.
> 2.) Should I be worried?
If you meant to reuse those references, no.
If you didn't mean to reuse those references, yes.
--
_ / ' _ / - 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: 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 196
*************************************
