[10365] in Perl-Users-Digest

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

Perl-Users Digest, Issue: 3958 Volume: 8

daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 13 01:07:24 1998

Date: Mon, 12 Oct 98 22: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           Mon, 12 Oct 1998     Volume: 8 Number: 3958

Today's topics:
    Re: ?? Builtin function gets (Mark-Jason Dominus)
    Re: Are there any "perl.newbie" group or forum? <rra@stanford.edu>
    Re: Are there any "perl.newbie" group or forum? (I R A Aggie)
    Re: Are there any "perl.newbie" group or forum? (I R A Aggie)
    Re: Are there any "perl.newbie" group or forum? <merlyn@stonehenge.com>
    Re: Best way to absolutize URL's in HTML, trying to avo (Ronald J Kimball)
    Re: Checking file size and date in Perl Win32 <mikei@ix.netcom.com>
        Don't kill me <mp@mkt2mkt.com>
    Re: Don't kill me <merlyn@stonehenge.com>
        Graphic Date (Billy Jacobs)
        Handling text files <tdunsirn@execpc.com>
    Re: How to do a nslookup ! (Martien Verbruggen)
    Re: Keeping a running list of the top n values retrieve (Abigail)
    Re: Mail on NT <george.kuetemeyer@mail.tju.edu>
    Re: Mail on NT <mikep@5circles.com>
    Re: Max lines in an Array? (Mark-Jason Dominus)
    Re: print output problem? <psdspss@execpc.com>
    Re: printing reserved characters from Perl script to we steve.cooke@wmc.com.au
    Re: Q: How to Create Machines on the Domain? <george.kuetemeyer@mail.tju.edu>
    Re: Reading binary data? (Martien Verbruggen)
    Re: sorting hack <xah@best.com>
    Re: Statistics for comp.lang.perl.misc (Martien Verbruggen)
    Re: Still can not get browser to read perl script <psdspss@execpc.com>
    Re: What do you need to run perl? (Larry Wall)
    Re: What's with c.l.p.moderated? <rra@stanford.edu>
    Re: win 32 system() woes <george.kuetemeyer@mail.tju.edu>
        Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)

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

Date: 12 Oct 1998 21:28:27 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: ?? Builtin function gets
Message-Id: <6vuabr$laf$1@monet.op.net>

In article <6vtlic$53q$1@phavl.ethernet>,
R. Ransbottom <rir@phavl.ultranet.com> wrote:
>Is there any doc's for gets.  

Perl doesn't have `gets'.  Instead, you do this:

	$line = <FILE>;

where FILE is a filehandle.  This reads one line of input form the
filehandle and stores it in $line.  

You really need to get a book about Perl, and then you need to read
it.  Reading lines from a file will be covered in the first pages of
any reasonable introductory book.


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

Date: 12 Oct 1998 17:50:22 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <ylww658eup.fsf@windlord.stanford.edu>

madame philosophe <mp@mkt2mkt.com> writes:

> See I knew the llama book was not for non-programmers.  What books would
> you recommend for intelligent independently studious non-programming
> programmers??

Um, I don't mean to be flippant, but a community college course in
programming?  Or at least going to a college bookstore and seeing what
books they use to teach introductory programming?  Programming isn't
*that* hard, but it is normally something that people take classes to
learn, and Perl isn't that good of a language to learn how to program in
(yes, I know some people with strong qualifications disagree with me on
that score...).

-- 
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
 00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print


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

Date: Mon, 12 Oct 1998 21:08:58 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <fl_aggie-1210982108590001@aggie.coaps.fsu.edu>

In article <36229750.B82EF84E@mkt2mkt.com>, madame philosophe
<mp@mkt2mkt.com> wrote:

+ See I knew the llama book was not for non-programmers.

You're not a programmer, but want to learn Perl?

Ok. Become a programmer, first. Then learn Perl, at which point either
the Llama or the Camel may be suitable.

Perl can be a hideous death-trap to the unwary, the unskilled, or the
inexperienced. It can also be a thing of beauty.

James


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

Date: Mon, 12 Oct 1998 21:09:58 -0500
From: fl_aggie@thepentagon.com (I R A Aggie)
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <fl_aggie-1210982109590001@aggie.coaps.fsu.edu>

In article <3622855f.92416462@news.demon.co.uk>,
paul@hansenhanley.demon.co.uk wrote:

+ To sum up, er... learn Java.

So, the java crowd has a higher tolerance of FAQ's?

James - not for long...


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

Date: Tue, 13 Oct 1998 04:27:53 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <8c1zodf5mj.fsf@gadget.cscaper.com>

>>>>> "Russ" == Russ Allbery <rra@stanford.edu> writes:

Russ> [...] and Perl isn't that good of a language to learn how to program in
Russ> (yes, I know some people with strong qualifications disagree with me on
Russ> that score...).

You won't find me disagreeing.  Maybe that means I don't have strong
qualifications. :)

-- 
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@teleport.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: Tue, 13 Oct 1998 00:38:07 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: Best way to absolutize URL's in HTML, trying to avoid HTML::Parser
Message-Id: <1dgta5c.g27k1qjoob5sN@bos-ip-1-96.ziplink.net>

Anmar To <amt@nuteknet.com> wrote:

> Here's my current working regular expression (just for IMG tags):
>   s!
>         ( <IMG (?: [^>'"]+ | ".*?" | '.*?')+? SRC\s*=\s*) # IMG tag
>         (["']) (.*?) (\3)
>    ! $1$2$base$3$4
>    !gsix;

<IMG SRC=foo.gif>

   (Quotes are optional when the attribute value contains only letters,
   numbers, hyphens, and periods.)

<IMG LOWSRC="foobar.gif" SRC="foo.gif">
<IMG SRC="foo.gif" LOWSRC="foobar.gif">


Change ".*?" and '.*?' to "[^"]*" and '[^']*', respectively.  Don't use
non-greedy matching when greedy matching will work.

If you replace [^>'"]+ with \s+ | [^>'"\s]+ then backtracking might be
reduced.  Or it might not.


Anyway, you may be realizing that a regex really isn't the right way to
go about this.  You mentioned that your regex solution is rather slow; I
think it would be worth at least trying HTML::Parser, just to see how it
compares.


> It's only finding the special embedded ">" case, and it's putting
> a newline after "$base" (probably a separate issue). Earlier, I had a
> simpler regular expression that was finding everything but the special
> case.

The newline is because your replacement expression contains an embedded
newline.  /x applies only to the search expression.

-- 
 _ / '  _      /         - aka -         rjk@coos.dartmouth.edu
( /)//)//)(//)/(     Ronald J Kimball      chipmunk@m-net.arbornet.org
    /                                  http://www.ziplink.net/~rjk/
        "It's funny 'cause it's true ... and vice versa."


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

Date: Mon, 12 Oct 1998 23:04:00 -0400
From: Lyubov Ignatovsky <mikei@ix.netcom.com>
Subject: Re: Checking file size and date in Perl Win32
Message-Id: <3622C31F.3938A7E5@ix.netcom.com>

On Win32 use modification time for the file date, the others (access, creation)
don't work.
Lyubov

Larry Rosler wrote:

> [Posted to comp.lang.perl.misc and copy mailed.]
>
> In article <01bdf3ef$b31d0a00$598d87d1@Calvin.daugherty.com> on 10 Oct
> 1998 01:47:11 GMT, Joe H. <hteam@inlink.com> says...
> > How do I do this in perl for Win32?  Is it a module and if so where do I go
> > to get it?  Thanks in advance.
>
> Exactly the same as for Unix.  It is in the core software.
>
> Look at the documentation for the 'stat' function (though some of the
> returned values won't be meaningful) and the file-test operators '-s'
> (for size) and '-A', '-C', and '-M' for various dates (access, creation,
> and modification).
>
> --
> (Just Another Larry) Rosler
> Hewlett-Packard Laboratories
> http://www.hpl.hp.com/personal/Larry_Rosler/
> lr@hpl.hp.com





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

Date: Mon, 12 Oct 1998 18:12:42 -0800
From: madame philosophe <mp@mkt2mkt.com>
Subject: Don't kill me
Message-Id: <3622B6F6.451A1ECB@mkt2mkt.com>

 As I wrote Randal directly,

if I have done a stealth cc it was an accident.  Please accept my apology, as I know not how I
did it.

I'm using Netscape Mail so if anyone would like to *PLONK* me over the head and tell me what I
am doing incorrectly PLEASE do!

mp

Randal Schwartz wrote:

> bleh.  This was stealth-cc'ed to me.  And I already answered it
> in email now.
>
> So for those of you that killfile people that stealth-cc, time
> to nail mp@mkt2mkt.com as one of those.
>
> <sigh>
>
> madame... please STOP that.

--
-madame philosophe

"I am not a troll!"
- famous last words before the
  guillotine of comp.lang.perl.misc

She's here to save the world from herself...




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

Date: Tue, 13 Oct 1998 04:26:56 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Don't kill me
Message-Id: <8c67dpf5o3.fsf@gadget.cscaper.com>

>>>>> "madame" == madame philosophe <mp@mkt2mkt.com> writes:

madame>  As I wrote Randal directly,

and oddly enough, marked the *NEWS* but not the *MAIL*!

Ugh.  Please learn NOT to send mail that is also posted unless
the MAIL is marked that it is also POSTED.

<sigh>

-- 
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@teleport.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: Tue, 13 Oct 1998 03:24:44 GMT
From: nomail@netscape.com (Billy Jacobs)
Subject: Graphic Date
Message-Id: <3622c6b1.6579741@news.nassaulibrary.org>

Hey all--

I am looking for a simple script (for you guys), which would allow a
webpage to dynamically display the date by using existing graphics on
a server.  For example, I would like to have a graphic for each day of
the week (monday.gif, tuesday.gif...etc), as well as each month
(january.gif...), as well as two digit day (1.gif...)(1.gif..), and
finally year (1998.gif, 1999.gif...).

I have seen plenty of scripts around that will display the current
date in this format, however, they only display text.  What I would
like to do sounds relatively easy -- assign a graphic to the text
output of each field, however, since I don't know perl, I can't figure
it out.  I have tried to modify existing scripts to no avail.

If anyone has seen a script like this, or knows how to create one,
could they be so kind as to help a newbie out?  Any help would be
seriously appreciated!!!!

Billy

billyj3 at mindless.com


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

Date: Mon, 12 Oct 1998 22:43:20 -0500
From: "Todd Dunsirn" <tdunsirn@execpc.com>
Subject: Handling text files
Message-Id: <6vui44$ovs@newsops.execpc.com>

I have some files (a lot actually) that are like the following format...

Name: Joe
Age: 23

I need to take the information and create a comma-delimited file which can
be imported into a database(SQL Server) This file should look like the
following....

Joe,23

After I read the first file I need to append the following files to this one
large comma-delimited file.  Any help with this would be greatly
appreciated. I have some experience with Perl but would appreciate a rough
template or idea to get going.

Thanks,
Todd Dunsirn
tdunsirn@execpc.com




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

Date: Tue, 13 Oct 1998 03:04:15 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How to do a nslookup !
Message-Id: <PqzU1.54$cl3.244905@nsw.nnrp.telstra.net>

In article <3621EDB4.F402620E@ip-plus.net>,
	Patrick <ammann@ip-plus.net> writes:
> Hi,
> 
> I have the following problem. I want to make a nslookup to check if
> there is an entry for some ip adresses. I already searched for some
> scripts but i haven't found one.

It's not _exactly_ an nslookup,but:

# perldoc -f gethostbyname
# perldoc -f gethostbyaddr

and maybe 

# perldoc Socket

will tell you a bit more

Martien
-- 
Martien Verbruggen                  | My friend has a baby. I'm writing down
Webmaster www.tradingpost.com.au    | all the noises the baby makes so later
Commercial Dynamics Pty. Ltd.       | I can ask him what he meant - Steven
NSW, Australia                      | Wright


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

Date: 13 Oct 1998 02:07:27 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Keeping a running list of the top n values retrieved
Message-Id: <6vuckv$s10$1@client3.news.psi.net>

Sam Holden (sholden@pgrad.cs.usyd.edu.au) wrote on MDCCCLXIX September
MCMXCIII in <URL:news:slrn7256g4.7tg.sholden@pgrad.cs.usyd.edu.au>:
++ On 12 Oct 1998 17:16:55 GMT, Abigail <abigail@fnx.com> wrote:
++ 
++ I still can't see the constant being significant. If it is I can just impleme
++ my own insert sub that does O(m) swaps in the same way as a heap does O(log m

*You* made the constant significant by comparing 2 methods, plugging in
some values for n, m, and finding a dimensionless ratio.

++ >If you knew what I said, then why do you still question it?
++ 
++ Because I wasn't sure if this particular way of constructing a heap would hav
++ special properties and thus left it open for someone to mention any. There 
++ aren't any, however, since that would give a comparison sort algorithm of les
++ than O( n log n) which is a little impossible...


Which is what I said.



Abigail
-- 
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
             "\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
             "\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'


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

Date: Mon, 12 Oct 1998 22:15:11 -0400
From: George Kuetemeyer <george.kuetemeyer@mail.tju.edu>
Subject: Re: Mail on NT
Message-Id: <3622B7AF.2536B489@mail.tju.edu>



Mike Pritchard wrote:

> I want to send MAPI mail in a Perl script running on Windows NT.  Eventually
> via CGI, but I'm currently just trying to get the mail script running from
> the command line.  I'm running on an NT Workstation for testing purposes.

Do you really need MAPI. Or could you use SMTP? A recent posting on this list
pointed to a really simple program called 'mail.exe' which can easily send mail
from NT via a system call or pipe. Send me an e-mail directly & I will get you
the URL.



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

Date: Mon, 12 Oct 1998 19:00:30 -0700
From: "Mike Pritchard" <mikep@5circles.com>
Subject: Re: Mail on NT
Message-Id: <ZuyU1.878$9c2.809@news14.ispnews.com>


George Kuetemeyer wrote in message <3622B7AF.2536B489@mail.tju.edu>...
>
>Do you really need MAPI. Or could you use SMTP? A recent posting on this
list
>pointed to a really simple program called 'mail.exe' which can easily send
mail
>from NT via a system call or pipe. Send me an e-mail directly & I will get
you
>the URL.


I think I need MAPI because this is just on an Intranet.  We are supposed to
be converting to Exchange server, so perhaps it doesn't matter (or perhaps
that is a red herring).

Mike




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

Date: 12 Oct 1998 21:32:59 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Max lines in an Array?
Message-Id: <6vuakb$lc8$1@monet.op.net>

In article <6vu4o4$egq$1@nnrp03.primenet.com>,
Doyle Johnson <sales@madm.com> wrote:
>  Is there a limit to the number of lines you can stuff into an array? 

No, unless you run out of memory.


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

Date: Mon, 12 Oct 1998 21:45:33 -0500
From: Deva Seetharam <psdspss@execpc.com>
Subject: Re: print output problem?
Message-Id: <6vue7m$jk0@newsops.execpc.com>

Try something like this
$x = 10.2;
printf "%2.2f\n", "$x";

Dennis P. wrote:

> i wrote a program in perl to calculate an invoice with extended totals but
> everytime i extend the toal dollars i'm not getting the right 0 to print in
> my field. how can i insert a zero at the end of the field so it prints
> correctly.
>
> Thank you in advance for any help in this matter.





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

Date: Tue, 13 Oct 1998 01:42:06 GMT
From: steve.cooke@wmc.com.au
Subject: Re: printing reserved characters from Perl script to web page.
Message-Id: <6vub5f$tj8$1@nnrp1.dejanews.com>

In article <sihfxajk4l.fsf@cre.canon.co.uk>,
  Gareth Rees <garethr@cre.canon.co.uk> wrote:
> steve.cooke@wmc.com.au wrote:
> > [...] but only part of each returned row gets printed to the web page.
> > An example of the data that is being returned by the database is: 'Me
> > <i.am@work>' (i.e. an email address, enclosed in '<' and '>', preceded
> > by a name).
>
> The three characters '&', '<', and '>' are special in HTML.  You need to
> convert them to the entity references '&amp;', '&lt;' and '&gt;'
> respectively.
>
> Use the function 'encode_entities' from the CPAN module HTML::Entities
> to encode your data before printing it to the web page.

Thanks Gareth and to all others who replied.

Unfortunately, this was a case of the fingers typing faster than the brain
could think (I guess I'd only had my third coffee of the morning). I realised
that the characters '<' and '>' were special in HTML just after I had posted
my plea, and I used a simple regex to convert them to entity references.
However, I had no idea that there is a module that does this for us! Thanks
for the tip.

Steve Cooke.


-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own    


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

Date: Mon, 12 Oct 1998 22:10:28 -0400
From: George Kuetemeyer <george.kuetemeyer@mail.tju.edu>
Subject: Re: Q: How to Create Machines on the Domain?
Message-Id: <3622B693.C7EF64AD@mail.tju.edu>



John P. Scrimsher wrote:

> I need to create a script that will allow users to add and delete machines
> from and NT domain, without giving them acces to Server Manager.

User and machine accounts are really pretty much the same thing. Just append a
'$' to account names that you want to be machine accounts & use a different
account flag value. (I don't think you need the '$', but it appears that
Microsoft's utilities filter user and machine accounts based on that symbol).
Here's a simplified version of a routine that I'm using to create accounts of
both types:

use Win32::NetAdmin;

sub user_create_account {
    my $accountType = shift;  # 'user' or 'machine'
    my ($server,$user,$pwd,$pwdAge,$homeDir,$comment,$logonScript) = @_;
    my $accountFlag;

    if($accountType =~ /user/i) {  # create regular user account
        $accountFlag = UF_NORMAL_ACCOUNT | UF_SCRIPT;
    }
    else {
        $accountFlag = UF_WORKSTATION_TRUST_ACCOUNT | UF_SCRIPT;
        if($user !~ /\$$/) {  # add the '$' symbol if programmer forgot to
            $user .= '$';
        }
    }
    return Win32::NetAdmin::UserCreate($server,
                                                            $user,
                                                            $pwd,
                                                            $pwdAge,
                                                            USER_PRIV_USER,
                                                            $homeDir,
                                                            $comment,
                                                            $accountFlag,
                                                            $logonScript);
 }



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

Date: Tue, 13 Oct 1998 03:06:08 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Reading binary data?
Message-Id: <AszU1.55$cl3.244905@nsw.nnrp.telstra.net>

In article <6vsra4$b4c$1@oden.abc.se>,
	m9418@abc.se (Jonas Bofjall) writes:
> How do I make struct's in Perl? I have the format of a binary data file

# perldoc -q struct
# perldoc perlfaq4

> which I want to process, preferrably cross-platform so Perl knows whether it
> is running on a platform with least significant byte first or last and can
> swap MSB/LSB to suit multibyte structures.

# perldoc -f pack
# perldoc -f unpack

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


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

Date: Mon, 12 Oct 1998 20:09:14 +0000
From: "Xah" <xah@best.com>
Subject: Re: sorting hack
Message-Id: <6vufoc$9bm$1@nntp2.ba.best.com>

At 12:39 AM -0000 1998.10.12, Larry Rosler wrote:
>(This is a classical Schwartz Transform.  See perlfaq4:  "How do I sort 
>an array by (anything)?" for details.  You'll be surprised at how fast it 
>will run.)

Thanks for the note.

Note that the given solution will fail when the number of digits in the
index exceed a prescribed size. (in the given case, 9) (yes, they are all
non-negative integers.)

I wanted 100% correct implementations. I wonder if it is still faster if we
first check what is the largest number of digits and the longest length of
index in the input, and use these two values to convert the indexes into
strings all of the same length, and sort these strings as the basis of the
sort desired. I think this would be the best solution in terms of time
complexity and also being practical.

 Xah, xah@best.com
 http://www.best.com/~xah/PageTwo_dir/more.html
 "Unlike poetry, mathematical ideas take years of training just to 'get
it'."


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

Date: Tue, 13 Oct 1998 03:11:41 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Statistics for comp.lang.perl.misc
Message-Id: <NxzU1.56$cl3.244905@nsw.nnrp.telstra.net>

In article <362264f8.577591@news.ping.be>,
	bart.mediamind@ping.be (Bart Lateur) writes:
> An interesting statistic would be the number of off-topic (= not
> immediately Perl related) posts. Unfortunately, that's something that
> cannot easily be automated...

You can find these in the post entitled 'New posters to
comp.lang.perl.misc'.

Martien

PS. Any offense taken to this post is entirely your own
responsibility. 

PPS. :)
-- 
Martien Verbruggen                  | 
Webmaster www.tradingpost.com.au    | Make it idiot proof and someone will
Commercial Dynamics Pty. Ltd.       | make a better idiot.
NSW, Australia                      | 


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

Date: Mon, 12 Oct 1998 22:18:07 -0500
From: Deva Seetharam <psdspss@execpc.com>
Subject: Re: Still can not get browser to read perl script
Message-Id: <6vug4o$jk0@newsops.execpc.com>

The problem might be buffering by perl. So the Content-type info may not be
reaching the server before
the other lines.
Turn off the buffering by adding this line
$| = 1;

Hope that helps
Deva

Katia Espinal wrote:

> I have created a simple perl script.
>
> print "Content-type:text/html\n\n";
> print "<html><head><title>Test Page</title></head>";
> print "<body>";
> print "<h2>Hello, world!</h2>";
> print "</body></html>";
>
> I still can not get the browser to interpret the HTML tags.
>
> Help please.
>
> Thx,
> katia
> kespinal@fedex.com
>
>   ------------------------------------------------------------------------
>
>   Katia Espinal <kespinal@fedex.com>
>   TA
>   Edi Services Federal Express
>
>   Katia Espinal
>   TA                            <kespinal@fedex.com>
>   Edi Services Federal Express
>                                 Work: (901) 224-9168
>                                 Fax: (901) 224-9130
>                                 Netscape Conference Address
>                                 Netscape Conference DLS Server
>   Additional Information:
>   Last Name     Espinal
>   First Name    Katia
>   Version       2.1





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

Date: 12 Oct 1998 18:36:40 -0700
From: larry@kiev.wall.org (Larry Wall)
Subject: Re: What do you need to run perl?
Message-Id: <6vuar8$91n@kiev.wall.org>

In article <6vrvsq$rv8$1@nnrp1.dejanews.com>,  <jesten@wdynamic.com> wrote:
>In article <362049E5.34F3@mmac.is.lmsc.lockheed.com>,
>  John Doe <doe#m#_john@mmac.is.lmsc.lockheed.com> wrote:
>> I would like to distribute perl scripts on a CD to machines that do not
>> always have it installed. Can most of perl be kept on the CD and only a
>> small working directory be maintained in the machine running it? Is it
>> necessary to require a full installation in the machine running the
>> scripts?
>>
>>                             chuck.meyers@lmco.com
>>
>
>*NIX or Win32?  If Win32, you might want to consider making them .exe files
>with the pl2exe.exe program included in the Win32 Perl Resource Kit...

And the installer on the Unix Perl Resource Kit does just what is being
asked for.  It runs a Tk script that uses the Perl executables right
off the CD.  (But we only provided executables for Solaris and Linux...)

The trick was to run a Bourne shell script that set up the right
environment variables before invoking the installer Perl script.

Larry


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

Date: 12 Oct 1998 18:16:01 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: What's with c.l.p.moderated?
Message-Id: <ylr9wd8dny.fsf@windlord.stanford.edu>

Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM> writes:

> When c.l.p.moderated started up it's intentions were great, and it's
> charter seemed solid enough. But there's a thread there right now that
> needs to be stopped IMHO.

> So far it's been nothing that perl people need, or want, to read. It
> would be better served in c.l.p.misc. This is the "RFC: Build and
> play.." thread. Why on earth are the moderators letting this one
> through? Perhaps it's the moderators posting replies to the list?

The moderators had already independently reached the same conclusion.  :)
We try to err on the side of approving posts, but I would expect to see
that thread dry up fairly soon (it seems to be doing that by itself).

-- 
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
 00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print


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

Date: Mon, 12 Oct 1998 22:33:09 -0400
From: George Kuetemeyer <george.kuetemeyer@mail.tju.edu>
Subject: Re: win 32 system() woes
Message-Id: <3622BBE5.E932F719@mail.tju.edu>



Brian wrote:

> A dos prompt opens and closes so quickly I can't really see whats happening,
> I just know the program isn't running. Grr, I really hate programming on NT,
> but I have to.

Why not open a DOS window & then run your script from within it (pretend it's a
UNIX shell - but without all the cool commands)? That way you'll easily be able
to view error reports. If there are too many errors & they scroll by too fast,
configure the DOS window properties to store X number of lines in a buffer. Then
you can scroll back to retrieve the early errors.



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

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

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