[10645] in Perl-Users-Digest
Perl-Users Digest, Issue: 4237 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Nov 17 06:07:23 1998
Date: Tue, 17 Nov 98 03:00:23 -0800
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, 17 Nov 1998 Volume: 8 Number: 4237
Today's topics:
Re: $/ ?!?!? <cgormley@netcomuk.co.uk>
Re: Beginner Book? (Tore Aursand)
Re: Beginner Book? (Rich Morin)
Re: Beginner Book? Thomas.Worm@Demoscope.ch
cgi faq program <timmy98@jps.net>
Check system NT/Unix <etoatr@eto.ericsson.se>
Re: Check system NT/Unix (Sam Holden)
Re: Check system NT/Unix (Larry Rosler)
create variable name from a variable in perl <bjjackso@us.oracle.com>
Re: create variable name from a variable in perl dave@mag-sol.com
file type? ()
Re: getting the date as a string (Larry Rosler)
Getting the URL pvedula@my-dejanews.com
Getting the url padmaja_ved@yahoo.com
Re: Getting the URL (Larry Rosler)
Re: Getting the URL (Ethan H. Poole)
how to get `date` in perl for win32 (newbie) j9feng@my-dejanews.com
IO::Socket and solaris <markparry@lucent.com>
newbie question email@address.com
Re: newbie question dave@mag-sol.com
Parsing Pickle <jtjohnston@courrier.usherb.ca>
Re: Parsing Pickle <ebohlman@netcom.com>
Re: Parsing Pickle <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Perl Usage Survey - interpretations, anyone? <l.brocard@elsevier.nl>
Perl Win32, finding all drives, need help <ibelgaufts@gfc-net.de>
Re: Problem with $O, need help <ibelgaufts@gfc-net.de>
Re: Problem with $O, need help <ibelgaufts@gfc-net.de>
Re: Problem with $O, need help (Ethan H. Poole)
Re: Search engine for files .. (Bart Lateur)
Somthink don`t know~!PLS Help me (Tony)
Using PERL to FTP a file to another server (Timothy R Lux)
Re: Wanted: Development Partner (Ethan H. Poole)
Win32: How do I check for file ( -e ) on a floppy disk? <gregory@apk.net>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 17 Nov 1998 09:33:26 -0000
From: "Clinton Gormley" <cgormley@netcomuk.co.uk>
Subject: Re: $/ ?!?!?
Message-Id: <72rfsf$gia$1@taliesin.netcom.net.uk>
Posted and e-mailed
Martien, you're brilliant! Binmode worked perfectly.
>But I'd probably just rename the file, and create a new one with the
>original name.
Earlier in this newsgroup (under "It's flocking tricky" - and I take your
point about choosing Subject headings) Zenin and Tom Phoenix pointed out
that I couldn't put an exclusive lock on it and rename it because and file
that put a LOCK_EX on the file whilst renaming process happening would then
write to the new file rather than the original file.
>I'll take the liberty of reformatting your code, because, quite
>frankly, I can't read it the way it is.
>I would strongly suggest that you change a bit of the logic flow of
>your program, and maybe dump some stuff in subroutines. Deeply nested
>code like this is very hard to read and maintain. (Is your background
>in Pascal or Delphi programming maybe? :))
Pascal - does it show? That was 13 years ago!
------------------------------
Date: Tue, 17 Nov 1998 07:35:38 GMT
From: tore@forumnett.no (Tore Aursand)
Subject: Re: Beginner Book?
Message-Id: <36512724.396404058@news.online.no>
On Mon, 16 Nov 1998 19:12:10 GMT, jeff.kennedy@natdecsys.com (Jeff
Kennedy) wrote:
> I need a book geared to an ABSOLUTE BEGINNER! No perl experience, no
> programming experience, no real shell scripting experience.
"Learning Perl, 2nd Edition" should work out just fine. When
finished reading it, proceed with "Programming Perl, 2nd Edition".
--
Tore Aursand
ForumNett Online AS
<URL:http://www.forumnett.no/>
------------------------------
Date: Tue, 17 Nov 1998 00:47:19 -0800
From: rdm@cfcl.com (Rich Morin)
Subject: Re: Beginner Book?
Message-Id: <rdm-1711980047340001@140.174.42.30>
In article <36512724.396404058@news.online.no>, tore@forumnett.no wrote:
> On Mon, 16 Nov 1998 19:12:10 GMT, jeff.kennedy@natdecsys.com (Jeff
> Kennedy) wrote:
> > I need a book geared to an ABSOLUTE BEGINNER! No perl experience, no
> > programming experience, no real shell scripting experience.
>
> "Learning Perl, 2nd Edition" should work out just fine. When
> finished reading it, proceed with "Programming Perl, 2nd Edition".
"Learning Perl" is a bit ungentle for a real beginner. Although it's
geared towards MacPerl, you might try "MacPerl: Power and Ease". An
HTML copy is available at http://www.ptf.com/macperl/ptf_book/HTML/
-r
--
Canta Forda Computer Laboratory | Prime Time Freeware - quality
UNIX consulting, training, & writing | freeware at affordable prices
+1 650-873-7841 | +1 408-433-9662 -0727 (Fax)
Rich Morin, rdm@cfcl.com | www.ptf.com, info@ptf.com
------------------------------
Date: Tue, 17 Nov 1998 09:53:24 GMT
From: Thomas.Worm@Demoscope.ch
Subject: Re: Beginner Book?
Message-Id: <72rh2k$ae5$1@nnrp1.dejanews.com>
In article <3650788e.14819289@news.newsguy.com>,
jeff.kennedy@natdecsys.com (Jeff Kennedy) wrote:
> I need a book geared to an ABSOLUTE BEGINNER! No perl experience, no
> programming experience, no real shell scripting experience.
> What would I be looking for? Not something that assumes I know
> anything!
>
> Thanks
>
> Jeff Kennedy
>
OK, I do not know, whether there is a good perl book for "absolute
(PROGRAMMING) beginners", so I would suggest, for a general understanding to
search for a beginners book of one of the "teaching-languages" like BASIC, or
much much better: PASCAL. The languanges are a bit different to Perl, but they
should help you to understand the general features and terms of programming.
Perl books, I found useful are:
"Programming Perl" by Larry Wall
as a generall introduction. It is not necessary to read the whole book but to
read the chapters you need do your stuff, and then, when you need more
assistance, read on.
another complementary book, which you could buy together with the other one is
"Perl Cookbook" by Tom Christiansen & Nathan Torkington
because you very quickly come to the point, where you practically want to
know: "How do I do this?". This book explains it very good and is very
helpful.
Regards
Thomas
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 17 Nov 1998 00:24:32 -0800
From: Timmy <timmy98@jps.net>
Subject: cgi faq program
Message-Id: <365132C0.3EACD87C@jps.net>
Hi,
I've seen lots of websites that has a cgi/perl program that allows users
to post and reply messages. I want to do something like that so that
people can post and get answer from my website. can someone help me to
start on this? i am new to cgi and perl too. or if anyone know where i
can just get a program, i'll be really appreciated. thanks.
the following is a site where i've seen a faq on:
http://www.cermak.com/techguy/forum/messages/8/8329.html
Timmy
------------------------------
Date: Tue, 17 Nov 1998 08:38:13 +0100
From: Atle Raestad <etoatr@eto.ericsson.se>
Subject: Check system NT/Unix
Message-Id: <365127E5.AF4F0F8E@eto.ericsson.se>
I have a perl script that I use both on unix and NT. How can I check if
the script is running on unix or NT? (Right now I'm using an argument
-dos/-nt to specify when I run on NT, se that all path references
becomes correct).
Regards Atle
------------------------------
Date: 17 Nov 1998 07:46:02 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: Check system NT/Unix
Message-Id: <slrn752adq.l3u.sholden@pgrad.cs.usyd.edu.au>
On Tue, 17 Nov 1998 08:38:13 +0100, Atle Raestad <etoatr@eto.ericsson.se> wrote:
>I have a perl script that I use both on unix and NT. How can I check if
>the script is running on unix or NT? (Right now I'm using an argument
>-dos/-nt to specify when I run on NT, se that all path references
>becomes correct).
perldoc perlvar...
hint hint ... $^O
--
Sam
You can blame it all on the internet. I do...
--Larry Wall
------------------------------
Date: Mon, 16 Nov 1998 23:58:07 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Check system NT/Unix
Message-Id: <MPG.10bacc672650b18f989911@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <365127E5.AF4F0F8E@eto.ericsson.se> on Tue, 17 Nov 1998
08:38:13 +0100, Atle Raestad <etoatr@eto.ericsson.se> says...
> I have a perl script that I use both on unix and NT. How can I check if
> the script is running on unix or NT? (Right now I'm using an argument
> -dos/-nt to specify when I run on NT, se that all path references
> becomes correct).
>From perlvar:
$OSNAME
$^O
The name of the operating system under which this copy of Perl was
built, as determined during the configuration process. The value is
identical to $Config{'osname'}.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 16 Nov 1998 17:26:31 -0800
From: Brian Jackson <bjjackso@us.oracle.com>
Subject: create variable name from a variable in perl
Message-Id: <3650D0C7.39565420@us.oracle.com>
Hi-
I have a list of items and want to create a new variable name that
incorporates the name of the original variable.
Example:
let's say I have variables called $item1, $item2. I want a new variable
called $item1_blah and $item2_blah.
basically I want to attach a predefined string name to the end of the
variable, and still retain part of the original variable name in the new
variable name.
any thoguhts?
thanks in advance
--
Brian Jackson
System Administrator, Oracle Corp.
bjjackso@us.oracle.com
"If you make people think they're thinking, they'll love you. If you
really make them think, they'll hate you."
- D. R. P. Marquis (1878-1937)
------------------------------
Date: Tue, 17 Nov 1998 09:58:52 GMT
From: dave@mag-sol.com
Subject: Re: create variable name from a variable in perl
Message-Id: <72rhct$aht$1@nnrp1.dejanews.com>
In article <3650D0C7.39565420@us.oracle.com>,
Brian Jackson <bjjackso@us.oracle.com> wrote:
> Hi-
>
> I have a list of items and want to create a new variable name that
> incorporates the name of the original variable.
>
> Example:
>
> let's say I have variables called $item1, $item2. I want a new variable
> called $item1_blah and $item2_blah.
>
> basically I want to attach a predefined string name to the end of the
> variable, and still retain part of the original variable name in the new
> variable name.
>
> any thoguhts?
>
> thanks in advance
How about storing this stuff in a hash that's named using the bit you want to
add to the variable name.
e.g. From your example
my %blah;
$blah{$item1} = 'something';
$blah{$item2} = 'something else';
hth,
Dave...
--
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 17 Nov 1998 07:54:10 GMT
From: ycliang@hidomain.hinet.net ()
Subject: file type?
Message-Id: <72ra32$acj@netnews.hinet.net>
Hi,
Under UNIX, we can get a file's type by using "file" command.
How can I get file's type in a Perl script? Need special modules?
Thanks a lot!
Yu-Ching Liang
machlian@ms1.hinet.net
------------------------------
Date: Mon, 16 Nov 1998 22:50:08 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: getting the date as a string
Message-Id: <MPG.10babc7d3b4a95a6989910@nntp.hpl.hp.com>
In article <pP442.116$Qs1.259@nsw.nnrp.telstra.net> on Tue, 17 Nov 1998
02:03:01 GMT, Martien Verbruggen <mgjv@comdyn.com.au> says...
...
> 5) If you format your date as YYYY-MM-DD it will sort much nicer. and
> you avoid year 200 problems.
Almost 1800 years too late for that. :-)
> my @t = localtime();
>
> my $date = sprintf("%d-%02d-%02d", $f[5]+1900, $f[4]+1, $f[3]);
>
> If you insist on two digit years (sigh), use $f[5]%100
And change the format to avoid odd-looking results in about 13.5 months.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 17 Nov 1998 05:16:32 GMT
From: pvedula@my-dejanews.com
Subject: Getting the URL
Message-Id: <72r0rg$td7$1@nnrp1.dejanews.com>
My website has to have a feedback form linked to all pages. When the user
selects this link from a page and then submits the form, is there a way to
get the CGI to know which page that submit is coming from/ which page the
form has been called from, so that it can attach that url to the mail sent to
the my mail box.
If anyone can help, or knows a site with an example of this, please let
me know.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 17 Nov 1998 05:30:52 GMT
From: padmaja_ved@yahoo.com
Subject: Getting the url
Message-Id: <72r1mc$u6n$1@nnrp1.dejanews.com>
Hi! all pages in my website are linked to a feedback form. When the user
chooses this link in any of the pages and subsequently submits the form , is
there a way to get the CGI to know the url of the page from which the form
has been called so that it can attach the url to the email sent to my
mail-box.
I,m using PERL.
If anyone can help, or knows a site with an example of this, please let
me know.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 16 Nov 1998 22:44:35 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Getting the URL
Message-Id: <MPG.10babb2b3579309698990f@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <72r0rg$td7$1@nnrp1.dejanews.com> on Tue, 17 Nov 1998
05:16:32 GMT, pvedula@my-dejanews.com <pvedula@my-dejanews.com> says...
> My website has to have a feedback form linked to all pages. When the user
> selects this link from a page and then submits the form, is there a way to
> get the CGI to know which page that submit is coming from/ which page the
> form has been called from, so that it can attach that url to the mail sent to
> the my mail box.
Look at $ENV{HTTP_REFERER} (despite the misspelling).
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Tue, 17 Nov 1998 07:16:35 GMT
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: Getting the URL
Message-Id: <np942.1148$DE2.136@news12.ispnews.com>
[Posted and Emailed] In article
<MPG.10babb2b3579309698990f@nntp.hpl.hp.com>, lr@hpl.hp.com says...
>
>[Posted to comp.lang.perl.misc and copy mailed.]
>
>In article <72r0rg$td7$1@nnrp1.dejanews.com> on Tue, 17 Nov 1998
>05:16:32 GMT, pvedula@my-dejanews.com <pvedula@my-dejanews.com> says...
>> My website has to have a feedback form linked to all pages. When the user
>> selects this link from a page and then submits the form, is there a way to
>> get the CGI to know which page that submit is coming from/ which page the
>> form has been called from, so that it can attach that url to the mail sent
to
>> the my mail box.
>
>Look at $ENV{HTTP_REFERER} (despite the misspelling).
His need is a little more complicated than just the above because he is
(AIUI) looking for the referrer info of the page which lead to the form and
not the form itself.
Only two thoughts come to mind:
1) Use SSI to embed the HTTP_REFERER info into a hidden variable in the form.
or
2) Have the CGI script generate the form, including the HTTP_REFERER info in
a hidden variable.
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day--
| http://www.interact2day.com/
------------------------------
Date: Tue, 17 Nov 1998 09:50:39 GMT
From: j9feng@my-dejanews.com
Subject: how to get `date` in perl for win32 (newbie)
Message-Id: <72rgtf$a6m$1@nnrp1.dejanews.com>
The following codes work fine under linux,
my $date=`date`;
but it will not work under win95, because the command 'date' under
win95 will print the current date and then ask for "Enter new
date(MM/DD/YY): " expecting you input new date or just hit ENTER.
Is there a way to get the current date?
thanks in advance
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 17 Nov 1998 08:28:15 +0000
From: Mark Parry <markparry@lucent.com>
Subject: IO::Socket and solaris
Message-Id: <3651339F.6021EA74@lucent.com>
All,
just wondering if any of you have found problems with using IO:Socket on Solaris
boxes ... I'm getting problems like processes hanging and "can't create generic
socket" messages. These scripts work OK on Linux and Solaris x86, though ...
regards,
Mark Parry
------------------------------
Date: Tue, 17 Nov 1998 06:33:29 GMT
From: email@address.com
Subject: newbie question
Message-Id: <365117e6.297525075@news-server.amherst.edu>
I have a scalar $string, and I want to say something like this:
if (string has only letters and no other characters) {
<code>
else {
<code>
}
I know there probably is a very elegant way of doing this test with
only one expression, rather than with two tests. Any help?
Thanks.
------------------------------
Date: Tue, 17 Nov 1998 09:53:10 GMT
From: dave@mag-sol.com
Subject: Re: newbie question
Message-Id: <72rh26$ae1$1@nnrp1.dejanews.com>
In article <365117e6.297525075@news-server.amherst.edu>,
email@address.com wrote:
> I have a scalar $string, and I want to say something like this:
>
> if (string has only letters and no other characters) {
> <code>
> else {
> <code>
> }
>
> I know there probably is a very elegant way of doing this test with
> only one expression, rather than with two tests. Any help?
The Perl documentation that with your distribution of Perl is always of great
help in situations like these. Try perldoc perlre and look for help on
building up a regular expression that matches:
1/ The start of a string
2/ One or more alphabetic characters
3/ The end of a string
in that order with nothing else inbetween.
hth,
Dave...
--
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Tue, 17 Nov 1998 02:31:42 -0500
From: JTJ <jtjohnston@courrier.usherb.ca>
Subject: Parsing Pickle
Message-Id: <3651265E.5F84@courrier.usherb.ca>
I'm in a bit of a pickle. :-[ I should remember how to do this but ...
I need to parse this string:
J Taylor-J <jtjohnston@erase.courrier.usherb.ca>
I want to chop out everything " <>" including the preceding space to
just my name:
J Taylor-J
I suppose I would use a substitution ... but how? I know I've done
something like it before, but can't find an example.
$address =~ s/???/???/g;
------------------------------
Date: Tue, 17 Nov 1998 08:12:18 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Parsing Pickle
Message-Id: <ebohlmanF2K44I.FLJ@netcom.com>
JTJ <jtjohnston@courrier.usherb.ca> wrote:
: I need to parse this string:
: J Taylor-J <jtjohnston@erase.courrier.usherb.ca>
: I want to chop out everything " <>" including the preceding space to
: just my name:
: J Taylor-J
: I suppose I would use a substitution ... but how? I know I've done
: something like it before, but can't find an example.
: $address =~ s/???/???/g;
s/\s*<[^>]*>//;
perldoc perlre if you don't understand how this works.
------------------------------
Date: 17 Nov 1998 09:45:56 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Parsing Pickle
Message-Id: <83d86mso57.fsf@vcpc.univie.ac.at>
Re: Parsing Pickle, JTJ <jtjohnston@courrier.usherb.ca>
said:
JTJ> J Taylor-J <jtjohnston@erase.courrier.usherb.ca>
JTJ> I want to chop out everything " <>" including the
JTJ> preceding space to just my name:
JTJ> J Taylor-J
JTJ> I suppose I would use a substitution
I'd use the Mail::Address module - let other people do the
hard work of parsing :-)
use Mail::Address;
my $big_one = 'J Taylor-J <jtjohnston@erase.courrier.usherb.ca>';
my @addrs = Mail::Address->parse($big_one);
foreach my $addr (@addrs) {
print $addr->phrase, "\n";
}
===> J Taylor-J
hth
tony
--
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: Tue, 17 Nov 1998 09:26:16 +0100
From: Leon Brocard <l.brocard@elsevier.nl>
Subject: Re: Perl Usage Survey - interpretations, anyone?
Message-Id: <36513328.B0CE245A@elsevier.nl>
Rich Morin wrote:
> I'm not sure how much, let alone what, these numbers mean. Higher
> scores would seem to indicate either that:
> * the OS has lots of activists
> * the OS has lots of ballot-stuffers
Well, notice that it was plugged from slashdot, so this may skew
numbers somewhat towards Linux (hmmm, referer logs could come in
useful here)...
Leon
--
$monger{Amsterdam.pm}[0] # $laptop--
------------------------------
Date: Tue, 17 Nov 1998 11:53:43 +0100
From: "J|rgen Ibelgaufts" <ibelgaufts@gfc-net.de>
Subject: Perl Win32, finding all drives, need help
Message-Id: <365155B7.392BC376@gfc-net.de>
Hi again,
can't find it in the documentation, so here is my question:
how can i find all valid drive letters with perl on win-nt (using GS perl 5.005)?
Thanks in advance
------------------------------
Date: Tue, 17 Nov 1998 09:18:17 +0100
From: "J|rgen Ibelgaufts" <ibelgaufts@gfc-net.de>
To: baliga@Synopsys.COM
Subject: Re: Problem with $O, need help
Message-Id: <36513149.252AA858@gfc-net.de>
Hi,
the code is simply
print $O;
I am using GS perl 5.005 compiled with microsoft visual c++ 4.0.
Juergen Ibelgaufts
------------------------------------------
Yogish Baliga schrieb:
>
> Could you send me the code for this... I will try to solve the problem...
>
> -- Baliga
>
------------------------------
Date: Tue, 17 Nov 1998 09:18:40 +0100
From: "J|rgen Ibelgaufts" <ibelgaufts@gfc-net.de>
Subject: Re: Problem with $O, need help
Message-Id: <36513160.21217B38@gfc-net.de>
Hi,
the code is simply
print $O;
I am using GS perl 5.005 compiled with microsoft visual c++ 4.0.
Juergen Ibelgaufts
------------------------------------------
Yogish Baliga schrieb:
>
> Could you send me the code for this... I will try to solve the problem...
>
> -- Baliga
>
------------------------------
Date: Tue, 17 Nov 1998 08:33:08 GMT
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: Problem with $O, need help
Message-Id: <8xa42.1214$DE2.3220@news12.ispnews.com>
[Posted and Emailed] In article <36513160.21217B38@gfc-net.de>,
ibelgaufts@gfc-net.de says...
>
>Hi,
>
>the code is simply
>
> print $O;
Sure you aren't looking for $0 (zero) -- the executable name?
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day--
| http://www.interact2day.com/
------------------------------
Date: Tue, 17 Nov 1998 10:10:37 GMT
From: bart.mediamind@ping.be (Bart Lateur)
Subject: Re: Search engine for files ..
Message-Id: <36553f05.4668295@news.skynet.be>
Martien Verbruggen wrote:
>"Darren Sweeney" <darrensw@eswap.co.uk> writes:
>> Does anyone know of a Perl script which will search files on my domain for
>> content, as opposed to HTML pages?
>I am afraid you will have to be more clear than that. What is 'my
>domain'? What do you mean by 'for content, as opposed to HTML pages'?
I *think* he means excluding the HTML formatting.
A simple approach would be to do a HTML->text conversion, and search
through that, using File::Find. It won't be fast though. Maybe he'd
better store a text-only version of the site as well, and search through
that.
Bart.
------------------------------
Date: Tue, 17 Nov 1998 18:06:33 +0800
From: "+X%J(Tony)" <tonyt@hknet.com>
Subject: Somthink don`t know~!PLS Help me
Message-Id: <365149e7.0@ruby.hknet.com>
In perl, Is
$numberfile = "/data1/hypermart.net/tonyt/$npo.txt";
right????
If no how to write it???
pls help!
(Sorry My English is not good!)
------------------------------
Date: 16 Nov 1998 21:28:45 PST
From: tim-usenet@pbisweb.com (Timothy R Lux)
Subject: Using PERL to FTP a file to another server
Message-Id: <72r1id$rb2@chronicle.concentric.net>
Keywords: FTP perl copy server
Hi:
I saw some code a while ago that I thought I would never need, but alas, I
need it now and can't find it again. Here is what the code did (or what I need
to do..):
The perl script resides on server A. It takes standard form input and outputs
to a text file. It then connects to another server, uploads the file to that
server (using a specified username/pass) and then closes the connection.
On server A, I cannot install any PERL modules, only specific scripts to do
the job. Everything works except the file transfer... that is what I need. Any
ideas where I could re-find that script or point me in the right direction to
recreate it? Web searches are not yielding any decent results.
Much appreciated--
Tim
------------------------------
Date: Tue, 17 Nov 1998 05:29:18 GMT
From: ehpoole@ingress.com (Ethan H. Poole)
Subject: Re: Wanted: Development Partner
Message-Id: <OQ742.458$Ip6.2587@news13.ispnews.com>
In article <3650BD44.B06B8733@ibm.net>, trri744@ibm.net says...
>
>Wanted: Development Partner Perl -> Java/SQL/CORBA.
>We are offering an unique business opportunity to jump into a joint
>venture online since 1996. Accidentially we lost the developer of
>100+ well documented Perl5 scripts. The app is integral part of a
>pioneering business model with other apps in the area of community
>building.
I'm a little concerned about this 'accidental' loss of a Perl developer. I
mean, like, was he/she struck down by lightning while attempting to maintain
one of those scripts? ;-)
--
Ethan H. Poole | Website Design and Hosting,
| CGI Programming (Perl & C)..
========Personal=========== | ============================
* ehpoole @ ingress . com * | --Interact2Day--
| http://www.interact2day.com/
------------------------------
Date: Tue, 17 Nov 1998 08:01:57 GMT
From: "Grzegorz Pawelczak" <gregory@apk.net>
Subject: Win32: How do I check for file ( -e ) on a floppy disk?
Message-Id: <36513bc0.0@red.gdansk.sprint.pl>
Win32: How do I check for file ( -e ) on a floppy disk without
getting the Retry, Abort, Ignore window if floppy is not there?
Grzegorz Pawelczak
gregory at apk net
------------------------------
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 4237
**************************************
