[11242] in Perl-Users-Digest
Perl-Users Digest, Issue: 4842 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Feb 7 17:07:27 1999
Date: Sun, 7 Feb 99 14:00:23 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 7 Feb 1999 Volume: 8 Number: 4842
Today's topics:
Adding a module <jcorbin@apci.net>
can't call "writeblock" <dwebb@cvalley.net>
Re: Can't locate loadable object for module Win32::User <gellyfish@btinternet.com>
Re: cookies pointers <gellyfish@btinternet.com>
Re: CREATING TEXT TABLE <gellyfish@btinternet.com>
Re: CREATING TEXT TABLE (Abigail)
Re: Determining time, date, and month with CGI (Newbie (Abigail)
Re: Error compiling module <gellyfish@btinternet.com>
Re: Get current URL (Abigail)
Re: get the path of a binary as hashed in memory <gellyfish@btinternet.com>
Re: get the path of a binary as hashed in memory (Ilya Zakharevich)
Re: get the path of a binary as hashed in memory <gellyfish@btinternet.com>
Getting a Redirected HTML Page <mwatkins@promotion4free.com>
Re: Help - Why doesn't this work? (Abigail)
Re: help me (Abigail)
Re: How do I use CGI.pm to fetch parameters? <bkrichar@unity.ncsu.edu>
Re: How do I use CGI.pm to fetch parameters? <bencas@bigfoot.com>
Re: How do I use CGI.pm to fetch parameters? <gellyfish@btinternet.com>
Re: How do I use CGI.pm to fetch parameters? <gellyfish@btinternet.com>
Re: How do I use CGI.pm to fetch parameters? <bencas@bigfoot.com>
Re: keeping track of members logged in (Abigail)
ms-env.pl Released (Dave Cross)
Perl sockets example? (Ken Williams)
Re: Perl sockets example? <gellyfish@btinternet.com>
Praise the Lord and pass the Perl <james@mauldin.nu>
Pushing a file to a user from CGI script <brad@langhorst.com>
Pushing a file to a user from CGI script <brad@langhorst.com>
Re: Redirecting STDOUT (Mark-Jason Dominus)
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 7 Feb 1999 14:36:46 -0000
From: "John Corbin" <jcorbin@apci.net>
Subject: Adding a module
Message-Id: <36bdf8e7.0@queeg.apci.net>
I have Perl 5.004_04 for Win32 on a Windows 95 machine. I need to use the
Net::Finger module. I went to CPAN and downloaded it. It extracted to it's
own directory. I did a perl MakeFile.pl and it created a MakeFile, now what?
I know in Unix I would probably do a make, then make install....what comes
next in Windows? ANy help is much appreciated....I am a newbie to Win32 Perl
--
John
jcorbin@apci.net
------------------------------
Date: Sun, 7 Feb 1999 15:00:56 -0600
From: "Dave Webb" <dwebb@cvalley.net>
Subject: can't call "writeblock"
Message-Id: <79kuv4$sp2$1@einstein.greenhills.net>
I have a win32 system running activeperl, with PWS and active server pages
installed. In trying to run the aspsamples (perl/eg/aspsamples), just about
each one "chokes" with a message resembling the following (this one was from
the "loops" sample, but "httpvar" and "hello" both gave similar messages...)
*********
$Response->writeblock(0); #First example of the While keyword error
'80004005'
Can't call method "writeblock" on an undefined value.
?
*********
obviously something fundamental is wrong if it can't do a simple [in
vbscript <% response.write %>] can somebody shed some light on this?
------------------------------
Date: 7 Feb 1999 20:05:23 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Can't locate loadable object for module Win32::UserAdmin
Message-Id: <79krm3$3o1$1@gellyfish.btinternet.com>
On Sun, 7 Feb 1999 08:57:25 -0700 Michael Reinhart wrote:
> Hi all... please don't flame me...I'm trying to learn.
>
That all depends ;-}
> The script contains this at line 5:
>
> use Win32::UserAdmin;
>
> and when I run it, I get this message:
>
> Can't locate loadable object for module Win32::UserAdmin in @INC (@INC
> contains: C:\Perl\lib C:\Perl\site\lib .) at C:\PERL\scripts\userperm.pl
> line 5 BEGIN failed--compilation aborted at C:\PERL\scripts\userperm.pl
> line5
>
> Am I correct in assuming that the Win32 in this line refers to the Win32
> directory beneath C:\perl\lib ? ... and that UserAdmin refers to the file
> UserAdmin.pm in that directory? ... my search path includes C:\perl\lib, if
> so, how come my script isn't finding this library?
>
It is finding the library's .pm file however what is complaining about is
some binary XS component of this module - a DLL or somesuch. Was this
module installed correctly using PPM or where the files simply copied to
where you thought they should go.
With the majority of modules it is always recommended that you should use
the prescribed method of installation otherwise you will find yourself in
trouble in most cases.
I would attempt to reinstall the module using PPM.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Feb 1999 20:16:54 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: cookies pointers
Message-Id: <79ksbn$3ou$1@gellyfish.btinternet.com>
[removed the no-longer-existent comp.lang.perl from groups]
In comp.lang.perl.misc dan <nospam-seallama@mailcity.com> wrote:
> can somebody give me a quick rundown on how to read and write cookies
> with perl, or refer me to some documentation? thanks
>
Use the CGI.pm module that is standard with all recent Perl distributions.
The excellent documentation for this module has a section entitled:
NETSCAPE COOKIES
Which should have all of the information you require.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Feb 1999 20:11:00 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: CREATING TEXT TABLE
Message-Id: <79ks0l$3o9$1@gellyfish.btinternet.com>
On Sun, 07 Feb 1999 16:11:37 GMT bababozorg@aol.com wrote:
> hi
> i am making a email which takes the data from the form (<input type=text ...>)
> and put each data to the specific fields one one table that in email
> for example:
>
> NAME_______AGE_________TEL__________FAX____
> hamed 17 000000000 00000000000
> mike 15 000001010 212121212
> aa 20 252525252 54848488848
>
>
> these all be in a text format.
> i dont know how to creat the space between the fields?
> can anyone help me?
You have at least two choices:
Use format as described in the perlform manpage
Use (s)printf
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Feb 1999 20:41:48 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: CREATING TEXT TABLE
Message-Id: <79ktqc$k87$1@client2.news.psi.net>
Bababozorg (bababozorg@aol.com) wrote on MCMLXXXVI September MCMXCIII in
<URL:news:19990207110639.26455.00000998@ng25.aol.com>:
{}
{} i dont know how to creat the space between the fields?
print ' ';
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: 7 Feb 1999 20:48:52 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Determining time, date, and month with CGI (Newbie Question)
Message-Id: <79ku7k$k87$2@client2.news.psi.net>
Steven T. Henderson (stevenhenderson@prodigy.net) wrote on MCMLXXXV
September MCMXCIII in <URL:news:X9Pu2.50290$641.28977@news.san.rr.com>:
__ function you want is called localtime.
__
__ it can be a pain to use.
Really? In which sense?
__ check out http://www.stevenhenderson.com for a
__ pointer to the dates.pl library i wrote to streamline common functions. its
__ free, enjoy!
But it's in MSword format, and hence a pain to use.
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: 7 Feb 1999 19:11:59 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Error compiling module
Message-Id: <79kohv$3gb$1@gellyfish.btinternet.com>
On Fri, 05 Feb 1999 17:16:15 +1100 Paul Lim wrote:
> I seem to be getting this error a lot when installing modules:
>
> /usr/lib/perl5/5.00502/i386-linux/CORE/perl.h:2434: redefinition of `union semun'
>
> As a result I can't seem to install most modules... :(
> I upgraded the perl that came with Redhat 5.2 to 5.00502 (from 5.004)
>
> After I did the perl upgrade it couldn't access the perl modules. In particular I'm trying to install TkApache and it can't find Tk.pm, even though I knwo it's there. ????
>
In perl.h there is a segment :
#ifdef HAS_SEM
# include <sys/ipc.h>
# include <sys/sem.h>
# ifndef HAS_UNION_SEMUN /* Provide the union semun. */
union semun {
int val;
struct semid_ds *buf;
unsigned short *array; };# endif
...
The line:
#ifndef HAS_UNION_SEMUN
is supposed to prevent what you are experiencing from happening - the
'union semun' having been declared in 'sys/sem.h' ( actually 'linux/sem.h'
on my system ) and thus (hopefully) you should have HAS_UNION_SEMUN
defined in config.h in the same directory as perl.h -it would appear that
something is wrong with config.h here - It seems probable that there was
a problem when you ran Configure - you could edit config.h to define
HAS_UNION_SEMUN or (better) you should reconfigure and rebuild your Perl
paying special attention to the bits where it mentions SYSVIPC.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Feb 1999 20:50:55 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Get current URL
Message-Id: <79kubf$k87$3@client2.news.psi.net>
Leslie Perjes (lezli@lezlisoft.com) wrote on MCMLXXXVI September MCMXCIII
in <URL:news:79k97j$oqu$1@newsgate.elender.hu>:
!! Hello,
!!
!! I would like to point more than domain names to one IP number. After I would
!! like to separate them to several starting pages. Is this possible by Perl?
Perl has nothing to do with that.
!! SERVER_NAME environent variabe will get correctly different domain names?
Perl has nothing to do with that.
!! Please help, and copy the answers to my e-mail address. PHP and Phyton
!! availabe, but I would like to use Perl is possible.
You might want to ask in a server group. Your questions are irrelevant here.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: 7 Feb 1999 18:49:14 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: get the path of a binary as hashed in memory
Message-Id: <79kn7a$3f4$1@gellyfish.btinternet.com>
On Fri, 5 Feb 1999 12:02:24 -0000 Avshi Avital wrote:
> hi all,
> in the hope that it isn't too obvious.
> when typing:
> which [cmd]
> on the unix prompt i get the path of [cmd] as hashed in internal mem. same
> with 'where' (is that right?);
> how do I do that from within perl?
> this BTW, doesn't work (and seems like a work-around anyway):
> $p=`which [cmd]`
The following will print what you will get if you type a command without
a full path at the command line - it *does not* make any attempt to use
the shells internal hashing (if indeed it exists) but is functionally
similar to 'which'.
#!/usr/bin/perl
$command = shift;
for ( split /:/, $ENV{PATH} )
{
$path = $_ . '/' . $command;
if (-x $path )
{
print $path,"\n";
last;
}
}
Hope that helps
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Feb 1999 20:13:09 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: get the path of a binary as hashed in memory
Message-Id: <79ks4l$7tq$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Jonathan Stowe
<gellyfish@btinternet.com>],
who wrote in article <79kn7a$3f4$1@gellyfish.btinternet.com>:
> #!/usr/bin/perl
>
> $command = shift;
>
> for ( split /:/, $ENV{PATH} )
Should be $Config{path_sep}.
perl -V:path_sep
> $path = $_ . '/' . $command;
I do not know whether shells/PATHs exist on MACs, VMSs, MVSs, but to
be extra safe, I would use File::Spec::catfile() here.
Ilya
------------------------------
Date: 7 Feb 1999 21:28:40 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: get the path of a binary as hashed in memory
Message-Id: <79l0i8$415$1@gellyfish.btinternet.com>
On 7 Feb 1999 20:13:09 GMT Ilya Zakharevich wrote:
> [A complimentary Cc of this posting was sent to Jonathan Stowe
> <gellyfish@btinternet.com>],
> who wrote in article <79kn7a$3f4$1@gellyfish.btinternet.com>:
>> #!/usr/bin/perl
>>
>> $command = shift;
>>
>> for ( split /:/, $ENV{PATH} )
>
> Should be $Config{path_sep}.
>
> perl -V:path_sep
>
>> $path = $_ . '/' . $command;
>
> I do not know whether shells/PATHs exist on MACs, VMSs, MVSs, but to
> be extra safe, I would use File::Spec::catfile() here.
And of course on those systems that share the file extension legacy
of MS-DOS one would have to determine the order of precedence of those
extensions and check for each in turn - however there does not appear to
be a module that will deal with this in a platform independent manner -
perhaps what is required is a File::Searchenv module that works in a
manner similar to that of the similarly named function available in some
C library in the MS world.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 7 Feb 1999 17:53:14 -0000
From: "Mike Watkins" <mwatkins@promotion4free.com>
Subject: Getting a Redirected HTML Page
Message-Id: <ux$94LsU#GA.309@ntawwabp.compuserve.com>
Hi there,
I'm currently making a URL submission script which will submit to serveral
FFA pages. The actual submission works fine, but I would like to be able to
verify that the link was actually submitted a little better. Most FFA
scripts will redirect the user, instead of give any actual output, so $HTML
= $reponse->content() doesn't really work.
I've finally figured out how to tell if the script redirects the user or
not. I do this will the following code:
use HTTP::Status;
my $scode = $response->code()
if (is_redirect($scode)) { ... }
I would like the script to check the page it gets redirected to for a
pre-defined block of text, like "Thanks For The Link". My question is, how
do I get the content of the web page which the FFA script redirects to?
Any help would be much appreciated,
Mike Watkins
------------------------------
Date: 7 Feb 1999 20:53:38 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Help - Why doesn't this work?
Message-Id: <79kugi$k87$4@client2.news.psi.net>
Egon Kraaikamp (kraaikae@xs4all.nl) wrote on MCMLXXXV September MCMXCIII
in <URL:news:79ii3u$ng9$1@news2.xs4all.nl>:
-- Hi,
--
-- I'm trying to import a flat, character (#) delimited file into a
-- two-demensional array (records / field-values).
-- I've tried many configuration (array's and hashes) on my local Perl (Windows
-- NT)
--
-- Everytime I've uploaded the file to my internet server its fails to execute;
-- "Internal Server error".
What's the message in your errorlog?
--
-- The script:
--
-- #!/usr/bin/perl
Where's the -w? Where's the -T? Where's the "use strict;"?
-- print "Content-type: text/plain\n\n";
--
-- $DBCat = ();
-- open ( INPUT, "cat.db" );
Where's the check on the return value?
Abigail
--
perl -MTime::JulianDay -lwe'@r=reverse(M=>(0)x99=>CM=>(0)x399=>D=>(0)x99=>CD=>(
0)x299=>C=>(0)x9=>XC=>(0)x39=>L=>(0)x9=>XL=>(0)x29=>X=>IX=>0=>0=>0=>V=>IV=>0=>0
=>I=>$r=-2449231+gm_julian_day+time);do{until($r<$#r){$_.=$r[$#r];$r-=$#r}for(;
!$r[--$#r];){}}while$r;$,="\x20";print+$_=>September=>MCMXCIII=>()'
------------------------------
Date: 7 Feb 1999 21:01:06 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: help me
Message-Id: <79kuui$k87$5@client2.news.psi.net>
brian (baj1@essrl.wustl.edu) wrote on MCMLXXXV September MCMXCIII in
<URL:news:36BCB293.874@essrl.wustl.edu>:
,, i have a webpage that searches a database and shows the user a list
,, of entries that match the criteria searched for. it used to work
,, but i seemed to have screwed it up and now it gives me a 'bad name'
,, error. what does 'bad name' mean? the page is www.essrl.wustl.edu
>From perldiag:
Bad name after %s::
(F) You started to name a symbol by using a package
prefix, and then didn't finish the symbol. In
particular, you can't interpolate outside of quotes, so
$var = 'myvar';
$sym = mypack::$var;
is not the same as
$var = 'myvar';
$sym = "mypack::$var";
Abigail
--
sub _'_{$_'_=~s/$a/$_/}map{$$_=$Z++}Y,a..z,A..X;*{($_::_=sprintf+q=%X==>"$A$Y".
"$b$r$T$u")=~s~0~O~g;map+_::_,U=>T=>L=>$Z;$_::_}=*_;sub _{print+/.*::(.*)/s}
*_'_=*{chr($b*$e)};*__=*{chr(1<<$e)};
_::_(r(e(k(c(a(H(__(l(r(e(P(__(r(e(h(t(o(n(a(__(t(us(J())))))))))))))))))))))))
------------------------------
Date: 7 Feb 1999 18:21:22 GMT
From: Brian Keith Richards <bkrichar@unity.ncsu.edu>
Subject: Re: How do I use CGI.pm to fetch parameters?
Message-Id: <79klj2$omf$1@uni00nw.unity.ncsu.edu>
el_pollo_diablo <bencas@bigfoot.com> wrote:
: I'm trying to use cgi.pm to fetch parameters passed to my script using an
: SSI call. My code is:
: #!/usr/local/bin/perl
: use CGI;
: $query = new CGI;
: $county = $query->param('county');
you need
print $query->header();
print $query->start_html('TITLE_GOES_HERE');
: print $county;
: print "hello";
print $query->end_html();
that should do it assuming your html is good too
--
-=-Brian
------------------------------
Date: Sun, 7 Feb 1999 18:52:21 -0000
From: "el_pollo_diablo" <bencas@bigfoot.com>
Subject: Re: How do I use CGI.pm to fetch parameters?
Message-Id: <79knfh$r7e$1@news4.svr.pol.co.uk>
I tried it out but I'm still running into problems. I altered the code to :
#!/usr/local/bin/perl
use CGI;
$query = new CGI;
$county = $query->param('county');
print $query->header();
print $query->start_html('TITLE_GOES_HERE');
print $county;
print "hejkllo";
print $query->end_html();
And the HTML that calls is this:
<!--#exec cgi="/cgi-local/headlines.pl?county=devon"-->
Where am I going wrong?
Thanks for any help
--
---
Ben
Brian Keith Richards <bkrichar@unity.ncsu.edu> wrote in message
news:79klj2$omf$1@uni00nw.unity.ncsu.edu...
>el_pollo_diablo <bencas@bigfoot.com> wrote:
>: I'm trying to use cgi.pm to fetch parameters passed to my script using an
>: SSI call. My code is:
>
>: #!/usr/local/bin/perl
>: use CGI;
>: $query = new CGI;
>: $county = $query->param('county');
>you need
>print $query->header();
>print $query->start_html('TITLE_GOES_HERE');
>
>: print $county;
>: print "hello";
>
>print $query->end_html();
>that should do it assuming your html is good too
>
>--
>-=-Brian
------------------------------
Date: 7 Feb 1999 18:14:40 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: How do I use CGI.pm to fetch parameters?
Message-Id: <79kl6g$3eg$1@gellyfish.btinternet.com>
On Sun, 7 Feb 1999 13:35:59 -0000 el_pollo_diablo wrote:
> I'm trying to use cgi.pm to fetch parameters passed to my script using an
> SSI call. My code is:
>
> #!/usr/local/bin/perl
>
> use CGI;
>
> $query = new CGI;
>
> $county = $query->param('county');
>
> print $county;
>
> print "hello";
>
>
> As you can see its short 'n' sweet, even laughable but I'm tearing my hair
> out trying to work out whats going wrong! I dont even get the "hello"
> message.
>
> Please anybody put me out of my misery!
OK (Whips out '45) BANG !
Your program is not outputting any headers which are necessary for the HTTP
protocol - I would suggest going back to the CGI.pm documentation again.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: 7 Feb 1999 19:59:19 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: How do I use CGI.pm to fetch parameters?
Message-Id: <79kran$3nr$1@gellyfish.btinternet.com>
On Sun, 7 Feb 1999 18:52:21 -0000 el_pollo_diablo wrote:
> I tried it out but I'm still running into problems. I altered the code to :
>
> #!/usr/local/bin/perl
>
> use CGI;
>
> $query = new CGI;
>
> $county = $query->param('county');
>
> print $query->header();
>
> print $query->start_html('TITLE_GOES_HERE');
>
> print $county;
>
> print "hejkllo";
>
> print $query->end_html();
>
>
>
> And the HTML that calls is this:
>
> <!--#exec cgi="/cgi-local/headlines.pl?county=devon"-->
>
> Where am I going wrong?
And the error you get is ... ?
I dont see anything wrong with the Perl code and the way in which it is
called is out of the scope of this group really.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 7 Feb 1999 21:40:33 -0000
From: "el_pollo_diablo" <bencas@bigfoot.com>
Subject: Re: How do I use CGI.pm to fetch parameters?
Message-Id: <79l1au$lfb$1@news6.svr.pol.co.uk>
I dont get any output to the html file at all.
It is in the scope of the group because this is the only group I've got
sensible answers from!
--
---
Ben
------------------------------
Date: 7 Feb 1999 21:04:25 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: keeping track of members logged in
Message-Id: <79kv4p$k87$6@client2.news.psi.net>
Steven T. Henderson (stevenhenderson@prodigy.net) wrote on MCMLXXXVI
September MCMXCIII in <URL:news:A3hv2.51061$641.36115@news.san.rr.com>:
__ yeah, but locking files has its own set of problems.... like what to do when
__ someone does try to logout at the same time and encounters the locked file.
__ what to do then? tell them to try back later?
Uhm, noone said you needed to use non-blocking locks.
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: Sun, 07 Feb 1999 18:58:55 GMT
From: dave@mag-sol.com (Dave Cross)
Subject: ms-env.pl Released
Message-Id: <36bde0bd.23398748@news.demon.co.uk>
ms-env.pl is a free CGI script, written in Perl which gives details of
the Perl environment on the web server that is running the script.
The details it displays are:
* Perl version
* CGI.pm version
* Value of @INC
* All modules found on @INC
This is particularly useful if you do not have telnet access to your
ISP as you can find out which modules you can make use of.
I don't claim that this is particularly clever or difficult to do, but
a couple of people have found it useful so I've decided to make it
more widely available.
You can see the script in action at:
<http://www.mag-sol.com/cgi/ms-env.pl>
and download it from
<http://www.mag-sol.com/download.html>
share & enjoy,
Dave...
dave@mag-sol.com
Sybase Contractors Resource Page: www.mag-sol.com/Sybase/
Agency Rating System: www.mag-sol.com/ARS/
London Perl M[ou]ngers: www.mag-sol.com/London.pm
------------------------------
Date: Sun, 07 Feb 1999 18:38:12 GMT
From: tekkin@hotmail.com (Ken Williams)
Subject: Perl sockets example?
Message-Id: <36bddd99.0@news.cgocable.net>
I'm looking for a simple perl script that can be run from inetd and output say
a string like "this is a test" and then die off. Esentially a perl server.
I eventually need to have a Visual Basic program communicate with it on say
port 3002 or whatever.
Anyone have an example of doing this?
------------------------------
Date: 7 Feb 1999 20:07:40 -0000
From: Jonathan Stowe <gellyfish@btinternet.com>
Subject: Re: Perl sockets example?
Message-Id: <79krqc$3o6$1@gellyfish.btinternet.com>
On Sun, 07 Feb 1999 18:38:12 GMT Ken Williams wrote:
> I'm looking for a simple perl script that can be run from inetd and output say
> a string like "this is a test" and then die off. Esentially a perl server.
>
> I eventually need to have a Visual Basic program communicate with it on say
> port 3002 or whatever.
>
> Anyone have an example of doing this?
I probably have but the perlipc manpage has almost certainly got a
better one.
You might also want to look in the eg directory of the Perl distribution.
/J\
--
Jonathan Stowe <jns@btinternet.com>
Some of your questions answered:
<URL:http://www.btinternet.com/~gellyfish/resources/wwwfaq.htm>
Hastings: <URL:http://www.newhoo.com/Regional/UK/England/East_Sussex/Hastings>
------------------------------
Date: Sun, 07 Feb 1999 14:32:08 -0500
From: James Mauldin <james@mauldin.nu>
Subject: Praise the Lord and pass the Perl
Message-Id: <36BDEA38.9055E8E0@mauldin.nu>
An encomium:
SPSS having failed in a small but significant detail, I turned to Perl.
Imagine tables 10 X 17 - thousands of them - with descriptive
statistics. ($I_am >= 0) && ($I_am <= $Larry_or_Randall) for any given
task, but Perl never fails, with a trusty book at hand. To calculate
ntiles, you have to have all the values for all the subcategories. If I
couldn't push them, I guess I would have had to use records and linked
lists, as in Pascal (a lovely language) - or gotten C-sick. But Perl is
like English: Easy! Flexible! With many, many synonyms!
Maybe I'll go see if I can gulp in the whole 39,000 records at once,
just for fun!
--Jim
------------------------------
Date: Sun, 07 Feb 1999 13:50:08 -0500
From: "Bradley W. Langhorst" <brad@langhorst.com>
Subject: Pushing a file to a user from CGI script
Message-Id: <36BDE060.20B19477@langhorst.com>
I've got a CGI script that takes some parameters from another script
processes that information and produces a tab delimited spreadsheet.
the second script puts up summary information
and i want it to automatically bring up a save file as dialog box
with the tab delimited file i want to send then delete the file from the
UNIX tmp directory
when it is all finished
seems like this should be possible
(assuming i can call some function like system that forks off another
process and returns to the
main code after the file push is canceled or completed)
how is this done (i read the CGI-programming FAQ but... no mention)?
Thanks!
------------------------------
Date: Sun, 07 Feb 1999 13:51:10 -0500
From: "Bradley W. Langhorst" <brad@langhorst.com>
Subject: Pushing a file to a user from CGI script
Message-Id: <36BDE09E.82CC729F@nospam.genome.wi.mit.edu>
I've got a CGI script that takes some parameters from another script
processes that information and produces a tab delimited spreadsheet.
the second script puts up summary information
and i want it to automatically bring up a save file as dialog box
with the tab delimited file i want to send then delete the file from the
UNIX tmp directory
when it is all finished
seems like this should be possible
(assuming i can call some function like system that forks off another
process and returns to the
main code after the file push is canceled or completed)
how is this done (i read the CGI-programming FAQ but... no mention)?
Thanks!
please remove nospam to reply
bwlang@nospam.genome.wi.mit.edu
------------------------------
Date: 7 Feb 1999 15:14:27 -0500
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Redirecting STDOUT
Message-Id: <79ks73$9up$1@monet.op.net>
In article <79ivpb$jsf$1@roadrunner.micro-net.net>,
DMDP <dmdp@miracle.net> wrote:
>I have a script that is executing system call.
>I need to output of the system call to send its output to a file.
>
>I have done the following:
Why not just do
system("command > out.txt");
?
------------------------------
Date: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4842
**************************************
