[10022] in Perl-Users-Digest
Perl-Users Digest, Issue: 3615 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 2 09:05:03 1998
Date: Wed, 2 Sep 98 06:00:20 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 2 Sep 1998 Volume: 8 Number: 3615
Today's topics:
a pesky perl runtime problem <eam@starfire.mlb.semi.harris.com>
Re: a pesky perl runtime problem (David A. Black)
Re: a pesky perl runtime problem <jdf@pobox.com>
Re: beginner needs help(perl and Access) <perlguy@inlink.com>
Re: Best way to "reset" $1? <jdf@pobox.com>
Re: Better Regular Expressions (was: Re: Imagine... a n <jim.gillespie@usa.net>
Re: COBOL and Perl <bradshaw@iridia.ulb.antispam_remove.ac.be>
Re: COBOL and Perl (David Cantrell)
Re: COBOL and Perl (Roger Ivie)
Re: COBOL and Perl <bradshaw@iridia.ulb.antispam_remove.ac.be>
Re: Currency Formatting in Perl (s//) (S. Kuip)
Re: Delay <l.brocard@elsevier.nl>
Re: FMTEYEWTK on Switch Statements in Perl (was: No swi <antony@fabric8.com>
Re: Get disk space on Win NT <Kflanagan@home.com>
Re: Help on a simple regex <jdf@pobox.com>
Re: Misinterpreted => why no true/false keywords? (Michael J Gebis)
Perl & Java - differences and uses <->
Re: Perl & Java - differences and uses <pats@acm.org>
Re: PERL is horrible (Bruce W. Perry)
posix.pm for nt <wiebigke@imn.htwk-leipzig.de>
Re: Problems building threaded perl 5.005 on OSF 4.0d <cmr@iisc.com>
Programmer Needed ASAP <aaron@pornoinferno.com>
Re: trouble writing 2 files in subroutines <barnett@houston.Geco-Prakla.slb.com>
Re: US-NY-LI 516 PERL Programmer/Analyst <jim.michael@gecm.com>
Weird problem - can you help? <raj.subramani@citicorp.com>
Where can I find a Perl script for a non-java, non fram xx@gte.net
Where can I find a Perl script for a non-Java, non fram bewitchd@my-dejanews.com
Re: Where to get Net/Domain.pm? <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Where to get Net/Domain.pm? <versace@gianni.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 02 Sep 1998 07:16:39 -0400
From: "E Mills, software scientist" <eam@starfire.mlb.semi.harris.com>
Subject: a pesky perl runtime problem
Message-Id: <35ED2916.600CDF4C@starfire.mlb.semi.harris.com>
I just chased down a bug which was innocuous. My code was something like
{
(stuff)
# subroutine call
mysub;
(more stuff)
}
sub mysub
{(more stuff)
}
This all interprested fine, but the (more stuff) wasn't being executed.
Turns out the problem was that the call should have been:
mysub();
That's all well-and-good, but why no interpreter errors in the first
case? How would the interpreter interpret just plain old "mysub"?
Apparently it treated it as a comment.
Any idears?
E
------------------------------
Date: Wed, 2 Sep 1998 07:44:28 EDT
From: dblack@saturn.superlink.net (David A. Black)
Subject: Re: a pesky perl runtime problem
Message-Id: <6sjb2s$ijb$1@earth.superlink.net>
Hello -
"E Mills, software scientist" <eam@starfire.mlb.semi.harris.com> writes:
>I just chased down a bug which was innocuous. My code was something like
>{
>(stuff)
># subroutine call
>mysub;
>(more stuff)
>}
>sub mysub
>{(more stuff)
>}
>This all interprested fine, but the (more stuff) wasn't being executed.
>Turns out the problem was that the call should have been:
>mysub();
>That's all well-and-good, but why no interpreter errors in the first
>case? How would the interpreter interpret just plain old "mysub"?
>Apparently it treated it as a comment.
Were you using the -w flag? Note the difference:
orpheus:~$ perl -e 'mysub'
orpheus:~$ perl -we 'mysub'
Unquoted string "mysub" may clash with future reserved word at -e line 1.
Useless use of a constant in void context at -e line 1.
David Black
dblack@saturn.superlink.net
------------------------------
Date: 02 Sep 1998 08:33:54 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: "E Mills, software scientist" <eam@starfire.mlb.semi.harris.com>
Subject: Re: a pesky perl runtime problem
Message-Id: <m33eaalmml.fsf@joshua.panix.com>
"E Mills, software scientist" <eam@starfire.mlb.semi.harris.com> writes:
> I just chased down a bug which was innocuous.
I do not think that word means what you think it means.
> This all interprested fine, but the (more stuff) wasn't being executed.
> Turns out the problem was that the call should have been:
>
> mysub();
Unless you pre-defined or prototyped mysub earlier, in which case
there's still a major difference between
mysub;
and
mysub();
See perlsub.
> That's all well-and-good, but why no interpreter errors in the first
> case? How would the interpreter interpret just plain old "mysub"?
> Apparently it treated it as a comment.
No; comments begin with #. If you run perl with the -w switch, you'll
be told, among other things,
Useless use of a constant in void context at your_prog line 13.
Unquoted barewords are treated as strings under most circumstances.
So, to the compiler, it looks like you've got a string sitting out
there doing nothing.
Use -w and diagnostics.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Wed, 2 Sep 1998 11:50:06 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: beginner needs help(perl and Access)
Message-Id: <35ED30EE.1A6AE608@inlink.com>
Go to http://www.roth.net/odbc
The answers you are looking for can be found there....
--
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: 02 Sep 1998 07:42:18 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: Zenin <zenin@bawdycaste.org>
Subject: Re: Best way to "reset" $1?
Message-Id: <m3af4ilp0l.fsf@joshua.panix.com>
Zenin <zenin@bawdycaste.org> writes:
> It shouldn't do that. If it does, it's a bug, as all of the
> numeric variables ($1, $2, et al) should get reset
> automatically each time you do a regular expression of any
> kind.
Not according to perlre:
The scope of $<digit> (and $`, $&, and $') extends to the end
of the enclosing BLOCK or eval string, or to the next
successful pattern match, whichever comes first.
^^^^^^^^^^
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 01 Sep 1998 18:19:26 +0100
From: James Gillespie <jim.gillespie@usa.net>
Subject: Re: Better Regular Expressions (was: Re: Imagine... a non-greedy world!)
Message-Id: <biir9xvda3l.fsf@usa.net>
Uri Guttman <uri@sysarch.com> writes:
> >>>>> "M" == Mee <mee@mine.com> writes:
>
> [Snip garbage]
>
> [Snip flamage]
> i am writing this for the amusement of the perl community
Not bad, but I'm going to have to dock you half a mark for profanity
;-)
Jim
--
Jim.Gillespie@ ,'_ Absent Friends Weekend
USA.net / -.--. ___
+44 171 721 2672 _\_x \__`--'_,-' Late September 1998
/ /\\ \--'_-\\
'94 BYO \__/ `---' \__/ Mail me for details
------------------------------
Date: Wed, 02 Sep 1998 11:15:04 +0200
From: Nick Bradshaw <bradshaw@iridia.ulb.antispam_remove.ac.be>
Subject: Re: COBOL and Perl
Message-Id: <35ED0C98.3512@iridia.ulb.antispam_remove.ac.be>
Mark-Jason Dominus wrote:
>
> Stored-program computers, such as EDSAC and UNIVAC, were not even in
> the planning stages until 1946, and none was completed before 1949.
That would be *American* stored-program computers, of course.
--
Nick Bradshaw - Wessex Republican Brotherhood
------------------------------
Date: Wed, 02 Sep 1998 09:52:04 GMT
From: NukeEmUp@ThePentagon.com (David Cantrell)
Subject: Re: COBOL and Perl
Message-Id: <35f01401.60766317@thunder>
On 1 Sep 1998 22:03:03 -0400,
mjd@op.net (Mark-Jason Dominus) enlightened us thusly:
>Stored-program computers, such as EDSAC and UNIVAC, were not even in
>the planning stages until 1946, and none was completed before 1949.
Oh of course, the Manchester Mark I wasn't merkan so can't have been
first, despite becoming operational in 1948.
This does, of course have bugger all to do with perl or COBOL.
Followups set accordingly.
--
David Cantrell, part-time NT/java/SQL techie
full-time chef/musician/homebrewer
http://www.ThePentagon.com/NukeEmUp
------------------------------
Date: 2 Sep 1998 10:48:53 GMT
From: rivie@rivie.daautah.com (Roger Ivie)
Subject: Re: COBOL and Perl
Message-Id: <slrn6uq8uu.73n.rivie@rivie.daautah.com>
In article <35ED0C98.3512@iridia.ulb.antispam_remove.ac.be>, Nick Bradshaw wrote:
>Mark-Jason Dominus wrote:
>>
>> Stored-program computers, such as EDSAC and UNIVAC, were not even in
>> the planning stages until 1946, and none was completed before 1949.
>
>That would be *American* stored-program computers, of course.
We'll take the credit for EDSAC if you really _must_ give it to us.
--
Roger Ivie
Design Analysis Associates
75 West 100 South
Logan, UT 84321
mailto:rivie@daa-utah.com
phoneto:(435)753-2212
------------------------------
Date: Wed, 02 Sep 1998 14:31:13 +0200
From: Nick Bradshaw <bradshaw@iridia.ulb.antispam_remove.ac.be>
Subject: Re: COBOL and Perl
Message-Id: <35ED3A91.26FA@iridia.ulb.antispam_remove.ac.be>
Roger Ivie wrote:
>
> In article <35ED0C98.3512@iridia.ulb.antispam_remove.ac.be>, Nick
> Bradshaw wrote:
>
> >That would be *American* stored-program computers, of course.
>
> We'll take the credit for EDSAC if you really _must_ give it to us.
Touche. But it does seem a shame that the Manchester Baby seems to slip
people's mind so easily.
--
Nick Bradshaw - Wessex Republican Brotherhood
------------------------------
Date: 2 Sep 1998 09:40:08 GMT
From: stefan@dds.nl (S. Kuip)
Subject: Re: Currency Formatting in Perl (s//)
Message-Id: <slrn6uq4jo.psg.stefan@dec.procura.nl>
Jeff Davey wrote:
>S. Kuip wrote:
>> 1 while $amount =~ s/(.*\d)(\d\d\d)/$1,$2/;
>>
>> 1204846335 => 1,204,846,335
>>
>
>Not quite - this only puts the thousands comma delineator in. Anyone
>else?
It works fine for me!!
--
Stefan
------------------------------
Date: Wed, 02 Sep 1998 11:41:05 +0100
From: Leon Brocard <l.brocard@elsevier.nl>
Subject: Re: Delay
Message-Id: <35ED20C1.5FB1BEEB@elsevier.nl>
Tommi Reiman wrote:
> I must have missed something... How can I make a simple 1 (or n) sec.
> delay with perl??
"% perldoc -f sleep" is what you want to do:
=item sleep EXPR
=item sleep
Causes the script to sleep for EXPR seconds, or forever if no EXPR.
May be interrupted by sending the process a SIGALRM. Returns the
number of seconds actually slept. You probably cannot mix alarm() and
sleep() calls, because sleep() is often implemented using alarm().
On some older systems, it may sleep up to a full second less than what
you requested, depending on how it counts seconds. Most modern systems
always sleep the full amount.
For delays of finer granularity than one second, you may use Perl's
syscall() interface to access setitimer(2) if your system supports it,
or else see L</select()> below.
See also the POSIX module's sigpause() function.
eg sleep 1;
And you may want to look at Time::HiRes on CPAN if you want finer
granularity.
Hope this helps, Leon
--
Leon Brocard...............................................Perl Hacker
l.brocard@elsevier.nl...........................http://www.astray.com/
... I used to spell badlie, but now I got worser.
------------------------------
Date: Wed, 02 Sep 1998 05:29:26 -0700
From: antony quintal <antony@fabric8.com>
Subject: Re: FMTEYEWTK on Switch Statements in Perl (was: No switch statement in Perl??)
Message-Id: <35ED3A26.DC73F83A@fabric8.com>
Matthew O. Persico wrote:
>
> I guess one purpose of this was to get every possible hit for switches
> into Deja News?
or to advertise his new book.....i read this thread and immediately
ordered a copy. :)
antony
--
8888
888 888
888 888 :::::::::::::::::::::::
888 888 http://www.fabric8.com
8888 san francisco
888 888 415.487.9702
888 888 :::::::::::::::::::::::
888 888
8888
------------------------------
Date: Wed, 02 Sep 1998 11:57:55 GMT
From: "Kevin Flanagan" <Kflanagan@home.com>
Subject: Re: Get disk space on Win NT
Message-Id: <7paH1.260$3w2.6754838@news.rdc1.ne.home.com>
>I'm trying to create a script that will tell me the percentage of disk
>space used on an NT server. I can get the amount of free space by just
>grabbing the end of the DIR command but don't know of a way to get the
>total capacity of a drive. Anyone have any ideas?
>
>----------------------
>Please remove NOSPAM from email address when replying
>
>Alex Tatistcheff
>alext @ pobox . com
>
>
The test.pl script that comes with the adminmisc module will do this quite
nicely!
------------------------------
Date: 02 Sep 1998 08:25:33 -0400
From: Jonathan Feinberg <jdf@pobox.com>
To: "Andreas Vierengel" <avierengel@citynet.de>
Subject: Re: Help on a simple regex
Message-Id: <m37lzmln0i.fsf@joshua.panix.com>
"Andreas Vierengel" <avierengel@citynet.de> writes:
> I am reading lines from a file and do a regex on each line. I want
> to match a line if it contains a certain string only ONE time.
The fastest way I could come up with involves the /g \G combination,
like so:
print "Matched once.\n" if /foo/g && !/\G.*foo/g;
See perlop for details about that.
A less obscure, but noticeably slower idea is:
my $i = 0;
++$i while /foo/g;
print "Matched once.\n" if $i == 1;
or, even slower,
print "Matched once.\n" if 1 == scalar(() = /foo/g);
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 2 Sep 1998 05:06:02 GMT
From: gebis@welsh.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Misinterpreted => why no true/false keywords?
Message-Id: <6sijnq$6is@mozo.cc.purdue.edu>
mjd@op.net (Mark-Jason Dominus) writes:
}In article <904329231.851606@thrush.omix.com>,
}Zenin <zenin@bawdycaste.org> wrote:
}>: constant.pm is a cute and clever piece of syntactic sugar, but that's all.
}> True, but then so is base.pm, enum.pm, vars.pm, subs.pm, tied
}> classes, etc.
}`Syntactic sugar' is usually understood as a simple veneer over some
}syntactic feature to make it look more familiar. A typical example is
} #define begin {
}used by Pascal programmers programming in C. The term `syntactic
}sugar' originated in the Lisp world, where
} 'x
}is syntactic sugar for (quote x). Syntactic sugar doesn't introduce
}any new or different semantics; it just makes the program easier to
}swallow by changing the syntax.
Of course, Abelson & Sussman first define syntactic sugar in this
context:
"With a tail-recursive interpreter, iteration can be expressed using
the ordinary procedure call mechanism, so that special iteration
constructs are useful only as syntactic sugar."
In other words, do, repeat, until, for, and while are syntactic sugar
in Scheme. This veneer is not quite so thin as in your examples.
(Yes, this is pretty dammed tangential to the main point of this whole
thread, but I just want to keep it real.)
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: Wed, 2 Sep 1998 12:46:46 +0100
From: "Jim" <->
Subject: Perl & Java - differences and uses
Message-Id: <35ed3a22.0@news.netcom.co.uk>
As a young(17) and budding internet page designer I have often been told
"forget the rest, learn Java" when asking about programming for the net,
this is also the message Internet magazines tend to give. However having
recently been learning Perl(and loving it) I am curious as to the power Java
has over Perl, what the main uses are and the main differences are, will
Perl eventually be replaced by Java?
If anybody has some helpful links I would be grateful.
Jim
------------------------------
Date: 02 Sep 1998 05:52:46 PDT
From: Patricia Shanahan <pats@acm.org>
Subject: Re: Perl & Java - differences and uses
Message-Id: <35ED3F08.E816B255@acm.org>
I use both perl and Java, and most of the time it seems obvious which
to use for a particular program. For example, simple text munging is
almost always easier in perl than Java.
Advantages of Perl compared to Java:
Does simple things, especially those related to data extraction and
reporting, very simply.
Advantages of Java compared to Perl:
Fully portable graphics built into the language.
Does not require @$%&%& stupid leading characters on every identifier.
Requires declaration of all variables.
Reasonably good O-O support.
All built-in objects and methods have reasonable identifiers. (Though
I understand that Perl 5 is actually catching up to the state of the
art of assemblers in the 1960's by adding mnemonics as an alternative
to identifiers like $_)
My current attitude is that Java is my default programming language -
the one I use for anything for which I don't have a particular reason
for using something else. "This is a simple, short, report extraction
job" is a good reason to use perl.
Patricia
Jim wrote:
>
> As a young(17) and budding internet page designer I have often been told
> "forget the rest, learn Java" when asking about programming for the net,
> this is also the message Internet magazines tend to give. However having
> recently been learning Perl(and loving it) I am curious as to the power Java
> has over Perl, what the main uses are and the main differences are, will
> Perl eventually be replaced by Java?
>
> If anybody has some helpful links I would be grateful.
>
> Jim
------------------------------
Date: Wed, 02 Sep 1998 07:48:34 -0400
From: bwperry@shore.net (Bruce W. Perry)
Subject: Re: PERL is horrible
Message-Id: <bwperry-0209980748340001@bperry.ne.mediaone.net>
In article <MPG.10545aa6ff5168e698981a@nntp.hpl.hp.com>, lr@hpl.hp.com
(Larry Rosler) wrote:
Two books: teach yourself perl 5 for Windows NT + Learning Perl, are
pretty friendly guides. Programming Perl is turgid for the beginning
perler.
Bruce Perry
------------------------------
Date: Wed, 02 Sep 1998 14:12:40 +0100
From: Stephan Wiebigke <wiebigke@imn.htwk-leipzig.de>
Subject: posix.pm for nt
Message-Id: <35ED4447.47AB280B@imn.htwk-leipzig.de>
Where can I find posix.pm for NT ?
------------------------------
Date: Wed, 02 Sep 1998 04:37:29 -0400
From: Charles M Richmond <cmr@iisc.com>
Subject: Re: Problems building threaded perl 5.005 on OSF 4.0d
Message-Id: <35ED03C9.D2734389@iisc.com>
It looks like the use of Perl_to_utf8_title is occuring before the
compiler sees a declaration. If that is the case, then explicitly
add in a declaration line at the top of the file that is getting
the error. The same goes for Perl_to_utf8_lower. An example of
what I mean is:
extern void tryit();
extern void tryit2();
main()
{
tryit(1);
}
void tryit(int jn)
{
int jnn = jn;
tryit2(jnn);
}
void tryit2(int kn)
{
printf("kn = %d\n",kn);
if(kn < 5)
tryit(++kn);
}
Without the 'extern's the following type of error would be generated:
cc: Error: jn.c, line 8: In this declaration, the type of "tryit" is not
compatible with the type of a previous declaration of "tryit" at line
number 5 in file jn.c.
void tryit(int jn)
-----^
Jure Simsic wrote:
>
> Has anybody gotten this to work. I tried perl 5.005 and 5.005_51 but
> failed. I tried with just ./Configure --Dusethreads -des and with
> adittional -pthread to ccflags, -pthread to ldflags, -lpthread -lc_r to
> lddlflags and native malloc as described in README.threads but make
> always breaks at utf8.c. Transcript:
>
> CCCMD = cc -DPERL_CORE -c -pthread -std -fprm d -ieee
> -D_INTRINSICS -
> I/usr/local/include -D__LANGUAGE_C__ -O4
> `sh cflags libperl.a utf8.o` utf8.c
> CCCMD = cc -DPERL_CORE -c -pthread -std -fprm d -ieee
> -D_INTRINSICS -
> I/usr/local/include -D__LANGUAGE_C__ -O4
> cc: Error: utf8.c, line 483: In this declaration, the type of
> "Perl_to_utf8_uppe
> r" is not compatible with the type of a previous declaration of
> "Perl_to_utf8_up
> per" at line number 644 in file proto.h.
> to_utf8_upper(U8 *p)
> ^
> cc: Error: utf8.c, line 494: In this declaration, the type of
> "Perl_to_utf8_titl
> e" is not compatible with the type of a previous declaration of
> "Perl_to_utf8_ti
> tle" at line number 645 in file proto.h.
> to_utf8_title(U8 *p)
> ^
> cc: Error: utf8.c, line 505: In this declaration, the type of
> "Perl_to_utf8_lowe
> r" is not compatible with the type of a previous declaration of
> "Perl_to_utf8_lo
> wer" at line number 643 in file proto.h.
> to_utf8_lower(U8 *p)
> ^
> *** Exit 1
> Stop.
>
> Any ideas?
>
> Btw, it does build without threads..
>
> Jure
--
***********************************************************************
* Charles Richmond Integrated International Systems Corporation *
* cmr@iisc.com cmr@koibito.iisc.com cmr@shore.net *
* UNIX Internals, I18N, L10N, X, Realtime Imaging, and Custom S/W *
* One Longfellow Place Suite 3309 , Boston , Ma. USA 02114-2431 *
* (617) 723 7695 (617) 367 3151 FAX (617) 723 6861 *
***********************************************************************
------------------------------
Date: Wed, 02 Sep 1998 08:49:31 GMT
From: Aaron <aaron@pornoinferno.com>
Subject: Programmer Needed ASAP
Message-Id: <35ED070C.64B5@pornoinferno.com>
CGI-perl programmer,
I need some easy perl work done. Please contact me at your convenience
by replying to this post. It will take you no longer than 15 minutes
and will pay hansomly.
Thanks,
Aaron
------------------------------
Date: Wed, 02 Sep 1998 07:26:25 -0500
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
Subject: Re: trouble writing 2 files in subroutines
Message-Id: <35ED3971.63593884@houston.Geco-Prakla.slb.com>
Peter Bismuti wrote:
>
> HI, I've noticed that if I open a file to write and then enter
> into a subroutine, I can no longer write to this file.
> Is this a bug?
Not that I can reproduce.
A code snippet demonstrating what you are having problems with might
help. When testing this, I was stupid and used a subroutine called
'write', and was getting no output. It suddenly dawned on me: 'Hey,
stupid! write is a built-in function.' I changed the name to put, and
then everything worked just fine.
You are doing:
in main: open (OUTPUT, ....
in sub: print OUTPUT ... ;
correct?
Cheers,
Dave
--
Dave Barnett Software Support Engineer (281) 596-1434
Women like silent men, they think they're listening.
------------------------------
Date: Wed, 02 Sep 1998 08:03:31 -0400
From: Jim Michael <jim.michael@gecm.com>
Subject: Re: US-NY-LI 516 PERL Programmer/Analyst
Message-Id: <35ED3413.EAA@gecm.com>
Matthew O. Persico wrote:
> perlunix@my-dejanews.com wrote:
> > http://www.CarFinance.com and http://www.PriceAutoOutlet.com
> > (a unit of NationsBank) is looking for UNIX PERL programmers.
> Then why do you ramble on in the next paragraph about Java?
> > Requirements: 5+ years professional experience UNIX, Strong PERL.
> > SQL or Informix a big plus, Java a plus.
This is rambling about Java?
> SQL is a language. Informix is a DBMS. Sounds like someone in marketing
> ate the jargon file for lunch yet again!
Sounds to me like they will be writing perl scripts to run on a Unix
platform, making SQL queries to an Informix DB.
Cheers,
Jim
------------------------------
Date: Wed, 02 Sep 1998 11:55:47 +0100
From: Raj Subramani <raj.subramani@citicorp.com>
Subject: Weird problem - can you help?
Message-Id: <35ED2433.8E40E9C8@citicorp.com>
Please look at this ftp script that I wrote:
(NOTE: Please put in a suitable IP adress or hostname
if you are going to run it).
--------------------start---------------------
#!/usr/local/bin/perl
use Net::FTP;
#-CHANGE THESE VARIABLES TO SUIT YOU-
$hostname = "Your_IP_Address";
$loginName = "anonymous";
$password = "foo\@bar";
$remoteDir = "/";
#-CHANGE THESE VARIABLES TO SUIT YOU-
$attemptFtp = 1;
$ftp = Net::FTP->new($hostname);
if (!$ftp) {
die "failed to create object, stopped";
}
print("created ftp object\n");
getPasswd($attemptFtp, $hostname, $loginName);
if (!$ftp->login($loginName, $password)) {
die "failed to login, stopped";
}
print("login successful\n");
if (!$ftp->cwd($remoteDir)) {
die "failed to cwd, stopped";
}
print("cwd succeeded\n");
sub getPasswd {
my($attempt) = @_[0];
my($host) = @_[1];
my($loginName) = @_[2];
print("[attempt $attempt] enter password for $loginName on $host:");
#NOTE: THIS 'system' COMMAND WILL APPLY FOR UNIX ONLY
system "stty -echo";
$password = <STDIN>;
#NOTE: THIS 'system' COMMAND WILL APPLY FOR UNIX ONLY
system "stty echo";
print("\n");
}
---------------------end----------------------
If I comment out the line:
getPasswd($attemptFtp, $hostname, $loginName);
the script executes successfully and $ftp->cwd($remoteDir)
succeeds.
However if I use that line, it says that $ftp->login is successful
but $ftp->cwd() fails. Why is that?
Is it that $ftp->login() has really failed even though a success
is being registered?
Any help would be much appreciated (even an alternative
method would be nice if you have one).
Thanks very much.
-raj
------------------------------
Date: 2 Sep 1998 09:30:22 GMT
From: xx@gte.net
Subject: Where can I find a Perl script for a non-java, non frames, text/browser based chat room?
Message-Id: <6sj37e$aro$1@news-2.news.gte.net>
Where can I find a Perl script for a non-java, non frames, text/browser
based chat room to add to me web site? Need something simple with a
clean interface, and the ability to see who's on at any given time. Any
help is appreciated. No, I'm not trying to run it on AOL! Wendy (e-mail
at wefly74@aol.com)
------------------------------
Date: Wed, 02 Sep 1998 11:20:10 GMT
From: bewitchd@my-dejanews.com
Subject: Where can I find a Perl script for a non-Java, non frames, text/browser based chat room?
Message-Id: <6sj9l9$71f$1@nnrp1.dejanews.com>
Where can I find a Perl script for a non-Java, non frames, text/browser based
chat room for my web site?? I do not want anything fancy, no multimedia,
just a simple and clean interface with the ability to see who else is on at
any given time. Please let me know if you can help (no I am not trying to
run it on AOL!) Thanks, Wendy
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: 02 Sep 1998 10:01:48 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Where to get Net/Domain.pm?
Message-Id: <7xn28joscz.fsf@salome.vcpc.univie.ac.at>
Re: Where to get Net/Domain.pm?, F&@
<versace@gianni.com> said:
F&@> Hi all, Where to get Net/Domain.pm? I got errors
F&@> when I tried to "make test". Please help!
And what errors might those be? Hey, we're not psychic! :-)
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Wed, 02 Sep 1998 19:39:20 +0800
From: 8\(F&@ <versace@gianni.com>
Subject: Re: Where to get Net/Domain.pm?
Message-Id: <35ED2E67.642D@gianni.com>
The error is "Can't locate Net/Domain.pm". I've tried to find it at
CPAN but the web page said Net/Domain.pm should be included in libnet
and I don't have libnet either. What I can find under
/usr/lib/perl5/Net are Ping.pm, hostent.pm, netent.pm, protoent.pm and
servent.pm. Please help!
Tony Curtis wrote:
>
> Re: Where to get Net/Domain.pm?, F&@
> <versace@gianni.com> said:
>
> F&@> Hi all, Where to get Net/Domain.pm? I got errors
> F&@> when I tried to "make test". Please help!
>
> And what errors might those be? Hey, we're not psychic! :-)
>
> --
> Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
> Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
> "You see? You see? Your stupid minds! | private email:
> Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 V8 Issue 3615
**************************************
