[7401] in Perl-Users-Digest
Perl-Users Digest, Issue: 1026 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Sep 15 10:17:18 1997
Date: Mon, 15 Sep 97 07:00:41 -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, 15 Sep 1997 Volume: 8 Number: 1026
Today's topics:
Re: An array of a list ??? I meant ... array OR a list <sgermain@nortel.ca>
Re: Automation of NT 4.0 Workstation Installation (Jeremy D. Zawodny)
Re: chat script (Jeremy D. Zawodny)
Duplicate elements in arrays <lmisosa@eei.ericsson.se>
Re: Duplicate elements in arrays (Jean-Damien Durand)
Re: Duplicate elements in arrays (Tad McClellan)
Re: Free Perl CGI Script <flavell@mail.cern.ch>
Re: Help with perl!! Please!! (Burt Lewis)
Re: How to redirect standard output of a backtick comma (Tad McClellan)
Initiating on perl (Eng.)
Re: Inserting \n in a string (Gerben Vos)
Re: Inserting \n in a string <merlyn@stonehenge.com>
Re: Inserting \n in a string (Matti Kinnunen)
Re: Is there a simpler syntax for: defined $a && $a ne <merlyn@stonehenge.com>
Re: Newbie Needs help! <merlyn@stonehenge.com>
Re: pattern matching problem (Jason Gloudon)
Re: Patternmatching with arrays (Tom Grydeland)
Re: Perl and Database <cnewx@eos.net>
Perl Compiler, Perl 5.004, and eval <jklein@alerts.co.il>
Perl Executables? <benndorf@fys.ruu.nl>
Re: Perl Executables? (Jeremy D. Zawodny)
perl/sqml - any help <mikee@oit.gatech.edu>
Re: Premature End Of Script Headers <mrao@trincoll.edu>
Re: Simple question. (Jeremy D. Zawodny)
Re: Simple question. <flavell@mail.cern.ch>
Re: Why don't my <<HERE documents work? Attempt #2! <rovf@earthling.net>
Re: Why don't my <<HERE documents work? Attempt #2! (Tad McClellan)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 15 Sep 1997 08:56:54 -0400
From: "Sylvain St.Germain" <sgermain@nortel.ca>
Subject: Re: An array of a list ??? I meant ... array OR a list
Message-Id: <341D3096.4A97@nortel.ca>
Sylvain St.Germain wrote:
>
> Hi,
>
> I have a function that behave like this:
>
> @Stuff = [qw/a b c d/];
> Func(@Stuff) ## This is OK
>
> but:
> @Stuff = (qw/a b c d/);
> Func(@Stuff) ## Bad...
>
> The thing is that I am using push to fill @Stuff
> and it seems that @Stuff become more like a list
> than an array albeit I've defined it as an array.
>
> Is there a way to have push resulting an array
> not a list...???
>
> FYI: This is in CGI.pm, I want to do
> ...->popup_menu(-values=>@Stuff, ...)
>
> Many Regards,
> Sylvain.
------------------------------
Date: Mon, 15 Sep 1997 11:57:15 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: Automation of NT 4.0 Workstation Installation
Message-Id: <341e2254.344826724@igate.hst.moc.com>
[cc'd automagically to original author]
On Mon, 15 Sep 1997 16:18:56 +1000, "Adriaan"
<adriaand@redflex.com.au> wrote:
>I have a task of installing Windows NT Workstation on around 50 hard drives.
>I want to be able to start the installation, and then forget about the rest
>of it (allowing for automation). I would like a script which could automate
>NT's installation process while I continue on the other ones. I can't do it
>my self because I don't understand any of the programming languages!
Hmm... I'm a little puzzled as to why you posted to a programming
group if you don't understand any programming languages.
Perhaps you can use some of Microsoft's utilities for unattended
installs of NT. Many are available on the NT workstation CD-ROM.
Good Luck,
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 15 Sep 1997 12:02:56 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: chat script
Message-Id: <342123b9.345183447@igate.hst.moc.com>
[cc'd automagically to original author]
On Fri, 12 Sep 1997 18:01:35 -0600, webmaster@startrekker.net wrote:
>Hello!
>
>I'm in the process of moving my homepage to a new server. The old
>server was WinNT, the new one is Linux. I changed all my scripts and
>they appear to run smoothly, the only script I have problems with is
>the chat script.
>
>For some time it works perfectly, but then, suddenly I get some
>"Document contains no data" messages, if I try again later,
>everything works fine again.
>
>Could ANYONE of you please help me?
>
>The script is at
>http://www.dragonfire.net/~base/chat/chat.htm
>or
>http://base.dragonfire.net/chat/chat.htm
Hm. I'd suggest rummaging through your server's error logs to see if
it recorded anything. Do you have sufficient error checking in your
scripts (are you checking the return values on most calls)?
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 15 Sep 1997 09:13:50 +0100
From: Shaun O'Shea <lmisosa@eei.ericsson.se>
Subject: Duplicate elements in arrays
Message-Id: <341CEE3E.6276@eei.ericsson.se>
Does anyone happen to have a quick script to remove duplicate elements
from an array of numbers so that you are only left with one of each
number?
Any offerings appreciated
--
***********************************************************************
Shaun O'Shea,
lmisosa@eei.ericsson.se
OR
shaunos@orca.ucd.ie
***********************************************************************
------------------------------
Date: Mon, 15 Sep 1997 09:00:36 GMT
From: ddurand@hpplus15.cern.ch (Jean-Damien Durand)
To: Shaun O'Shea <lmisosa@eei.ericsson.se>
Subject: Re: Duplicate elements in arrays
Message-Id: <EGJL10.Ks6@news.cern.ch>
> Does anyone happen to have a quick script to remove duplicate elements
> from an array of numbers so that you are only left with one of each
> number?
I suggest you to read the Unix Review Column 11 at:
http://w3.stonehenge.com/merlyn/UnixReview/col11.html
Cheers, Jean-Damien.
--
*******************************************************
* Jean-Damien Durand (Jean-Damien.Durand@cern.ch) *
* www : http://wwwcn.cern.ch/~ddurand/ *
*******************************************************
------------------------------
Date: Mon, 15 Sep 1997 06:33:13 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Duplicate elements in arrays
Message-Id: <pd6jv5.tk.ln@localhost>
Shaun O'Shea (lmisosa@eei.ericsson.se) wrote:
: Does anyone happen to have a quick script to remove duplicate elements
: from an array of numbers so that you are only left with one of each
: number?
: Any offerings appreciated
Perl FAQ, part 4:
"How can I extract just the unique elements of an array?"
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 15 Sep 1997 12:27:26 GMT
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Free Perl CGI Script
Message-Id: <Pine.A41.3.95a.970915142615.37720H-100000@sp065>
On Sun, 14 Sep 1997 michael.nilsson@maze.se wrote:
> In article <Pine.GSO.3.96.970914090639.17242N-100000@julie.teleport.com>,
> Tom Phoenix <rootbeer@teleport.com> wrote:
> >
> > On Sat, 13 Sep 1997 michael.nilsson@maze.se wrote:
> >
> > > I am aware of the potentially problem if some one that uses a proxy does
> > > a failed log ins and block out the proxy address.
> >
> > So it's okay with you that any AOL user can block out all of the others?
> > :-)
>
> I don't now much about AOL but most of the ISP's use dynamic IP addresses
> with means that you get ever changing IP address every time you log in.
What does this have to do with the IP address of their proxy???
------------------------------
Date: 14 Sep 1997 11:52:11 GMT
From: burt@ici.net (Burt Lewis)
Subject: Re: Help with perl!! Please!!
Message-Id: <5vgj5b$1dc$1@bashir.ici.net>
This would work just like a page hit counter. You would have a seperate file
that stores the latest number. The first thing your script would do is to
read the number, increment it by one, then at the end of your script, you
write the new number to the file. Make sense?
Hope this helps.
Burt Lewis
www.eastonmass.com
In article <01bcbf99$1f1b0fe0$048ec7cf@azno.dgsys.com>, kpahlevan@hotmail.com
says...
>
>Hi,
>
>I have successfully created a script that takes the input of a form and
>puts it into another file. The file that it puts the information in is
>depended on the user's input into the form. Anyways, the scripts works
>fine, but I would like to know how many people are filling out the form.
>How would I go about adding a number to a variable everytime someone fills
>out the form. If you want, you can take a look at the modem players list by
>going to http://www.mystation.com/ram and clicking on the modem players
>list icon on the left nav. bar once you are there. Please take a look and
>tell me how I can keep track of the number of people filling out the form.
>Thanks a lot!
>
>- Kaveh Pahlevan
>- Red Alert Madness
>- http://www.mystation.com/ram
------------------------------
Date: Mon, 15 Sep 1997 06:31:52 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: How to redirect standard output of a backtick command
Message-Id: <8b6jv5.tk.ln@localhost>
Pierre BERGDOLT (Pierre.Bergdolt@ansf.alcatel.fr) wrote:
: Hi perl fans,
: I'm trying to redirect the standard output of a perl backtick command
: (wich is run in a subshell) to the standard output of my perl script.
: A solution to get the output of the backtick command to standard output
: is to write:
: @log=`cmd`;
: print @log;
: but in this case I had to wait till `cmd` ends to print what's in @log
: variable. And I don't want to wait.
: Anyone got an idea? Thanks to answer me by e-mail.
system "cmd";
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 15 Sep 1997 08:52:15 GMT
From: "Arturo Gonzalez Rivera (Eng.)" <arturogr@gorsa.net.mx>
Subject: Initiating on perl
Message-Id: <01bcc1b5$198acf20$34a1f9cf@Director.gorsa.net.mx>
Hi, I4ve hear a little about perl... I want i great help, i really need it.
I need to display a WWW page containing the time a user had connected. I
have all that information in a tacacs log file... and i need to process
that information in order to give individually the information to my users
using his/her username and password.
I need to give the opportunity to my users to change his/her password at
anytime, in order to change the tacacs password automatically and the Win
NT 4.0 user password.
Is there any quick idea or program to consult and put this to works as soon
as possible ?
Could you help me to do this ?
Thank all of you.
arturogr@bigfoot.com
Arturo Glez.
------------------------------
Date: 15 Sep 1997 10:55:53 GMT
From: gerben@cs.vu.nl (Gerben Vos)
Subject: Re: Inserting \n in a string
Message-Id: <5vj47p$rnv$1@star.cs.vu.nl>
Matt Weber writes:
>I want to insert a new line (\n) every 75 charectors in a string...any
>suggestions? I just don't know what function to use.
# Untested code.
$result = "";
while (length $string > 75)
{
$result .= substr($string, 0, 75) . "\n";
$string = substr($string, 75);
}
$result .= $string;
g e r b e n @ c s . v u . n l . . . . . . . . . . . . G e r b e n V o s <><
Join the Coalition Against Unsolicited Commercial Email! http://www.cauce.org/
The hedgehog can never be buggered at all.
------------------------------
Date: 15 Sep 1997 04:43:29 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: gerben@cs.vu.nl (Gerben Vos)
Subject: Re: Inserting \n in a string
Message-Id: <8c202q4xb2.fsf@gadget.cscaper.com>
>>>>> "Gerben" == Gerben Vos <gerben@cs.vu.nl> writes:
Gerben> Matt Weber writes:
>> I want to insert a new line (\n) every 75 charectors in a string...any
>> suggestions? I just don't know what function to use.
Gerben> # Untested code.
Gerben> $result = "";
Gerben> while (length $string > 75)
Gerben> {
Gerben> $result .= substr($string, 0, 75) . "\n";
Gerben> $string = substr($string, 75);
Gerben> }
Gerben> $result .= $string;
Untested *shorter* code :-):
$string =~ s/(.{1,75})/$1\n/gs;
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 351 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: 15 Sep 1997 11:01:18 +0300
From: matti@universe.pc.helsinki.fi (Matti Kinnunen)
Subject: Re: Inserting \n in a string
Message-Id: <lz7mcjc8fl.fsf@universe.pc.helsinki.fi>
I want to insert a new line (\n) every 75 charectors in a string...any
suggestions? I just don't know what function to use.
MW
http://www.weberworld.com
My regular expression translator says:
**************
universe:~/Haskell/Nancy$ ROutput
Give a description for me to translate
> Find 75 characters and assign them to $var. Replace them with $var and "\n" globally
English:
Find 75 characters and assign them to $var. Replace them with $var and "\n" globally.
Haskell:
subst </ var@(.{75})/${var}\n/Global_Match>
Perl:
s/(.{75})/$1\n/g
**************
Voila ! There you have the desired reg.exp both in Haskell and Perl. Automagically !
Hope this helps.
- matti -
--
* matti.kinnunen@helsinki.fi *
* http://universe.pc.helsinki.fi/~matti/contact.html *
* +358-(0)40-593 50 91 but try first +358-(0)9-191 23978 *
------------------------------
Date: 15 Sep 1997 04:24:05 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: Russell Odom <rjo100@york.ac.uk>
Subject: Re: Is there a simpler syntax for: defined $a && $a ne ''
Message-Id: <8c90wy4y7e.fsf@gadget.cscaper.com>
>>>>> "Russell" == Russell Odom <rjo100@york.ac.uk> writes:
Russell> The Llama book, 1st Ed, p12 (footnote), says undef 'looks
Russell> like an empty string to the eq operator'. Therefore you could
Russell> use...
Russell> $a = 1 if $a eq '';
Or, to be Way Cooler (as we say on the left coast):
$a ||= 1;
Russell> HTH,
EIEIO!
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 351 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: 15 Sep 1997 04:50:00 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: "Mr. Ozette Brown" <webmaster@imaginative-creations.com>, dunn.l.g@wcsmail.com
Subject: Re: Newbie Needs help!
Message-Id: <8cyb4y3ifr.fsf@gadget.cscaper.com>
>>>>> "Ozette" == Ozette Brown <webmaster@imaginative-creations.com> writes:
Ozette> Yes,
Ozette> Try to use the SYSTEM function.
Ozette> Example: system 'cd..' and/or print system "dir".
No. system "cd ..." is generally useless. You've launched a child
shell, told it where to go, but then it exits. This has no impact on
the Perl process at all.
Ozette> Consult a good Perl book/manual.
Always my favorite. Of course, I recommend only the books that Larry
Wall has personally reviewed (hint: they have animals on them :-).
Ozette> Hope this helps. Good luck.
Well... not exactly, so let's continue by answering the original query:
Ozette> Larry G. Dunn wrote:
>> I am a "newbie" when it comes to PERL progamming. What I need
>> to be able to do is to change into a directory without knowing
>> ahead of time what the name of the directory is going to be.
>>
>> In other words, I want to be able to do something like:
>>
>> cd newdirectory*
Well, I think this'll get you closer:
# first, get the name
@matches = <newdirectory*>;
# if there's more or less than one match, die
die "ambig directory match: @matches" if @matches > 1;
die "no such dir: newdirectory*" if @matches < 1;
# now do it
chdir $matches[0] or die "Cannot chdir to $matches[0]: $!";
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 351 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: 15 Sep 1997 13:16:51 GMT
From: jgloudon@bbn.com (Jason Gloudon)
Subject: Re: pattern matching problem
Message-Id: <5vjcg3$ga4$1@daily.bbnplanet.com>
In article <5viak0$kt3@nuscc.nus.sg>, wings <xuchu@iscs.nus.edu.sg> wrote:
>Hi, can someone help me with this pattern matching problem? what i wanna do is
>to extract the contents between two certain tags. look at this example:
>
><date>970915</date>line test test
>abcdef<date>970916</date>
>test test<date>123
>970717
>test test test
></date>
>example<date>
>test 97-07-18 </date>
>example
>
>Say i want to print all b/w <date> and </date>. but using s/<date>(.*?)<\date>/
>and print $1 will only get "970915" and "970916" since other dates tags pairs are
>not within the same line. however, using
> while (($_ = $lines) !~ /<date>/i) {};
> while (($_ = $lines) !~ /<\/date>/i { print;}
>wont print the "123" and "test 97-07-18".
>
>is there any brain who can teach me how to solve this? thx.
You want to read the entire file into a scalar, and use s//m.
Jason Gloudon
------------------------------
Date: 15 Sep 1997 09:23:08 GMT
From: tom@mitra.phys.uit.no (Tom Grydeland)
Subject: Re: Patternmatching with arrays
Message-Id: <slrn61pvjr.tfe.tom@mitra.phys.uit.no>
On Sun, 14 Sep 1997 12:36:40 +0100,
Russell Odom <rjo100@york.ac.uk> wrote:
> You'll need to escape the special characters (< and >) in that regexp with
> \.
No you don't. < and > are not special.
> Russ
> PS I'm new to perl myself, so expect some of the above to be picked apart
> by someone. However, it does work.
Escaping non-special non-alpha characters doesn't hurt. That makes it
easier to implement the quotemeta builtin; it simply backwhacks
everything non-alpha. In the case of <, >, !, % etc, it isn't necessary.
--
//Tom Grydeland <Tom.Grydeland@phys.uit.no>
------------------------------
Date: Mon, 15 Sep 1997 06:36:33 -0400
From: Cecil X New <cnewx@eos.net>
Subject: Re: Perl and Database
Message-Id: <341D0FB1.399D@eos.net>
Jun Zhuang wrote:
>
> I have try to use some database modules for Perl5. For instance,
> Sprote. But I found Sprite only support simple format such as:
> name age ID
> Joe 25 007
> Mary 18 009
> which first line has to be the line contain definitions.
>
> But I have some scientific datbase such as:
>
> Record_009 mouse_A DNA clone
> Date cloned 090197
> Cloner Dr. John Smith
> DNA sequence atgcggggggatcgagtcgggggggggggggggccccctaaaaaaaaaa
> actecccccccccccccctttttttttttgactagggggggggtccccccctttttttttttaa
> Animal Species Mus Domestic
> Drug tested AK45
>
> Which every first word of the line is the definition.
>
> Is there any more complicated database module for perl5?
I have used an array of hashes for this type of problem. That is, each
array element is a hash containing the keys (for example, "Drug tested")
and values ("AK45"). I wrote my own read/write routines to dump to disk
upon program completion and to load from disk at startup. If your
program is not maintaining the data, then you only have to worry about
importing the above 'textual' format.
Hope this helps.
---
Home Page:http://www2.eos.net/cnew
Email Address: cnew at node:eos.net
------------------------------
Date: Mon, 15 Sep 1997 09:33:55 +0200
From: Joe Klein <jklein@alerts.co.il>
To: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Subject: Perl Compiler, Perl 5.004, and eval
Message-Id: <Pine.SOL.3.95.970915091645.3009J-100000@cain.alerts.co.il>
I know the alpha compiler is alpha, but I was still wondering if anybody
has some kind of patch so that Perl 5.004 programs that use eval don't
dump core.
For example, the following test program compiled and ran on 5.003, but
core dumps when trying to run the compiled version. I did do a 'make
realclean' and re-built all the components of the A3 compiler, but it
didn't help. I'm running Perl 5.004_01. If someone is aware of this
problem and knows that the compiler works with the latest and greatest
5.004_03, I'd be more than happy to upgrade.
My OS is Solaris 2.4.
Thanks,
Joe Klein
News Alert
Test Program is
===============
eval "$x = 'joe'";
Compiled with
=============
perl -MO=C t.pl > t.c
perl -S cc_harness -O -o t t.c
Which Yielded
=============
t.pl syntax OK
cc -I/usr/local/include -I/usr/local/lib/perl5/sun4-solaris/5.00401/CORE
-O -o t t.c -L/usr/local/lib -L/opt/gnu/lib
-L/usr/local/lib/perl5/sun4-solaris/5.00401/CORE -lperl -lsocket -lnsl
-ldb -ldl -lm -lc -lcrypt
(above line folded by mailer)
------------------------------
Date: Mon, 15 Sep 1997 11:43:00 GMT
From: pixwix <benndorf@fys.ruu.nl>
Subject: Perl Executables?
Message-Id: <341D1F44.73A4@fys.ruu.nl>
Does anyone know of an option to create an executable of a perl script?
I want to use a cool program on the web for my pages, but since I'm
having a little argue with someone who is claiming this site (the
support pages of a basketball club) I don't want the script to be
readable.
The only way I can think of to avoid someone copying the source and
reusing it without my permission is creating somekind of binary
executable.
Jaap Voets
------------------------------
Date: Mon, 15 Sep 1997 13:04:55 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: Perl Executables?
Message-Id: <341d2f15.348091268@igate.hst.moc.com>
[cc'd automagically to original author]
On Mon, 15 Sep 1997 11:43:00 GMT, pixwix <benndorf@fys.ruu.nl> wrote:
>Does anyone know of an option to create an executable of a perl script?
There's a Perl compiler in testing.
>I want to use a cool program on the web for my pages, but since I'm
>having a little argue with someone who is claiming this site (the
>support pages of a basketball club) I don't want the script to be
>readable.
You could always obfuscate the code. :-)
Just kidding...
>The only way I can think of to avoid someone copying the source and
>reusing it without my permission is creating somekind of binary
>executable.
Then you've overlooked Copyright laws.
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 15 Sep 1997 08:37:28 -0400
From: Michael J Estler <mikee@oit.gatech.edu>
Subject: perl/sqml - any help
Message-Id: <341D2BFB.6415@oit.gatech.edu>
can anyone point me toward a perl/sqml tutorial or maybe send me some
examples of how that code would look.
thanks
####################################################
\ |_) | __|
|\/ | | | / -_) _|
_| _|_|_\_\\___| ___|
####################################################
Michael J Estler
mikee@oit.gatech.edu
404.894.6727
------------------------------
Date: Mon, 15 Sep 1997 07:18:55 -0400
From: Mukund Rao <mrao@trincoll.edu>
To: "Capt. COBOL" <slundy@mer.cioe.com>
Subject: Re: Premature End Of Script Headers
Message-Id: <Pine.SOL.3.95.970915071757.6443C-100000@shakti.cc.trincoll.edu>
Did you tail error_log, perhaps there were more error messages recorded
there in addition to "Premature end of headers". Sometimes when I note
this message, it is due to wrong path locations of cgi-lib.pl.
Hope this helps.
On Mon, 15 Sep 1997, Capt. COBOL wrote:
: What does this mean and where should I look for the error. It sounds
: like it's not processing the headers correctly, but I'm not sure,
: kinda new to perl and cgi...thanks for any help
:
:
_ _ ____
| \ / | \ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
| \/ | () / Mukund Rao | Trinity College
| | |\ \ "visualize whirled peas" | webmaster@trincoll.edu
|_|\/|_|_| \_) =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
------------------------------
Date: Mon, 15 Sep 1997 11:55:45 GMT
From: zawodny@hou.moc.com (Jeremy D. Zawodny)
Subject: Re: Simple question.
Message-Id: <341d2226.344780518@igate.hst.moc.com>
[cc'd automagically to original author]
On Mon, 15 Sep 1997 12:16:52 +0800, Bremen Lee <bremenlee@12345.hk>
wrote:
>Hi,
>
>How can I write a simple perl script to check if the file is
>modified exactly today.
Have a look at the stat() function in the Perl manual pages.
Jeremy
--
Jeremy Zawodny
Internet Technology Group
Information Technology Services
Marathon Oil Company, Findlay Ohio
http://www.marathon.com/
Unless explicitly stated, these are my opinions only--not those of my employer.
------------------------------
Date: Mon, 15 Sep 1997 12:33:49 GMT
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Simple question.
Message-Id: <Pine.A41.3.95a.970915142839.37720I-100000@sp065>
On Mon, 15 Sep 1997, Bremen Lee wrote:
> How can I write a simple perl script to check if the file is
> modified exactly today.
"Exactly today" in which timezone? Your standard time, your daylight
saving time, UTC? If you observe daylight saving time, then remember
the file might have been modified in a different timezone than the one
you're checking it in. There are routines to handle all these things,
but if you don't ask the right question you can't expect the right
answer.
------------------------------
Date: 15 Sep 1997 09:54:52 +0200
From: Ronald Fischer <rovf@earthling.net>
Subject: Re: Why don't my <<HERE documents work? Attempt #2!
Message-Id: <xz2pvqbroz7.fsf@uebemc.siemens.de>
>>>>> On 12 Sep 1997 08:53:32 GMT
>>>>> "TG" == Tom Grydeland <tom@mitra.phys.uit.no> wrote:
TG> On 12 Sep 1997 08:28:55 +0200,
TG> Ronald Fischer <rovf@earthling.net> wrote:
TG>
>> Try this:
>>
>> print <<EOF;
>> This is a test!
>> EOF; # <------ !!!!!
>> exit;
TG>
TG> Rubbish. There should absolutely not be a semicolon on the marked line.
TG> This does *not* work
Tom is right. Sorry about that.
--
Ronald Fischer (rovf@Earthling.net) (PGP public key available)
http://ourworld.compuserve.com/homepages/ronald_fischer/
[When posting a followup, mailing a courtesy copy is fine, provided it is
clearly marked as such.]
------------------------------
Date: Mon, 15 Sep 1997 06:27:10 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Why don't my <<HERE documents work? Attempt #2!
Message-Id: <e26jv5.tk.ln@localhost>
Anagrams of the Word 'A' (jefpin@bergen.org) wrote:
: >#!/user/local/bin/perl -w
: >use strict; # 'cause it's in the FAQ :-)
: >print <<EOF;
: >This is a test!
: >EOF
: >exit;
The above is correct syntax.
It is two statements (print and exit).
This is the same as:
print "\nThis is a test!\n"; exit;
See the perldata man page (search for 'here-doc').
: correct syntax i:
You have a strange definition of 'correct' then.
The below generates a syntax error for me...
: #!/user/local/bin/perl -w
: use strict; # 'cause it's in the FAQ :-)
: print <<EOF
: This is a test!
: EOF
: exit;
This is the same as:
print "\nThis is a test!\n" exit;
Please don't confuse people further by posting untested and incorrect code.
: notice there is NO semicolon after the <<EOF
Which is often wrong. Most times you DO want the semicolon there.
There is an example in the perldata man page of when you might not
want the semicolon there.
: Got a JavaScript/CGI/Perl question or problem? Let me know!
<g>
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
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 1026
**************************************
