[8475] in Perl-Users-Digest
Perl-Users Digest, Issue: 2092 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 13 16:07:30 1998
Date: Fri, 13 Mar 98 13:00:40 -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 Fri, 13 Mar 1998 Volume: 8 Number: 2092
Today's topics:
CGI/gnuplot output not being displayed mclapham@hotmail.com
Re: change Htpasswd from a FORM**Newbie** (Matthew Frohman)
Re: Closure with magical $_ as parameter (instead of @_ <zenin@best.com>
Re: Contents of a file into checkbox's [CGI.pm] <sgermain@nortel.ca>
Re: Date Zeros preservation (Mike Stok)
Re: Good Perl book (Ed Jamison)
Re: Help sought with web programming security problem (A. P. Beaudoin)
Re: Help: Getting rid of warning messages (Craig Berry)
Re: How to use Perl for Win95? <dcameron@nospam.bcs.org.uk>
Re: How to use Perl for Win95? <dcameron@nospam.bcs.org.uk>
Re: htpasswd in a script (Matthew Frohman)
Re: Is there a "Newsgroup" for Newbies to Perl? <josh@removethis.spies.com>
Re: Is there a "Newsgroup" for Newbies to Perl? (Ed Jamison)
Re: Is there a "Newsgroup" for Newbies to Perl? <jason@primal.ucdavis.edu>
Re: libwww WIN32 MODULE <camerond@mail.uca.edu>
NT: How do I set permissions on a file? (ZAC)
Re: perldoc -f question schwern@starmedia.net
Problem stripping Mac headers off of GIF's <chris@ixlabs.com>
Re: Problem stripping Mac headers off of GIF's <chris@ixlabs.com>
Re: Read one line of a file (Craig Berry)
Reference syntax help (Wade Williams)
Re: Reference syntax help <jdf@pobox.com>
Re: Reference syntax help <sfarrell+usenet@farrell.org>
Re: regular expressions and control characters <jdf@pobox.com>
Sending multiple files with multipart/form-data down@mind.net
Re: Two Actions: Print in File AND Sendmail ? <barnett@houston.Geco-Prakla.slb.com>
User-interface Quandary <tchrist@mox.perl.com>
Re: User-interface Quandary <sfarrell+usenet@farrell.org>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 13 Mar 1998 14:37:05 -0600
From: mclapham@hotmail.com
Subject: CGI/gnuplot output not being displayed
Message-Id: <6ec5aj$mtf$1@nnrp1.dejanews.com>
Hi,
I have the following code for try.cgi. :
#!/usr/local/bin/perl5.001/perl
open(GNUPLOT, "|$gnuplot");
$outfile = "/tmp/zz";
$outppm="/tmp/outppmfile";
print GNUPLOT <<EOF;
set term pbm color small
set output "$outppm"
plot "$outfile" w lines 1
EOF
close(GNUPLOT);
print "Content-type: image/gif", "\n\n";
system("ppmtogif $outppm > /tmp/tt.gif");
print "<img src = \"file:///tt.gif\">\n";
--------------------------------------------------------
My problem is that when I run the cgi from my browser, it
gives a broken image.
However, if I do try.cgi > zz.html and then view the HTML file,
there is no problem.
What am I doing wrong ? I want the CGI to display the image and
even though the source of the CGI has the same code as zz.html,
I see the image in one and not the other.
IS there any way of getting the ppmtogif to directly display output
thru the browser.
Sorry for the lengthy posting...but your responses will be greatly
appreciated.
please E_MAIL your answers to mclapham@hotmail.com.
Thanks,
M. Clapham
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: 13 Mar 1998 19:57:46 GMT
From: mfrohman@spd.dsccc.com (Matthew Frohman)
Subject: Re: change Htpasswd from a FORM**Newbie**
Message-Id: <6ec33q$i8q@sun001.spd.dsccc.com>
Rene Eriksen (rae@vip.cybercity.dk) wrote:
: I am trying to make a perl script that can take a input from a form, and
: then change/update the htpasswd file with the new username and password.
: But I am having problem with the print PASS"$newpass"; section.
: The first section opens the htpasswd program, and that respond back with
: "New Password", it's here were my program fails, I expect it to print out
: the $newpass, but nothing happens, I have tryed to run it from a telnet
: prompth but eash time it stop at the "New Password" prompth
: Is there anyone that have a good idea to overcome that ?????
I wrote 3 scripts for just this purpose. They are attached
below. adduser.pl is used to add a username/password to the .htaccess
and .htgroup file. It takes a "username" and "password" as parameters
and calls add.exp.
deluser.pl is for deleting. It takes a "username" as a paramter.
The validation is somewhat limited in both, since I have a controlled
environment in which they are called. However, it works as is, and
it wouldn't be too hard to add more "safeguards".
The ADD verifies that the name does not already exist in the .htgroup
file. The DELETE takes care of removing the name from the .htgroup and
.htpasswd file, if they exist.
You need to have Perl and Expect installed, and need to change the first
line of each file to correspond to where they are installed. You will
also have to change things like the path and name of the .htaccess and
.htgroup files.
I made a few modifications from what I have in production to make it
more generic when you read it, so if you have a problem, email me.
------------------------------------------------------------------------
add.exp
-------
#!/usr/local/bin/expect -f
spawn /usr/sbin/htpasswd /usr/conf/.htpasswd [lindex $argv 0]
set password [lindex $argv 1]
expect "New password:"
send "$password\r"
expect "Re-type new password:"
send "$password\r"
expect eof
------------------------------------------------------------------------
adduser.pl
----------
#!/usr/bin/perl
$name=shift(@ARGV);
$password=shift(@ARGV);
$found = 0;
$path = "/usr/conf";
if (($name eq "") || ($password eq ""))
{
printf("\nUsage: adduser.prl <username> <password>\n\n");
exit(1);
}
# Add/update username/password in .htpasswd file
system("$path/add.exp $name $password");
# Add username to .htgroup file if it does not exist
open(groupfile, "$path/.htgroup");
$_ = <groupfile>;
close(groupfile);
# Remove return character
chop;
# Determine if name already exists in file (spaces before
# and after anme ensure name is not a substring of a
# longer name). Should return -1 if name not found.
$pos = index($_, " $name ");
# If the name was NOT found in the .htgroup file,
# create a new file with the list of valid names,
# including the new name, then save old file and rename
# new file to be the active group file
if ($pos < 0)
{
open(newgroupfile, ">$path/newgroup");
printf(newgroupfile, ">$path/newgroup");
printf(newgroupfile "%s%s \n ", $_, $name);
close(newgroupfile);
rename("$path/.htgroup", "$path/.htgroup.old");
rename("$path/newgroup", "$path/.htgroup");
}
------------------------------------------------------------------------
deluser.pl
----------
#!/usr/bin/perl
$name=shift(@ARGV);
$found = 0;
$path = "/usr/conf";
if ($name eq "")
{
printf("\nUsage: deluser.prl <username>\n\n");
exit(1);
}
# Delete user name from .htpasswd
open(passwdfile, "$path/.htpasswd");
open(newpasswdfile, ">$path/newpasswd");
$found = 0;
# Write each user entry from old passwd file into the
# new passwd file if the name is not the selected name.
while (<passwdfile>)
{
if (/^$name\:/)
{
$found = 1;
}
else
{
printf(newpasswdfile "%s", $_);
}
}
close(passwdfile);
close(newpasswdfile);
# If the selected name WAS found in the old password
# file, the new password file contains all of the names
# EXCEPT the selected name, so save the old file and
# move the new file to be the current password file.
#
# If the selected name was NOT found in the old password
# file, the current file is still valid, so no change is
# neccessary. Delete the newly created password file.
if ($found == 1)
{
rename("$path/.htpasswd", "$path/.htpasswd.old");
rename("$path/newpasswd", "$path/.htpasswd");
}
else
{
unlink("$path/newpasswd");
}
# Delete user from .htgroup file.
# Get list of users in group file.
open(groupfile, "$path/.htgroup");
$_ = <groupfile>;
close(groupfile);
# Determine if name already exists in file (spaces before
# and after anme ensure name is not a substring of a
# longer name). Should return -1 if name not found.
$pos = index($_, " $name ");
# If the name was found in the old group file, create a
# new group file with all of the names EXCEPT the selected
# name, save the old group file, and rename the new group
# file to be the current group file.
if ($pos >= 0)
{
open(newgroupfile, ">$path/newgroup");
s/ $name / /g;
printf(newgroupfile "%s", $_);
close(newgroupfile);
rename("$path/.htgroup", "$path/.htgroup.old");
rename("$path/newgroup", "$path/.htgroup");
}
--
-----------------------------------------------------------
All opinions expressed are my own, and not necessarily that
of my employer.
-----------------------------------------------------------
Matthew Frohman mfrohman@spd.dsccc.com
DSC Communications, MS SMS01, 1000 Coit Rd, Plano, TX 75075
------------------------------
Date: 13 Mar 1998 19:59:16 GMT
From: Zenin <zenin@best.com>
Subject: Re: Closure with magical $_ as parameter (instead of @_)
Message-Id: <889819530.316467@thrush.omix.com>
[ posted & mailed ]
Frederic Mancuso <mancuso@rimes.com> wrote:
: This is a multi-part message in MIME format.
: --------------61384A03426C21A37D6A90D5
>snip<
: --------------61384A03426C21A37D6A90D5
: Content-Type: text/x-vcard; charset=us-ascii; name="vcard.vcf"
>snip<
Lose the V-Card crap when posting to Usenet. No ifs, ands
or butts. Lose it, or go away.
--
-Zenin
zenin@best.com
------------------------------
Date: Fri, 13 Mar 1998 13:47:41 -0500
From: "Sylvain St.Germain" <sgermain@nortel.ca>
Subject: Re: Contents of a file into checkbox's [CGI.pm]
Message-Id: <35097F4D.EEEFDB75@nortel.ca>
Although you do not clearly say what does not work
I beleive that (since it works with the qw expression),
at least, you need to chomp your array my_file_content.
Sylvain.
------------------------------
Date: 13 Mar 1998 18:53:05 GMT
From: mike@stok.co.uk (Mike Stok)
Subject: Re: Date Zeros preservation
Message-Id: <6ebvah$ll6@news-central.tiac.net>
In article <6ebsug$hom$11@info.uah.edu>, Greg Bacon <gbacon@cs.uah.edu> wrote:
>In article <7xd8fqzg1s.fsf@beavis.vcpc.univie.ac.at>,
> Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at> writes:
>: Re: Date Zeros preservation, Eric <emathias@wwa.com> said:
>:
>: Eric> Is there a way to preserve the zeros in a time when
>: Eric> putting it into a variable from the localtime()
>: Eric> funtion? What I seem to end up with is stuff that
>: Eric> looks like this:
>:
>: POSIX::strftime
>Overkill.
> my($s,$m,$h,$dd,$mm,$yyyy) = localtime(time);
>
> $mm++;
>
> ## remain Y2K compilant :-)
> $yyyy += 1900;
>
> $date = sprintf "%04d/%02d/%02s - %02d:%02d:%02d",
> $yyyy,$mm,$dd, $h, $m, $s;
I don't know,
use POSIX qw/strftime/;
$date = strftime '%Y/%m/%d - %T', localtime;
seems a little less work to me, and strftime can handle locale issuses if
you like ;-) But it is perl and there's more than one way to do it (my
typing's so bad that the less I type the better :-)
I would agree that for general string formatting issues (s)printf is
pretty useful and can usually do what you want. If it can't then
there'sa fair chance that there is a module on CPAN or in a recent
distribution to do most of the common text mangling tasks...
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Fri, 13 Mar 1998 19:45:54 GMT
From: edwardt@i.really.really.hate.spam.jamison.com (Ed Jamison)
Subject: Re: Good Perl book
Message-Id: <MPG.f73459566c0cda6989683@news.ais.net>
The Dummies books are not dry, as many other books tend to be, but they
lack in content. I have read through a number of the Dummies books, and
have not learned anywhere near what I have learned from any other book.
They are filled with fluff and have very little actual useful content.
(compared to other books)...
Edward Jamison
Long ago (Fri, 13 Mar 1998 17:29:45 GMT), in a land far far away,
you@somehost.somedomain spouted nonsense similar to this...
> Whats wrong with the book specifically ?
>
> I found it a really useful book, as someone who knew nothing about
> perl, to someone who now knows they know very little about perl :->
>
> As a beginners book ,what is specifically wrong with it to be "sub par
> quality". The other books are very dry to start with, and not
> something you can really read on the train on the way home.
>
> Ian
>
> On Fri, 13 Mar 1998 15:21:06 GMT,
> edwardt@i.really.really.hate.spam.jamison.com (Ed Jamison) wrote:
>
> >Hmmm, no. Avoid this one if you can. It fits well in the listings with
> >the other ones. Sub par quality. Stick with Learning Perl, or
> >Programming Perl.
> >
> >Ed
> >
> >
> >Long ago (Fri, 13 Mar 1998 14:34:19 GMT), in a land far far away,
> >you@somehost.somedomain spouted nonsense similar to this...
> >> On Tue, 10 Mar 1998 14:05:57 -0600, bwb@acm.org wrote:
> >>
> >> 8-< Snip !
> >>
> >> I'll vouce for Perl for Dummies, geat book , you can actually read it
> >> as a book rather than a dry text book, not geat at the advanced stuff
> >> but really good for beginners.
------------------------------
Date: Fri, 13 Mar 1998 20:14:10 GMT
From: nornhqbv@qpvrz.qaq.pn (A. P. Beaudoin)
Subject: Re: Help sought with web programming security problem
Message-Id: <350992c9.178952505@news.drenet.dnd.ca>
On Fri, 13 Mar 1998 09:16:47 +0000, Woody Durham <wd@isporg.com> wrote:
>I am in need of a way of providing web page readers with a visual
>certification that they are viewing an "official" web page and
>not someone's copy of it. I have been thinking along the lines
>of developing a "seal of approval" gif file image which will be kept
>secure. At the top of each web page using this scheme would be a request
>to a CGI program for the "seal of approval" image. If the requesting
>page were a "proper" one (i.e. located on the secured server rather
>than on someone's own server) the program would return the gif file.
>Otherwise, the program would return a different "seal of unapproval"
>gif file contents.
>
>So, can one do this and if so how or what might be another approach?
You could, but then Mr. Webthief could just come along, save your
image locally, and use it to generate "official" webpages.
I'm not sure exactly what you mean by users not knowing whether they
are reading a copy or the real thing. Can't they tell from the page's URL?
Alan P. Beaudoin
DCIEM - Defence & Civil Institute of Environmental Medicine
Toronto, Ontario, Canada
nornhqbv@qpvrz.qaq.pn (ROT-13 decode for e-mail address)
------------------------------
Date: 13 Mar 1998 19:05:52 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Help: Getting rid of warning messages
Message-Id: <6ec02g$gd9$1@marina.cinenet.net>
Adam Reeves (areeves@us.ibm.com) wrote:
: Here's an unrelated question....
: Are you supposed to use either '-w' or the 'use diagnostics' pragma? Or can you
: use both? In the camel book they say that the 'use diagnostics' enables the
: '-w' flag.
You can use either, both, or neither, depending on your needs. This table
gives the warning message format for each combination of the two:
-w
off on
+---------+----------+
use off | None | Brief |
diag on | Verbose | Verbose |
+---------+----------+
In other words, 'use diagnostics' makes the presence or absence of -w
irrelevant.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: 13 Mar 1998 18:59:05 GMT
From: "Duncan Cameron" <dcameron@nospam.bcs.org.uk>
Subject: Re: How to use Perl for Win95?
Message-Id: <01bd4eb1$fa22bb40$a33b63c3@dns.btinternet.com>
Unfortunately neither of the two previous replies were totally correct.
This is a very frequently occuring topic so try DejaNews for previous
replies. However, ...
Check that your installation was successful. In particular the
autoexec.bat file should have a PATH variable which includes the directory
where perl.exe resides.
Use your favourite editor to create a perl script in whatever directory you
like, give the file an extension of .pl, e.g. myscript.pl
Open an MS-DOS prompt (Start button|Programs|MS_DOS) then
cd (whatever directory you created your script in)
perl -w myscript.pl
Off you go! To make things more interesting, download the ActiveState Perl
Debugger, install it, and then use the command perl -wd myscript.pl
The debugger is free until end of April (I think) when I guess they will
start charging for it. Perl has a character mode debugger but I have no
experience of it.
The approach of associating a .pl extension with the perl.exe doesn't work
with W95, although does with NT.
HTH
Duncan Cameron
----------
> From: Maxine G. <*nospam*mg*nospam*@*nospam*pcg*nospam.net>
....
> I think I'm missing a very basic concept:
> I've downloaded and installed the Activestate Win32 version of Perl and
> PerlScript on my Win95 machine. Now what do I do? If I double-click on
any of
> the three .exe files in the bin directory, a dos window opens briefly and
then
> closes.
> So, what do I need to do to create and run perl scripts in this
environment? I
> couldn't find anything about this in the documentation, but perhaps I
wasn't
> looking in the right place.It seems like such an obvious question, so I
assume
> that the answer must be obvious too.
>
> tia!
------------------------------
Date: 13 Mar 1998 19:41:49 GMT
From: "Duncan Cameron" <dcameron@nospam.bcs.org.uk>
Subject: Re: How to use Perl for Win95?
Message-Id: <01bd4eb7$f2b6f460$8d3c63c3@dns.btinternet.com>
I suggest a different way. Have two windows open, your editor and a DOS
window. Use the editor to create/modify scripts, then switch to the DOS
window and run the script. Run DOSKEY first and you can then recall
previous commands. If the results are not as expected then switch back to
your editor and fix the problem.
Even better, get an editor such as PFE (Programmer's File Editor), which
lets you launch a DOS shell directly.
HTH
--
Remove 'nospam.' to get my return address.
Maxine G. <*nospam*mg*nospam*@pcg*nospam*.net> wrote in article
<6ebril$8qs@examiner.concentric.net>...
> Thanks to you and everyone who responded by e-mail.
> I am now able to run my scripts in a dos window.
> I tried setting up the win95 associations as suggested below, but when I
try
> to run the scripts directly, the dos window opens, the script runs and
the dos
> window immediately closes, so that I can just barely make out the
results.
> Does anyone know a way to keep the window open?
>
------------------------------
Date: 13 Mar 1998 19:52:37 GMT
From: mfrohman@spd.dsccc.com (Matthew Frohman)
Subject: Re: htpasswd in a script
Message-Id: <6ec2q6$i8q@sun001.spd.dsccc.com>
vcxcv (vxcvxcv@jgj) wrote:
: I'm making a perl script for letting my customers managing the htaccess
: facility of apache. The problem is htpasswd. In fact, how can I pass to
: htpasswd the password it request? There's no option like "-p password" not
: to have promped any questions. Is it possible to let the
: perl script answer automaticaly?
I wrote 3 scripts for just this purpose. They are attached
below. adduser.pl is used to add a username/password to the .htaccess
and .htgroup file. It takes a "username" and "password" as parameters
and calls add.exp.
deluser.pl is for deleting. It takes a "username" as a paramter.
The validation is somewhat limited in both, since I have a controlled
environment in which they are called. However, it works as is, and
would be too hard to add more "safeguards".
The ADD verifies that the name does not already exist in the .htgroup
file. The DELETE takes care of removing the name from the .htgroup and
.htpasswd file, if they exist.
You need to have Perl and Expect installed, and need to change the first
line of each file to correspond to where they are installed. You will
also have to change things like the path and name of the .htaccess and
.htgroup files.
I made a few modifications from what I have in production to make it
more generic when you read it, so if you have a problem, email me.
------------------------------------------------------------------------
add.exp
-------
#!/usr/local/bin/expect -f
spawn /usr/sbin/htpasswd /usr/conf/.htpasswd [lindex $argv 0]
set password [lindex $argv 1]
expect "New password:"
send "$password\r"
expect "Re-type new password:"
send "$password\r"
expect eof
------------------------------------------------------------------------
adduser.pl
----------
#!/usr/bin/perl
$name=shift(@ARGV);
$password=shift(@ARGV);
$found = 0;
$path = "/usr/conf";
if (($name eq "") || ($password eq ""))
{
printf("\nUsage: adduser.prl <username> <password>\n\n");
exit(1);
}
# Add/update username/password in .htpasswd file
system("$path/add.exp $name $password");
# Add username to .htgroup file if it does not exist
open(groupfile, "$path/.htgroup");
$_ = <groupfile>;
close(groupfile);
# Remove return character
chop;
# Determine if name already exists in file (spaces before
# and after anme ensure name is not a substring of a
# longer name). Should return -1 if name not found.
$pos = index($_, " $name ");
# If the name was NOT found in the .htgroup file,
# create a new file with the list of valid names,
# including the new name, then save old file and rename
# new file to be the active group file
if ($pos < 0)
{
open(newgroupfile, ">$path/newgroup");
printf(newgroupfile, ">$path/newgroup");
printf(newgroupfile "%s%s \n ", $_, $name);
close(newgroupfile);
rename("$path/.htgroup", "$path/.htgroup.old");
rename("$path/newgroup", "$path/.htgroup");
}
------------------------------------------------------------------------
deluser.pl
----------
#!/usr/bin/perl
$name=shift(@ARGV);
$found = 0;
$path = "/usr/conf";
if ($name eq "")
{
printf("\nUsage: deluser.prl <username>\n\n");
exit(1);
}
# Delete user name from .htpasswd
open(passwdfile, "$path/.htpasswd");
open(newpasswdfile, ">$path/newpasswd");
$found = 0;
# Write each user entry from old passwd file into the
# new passwd file if the name is not the selected name.
while (<passwdfile>)
{
if (/^$name\:/)
{
$found = 1;
}
else
{
printf(newpasswdfile "%s", $_);
}
}
close(passwdfile);
close(newpasswdfile);
# If the selected name WAS found in the old password
# file, the new password file contains all of the names
# EXCEPT the selected name, so save the old file and
# move the new file to be the current password file.
#
# If the selected name was NOT found in the old password
# file, the current file is still valid, so no change is
# neccessary. Delete the newly created password file.
if ($found == 1)
{
rename("$path/.htpasswd", "$path/.htpasswd.old");
rename("$path/newpasswd", "$path/.htpasswd");
}
else
{
unlink("$path/newpasswd");
}
# Delete user from .htgroup file.
# Get list of users in group file.
open(groupfile, "$path/.htgroup");
$_ = <groupfile>;
close(groupfile);
# Determine if name already exists in file (spaces before
# and after anme ensure name is not a substring of a
# longer name). Should return -1 if name not found.
$pos = index($_, " $name ");
# If the name was found in the old group file, create a
# new group file with all of the names EXCEPT the selected
# name, save the old group file, and rename the new group
# file to be the current group file.
if ($pos >= 0)
{
open(newgroupfile, ">$path/newgroup");
s/ $name / /g;
printf(newgroupfile "%s", $_);
close(newgroupfile);
rename("$path/.htgroup", "$path/.htgroup.old");
rename("$path/newgroup", "$path/.htgroup");
}
--
-----------------------------------------------------------
All opinions expressed are my own, and not necessarily that
of my employer.
-----------------------------------------------------------
Matthew Frohman mfrohman@spd.dsccc.com
DSC Communications, MS SMS01, 1000 Coit Rd, Plano, TX 75075
------------------------------
Date: Fri, 13 Mar 1998 11:13:30 -0800
From: Josh Carter <josh@removethis.spies.com>
To: Mark P Stackhouse <stackhou@elk.cray.com>
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <3509855A.95B21C18@removethis.spies.com>
Hey all,
Mark P Stackhouse wrote:
> > But don't you understand? This isn't a helpdesk.
>
> My point exactly! We need a "helpdesk"!
I think Mark has a very valid request; many of us are professional
engineers working on deadlines, and when someone gets stuck, it would be
nice to have a no-flames forum for Q&A. Sure, there's no guarantee the
poster will get a correct and timely answer, but it's better than
thrashing around and not getting *any* understandable answer.
> time? I have, and am reading "Learning Perl", but I still get confused
> sometimes. Sorry, but my mind isn't a steel trap! I DO, use the
> resources available on-line but they're not very friendly... to a
> "Newbie", the answer can be more confusing than the question.
This is something the "wizards" need to understand clearly: not everyone
is at the same level of expertise, and not everyone learns the same way.
Trust me, I used to work in a developer technical services (DTS) group
supporting fairly low-level things (networking and hardware interfacing
APIs for a handheld computer), and helping someone out isn't as easy as
saying "RTFM" all the time.
I'm not arguing in favor of not using the docs when they answer the
question -- I personally find almost all the answers I need on the
various O'Reilly books -- but if someone finds the something confusing,
I don't think he/she should be flamed for asking about it. If people
here don't like answering "easy questions" (easy to them, that is), then
maybe a new group should be created with a no-flames, no-attitude
charter.
Above all, I think posters to any comp.lang.* newsgroup should receive
some minimum baseline of respect, since programming isn't an easy thing
to everyone. I've coached plenty of people through various programming
tasks I consider trivially easy, and I admit it takes a conscious effort
on my part to remember they are very intelligent people; they just don't
have the background or "programmer's mindset" that I've aquired through
many years of hacking around and asking trivially easy questions myself.
Best regards,
Josh
------------------------------
Date: Fri, 13 Mar 1998 19:50:25 GMT
From: edwardt@i.really.really.hate.spam.jamison.com (Ed Jamison)
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <MPG.f7346a488d79555989684@news.ais.net>
Long ago (Fri, 13 Mar 1998 09:33:15 -0800), in a land far far away,
jason@primal.ucdavis.edu spouted nonsense similar to this...
> On Fri, 13 Mar 1998, Mark P Stackhouse wrote:
> >
> > > There are pleanty of mentors at the University. They get paid, and
> > ^
>
> Good won. Spelling flames, especially directed at possible typos, will
> win you won ton of friends.
Of course, when you spell something wrong while criticizing the spelling
of others, you really look like an ass....
>
> > With all your education, I'd think you could at LEAST spell, or learn
> > how to use a spell checker. The word is "plenty" not "pleanty".
> >
> > > they're called professors, tutors, teaching assistants, etc.
> >
> > Sorry... I'm not a student (literally) anymore, although I do believe
> > life is about learning. Believe me, if I can find an on-line class or a
> > night class next Fall, (we are in the middle of Spring semester you
> > know) I'll be the first one in line. Right now, I'm on the "job" and
> > expected to produce results now, not next Fall.
>
> You don't tell us where you are. If you are in the San Francisco Bay
> Area, U.C. Extension offers classes, usually on weekends, in Beginning
> Perl (as well as more advanced courses) in such exotic locales as San
> Francisco, San Ramon, and I think at a site in the South Bay. If you
> are in Colorado, I understand there are some very fine courses offered
> in the Boulder area. Dunno if billiard tutorials are included. I
> suspect that there are public courses, offered on schedules convenient
> to people with day jobs, elsewhere around the country.
>
> Like the science fiction writer said, TANSTAAFL.
>
>
> ---------------------------------------------------------------------------
> Jason Christian University of California, Davis
> jason@primal.ucdavis.edu Agricultural and Resource Economics
> Office:(530)752-1357 FAX:(530)752-5614 Davis, CA 95616
>
>
------------------------------
Date: Fri, 13 Mar 1998 12:52:15 -0800
From: Jason Christian <jason@primal.ucdavis.edu>
Subject: Re: Is there a "Newsgroup" for Newbies to Perl?
Message-Id: <Pine.OSF.3.95.980313124923.29355N-100000@primal.ucdavis.edu>
On Fri, 13 Mar 1998, Ed Jamison wrote:
> Long ago (Fri, 13 Mar 1998 09:33:15 -0800), in a land far far away,
> jason@primal.ucdavis.edu spouted nonsense similar to this...
> > On Fri, 13 Mar 1998, Mark P Stackhouse wrote:
> > >
> > > > There are pleanty of mentors at the University. They get paid, and
> > > ^
> >
> > Good won. Spelling flames, especially directed at possible typos, will
> > win you won ton of friends.
> Of course, when you spell something wrong while criticizing the spelling
> of others, you really look like an ass....
That's true! Of course, if you munge your address, I can't use discreet
private email to point out that "won"ce in a while you should take your
pun detector in for service. I "one"der if you think "won ton" is a
measure of weight?
---------------------------------------------------------------------------
Jason Christian University of California, Davis
jason@primal.ucdavis.edu Agricultural and Resource Economics
Office:(530)752-1357 FAX:(530)752-5614 Davis, CA 95616
------------------------------
Date: Fri, 13 Mar 1998 13:41:56 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
To: krisvg@netit.be
Subject: Re: libwww WIN32 MODULE
Message-Id: <35098C04.14A29878@mail.uca.edu>
[cc'd to kvg]
If you installed GS's 5.00402 (which is what I think you meant to say),
then you have already installed the Win32 modules. They are in
[path-to-perl]\lib\site\win32\ .
Cameron
camerond@mail.uca.edu
Kris Van Gompel wrote:
>
> Hi,
>
> I tried to install the Win32 module, but it doesn't work.
>
> I got the whole time :
>
> No perl script found in input ... Does anybody know what the problem
> is?
>
> I installed the version 5.004 like they said, then I set the PATH
> variable and then I typed install.bat, but then I got the error.
>
> Perl is installed under NT... Can anybody help me please?
>
> Thanks in advance
>
> Kris
>
> --
> Kris Van Gompel
> System Manager Net it be
> Posthoflei 3
> 2600 BERCHEM
> -------------------------------------
> tel : 03/286.04.34
> fax : 03/286.04.70
> email : krisvg@netit.be
> url : http://www.netit.be
> -------------------------------------
------------------------------
Date: Fri, 13 Mar 1998 20:37:05 GMT
From: zac@fiz-online.de (ZAC)
Subject: NT: How do I set permissions on a file?
Message-Id: <35099263.45235845@news.roka.net>
Hi,
I am trying to run an Email form script (perl) on a windows nt server
(IIS). The problem is that the server asks for a password when the
browser calls the script. If I give the (administrator) password, than
the is form forwarded properly, otherwise I get the answer :
connection refused. I have also changed the permission on the
directory to full access for all users and all groups that I found on
the NT-Server but it still do not work.
Please help. The script I am using is :
Form2Mail Form2Mail is ) Copyright 1997 by Eric T. Wienke and Liquid
Silver that I found at http://www.4images.com/ntperl
Thanks.
ZAC
PS: This text (found on the net) didn't help me to solve the problem.
4.9. How do I set permissions on a file?
Win32 platforms don't have the same mechanisms for setting permissions
on files as
UNIX does. For files on FAT partitions
(which means all files in Windows 95), you don't have to set
permissions explicitly on a
file. All files are available to all users.
For files on an NTFS partition on Windows NT, you can set the security
permissions on
a file using the Explorer and the
properties sheet of the file. Right-click on the file in Explorer, and
select the Properties
item on the drop-down menu. Select the
Security tab, and press the Permissions button to set the Permissions
on the file. Click
Help for more information.
A command-line program, CACLS, will also change the permissions on a
file. For more
details, type HELP CACLS on the
command line.
------------------------------
Date: Fri, 13 Mar 1998 13:58:05 -0600
From: schwern@starmedia.net
To: rxruck2@uswest.com
Subject: Re: perldoc -f question
Message-Id: <6ec31e$kct$1@nnrp1.dejanews.com>
Yep. 5.004 and up perldoc has the -f option. Everything else doesn't. You
shouldn't be using 5.002 anyway. Memory leaks, security holes... its not
pretty.
The 5.004 CHANGES document might have this -f addition documented.
In article <35094A3D.948270BD@uswest.com>,
rxruck2@uswest.com wrote:
>
> Hello,
>
> In numerous posts here, I see reference to "perldoc -f ...".
>
> I'm running perl 5.002 on an SVR4 flavored Unix system, and I don't have
> "-f" as an option. For me, the only available options are -h, -v, -t,
> and -u.
>
> I've checked the FAQ, plodded through nearly 400 "perldoc" messages in
> dejanews, did a "perldoc perldoc", and flipped through my perl books,
> but haven't found an answer.
>
> My assumption is that the "-f" option came after perl 5.002. Could some
> verify this?
>
> Granted, I'm not losing sleep over this one, it's just one of those
> things that's got me curious, that's all.
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 13 Mar 1998 12:20:43 -0800
From: Chris Schoenfeld <chris@ixlabs.com>
Subject: Problem stripping Mac headers off of GIF's
Message-Id: <3509951A.E3C20A4F@ixlabs.com>
Hi,
I'm a UNIX web developer who works with web designers who are not.
Often, they will email me GIF's which have (what I assume is) Macintosh
binary header information on them, rendering them useless on anything
else..
I wrote a Perl script which strips off everything up until /GIF8\d/.
This script worked fine for the first two batches I received, but now it
fails to make the regexp substitution:
[read the GIF file into an array, and join '' it into a $gifin]
$gifin=~s/^(.*)(GIF8\d.*)$/$2/;
Although I can look at the file and see "GIF89a" in there, and strip the
header off with an editor, this regexp does not match.
Here is the whole program, which also archives the original file to
$filename.bak (using Perl 5.004_03, BTW):
#!/usr/bin/perl -w
use strict;
use File::Copy;
defined $ARGV[0] or die "Usage: $0 [files...]";
my @gifin;
my $gifin;
foreach(@ARGV){
next && print STDERR "Cannot read $_\n" unless -r $_;
next && print STDERR "Cannot copy $_ to $_.bak" unless
copy($_,"$_.bak");
next && print STDERR "Cannot open $_ for reading\n" unless
open(MACIN,"$_.bak");
next && print STDERR "Cannot open $_.gif for writing" unless
open(GIFOUT,">./$_");
$gifin=join('',<MACIN>);
print 'yes' if $gifin=~s/^(.*)(GIF89.*)$/$2/;
print GIFOUT $gifin;
close MACIN;
close GIFOUT;
}
------------------------------
Date: Fri, 13 Mar 1998 12:25:54 -0800
From: Chris Schoenfeld <chris@ixlabs.com>
Subject: Re: Problem stripping Mac headers off of GIF's
Message-Id: <35099651.3805935F@ixlabs.com>
Ha - I was just wondering why this ever worked at all, because I am removing
the \n characters from the file during the join, which are obviously image
data in this case.
-Chris
Chris Schoenfeld wrote:
> Hi,
>
> I'm a UNIX web developer who works with web designers who are not.
>
> Often, they will email me GIF's which have (what I assume is) Macintosh
> binary header information on them, rendering them useless on anything
> else..
>
> I wrote a Perl script which strips off everything up until /GIF8\d/.
> This script worked fine for the first two batches I received, but now it
> fails to make the regexp substitution:
>
> [read the GIF file into an array, and join '' it into a $gifin]
>
> $gifin=~s/^(.*)(GIF8\d.*)$/$2/;
>
> Although I can look at the file and see "GIF89a" in there, and strip the
> header off with an editor, this regexp does not match.
>
> Here is the whole program, which also archives the original file to
> $filename.bak (using Perl 5.004_03, BTW):
>
> #!/usr/bin/perl -w
> use strict;
>
> use File::Copy;
>
> defined $ARGV[0] or die "Usage: $0 [files...]";
> my @gifin;
> my $gifin;
>
> foreach(@ARGV){
> next && print STDERR "Cannot read $_\n" unless -r $_;
> next && print STDERR "Cannot copy $_ to $_.bak" unless
> copy($_,"$_.bak");
> next && print STDERR "Cannot open $_ for reading\n" unless
> open(MACIN,"$_.bak");
> next && print STDERR "Cannot open $_.gif for writing" unless
> open(GIFOUT,">./$_");
>
> $gifin=join('',<MACIN>);
>
> print 'yes' if $gifin=~s/^(.*)(GIF89.*)$/$2/;
>
> print GIFOUT $gifin;
>
> close MACIN;
> close GIFOUT;
>
> }
------------------------------
Date: 13 Mar 1998 19:13:46 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Read one line of a file
Message-Id: <6ec0ha$gd9$2@marina.cinenet.net>
Jeffrey M. Cook (cook.jeff@usa.net) wrote:
: How do I read one line of a text file do something then the same to the
: next line in the text file?
Have you read _Learning Perl_? This is covered early in that book.
This newsgroup *cannot* teach you Perl.
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Fri, 13 Mar 1998 13:08:05 -0600
From: wwilliam@cisco.com (Wade Williams)
Subject: Reference syntax help
Message-Id: <wwilliam-1303981308060001@rtp-dial-1-42.cisco.com>
Hmm..this one has been driving me crazy for a while:
Using data structure:
DB<2> x $pilots{PYRO}
0 HASH(0x34d8c70)
'handle' => '-PYRO-'
'killedby' => ARRAY(0x34f9c98)
0 'stang-'
1 '-virus'
2 '-wyrm-'
3 'dolfo-'
'killedbyplanes' => HASH(0x34f9cbc)
'Bf-109G6' => 1
'FW-190A4' => 2
'FW-190A8' => 1
while(($name,$v)=each(%pilots))
{
$cleanhandle=&CleanUpHandle($v->{handle});
while ( ($n,$value) = each(%$v->{killedbyplanes}))
{
push(@data,td([$n,$value]));
}
}
I get:
# Type of arg 1 to each must be hash (not hash elem), near "})"
which is refering to the:
while ( ($n,$value) = each(%$v->{killedplanes}))
line. Obviously, how I'm refering to the hash is incorrect, but I can't
figure out the correct synatax.
%pilots is a hash containing hashes for each individual pilot - an example
of one pilot is listed above.
Can anyone help me straighten out this syntax?
Thanks,
Wade
--
--------------------------------------------------------------------------
Wade Williams Fly WarBirds! (Mac or PC)
Systems Engineer, CCIE #3373 http://www.icigames.com/warbirds
Cisco Systems, Inc.
Brentwood, TN
615-221-2918
wwilliam@cisco.com
--------------------------------------------------------------------------
------------------------------
Date: 13 Mar 1998 15:32:31 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: Reference syntax help
Message-Id: <en062uxs.fsf@news.concentric.net>
wwilliam@cisco.com (Wade Williams) writes:
> # Type of arg 1 to each must be hash (not hash elem), near "})"
>
> which is refering to the:
>
> while ( ($n,$value) = each(%$v->{killedplanes}))
%{$v->{killedplanes}}
See perlref.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Fri, 13 Mar 1998 20:36:45 GMT
From: stephen farrell <sfarrell+usenet@farrell.org>
To: wwilliam@cisco.com (Wade Williams)
Subject: Re: Reference syntax help
Message-Id: <877m5yxr8i.fsf@phaedrus.uchicago.edu>
wwilliam@cisco.com (Wade Williams) writes:
> # Type of arg 1 to each must be hash (not hash elem), near "})"
>
> which is refering to the:
>
> while ( ($n,$value) = each(%$v->{killedplanes}))
%{ $v->{killedplanes} }
also see perlref
--sf
------------------------------
Date: 13 Mar 1998 14:30:53 -0500
From: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: regular expressions and control characters
Message-Id: <g1km2xsi.fsf@news.concentric.net>
luis a espinal <lespin03@fiu.edu> writes:
> s/^U/\xU/g;
> s/^D/\xD/g;
Here, you are replacing the capital letters U and D (when they appear
at the beginning of the bound string) with Perl's best guess as to
what you meant by the hexadecimal character \xU. What you meant, I'm
guessing, is
s/\^U/\cU/g;
since control-U is spelled \cU in interpolative context, and since the
^ character denotes the beginning of the string, not the literal
character '^'.
Perhaps the following example will give you some ideas...
#!/usr/bin/perl -w
$_ = "abc^Udefg\n";
s/\^([UD])/'"\c' . $1 . '"'/eeg;
print;
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
------------------------------
Date: Fri, 13 Mar 1998 13:00:06 -0600
From: down@mind.net
Subject: Sending multiple files with multipart/form-data
Message-Id: <6ebvkm$gjp$1@nnrp1.dejanews.com>
Is there a way to create a web page that will allow multiple files at once to
be uploaded using the multipart/form-data.
I have clients that upload hundreds of files a day using the web and they
would love to just highlight them all and then upload.
Thanks a million.
PS. PLEASE send any replies back to my mailbox: down@mind.net
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Fri, 13 Mar 1998 12:28:40 -0600
From: Dave Barnett <barnett@houston.Geco-Prakla.slb.com>
To: stephan.dreyer@hamburg.netsurf.de
Subject: Re: Two Actions: Print in File AND Sendmail ?
Message-Id: <35097AD8.7DDF3CC0@houston.Geco-Prakla.slb.com>
Stephan Dreyer wrote:
>
> Hi !
>
<snip>
> Now I want some diffiult changes:
> You enter your name, your email and select one from two radio-buttons
> (with different values).
>
> For the name nothing changes: It4s sent to the highscore.cgi file, to be
> printed in the highscore.dat.
Easy.
print FILE $variableContainingName;
> But the email and the value of the checked radio-Button should be sent
> to me by email...
> How can this be done in one step ?
Easy.
open a pipe to your mail program.
turn off buffering (select pipe; $| = 1;)
print the output to the pipe
close the pipe
I use:
open(MAIL,"|/usr/bin/mailx -s Subject recipient") or die "Cannot open:
$!\n";
select MAIL;
$| = 1;
print MAIL "This is a test.";
close(MAIL);
Another option, get one of the mail modules (Net::SMTP) that allows you
to send email. See the module docs for assistance on the module.
>
> The user should only hit the submit-Button, the script has to split the
> input and print the name in the highscore-list, and send the name, the
> email-adress and the value of the radio-button to my email-adress.
>
> Some ideas?
> Thanks for mailing me at
> stephan.dreyer@hamburg.netsurf.de
No problem.
Dave
--
"Security through obscurity is no security at all."
-comp.lang.perl.misc newsgroup posting
------------------------------------------------------------------------
* Dave Barnett U.S.: barnett@houston.Geco-Prakla.slb.com *
* DAPD Software Support Eng U.K.: barnett@gatwick.Geco-Prakla.slb.com *
------------------------------------------------------------------------
------------------------------
Date: 13 Mar 1998 18:01:58 GMT
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: User-interface Quandary
Message-Id: <6ebsam$lfv$1@csnews.cs.colorado.edu>
I have a challenge that I've wracked my head over for a long time now,
and still I find no solution to it. It's quite simple to explain: I have
a very simple point-and-drool database frontend for people who are afraid
of the keyboard or parentheses. The problem is that I can't for the life
of me figure out how to talk about a complete/exact/entire/everything
match, like fgrep -x.
Imagine this phrase:
"My name is Fred"
I provide three choices:
Anywhere
Whole Words Only
Entire Field
Now, with `Anywhere', a search for "red" will pull up the phrase
but with `Whole Words Only', it would not. But if they search
for "Fred", both will match.
Now imagine two phrases:
"My name is Fred"
"My name is Fred and his is Barney"
If they search for "My name is Fred", both of those will match, whether using
`Anywhere' or `Whole Words'. However, with `Entire Field', only the first
one works.
In short, they compile into this, searching for "Fred"
Anywhere /Fred/
Whole Words Only /\bFred\b/
Entire Field /^Fred$/
My problem is that I have not in several years come up with anything
conveys the /^Fred$/ case. I've tried `Entire', but the users always
think that it means search the entire field, which of course is what
`Anywhere' does. I've tried `Exact' as in fgrep -x, but because I also
sometimes have a `Fuzzy' option for agrep style mistakes, they think that
`Exact' is merely intolerate of spelling errors.
Is there some obvious word or phrase I could use for the /^Fred$/ case?
I have tried a long time, and nothing seems to work. Users never ever
understand this.
For an example of all this, see
http://mox.perl.com/cgi-bin/MxScreen
and select the Text query button.
Any insights would be *greatly* appreciated.
--tom
--
Tom Christiansen tchrist@jhereg.perl.com
Sorry. My testing organization is either too small, or too large, depending
on how you look at it. :-)
--Larry Wall in <1991Apr22.175438.8564@jpl-devvax.jpl.nasa.gov>
------------------------------
Date: Fri, 13 Mar 1998 20:32:40 GMT
From: stephen farrell <sfarrell+usenet@farrell.org>
To: tchrist@mox.perl.com (Tom Christiansen)
Subject: Re: User-interface Quandary
Message-Id: <87afauxrfb.fsf@phaedrus.uchicago.edu>
Tom Christiansen <tchrist@mox.perl.com> writes:
> Anywhere /Fred/
> Whole Words Only /\bFred\b/
> Entire Field /^Fred$/
>
> My problem is that I have not in several years come up with anything
> conveys the /^Fred$/ case. I've tried `Entire', but the users always
I think the problem is also your use of "anywhere"... how about:
Contains /Fred/
Exactly /^Fred$/
also i'd be curious to see if "whole words only" is really used--it
strikes me as a tad obscure, unless such precision is really
*expected*.
--sf
------------------------------
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 2092
**************************************
