[6985] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 610 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Jun 14 14:07:24 1997

Date: Sat, 14 Jun 97 11:00:46 -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           Sat, 14 Jun 1997     Volume: 8 Number: 610

Today's topics:
     Re: analyse passwd on Perl? (Abigail)
     Re: bug :-) in perlfaq9 manual <rootbeer@teleport.com>
     Re: Comparing dates. (Abigail)
     Re: converting mode from stat into ls style mode string <merlyn@stonehenge.com>
     Re: converting mode from stat into ls style mode string (Sylvain Robitaille)
     Re: Get own IP <rootbeer@teleport.com>
     Re: Help me with Perl <rootbeer@teleport.com>
     Re: Help with Perl print statement <rootbeer@teleport.com>
     Re: Image::Size fails on NT (Craig Berry)
     installing GetDate seh@pecc.co.uk
     Modifying a file (Brett Borger)
     Re: One Perl Script with Different #! Lines <rootbeer@teleport.com>
     Problem with "eval"....HELP? (Keith Kwiatek)
     Re: regexp needed <rootbeer@teleport.com>
     Re: Removing spaces <ajohnson@gpu.srv.ualberta.ca>
     Re: Removing spaces <rootbeer@teleport.com>
     Re: RFD: comp.lang.perl reorganization (Ian Morgan)
     subject within mail????? <patton@micro.ti.com>
     Re: Sysopen still uses stdio <zenin@best.com>
     Re: Webserver requires explicit exit(0) statement in pe <rootbeer@teleport.com>
     Re: What is wrong with this? <rootbeer@teleport.com>
     Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)

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

Date: Thu, 12 Jun 1997 20:20:01 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: analyse passwd on Perl?
Message-Id: <EBoJ5E.8I4@nonexistent.com>

Oleg Bugrov (olebu@comac.spb.ru) wrote on 1381 September 1993 in
<URL: news:AASq_dp8n4@comac.spb.ru>:
++ Hi!
++ Is there a way on Perl programm to analyse the password
++ of user, entering by user from http form?

use CGI;


Abigail
-- 
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'


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

Date: Thu, 12 Jun 1997 13:18:23 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: kyzer@hotmail.com
Subject: Re: bug :-) in perlfaq9 manual
Message-Id: <Pine.GSO.3.96.970612131748.17120J-100000@kelly.teleport.com>

On 11 Jun 1997, Kyzer wrote:

> The quote is:
> --------
> My CGI script runs from the command line but not the
> browser.  Can you help me fix it?
> 
> Sure, but you probably can't afford our contracting rates :-
> )
> --------
> 
> Now look at that, it's broken onto 2 lines! Shouldn't smileys be
> indivisable? 

Yep. Run perlbug to file your bug report!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: Thu, 12 Jun 1997 20:22:33 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Comparing dates.
Message-Id: <EBoJ9L.8ts@nonexistent.com>

Brian Mcandrews (bmcandre@shrike.depaul.edu) wrote on 1381 September 1993
in <URL: news:5np14c$6c8@shrike.depaul.edu>:
++ How can I compare two dates (ie, todays date being greater than a date 
++ 2 months ago)?

use Date::Manip;

my $date1 = ParseDate "some free format";
my $date2 = ParseDate "some free format";

if ($date1 < $date2) {
    # smaller
}



Abigail
-- 
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'


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

Date: 12 Jun 1997 20:17:34 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: sp_robi@sinclair.concordia.ca (Sylvain Robitaille)
Subject: Re: converting mode from stat into ls style mode string
Message-Id: <8cpvtrchtd.fsf@gadget.cscaper.com>

>>>>> "Sylvain" == Sylvain Robitaille <sp_robi@sinclair.concordia.ca> writes:

Sylvain> As you can see, I *am* getting the mode from stat, but what
Sylvain> I'd like is to convert the *numeric* mode, returned by stat,
Sylvain> into the *string* format, as displayed by the ls program,
Sylvain> (that would be 'ls -l' for those who wish to nit pick on
Sylvain> minute details...)

Sylvain> Currently, I'm checking each of 16 bits returned in the mode,
Sylvain> (from stat), one by one, and appending the appropriate
Sylvain> character, (-ldrwx so far. I don't need any others yet), to
Sylvain> the string, based on which bits are set, and which aren't.

Well, for some Larry-Wall-written code, check out the output of:

	find2perl /anything -ls

which generates an "ls -l"-style output.  Steal at will.

print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,495.69 collected, $182,159.85 spent; just 445 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details

-- 
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@ora.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me


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

Date: 13 Jun 1997 05:37:23 GMT
From: sp_robi@alcor.concordia.ca (Sylvain Robitaille)
Subject: Re: converting mode from stat into ls style mode string
Message-Id: <slrn5q1n4g.2iq.sp_robi@Elvira.home>

On 12 Jun 1997 21:24:34 GMT, Pete Williams <petew@lexis-nexis.com> wrote:
>[posted and emailed]

Oops... Looks like I'll have to make a point of setting a proper email address
on that newsreader. That machine doesn't accept email...

>Here's an ugly, but thorough way to determine the correct file modes. 
>There's probably some optimization/hackery that could be done on this,
>(and it may not be totally portable) so I'll leave that as a homework
>exercize :-)

[ code deleted ]

Hmmm... Thanks... I may not use it verbatim, but it *has* pointed out to me a
few things I had overlooked. Saved in a file, and will be carefully studied,
to be sure I can use a clean, portable version. Again, thanks.

>------------------------- TYPICAL ROOT .cshrc FILE -------------------------
>MANIAC:  Typical lines include:
>  alias rm 'rm -rf \!*'
>  alias hose kill -9 '`ps -augxww | grep \!* | awk \'{print $2}\'`'
>  alias kill 'kill -9 \!* ; kill -9 \!* ; kill -9 \!*'
>  alias renice 'echo Renice\?  You must mean kill -9.; kill -9 \!*'
>  -- Stephan Zielinski "KNOW YOUR UNIX SYSTEM ADMINISTRATOR - A Field Guide"

The renice is *definitely* my favorite!  :-D

-- 
----------------------------------------------------------------------
Sylvain Robitaille                          sp_robi@alcor.concordia.ca

Assistant to the System Manager
Computing Services Department
Concordia University                          Montreal, Quebec, Canada
----------------------------------------------------------------------


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

Date: Thu, 12 Jun 1997 13:42:42 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Alex `Taker` Pircher <pircher@informatik.tu-muenchen.de>
Subject: Re: Get own IP
Message-Id: <Pine.GSO.3.96.970612134020.17120R-100000@kelly.teleport.com>

On Thu, 12 Jun 1997, Alex `Taker` Pircher wrote:

> How do I get my own IP?
> 
> #$ip_number=pack("C4", 127, 0, 0, 1);
> #($name, $aliases, $type, $len, $addr) = gethostbyaddr ($ip_number, 2);
> 
> that only give's me "localhost"

What's wrong with that? :-)

A machine may have zero, one, or many IP addresses and names. There's no
simple way to specify which one you want! But if you're writing a CGI
script, the CGI spec has a way for your server to tell your script what
number to use. If somebody has a socket open to your script, you may be
able to find out what number that was. Otherwise, you may need to put it
into a config file or to parse the output of a system command like
ifconfig. Hope this helps! 

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: Thu, 12 Jun 1997 13:51:56 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Dean Ausdemore <djoz@netins.net>
Subject: Re: Help me with Perl
Message-Id: <Pine.GSO.3.96.970612135109.17120W-100000@kelly.teleport.com>

On 12 Jun 1997, Dean Ausdemore wrote:

> I need help putting something with Perl on my home page.  

Many of us will help you to learn Perl for free. If you want us to do Perl
for you, though, we cost money. :-)  

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: Thu, 12 Jun 1997 13:46:14 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Colleen <bricr01@execpc.com>
Subject: Re: Help with Perl print statement
Message-Id: <Pine.GSO.3.96.970612134448.17120T-100000@kelly.teleport.com>

On Thu, 12 Jun 1997, Colleen wrote:

> Can't find string terminator "END_PRINT" anywhere before EOF at
> register.cgi line 72.

> END_PRINT 

You can't see it, but there's a trailing space. That line actually says
"END_PRINT ". Make sure that it's the same as Perl expects, with no extra
leading or trailing whitespace, and it will work. Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: 13 Jun 1997 21:13:56 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Image::Size fails on NT
Message-Id: <5nsd6k$8ak$1@marina.cinenet.net>

Randy J. Ray (rjray@tremere.ecte.uswc.uswest.com) wrote:
: cberry@cinenet.net (Craig Berry) writes:
: > In a Perl CGI app I'm writing, it would be incredibly useful to be able 
: > to determine the sizes of arbitrary image files at runtime.  At CPAN, I 
: > found what seemed to be exactly what I needed: a module called Image::Size.
: > 
: > Alas, I've found that under NT (using the latest ActiveWare Perl-for-NT 
: > port) this module consistently fails.  The messages I get from the all.t 
: > test suite is:
[msgs snipped]
: 
: I assume that you used the standard installation process, which included
: auto-splitting? Do you have other external modules successfully installed and
: utilized on your system?

As is usually the case, the install process sort of sputtered along, 
generating lots of errors and complaints, but did place Size.pm in my 
perl lib dir.  I've grown used to this happening on NT; sometimes the 
results work, sometimes they don't. :(

: If all else fails, you should be able to get around this by deleting two lines
: from the file Size.pm:
: 
: The line "use AutoLoader;"
: The line "__END__"

This worked!  Thanks *very* much.  You've saved me considerable effort and 
frustration.

---------------------------------------------------------------------
   |   Craig Berry - cberry@cinenet.net
 --*--    Home Page: http://www.cinenet.net/users/cberry/home.html
   |      Member of The HTML Writers Guild: http://www.hwg.org/   
       "Every man and every woman is a star."


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

Date: Fri, 13 Jun 1997 10:24:01 -0600
From: seh@pecc.co.uk
Subject: installing GetDate
Message-Id: <866212614.30456@dejanews.com>

Some time ago Greg Houston wrote:

I'm trying to install Date::GetDate on Perl5.003
[snip]
but 'make test' fails with
[snip]
t/getdate...........Usage: Date::GetDate::salz_getdate(datestr, now=0) at
blib/lib/Date/GetDate.pm line 10.
[snip]
Also, what does the information in the README mean?  How do I
"s/yy/THISyy/g"?
>To convert getdate.y into getdate.c, you must not
>only run something yaccish on it, you must also
>s/yy/THISyy/g due to conflict problems with
>perl's own yacc grammar.

I am having the same problem, I don't understand what I am supposed to
substitute.

BTW the getdate.pl routine pgetdate works okay

Any help would be gratefully received

Stuart Hughes  seh@pecc.co.uk

-------------------==== Posted via Deja News ====-----------------------
      http://www.dejanews.com/     Search, Read, Post to Usenet


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

Date: 12 Jun 1997 20:46:50 GMT
From: bxb121@psu.edu (Brett Borger)
Subject: Modifying a file
Message-Id: <5npn7q$1jj8@r02n01.cac.psu.edu>

I wrote before, I'm the one using the bastardized version of 4.?? Perl for 
Novell....Can someone please tell me if there is an easier way to modify 
the contents of a file than the way I am doing?  

I am replacing the occurance of a date within a text file with a new date. 
 My current method is to read in the file, do a s// on each line, write 
the modified strings to a new file, unlink the old one, then rename the 
new one to the old one.

Is there a way I can modify the file itself without having to do this 
copy?  

I'd appreciate it if you could respond to me in private mail, but since I 
have used up my newbie freebie, I will be reading this group for the next 
few days.  

Thanks for the help in advance.

-=SwiftOne=-
-=swiftone@psu.edu=-
-=OPP Webmaster=-
-=Penn State University=-





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

Date: Thu, 12 Jun 1997 13:50:49 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Brett Denner <Brett.W.Denner@lmtas.lmco.com>
Subject: Re: One Perl Script with Different #! Lines
Message-Id: <Pine.GSO.3.96.970612134818.17120V-100000@kelly.teleport.com>

On Thu, 12 Jun 1997, Brett Denner wrote:

> I need to run a Perl script on several different machines that have Perl
> installed in different locations.  I would like to be able to use this
> script file on each machine without alterating its #! line at the top.  

A good solution is to start each one with a line like this...

    #!/usr/local/bin/perl

 ...and then have your sysadmin put a symbolic link from there to the real
Perl binary on each machine. 

Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: 13 Jun 1997 11:01:54 -0400
From: kkwiatek@nova.umuc.edu (Keith Kwiatek)
Subject: Problem with "eval"....HELP?
Message-Id: <5nrnd2$a0h@nova.umuc.edu>
Keywords: eval



Hello everyone,

I have a situation where I am trying to do an eval inside a subroutine.
It is a basic/simple eval statement:

$firstvar = "$secondvar = 10;";
eval($firstvar);
print $secondvar;


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

If I execute the same code in the calling/main routine it executes fine.
BUT when I put the code in the subroutine -- it fails at the eval....?

What is going ON?

PLEASE email me at kkwiatek@fedworld.gov

thanks!


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

Date: Thu, 12 Jun 1997 13:48:02 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: webadmin <webadmin@prestel.net>
Subject: Re: regexp needed
Message-Id: <Pine.GSO.3.96.970612134712.17120U-100000@kelly.teleport.com>

On Thu, 12 Jun 1997, webadmin wrote:

> I have the following line
> 
> www.domain.co.uk,   19.87  6.03       253526      153 | /
> 
> I need to split it. 

Do you mean like this?

    @fields = split;

That's all you (might) need, if the line is in $_ . Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: Thu, 12 Jun 1997 15:18:27 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: Removing spaces
Message-Id: <33A05993.6E9D2DC9@gpu.srv.ualberta.ca>

Robert Saunders wrote:
!
! I have a record that I wish to remove 4 leading spaces from,
! here is a example of the record
! 
! This|donuts|    apples||||
! 
! I need to remove the spaces from the apples area.. What
! would be the best and correct way of doing this in perl. I
! am using Perl 5.x ...
! 

the following snippet of code merely demonstrates one method
of character replacement which is perhaps not directly
related to stripping spaces---However, it does contain a
reference to one of the "best and correct way" of *finding* your
answer using perl5.x ... :-)

#!/usr/bin/perl -w
$_="faufakfacfadfas"; # some arbitrary string.
$not=q=q+q-q-+=;      # q plus q minus q-+= equals one q right?
s$d|u|c|k|s\$$\$not$geese; # seems fowl.
s+.ay?.\++print uc $&+e;   #<ducking>...(sic)


regards
andrew
--
#!/usr/bin/perl -w
$_="7072696e74224a757374416e6f746865725065726c4641512765725c6e22";
s$^$join(" ",unpack("A5A5A7A4A9",pack("C*",
map {hex} m^#!(?:\/\w+)+?\/\(\w+)\s-w\^g)));
@?=?\(*\(?\(*\d\w^gx))).(\$1?"boo":"\n")$gee;


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

Date: Thu, 12 Jun 1997 13:44:27 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Robert Saunders <robert@duey.iminet.com>
Subject: Re: Removing spaces
Message-Id: <Pine.GSO.3.96.970612134303.17120S-100000@kelly.teleport.com>

On Thu, 12 Jun 1997, Robert Saunders wrote:

> I have a record that I wish to remove 4 leading spaces from, 

> What would be the best and correct way of doing this in perl.

Have you tried getting a beginner's book on Perl, or reading the online
docs? Those will tell you that there's more than one way to do it, such as
this.

    substr($string, 0, 4) = '';

Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: Fri, 13 Jun 1997 00:37:09 -0600
From: weiqi@pipeline.com (Ian Morgan)
Subject: Re: RFD: comp.lang.perl reorganization
Message-Id: <weiqi-1306970037090001@ip31.austin7.tx.pub-ip.psi.net>

Good idea.
Reasonable proposal.
Thank you

-- 
Gala Weiqi -- Ian Morgan of Zapata Texas


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

Date: Fri, 13 Jun 1997 13:23:39 -0400
From: "James D. Patton Jr." <patton@micro.ti.com>
Subject: subject within mail?????
Message-Id: <33A1821B.6C25@micro.ti.com>

How would I go about putting a subject on a mail message using the PERL
open(MAIL "|mail YOUR_ADDRESS_HERE");
	 print MAIL "BODY_OF_MESSAGE\n";
	 close(MAIL);

???????????????????????????????????????????
	Texas Instruments Inc.
James Patoon	Novice System Administrator
	 patton@micro.ti.com
???????????????????????????????????????????


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

Date: 12 Jun 1997 20:38:48 GMT
From: Zenin <zenin@best.com>
Subject: Re: Sysopen still uses stdio
Message-Id: <5npmoo$j6d$2@nntp2.ba.best.com>

Warren AND Amanda <wanda@io.com> wrote:
	>snip<
> Is there any way a future version of Perl will avoid stdio completely
> when a descriptor is obtained using sysopen, then refuse to perform
> stdio operations on the sysopen-ed descriptor?  It would make sense that
> a file opened with sysopen may only be acted upon with sysread, syswrite,
> sysseek and close, and that Perl should *strongly* deny the existance
> of stdio for that particular file descriptor.

	Perl 5.004 allow for the creation of tied handle classes.  This
	would allow one to write a completely non-stdio handle that would
	carp() if ever acted on with a stdio method.  If you've got 5.004,
	check out the perltie manpage as well as the perlxs manpage.

	Have fun. :)
-- 
-Zenin
 zenin@best.com


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

Date: Thu, 12 Jun 1997 13:58:47 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: x@apocalypse.org
Subject: Re: Webserver requires explicit exit(0) statement in perl scripts?!?
Message-Id: <Pine.GSO.3.96.970612135251.17120X-100000@kelly.teleport.com>

On Thu, 12 Jun 1997 x@apocalypse.org wrote:

> Will lack of an exit(0) statement in cgi scripts spam a webserver 

Perl doesn't mind if a script exits by reaching end of file, although it
doesn't hurt to explicitly exit. 

>    further CGI requests
>    after a certain point will just result in the user's browser icon
>    spinning forever... (until time-out) 

Sounds like a bug, but it could be in the server, the system, the script,
Perl, or even the browser! Tell me, when this happens, do you see a script
process left running for more than (say) fifteen seconds?

>    So far as I know, as long as the script isn't stuck in a loop, when
>    it reaches the last line of code, it will end, right? 

If it finishes the last line of Perl, it's done. Being stuck in a loop is
irrelevant. :-) 

>    Does Enterprise really require that one's scripts included a hard
>    coded exit statement? 

The server can't tell whether you ran off the end of the script or exited
with an explicit exit(). (It can tell what exit value was returned,
though.) 

>    During this time when the server "hangs", although CGI scripts won't
>    work, regular html documents are served-up fine. Also, during the
>    "hangs", users can't get to password protected areas...

Might be that one (or several) scripts are preventing new processes from
being spawned. I'd use ps (and probably a monitoring script) to watch for
any CGI process which runs for longer than a few seconds, since that's
suspicious.

Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: Thu, 12 Jun 1997 13:26:17 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Negative Creep <gcyriac@internetMCI.com>
Subject: Re: What is wrong with this?
Message-Id: <Pine.GSO.3.96.970612132342.17120K-100000@kelly.teleport.com>

On 8 Jun 1997, Negative Creep wrote:

Newsgroup: comp.lang.perl

If your news administrator still carries comp.lang.perl, please encourage
him or her to check out the frequent posting about bogus newsgroup names
in news.announce.newgroups. You'll be doing yourself and many others a
favor to use comp.lang.perl.misc (and other valid Perl newsgroups)
instead.

    news:news.announce.newgroups

> open(FILE,">>/mnt/web/guide/mav/nc/dvdepot/emails.txt");                   

> Perl should give an error if it can't write to a file. 

No, the _programmer_ should make the code give an error if it can't write
to a file.

    $file = '/mnt/web/guide/mav/nc/dvdepot/emails.txt';
    open FILE, ">> $file" or
	die "Can't open '$file' for append: $!";

Hope this helps!

-- Tom Phoenix        http://www.teleport.com/~rootbeer/
rootbeer@teleport.com   PGP  Skribu al mi per Esperanto!
Randal Schwartz Case:  http://www.rahul.net/jeffrey/ovs/



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

Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin) 
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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 V8 Issue 610
*************************************

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