[7565] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 1191 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Oct 17 17:08:55 1997

Date: Fri, 17 Oct 97 14:00:43 -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           Fri, 17 Oct 1997     Volume: 8 Number: 1191

Today's topics:
     11th USENIX SYS ADMIN CONFERENCE (LISA '97) - Conf Prog (Jackson Dodd)
     Re: _Programming Perl_ new edition? <usenet-tag@qz.little-neck.ny.us>
     Re: CGI scripts to access client hard drives <petri.backstrom@icl.fi>
     Re: Creating Arrays on the fly <rcuevas@acnet.net.------->
     Re: E-mail header and REGEXP <osborri@mail.northgrum.com>
     Re: Help: redirected STDOUT lost (buffer overflow?) (Jason Gloudon)
     Re: Help: redirected STDOUT lost (buffer overflow?) (Jason Gloudon)
     Java --> Perl <euclid@fantom.com>
     Re: Login name, password...NEWBIE HELP <euclid@fantom.com>
     multipart/mixed, IE and perl Tray@orasis.com
     Re: odd (Andrew M. Langmead)
     Re: odd <tycage@infi.net>
     Re: open() missing line (Martien Verbruggen)
     Opening a network connected drive from dos w/ perl <thedon@geocities.com>
     Re: Perl Libraries (Martien Verbruggen)
     Re: perl mailing list <osborri@mail.northgrum.com>
     Re: PerlScript & ASP...accessing System Command Line? <kermit@ticnet.com>
     Re: qqq <usenet-tag@qz.little-neck.ny.us>
     Re: Web Programmer Wanted <b~johnston@rocketmail.com>
     Re: Web Programmer Wanted <b~johnston@rocketmail.com>
     Re: Why am I running out of memory? (bug in perl?) (Joseph Scott Stuart)
     Re: Why am I running out of memory? (Martien Verbruggen)
     Re: Why am I running out of memory? (Joseph Scott Stuart)
     Re: Why am I running out of memory? (Joseph Scott Stuart)
     Re: Why am I running out of memory? (Joseph Scott Stuart)
     Re: wwwboard.pl (Mike Heins)
     Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)

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

Date: Fri, 17 Oct 1997 20:24:47 GMT
From: jackson@usenix.org (Jackson Dodd)
Subject: 11th USENIX SYS ADMIN CONFERENCE (LISA '97) - Conf Program
Message-Id: <EI7q1B.M78@usenix.org>
Keywords: USENIX, SAGE, LISA, systems administration, conference


11th Systems Administration Conference (LISA 97)
October 26-31, 1997
San Diego, California

Sponsored by USENIX, the Advanced Computing Systems
Association and SAGE, the System Administrators Guild

*****************************************************************
The Town & Country Hotel is completely sold out, as is the 
Quaility Resort Hotel.  USENIX has made overflow arrangements 
with the following hotels.  There will be complimentary shuttle
service provided to and from the Town & Country Hotel.

Regency Plaza Hotel
1515 Hotel Circle South
San Diego, CA  92108
Tel: 619-291-8790
Tollfree:  800-619-1549
Fax:  619-260-0147, Attn: Reservations

PLEASE NOTE:  If you should decide to cancel your reservation, you must
notify them no later than 48 hour before your scheduled arrival date

Holiday Inn Select  (Except for Sat., 10/25, when they're sold out)
595 Hotel Circle South
San Diego, CA
Tel # 619-291-5720
Tollfree: 800-433-2131
Fax # 619-297-6125 -  Attn: Elizabeth Wilson
Smoking and non-smoking rooms available
 

Hotel Rates:  $80/night single or double occupancy
Make sure to tell them that you're attending the USENIX conference.
*****************************************************************

Bring home time-saving techniques and practical knowledge gained in
tutorials, technical presentations, a poster session, BOFs, and
other sessions.  There are many opportunties to meet your peers and
share solutions to common problems.

The expanded tutorial program offers 22 new tutorial topics
including:

* ISP and Linux system administration 
* How to Handle Security Incidents
* Firewall Management 
* Administering Windows NT
* Advanced Topics in DNS and BIND 
* Building a Security Infrastructure 
* Building Secure Intranets 
* Introduction to UNIX Administration 
* Managing a Support Staff 
* Advanced Heterogeneous Systems Management-UNIX and Windows NT.

Some of the most popular courses brought back are: 

* System and Network Performance Tuning 
* Topics in System Administration
* Administering A Web Server 
* Sendmail Inside and Out 
* Joining the Internet Safely Using Firewalls 
* Security on the Web.

Top-rated instructors include Eric Allman, Tom Christiansen,Tina
Darmohray, Dan Geer, Trent Hein, Bill LeFebvre, Evi Nemeth, Marcus
Ranum, Marc Staveley, Hal Stern, and Rich Stevens.

==================================================================
FOR DETAILED PROGRAM AND REGISTRATION INFORMATION:
 
   * See the conference home page at http://www.usenix.org/lisa97
   * Send email to:  info@usenix.org.  In the body of your message
     state:  "send lisa conferences"
   * Contact the USENIX Conference Office, conference@usenix.org,
     telephone 714-588-8649, or fax 714-588-9706
==================================================================
 
The USENIX Association brings together the community of engineers,
system administrators, scientists, and technicians working on the
cutting edge of computing. Its technical conferences are the essential
meeting grounds for the presentation and discussion of the most
advanced information on new developments in all aspects of advanced
computing systems.



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

Date: 17 Oct 1997 19:24:21 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: _Programming Perl_ new edition?
Message-Id: <eli$9710171511@qz.little-neck.ny.us>

Doug Seay  <seay@absyss.fr> wrote:
> Damien C Leri wrote:
> > i want to buy the acclaimed book _Programming Perl_ but notice that
> > the latest edition is almost a year old. i wonder if there will be a
> > new edition soon, a new version of perl, or if it won't matter much.

It won't matter much (IMHO).

> I doubt if they'll bother redoing it for Perl5.  Maybe after the
> compiler and threads are stable (5.5?) they'll think about it, but
> according to Randal it is a bunch of work.  I think he compared it to
> "herding cats".

He has other dead horses to beat and will probably not return to beating
camels for a while.

Elijah
------
if brian can make dead horse jokes, so can I


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

Date: Fri, 17 Oct 1997 09:40:54 +0200
From: Petri Backstrom <petri.backstrom@icl.fi>
Subject: Re: CGI scripts to access client hard drives
Message-Id: <34471686.437@icl.fi>

praveen_s@trigent.com wrote:
> 
> I am looking for help on Perl CGI scripts or mechanisms to pop up a
> file
> dialog box, read the selected file which resides on the clients hard
> drive and pass the data to the server for processing. Can this be done
> using Perl and HTML only? (Without any client side scripting).

You can use the file upload feature Netscape invented
(and which also Microsoft supports nowadays), and
upload a user selected file for processing on the
server.
 
> This also holds good for saving, say a text file on the clients hard
> drive.

You can send the file back, and let the user choose
whether to run or save it or not.

You cannot access files directly on the client system,
unless you resort to signed Java applets (and browsers
that support it; done differently for Netscape Navigator 
and Microsoft Internet Explorer), or an ActiveX control
(also signed), a plugin (must be user installed) or
your own server program to be installed and run on
the client.

For the parts above that you can do, use the CGI.pm
Perl module.

regards,
 ...petri.backstrom@icl.fi
    ICL Data Oy
    Finlan


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

Date: Fri, 17 Oct 1997 15:53:56 GMT
From: "Ricardo Cuevas" <rcuevas@acnet.net.------->
Subject: Re: Creating Arrays on the fly
Message-Id: <01bcdb15$66b279a0$050110ac@gato>

I new, but i think you can do this:

open (FILE,"file");
@array =  <FILE>;
close FILE;

for($x=0;$x<10;$x++) {
	for($y=0;$y<10;$y++) {
		${$twodimarray[$x]}->[$y] = $array[$x*10+$y];
	}
}

Add validation, and put the data from your source.

Sorry by my english, but the import is the code :)

> How would I go about creating a 2 dimensional array on the fly?
> 
> right now I am creating my arrays, according to the way Tom Christiansen
> says in FMTEYEWTK, such as:
> @Table = ([1,2,3,4],
>                   [5,6,7,8],
>                   [9,0,1,2]);
> 
> This works o.k..   but what I would really like to do is read my values
> in from a file
> and build the array.  I realize that I would have to use push(), but I'm
> not sure how I would go about adding to the 2nd dimension..



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

Date: Fri, 17 Oct 1997 15:29:59 -0400
From: Rick Osborne <osborri@mail.northgrum.com>
To: Adm <hoo@wms.it>
Subject: Re: E-mail header and REGEXP
Message-Id: <3447BCB7.A6FEC9B1@mail.northgrum.com>

Adm wrote:
> I'm not a REGEXP's guru , so can someone help me to write a function
> to extract the Day/Month/Year alwais in the same form (dd mmm yyyy) ?

Check out your local CPAN node for the Date::Manip package.  Works
wonders.  Also, get a subscription to "The Perl Journal".  Something
like this was covered in a recent issue.  (It's cheap!)

-- Rick Osborne, osborri@mail.northgrum.com
"Supreme executive power derives from a mandate from the masses, not
 from some farcical aquatic ceremony!"


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

Date: 17 Oct 1997 20:42:34 GMT
From: jgloudon@bbn.remove.com (Jason Gloudon)
Subject: Re: Help: redirected STDOUT lost (buffer overflow?)
Message-Id: <628ijq$78o$1@daily.bbnplanet.com>

Chris Romano (romchr@ibm.net) wrote:
: Hi...

: I'm trying to redirect the output from a "tar -cvf" command to a file:

Not too familiar with AIX, but this will do what you want, with or
without GNU tar.

system("tar cvf filename ./home ./usr ./apps");

Jason Gloudon


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

Date: 17 Oct 1997 20:44:32 GMT
From: jgloudon@bbn.remove.com (Jason Gloudon)
Subject: Re: Help: redirected STDOUT lost (buffer overflow?)
Message-Id: <628ing$78o$2@daily.bbnplanet.com>

Chris Romano (romchr@ibm.net) wrote:

Only now noticed.

comp.lang.perl IS comp.lang.perl.misc. The group was renamed a long time
ago. Please ask your new admin to update his newgroup lists.

Jason Gloudon


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

Date: Fri, 17 Oct 1997 15:31:11 -0400
From: Dimitri Ostapenko <euclid@fantom.com>
Subject: Java --> Perl
Message-Id: <3447BCFF.794B@fantom.com>

Does anybody know how to read Java variable from Perl? Java applet is
written by perl script and all I'd like to do is to pass Java variable
back to perl.

thanks,
-- 

Dimitri Ostapenko
3D Designer (Euclid)
_______________________
Fantom Technologies Inc.
Intranet Homepage: http://iona3/euclid
E-mail: euclid@fantom.com
Voice: (905) 734-7476 Ext. 258
Fax: (905) 734-4900


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

Date: Fri, 17 Oct 1997 16:05:36 -0400
From: Dimitri Ostapenko <euclid@fantom.com>
To: gljoe101@aol.com
Subject: Re: Login name, password...NEWBIE HELP
Message-Id: <3447C510.15FB@fantom.com>

Try this:

ftp -s:u

<u>:
open 192.168.1.34
guest
111guest
put <filename>
bye

works from windoze

nothing@nowhere.com wrote:
> 
>         when I pull up my script from the command line in dos:
> 
> ftp -s:filename.pl ftp.server.com
> 
> in my code, filename.pl, where do I tell it the 'user name' and' password'
> so that the server will recognize it?
> 
> I'm connecting alright but then the server doesn't know where to look for the
> 'username' and 'password'
> 
> gljoe101@aol.com

-- 

Dimitri Ostapenko
3D Designer (Euclid)
_______________________
Fantom Technologies Inc.
Intranet Homepage: http://iona3/euclid
E-mail: euclid@fantom.com
Voice: (905) 734-7476 Ext. 258
Fax: (905) 734-4900


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

Date: Fri, 17 Oct 1997 13:38:39 -0600
From: Tray@orasis.com
Subject: multipart/mixed, IE and perl
Message-Id: <877112445.18867@dejanews.com>

Hi!

Is it possible that Microsoft does not support this MIME-type?
Or is there something special you have to do?
Does anybody know how to do a server push under IE 3.0 and above with
perl
without this content-type?

Thanx for your answers.

Christian

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


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

Date: Fri, 17 Oct 1997 17:35:08 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: odd
Message-Id: <EI7I6L.24A@world.std.com>

"Raymond K. Bush" <rbush@up.net> writes:

>I wipped this off on the command line this morning and am not sure why i
>would get the message i see below.  Any ideas what's going on and how to
>fix it?

Can I tell you about the things that are wrong that didn't result in
an error message first?

> close(<FD>)

This will read a line from FD take its value as the name of a
filehandle, and try to close that filehandle. Since you are at EOF,
you are trying to close a filehandle with a value of undef.

> $_ =~ $spamlist

The right hand side of the match operator should be a match or
substitute operator, not a scalar. Perl parses it without error, and
often does the right thing.

Now, do you realize that since you are opening "spamdom.test" inside a
loop, you are appending the contents of the file to $spamlist for each
line of input from your pipeline? You're first processed line from
maillog will compared against the contents of the file. The second
line will be compared against two complete copies of the file,
etc. Eventually, $spamlist gets big enough that it chokes the regexp
engine. 

How about the perl being something like this?

perl -nwe 'BEGIN{open FD,"spamdom.test" or die;@spamlist=
map{chomp;"\Q$_"}<FD>; close FD} for $addr(@spamlist){print if $_ =~ /$addr/}'

or the somewhat shorter:
perl -nwe 'BEGIN{chomp(@spamlist=map{"\Q$_"}`cat spamdom.test`)}
for $addr(@spamlist){print if $_ =~ /$addr/}'

replacing perl's open/read/close with backticks and cat.

If you are going to be doing a whole lot of this, and will be building
something bigger than a oneliner, you might want to take a look at the
FAQ's entry: "How do I efficiently match many regular expressions at
once?" <URL:http://www.perl.com/CPAN/doc/manual/html/pod/perlfaq6/
How_do_I_eficiently_match_many_.html>
-- 
Andrew Langmead


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

Date: Fri, 17 Oct 1997 14:58:54 -0400
From: Ty Cage Warren <tycage@infi.net>
Subject: Re: odd
Message-Id: <3447B56E.453A0187@infi.net>

Ty Cage Warren wrote:

 
> 01: #!/usr/local/bin/perl -nw
> 02: chomp;
> 03: open(FD,"spamdom.test");
> 04: while(defined($spammer=<FD>)) {
> 05:    $spamlist.="$spamlist $spammer";
> 06: }
> 07: close(<FD>);
            ^^^^--- Just realized I didn't fix this line. Should read
  07: close(FD);    # *sigh*

Ty
+---+
Ty Cage Warren                                           tycage@infi.net
Systems Engineer                                                 InfiNet
Homepage: http://tazer.engrs.infi.net/~tycage
PGP Public Key: http://tazer.engrs.infi.net/~tycage/pgpkey.html
PGP Fingerprint: FF C1 28 CA 80 B5 31 78  B1 24 2E 8C AB DA FB D2
------------->Never invoke anything bigger than your head.<-------------


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

Date: 16 Oct 1997 23:32:31 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: open() missing line
Message-Id: <62686f$rjs$2@comdyn.comdyn.com.au>

In article <Pine.SOL.3.95.971015120315.26290A-100000@b1.hkstar.com>,
       Aldoliu Chan <chiyung@b1.hkstar.com> writes:

> TEST.DAT
> --------
> ABC
> DEF

> open(d, 'test.dat');
> while (<d>){         # This reads in a line (ABC) and stores it in $_
>   $one=<d>;          # This reads in the next line (DEF) -> $one
>   $two=<d>;          # This reads in the next line (undef!) -> $two
> }
> close(d);
> print "ONE=$one\n";
> print "TWO=$two\n";

If you are certain that you always have two lines, just don't use the
while loop.

       open(IN, 'test.dat') or die "Cannot open file: $!";
       $one = <IN> or die "No first line";
       $two = <IN> or die "No second line";
       close(IN);

       print "ONE=$one\nTWO=$two\n";

Although I would probably store the stuff in an array, then look at
the length:

       open(IN, 'test.dat') or die "Cannot open file: $!";
       @in_array = <IN>;
       close(IN);

       die "Illegal file length" unless (@in_array == 2);

       print "ONE=$in_array[0]\nTWO=$in_array[1]\n";


One advice, which you might already have deduced from my code:

Use LOTS of error checking. It will make your life as a programmer
about a thousandfold easier. Sure, it's a bit more coding, but a lot
less debugging.

Also: use perl with the -w flag, and use the strict pragma. The
combination of the two of those would have told you that you were
using undefined variables.

Martien
--
Martien Verbruggen                  |
Webmaster www.tradingpost.com.au    | Little girls, like butterflies, need no
Commercial Dynamics Pty. Ltd.       | excuse - Lazarus Long
NSW, Australia                      |


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

Date: Fri, 17 Oct 1997 15:18:44 -0400
From: James Patton <thedon@geocities.com>
Subject: Opening a network connected drive from dos w/ perl
Message-Id: <3447BA14.414B@geocities.com>

I currently running Win 95' and using the PC version of Perl. I was
wondering if there is some way to have my perl script open up a network
drive? I just wrote a very simple find script, I run it from c: and want
it to connect to a network drive and exe. the script, and then post the
results on c:......Is this possible?????

[heres the script if it helps]
[begin script]
#!/usr/local/bin/perl

eval 'exec perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

require "find.pl";

open(LOG, ">c:\temp\find.log");   #putting the info on c:\temp
# Traverse desired filesystems

&find('e:.');     #e:. is the network drive trying to connect to.

exit;

sub wanted {
    /^'*\.X.*'$/ &&
    print("$name\n");
}
[end script]

	Thanks for any help.
	   JIM


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

Date: 16 Oct 1997 23:03:29 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Perl Libraries
Message-Id: <6266g1$ri0$1@comdyn.comdyn.com.au>

In article <6256au$pam$1@bashir.ici.net>,
	burt@ici.net (Burt Lewis) writes:

> 1. Do they all need to be installed?

Yes. But not necessarily in the standard perl directories.

>    I don't have acces to do that, so can I just put them in my cgi-bin 
> directory?

You can install them in any directory. If they are in the same
directory as your script, you normally don't have to do anything
special. If they are somewhere else (which is not in perl's default)
you will have to include a line like this:

use lib '/wherever/my/libraries/live';

Look in the perl documentation for @INC 

perldoc perlvar 

Also read a bit about modules

perldoc perlmod
perldoc lib

> 2. Is there a FAQ on libraries?

There is documentation in the perlmod doc. 

perlfaq7:
	How do I create a module? 

perlfaq8:
	How do I keep my own module/library directory?

perldoc perlmod
perldoc perlfaq
perldoc perlfaq7
perldoc perlfaq8

> 3. What is the difference between .pl and .pm

 .pl normally is either a perl script or a set of
subroutines/functions. This was used in perl 4 mainly.

 .pm is a perl module, which has a few more rules to obey, and has some
better structure. This is normally the perl5 way of doing this.

> 4. Why sometimes "USE xxx.pm" and sometimes "require xxx.pm"

You would normally 'require' a .pl file, and 'use' a .pm module.

The 'use' implies a few things, of which one is a require. It does a
few more things though.

perldoc -f require
perldoc -f use

> 5. How do I know what existing libraries are installed on my system?

Hmm.. That depends a bit on how religiously everything has been
installed in a standard way, and where it all lives. The best way to
find out if a module is installed is by either trying to use it, or
even better:

perldoc MODULENAME

will give you the documentation on that module (if it is there)
(perldoc perldoc will give you the perldoc man page)

perldoc perlmodlib will also give you some information about standard
modules.

You can use the CPAN module in interactive mode.. (perldoc CPAN)

or try:

 find `perl -e 'print "@INC"'` -name '*.pm' -print

on a unix system

Martien

PS. I hope this gets through. For some reason my last batch of posts
    here was cancelled by someone.
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | I took an IQ test and the results were
Commercial Dynamics Pty. Ltd.       | negative.
NSW, Australia                      | 


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

Date: Fri, 17 Oct 1997 15:27:10 -0400
From: Rick Osborne <osborri@mail.northgrum.com>
To: Randal Schwartz <merlyn@stonehenge.com>, ericm@iol.ie
Subject: Re: perl mailing list
Message-Id: <3447BC0E.648961D8@mail.northgrum.com>

[[[ Mailed and posted, naughty me. ]]]

Randal Schwartz wrote:
> Uh, there's no mailing list with the worldwide distribution and
> resposne of comp.lang.perl.misc.  And since you're already here,
> welcome aboard!

Um, just to nitpick for a second ... :)

There *is* a mailing list version of clpm that works wonderfully for ppl
who don't want to deal with the Usenet aspect of clpm.  I forget the
addy, but I'm subbed to it on my other account, and so am fairly sure it
exists.  ;)

And, if you want to get nice and OS-specific, there are several mailing
lists maintained for OS-specific ports of perl, which tend to field
not-just-OS-specific questions.  The lists *are* out there, but I agree
with Randall that they don't compare to the raw sewage (and occasional
diamond) of clpm.

(Check out www.liszt.com for a list of mailing lists, the Perl-specific
ones should be in there somewhere.)

-- Rick Osborne, osborri@mail.northgrum.com
Pinky, are you pondering what I'm pondering?
I think so Brain, but me and Pippi Longstocking... I mean, what would
the children look like?


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

Date: Fri, 17 Oct 1997 13:48:25 -0500
From: Kermit Tensmeyer <kermit@ticnet.com>
Subject: Re: PerlScript & ASP...accessing System Command Line?
Message-Id: <3447B2F9.4702D2FD@ticnet.com>

I R A Aggie wrote:
> 
> In article <343e440b.153888499@News>, paul_burke@onesource.com (Paul T.
> Burke) wrote:
> 
> + Greetings,
> +
> + I am a  newbie to PerlScript and ASP.  In an attempt to port over my
> + existing Perl scripts to PerlScript and ASP, I am in desperate need of
> + accessing the Windows NT system command line.  Could anyone point me
> + to an object that provides system call functionality. [being able to
> + capture the output back would be a big plus as well.]
> 
> Ummm...forgive my ignorance (I don't have access to NT), but shouldn't
> the port permit you to use the 'system ()' interface??


 hmm.  Perlscript is a varation on standard perl such
  that it works as an ASP inside of NT.

  NT doesn't have a fork command. and the functions that PerlScript
 have to be linked with a special .dll.  I think but I'm
 not sure that the system call is available in this limted version
  or perl NT (ie the Activeware port subset for ASP)

  by the way What did you mean by "System Command Line"?

  the sysconsole? or the parameter line on the cgi call that
 started your perl script running?

  are you trying to communicate with the console interface?


-- 
-------
  Kermit Tensmeyer    (E & T - Networking)
  Kermit@ticnet.com     Dallas


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

Date: 17 Oct 1997 19:14:15 GMT
From: Eli the Bearded <usenet-tag@qz.little-neck.ny.us>
Subject: Re: qqq
Message-Id: <eli$9710171423@qz.little-neck.ny.us>

Steven Duffy <sduffy@nova.dreamscape.com> wrote:
> 

So I take it this is /not/ a question about the q or qq operator, huh?

{Fun trick for the kids -- do you know what's happening here?

:r! perl5.00401 -we '$_ = qq  qq ; print "($_)\n"'
()

}

Elijah
------
the way your newsreader works *will* change what you see here


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

Date: Fri, 17 Oct 1997 10:02:55 -0700
From: Drake International <b~johnston@rocketmail.com>
Subject: Re: Web Programmer Wanted
Message-Id: <34479A3F.C0F18E5@rocketmail.com>

Thank you for your thoughts on this subject. But thanks to this group, I
was able to find several qualified people suitable for this position.
Plus, it is a pure Perl position and not VB!

Barry Johnston

Bob Fawcett wrote:

> Faust Gertz wrote:
>
> > On Thu, 16 Oct 1997 13:29:06 -0700, Drake International
> > <b~johnston@rocketmail.com> wrote:
> >
> > >I am looking for a Web Programmer in Vancouver.
> > >                C++, Java Script and Perl
> > >                        3 Yrs exp.
> > >Please e-mail b~johnston@rocketmail.com
> > >
> > >Barry Johnston
> > >IT Recruitment Consultant
> > >Drake International
> >
> > Wo kann ich die Perl FAQ finden?
> >
> > What is the likelihood of finding a "Web Programmer" residing in
> > Vancouver by posting to de.comp.lang.perl?  What does this post have
>
> > to do with comp.lang.perl.tk?  It probably doesn't have much to do
> > with comp.lang.perl.modules either.  I ask once again, "Should we
> have
> > some official policy on job postings in the comp.lang.perl.*
> > hierarchy?"
> >
> > immer fragen warum!
> >
> > Faust Gertz
> > Philosopher at Large
>
>   I don't mind seeing how marketable my Perl skills are in a news
> group
> dedicated to Perl. At least it isn't a Visual Basic job posting.
>
> Bob Fawcett





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

Date: Fri, 17 Oct 1997 10:03:16 -0700
From: Drake International <b~johnston@rocketmail.com>
Subject: Re: Web Programmer Wanted
Message-Id: <34479A53.A8DA85CA@rocketmail.com>

Thank you for your thoughts on this subject. But thanks to this group, I
was able to find several qualified people suitable for this position.
Plus, it is a pure Perl position and not VB!

Barry Johnston

Bob Fawcett wrote:

> Faust Gertz wrote:
>
> > On Thu, 16 Oct 1997 13:29:06 -0700, Drake International
> > <b~johnston@rocketmail.com> wrote:
> >
> > >I am looking for a Web Programmer in Vancouver.
> > >                C++, Java Script and Perl
> > >                        3 Yrs exp.
> > >Please e-mail b~johnston@rocketmail.com
> > >
> > >Barry Johnston
> > >IT Recruitment Consultant
> > >Drake International
> >
> > Wo kann ich die Perl FAQ finden?
> >
> > What is the likelihood of finding a "Web Programmer" residing in
> > Vancouver by posting to de.comp.lang.perl?  What does this post have
>
> > to do with comp.lang.perl.tk?  It probably doesn't have much to do
> > with comp.lang.perl.modules either.  I ask once again, "Should we
> have
> > some official policy on job postings in the comp.lang.perl.*
> > hierarchy?"
> >
> > immer fragen warum!
> >
> > Faust Gertz
> > Philosopher at Large
>
>   I don't mind seeing how marketable my Perl skills are in a news
> group
> dedicated to Perl. At least it isn't a Visual Basic job posting.
>
> Bob Fawcett





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

Date: 17 Oct 1997 19:39:47 GMT
From: nospam@ll.mit.edu (Joseph Scott Stuart)
Subject: Re: Why am I running out of memory? (bug in perl?)
Message-Id: <NOSPAM.97Oct17153947@pickering.ll.mit.edu>


I think I found the memory leak, and it is in perl's string
interpolation routines.

This is my system:

% perl -v; uname -a
This is perl, version 5.004_01

% uname -a
OSF1 herpolhode V3.2 148 alpha


The following program eats memory and eventually (hours) dies with
the message "Out of memory!".

#!/usr/local/bin/perl

use diagnostics;

for(;;){

    $y = 1997;
    $m = 1;
    $d = 12.2303800000009;
    print "$y\t$m\t$d\n";

}

Whereas this program remains at a constant size.

#!/usr/local/bin/perl

use diagnostics;

for(;;){


    $y = 1997;
    $m = 1;
    $d = 12.2303800000009;
    printf "%d\t%d\t%lf\n", $y, $m, $d;


}

The perl.com homepage says that the bug database is no longer being
maintained.  Is there somewhere I ought to send this?  Is there a way
to upgrade to 5.004_03?  I couldn't find it at perl.com.
-- 
Scott Stuart
stuart at ll mit edu



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

Date: 16 Oct 1997 23:18:45 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
To: nospam@ll.mit.edu (Joseph Scott Stuart)
Subject: Re: Why am I running out of memory?
Message-Id: <6267cl$rjs$1@comdyn.comdyn.com.au>

[Posted and Mailed]

In article <NOSPAM.97Oct16125544@pickering.ll.mit.edu>,
	nospam@ll.mit.edu (Joseph Scott Stuart) writes:
> 
> I have a perl program that stops with the message 'Out of memory!' and
> I can't figure out why. Using ps, I found that the memory size grows to

On my system, the process size stays constant

# perl -v
This is perl, version 5.004_03

# uname -a
SunOS mali 5.5.1 Generic_103640-08 sun4u sparc SUNW,Ultra-2

I seem to recall that between 5.004_01 and 5.004_03 there were some
memory issues corrected. Maybe you need to just upgrade. It is also
possible that your system's posix functions are not entirely correct.
Does an equivalent c program eat memory as well?

Martien
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | I'm just very selective about what I
Commercial Dynamics Pty. Ltd.       | accept as reality - Calvin
NSW, Australia                      | 


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

Date: 17 Oct 1997 18:31:48 GMT
From: nospam@ll.mit.edu (Joseph Scott Stuart)
Subject: Re: Why am I running out of memory?
Message-Id: <NOSPAM.97Oct17143148@pickering.ll.mit.edu>


In article <6267cl$rjs$1@comdyn.comdyn.com.au> mgjv@comdyn.com.au (Martien Verbruggen) writes:

>In article <NOSPAM.97Oct16125544@pickering.ll.mit.edu>,
>	nospam@ll.mit.edu (Joseph Scott Stuart) writes:
>> 
>> I have a perl program that stops with the message 'Out of memory!' and
>> I can't figure out why. Using ps, I found that the memory size grows to
>
>On my system, the process size stays constant
>
># perl -v
>This is perl, version 5.004_03
>
># uname -a
>SunOS mali 5.5.1 Generic_103640-08 sun4u sparc SUNW,Ultra-2
>
>I seem to recall that between 5.004_01 and 5.004_03 there were some
>memory issues corrected. Maybe you need to just upgrade. It is also
>possible that your system's posix functions are not entirely correct.
>Does an equivalent c program eat memory as well?

Wow! Yesterday I installed the "latest" version from perl.com, and now
it is two revisions behind.  I tested the program on another machine
with these paramters:

This is perl, version 5.003 with EMBED
IRIX64 polhode 6.4 02121744 IP27


And the memory size remains constant on that machine.  I'll try the c
program.

scott
-- 
Scott Stuart
stuart at ll mit edu



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

Date: 17 Oct 1997 18:44:52 GMT
From: nospam@ll.mit.edu (Joseph Scott Stuart)
Subject: Re: Why am I running out of memory?
Message-Id: <NOSPAM.97Oct17144452@pickering.ll.mit.edu>


In article <6267cl$rjs$1@comdyn.comdyn.com.au> mgjv@comdyn.com.au (Martien Verbruggen) writes:

>Does an equivalent c program eat memory as well?

Nope.  The c program doesn't eat memeory, so it probably isn't the
posix modf.

scott
-- 
Scott Stuart
stuart at ll mit edu



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

Date: 17 Oct 1997 19:19:16 GMT
From: nospam@ll.mit.edu (Joseph Scott Stuart)
Subject: Re: Why am I running out of memory?
Message-Id: <NOSPAM.97Oct17151916@pickering.ll.mit.edu>


In article <6267cl$rjs$1@comdyn.comdyn.com.au> mgjv@comdyn.com.au (Martien Verbruggen) writes:

>It is also
>possible that your system's posix functions are not entirely correct.

I tried getting rid of the call to the posix function, and it still
eats memory.  

    use POSIX qw(modf);
    ($dayfrac, $dayint) = modf($mjd);

became:

    {
	use integer;
	$dayint = $mjd/1;
    }

    $dayfrac = $mjd - $dayint;

Perhaps I'll try to simplify further.
-- 
Scott Stuart
stuart at ll mit edu



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

Date: 17 Oct 1997 17:48:09 GMT
From: mheins@prairienet.org (Mike Heins)
Subject: Re: wwwboard.pl
Message-Id: <6288cp$82f$1@vixen.cso.uiuc.edu>

Mickael (mickael@adarweb.com) wrote:
: Hello, 
: 
: Can anybaody help me with the following problem:
: 

Can anyone tell me what is it about Netscape that makes people
post these articles separately?  I am sick of seeing articles once
in .modules, once in .tk, and once here. (Especially off-topic
posts like this one.)

Regards,
Mike Heins


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

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 1191
**************************************

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