[15541] in Perl-Users-Digest
Perl-Users Digest, Issue: 2954 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri May 5 12:16:33 2000
Date: Thu, 4 May 2000 18:05:09 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <957488709-v9-i2954@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 4 May 2000 Volume: 9 Number: 2954
Today's topics:
Re: $[ causing problems down the line <Jonathan.L.Ericson@jpl.nasa.gov>
adding numbers in regexp <vibrato@my-deja.com>
Re: adding numbers in regexp <tina@streetmail.com>
Re: adding numbers in regexp <lr@hpl.hp.com>
Re: BUG? Get comand line parameter with ActiveState Per (Bart Lateur)
Re: Clear and then Reuse a package name space <rootbeer@redcat.com>
crypt problems <douceurNOdoSPAM@flashmail.com.invalid>
DBI, DBD, Oracle ttram@my-deja.com
Re: DBI, DBD, Oracle <makarand_kulkarni@My-Deja.com>
Extracting string from B::PVNV obj atramos_us@my-deja.com
Re: FYI : Compiling Perl to EXE (Windows or UNIX) <rootbeer@redcat.com>
Help meeded with web to mail cgi without response <a.legg@btinternet.com>
Re: Help meeded with web to mail cgi without response <makarand_kulkarni@My-Deja.com>
Help running my app from cron. Enviromental varl issue (Dave LaPorte)
Re: Help............A easy CGI question !!!!!!!!!!!!!!! <makarand_kulkarni@My-Deja.com>
Re: Help............A easy CGI question !!!!!!!!!!!!!!! <tina@streetmail.com>
How to tell if <> operator will work on a given scalar? <eryq@zeegee.com>
Re: How to tell if <> operator will work on a given sca <tina@streetmail.com>
Long insert feilds with ODBC/Access <gorgano@altavista.com>
more than one way to do it? <nospam@devnull.com>
Re: more than one way to do it? (Sam Holden)
Re: more than one way to do it? <jeff@vpservices.com>
Re: Perl & delivering Databases? (Elliot Finley)
Problem using Crypt::CBC <spammers_suck@[127.0.0.1]>
Re: Regexp speed (was: Help: bol regexp in split string <occitan@esperanto.org>
Re: Regexp speed (was: Help: bol regexp in split string <uri@sysarch.com>
Re: Session management module for PerlEx? <bschieberNObsSPAM@tidemarksys.com.invalid>
Re: Tanspose rows to columns (Craig Berry)
Re: tesxtarea input to <p>paragraph</p> format -- how? <nospam@devnull.com>
Re: Win32::OLE::Variant Converting VB to Perl question <michaelr@apgtest.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 04 May 2000 16:36:49 -0700
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: $[ causing problems down the line
Message-Id: <39120991.564C2256@jpl.nasa.gov>
Mike Mulvaney wrote:
> I'm having some weird problems with the $[ variable. I'm working on a
> script that uses two libraries(among others) that were developed by
> other people in house. One of the libraries sets the $[ variable to
> "1".
>
> Obviously, this is a bad idea.
Obviously. Here is a test case:
$ cat BadIdea.pm
$[ = 1;
1;
$ cat temp.pl
#!/usr/bin/perl -w
use strict;
use BadIdea;
my @array = ("Doesn\'t work :(\n", "Works!\n");
print $array[1];
$ temp.pl
Doesn't work :(
Fortunately, you may be able to solve it with a very simple change:
$ cat BadIdea.pm
local $[ = 1;
1;
$ temp.pl
Works!
Read 'perldoc -f local' and perlsub.
Jon
--
Knowledge is that which remains when what is
learned is forgotten. - Mr. King
------------------------------
Date: Thu, 04 May 2000 22:10:50 GMT
From: Lance Hoffmeyer <vibrato@my-deja.com>
Subject: adding numbers in regexp
Message-Id: <8essgt$gv$1@nnrp1.deja.com>
Is there a way for me to add numbers in a regexp from the command
prompt?
I have a file that has
Q5A_01 10
Q5A_02 12
that I want to change to
Q5A_01 10-11
Q5A_01 12-13
I tried
perl -pibk -e "s/Q5[A-F]\_[0-9]{2}\s([0-9]{2})/$1\-$1+1/" file
but all that gives me is
Q5A_01 10-10+1
Q5A_02 12-12+1
Any suggestions?
Lance
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 04 May 2000 19:08:13 -0400
From: Tina Mueller <tina@streetmail.com>
Subject: Re: adding numbers in regexp
Message-Id: <8esvsp$9im99$1@fu-berlin.de>
hi,
Lance Hoffmeyer wrote:
> Is there a way for me to add numbers in a regexp from the command
> prompt?
>
> I have a file that has
>
> Q5A_01 10
> Q5A_02 12
> that I want to change to
> Q5A_01 10-11
> Q5A_01 12-13
>
> I tried
>
> perl -pibk -e "s/Q5[A-F]\_[0-9]{2}\s([0-9]{2})/$1\-$1+1/" file
>
> but all that gives me is
>
> Q5A_01 10-10+1
> Q5A_02 12-12+1
try out
perl -pibk -e "s/Q5[A-F]\_[0-9]{2}\s([0-9]{2})/"$1-".($1+1)/e" file
the e-switch evaluates the substitution.
perldoc perlre
tina
--
tinamue@gmx.net | _ enter the
http://user.berlin.de/~tina.mueller | __| |___ ___ _ _ ___
-- new: tina's moviedatabase --| / _` / _ \/ _ \ '_(_-< of
--search & add comments or reviews--| \__,_\___/\___/_| /__/ perception
------------------------------
Date: Thu, 4 May 2000 16:11:25 -0700
From: Larry Rosler <lr@hpl.hp.com>
Subject: Re: adding numbers in regexp
Message-Id: <MPG.137ba376ff5609e798aa06@nntp.hpl.hp.com>
In article <8essgt$gv$1@nnrp1.deja.com> on Thu, 04 May 2000 22:10:50
GMT, Lance Hoffmeyer <vibrato@my-deja.com> says...
> Is there a way for me to add numbers in a regexp from the command
> prompt?
>
> I have a file that has
>
> Q5A_01 10
> Q5A_02 12
> that I want to change to
> Q5A_01 10-11
> Q5A_01 12-13
>
> I tried
>
> perl -pibk -e "s/Q5[A-F]\_[0-9]{2}\s([0-9]{2})/$1\-$1+1/" file
>
> but all that gives me is
>
> Q5A_01 10-10+1
> Q5A_02 12-12+1
No it doesn't, because you didn't capture the first part of each line.
> Any suggestions?
Regex shortened and corrected; substitution evaluated by interpolation:
perl -pibk -e "s/(Q5[A-F]_\d\d\s(\d\d))/$1-${\($2+1)}/" file
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 05 May 2000 00:20:13 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: BUG? Get comand line parameter with ActiveState Perl
Message-Id: <3914135b.10142230@news.skynet.be>
Markus Enders wrote:
>print "Anzahl:".$#ARGV."\n";
Er... that's one too few.
print "Anzahl:" . @ARGV . "\n";
Since you concat strings, @ARGV will be processed in scalar context.
p.s. This is all pretty much beside the point, isn't it? Sorry for that.
--
Bart.
------------------------------
Date: Thu, 4 May 2000 15:39:28 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: Clear and then Reuse a package name space
Message-Id: <Pine.GSO.4.10.10005041538020.6766-100000@user2.teleport.com>
On Thu, 4 May 2000, Bart Lateur wrote:
> If you "use strict", this will force you to declare all globals.
Well, not quite. That won't forbid things like $Q::fred, which the
original poster had been using. :-(
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 04 May 2000 15:32:09 -0700
From: douceur <douceurNOdoSPAM@flashmail.com.invalid>
Subject: crypt problems
Message-Id: <04157000.3a8cc8e1@usw-ex0106-044.remarq.com>
I'm making a cgi script that uses encrypted passwords. But I'm having
a problem with the crypt() function. When I use it in one area of the
script, and then I use it in another area of the script (with the same
password), it gives different values. I therefore can't use the same
password file, although I'm sure that I should be able to. Any help
would be appreciated.
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 04 May 2000 22:27:27 GMT
From: ttram@my-deja.com
Subject: DBI, DBD, Oracle
Message-Id: <8estfs$1oh$1@nnrp1.deja.com>
I was wondering if it is possible to create a
statement to create a user using the DBI and DBD
properties of Perl? Can I do something like
$sql = "create user test identified by test
default tablespace users temporary tablespace
temp quota 15M on users";
$stmt = $dbh->prepare($sql);
$stmt->execute();
When I do that, I seem to get an error, but I am
not sure what the error is.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 04 May 2000 15:53:10 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: DBI, DBD, Oracle
Message-Id: <3911FF56.E5F19343@My-Deja.com>
>
> $stmt = $dbh->prepare($sql);
> $stmt->execute();
>
check value of $dbh->errstr after each of these statements
eg.
$stmt = $dbh->prepare ( $stmt ) || die $dbh->errstr ;
For non select statements use do ()
eg
$dbh->do(" CREATE user test...") or die $DBI::errstr;
--
------------------------------
Date: Thu, 04 May 2000 23:52:28 GMT
From: atramos_us@my-deja.com
Subject: Extracting string from B::PVNV obj
Message-Id: <8et2fm$708$1@nnrp1.deja.com>
I'm trying to dump a subroutine's lexicals using the
B module. (for post-mortem debugging)
The following almost works. I can get the variable
values, but not the names, which are stuck inside
B::PVNV objects. Perl crashes if I uncomment the
$obj->PV line. Any suggestions?
thanks
Alex Ramos
##################################################
# SAMPLE CODE.
# does not do anything useful. may be incorrect.
# SAMPLE OUTPUT
# 'B::PVNV=SCALAR(0x10c5e2c)' => 10
# B::PVNV=SCALAR(0x10c5e44)' => 20
# 'B::SPECIAL=SCALAR(0x10c5e5c)' => B::NULL=SCALAR(0x10c2014)
# -> 17553480
# 'B::SPECIAL=SCALAR(0xca4974)' => B::AV=SCALAR(0x10c5e20)
# -> 17553444
##################################################
use B;
use Dumpvalue;
sub a {
my $x = 10;
my $y = 20;
b();
}
sub printable {
my $obj = shift;
if ($obj->isa('B::PVNV')) {
#return $obj->PV;
} elsif ($obj->isa('B::IV')) {
return $obj->IV;
}
return $obj;
}
sub b {
my $cv = \&a;
my $obj = B::svref_2object($cv);
my($padnames, $padvals) = $obj->PADLIST->ARRAY;
my @names = map { &printable($_) } $padnames->ARRAY;
my @vals = map { &printable($_) } $padvals->ARRAY;
my %hash;
@hash{@names} = @vals;
my $dumper = new Dumpvalue;
$dumper->dumpValue(\%hash);
}
a();
#######################################
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 4 May 2000 16:42:09 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: FYI : Compiling Perl to EXE (Windows or UNIX)
Message-Id: <Pine.GSO.4.10.10005041541100.6766-100000@user2.teleport.com>
On Thu, 4 May 2000 exhacker@my-deja.com wrote:
> Basically, when you run the Perl version from the command prompt, I
> can see on my internet monitor that "spikes" occur, instead of the
> almost-steady stream of the compiled version.
That sounds like the remote machine sent "spikes" of data when you were
observing the non-"compiled" form, just by coincidence. In any case,
you're talking about network stuff, which compiling doesn't affect.
> But with the slight decrease in size, I was able to run 6 copies of
> the program instead of 4.
Well, if it's really that much smaller, I'd have to admit that "compiling"
has a benefit. But I strongly suspect that part of the size difference is
due to shared memory. If you're running six copies of the same binary,
there's probably only one in memory. If you launch six copies of the same
Perl program, although the perl binary is shared, the compiled code (in
memory) is duplicated. But don't launch six copies! Launch one which
forks, and you'll get some shared-memory benefits. Probably not so much as
with a single binary, though, I'll admit.
But you could (should?) re-write your program to use LWP::ParallelUA - and
then you wouldn't need to run six or four to get parallel benefits. It
would probably be even faster, and use even less memory besides.
> But I do see your point. With a standard dialup, there may be no
> noticeable increase in download speed. That has too many factors
> for me to go into. I do have a DSL connection, and I see 200K/s
> often enough to know that lag is not the problem in this case.
There is no connection between the speed of your connection and whether
your program was "compiled" or not! (Unless you're claiming that the
non-"compiled" form couldn't keep up with the throughput, or some such.)
> I can't speak for the author of any software but my own. But I know
> that with a high-speed, low-latency network, small increases in speed
> come to light after a few hours of downloading.
I suspect that you haven't tried enough runs of both the "compiled" and
non-"compiled" forms to see that the differences in their performance are
due primarily to random network delays.
You say you can't give out your source, so we'll have to be left to
(dis)believe you without proof. But if such grand speed increases as 50%
reduction are typical, it should be easy to prove.
Here's my counter-claim:
Make a real-world Perl program and its "compiled" equivalent, using
a current version of Perl2Exe. The program may use any module from
the Perl 5.005 or 5.6 standard distributions. If you wish to use any
other widely-accepted module from CPAN (like LWP, for example), I'll
probably allow that, too. If "compiling" with Perl2Exe can reliably
speed normal execution by more than 30% on Linux, SunOS, or Windows,
I claim that the program can be replaced by a better-written Perl
program which will also be at least 30% faster than the original. Of
course, you'll need to make both the source and the "compiled" forms
available for the world to download.
So, in short, I don't believe that there is a real-world, properly-written
Perl program which gains speed by 30% (let alone 50%!) from being
"compiled" by Perl2Exe. If you can write such a thing, perhaps we should
arrange for a challenge: I've got $1000 to put up to support my side.
Please, prove me wrong!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 4 May 2000 23:23:52 +0100
From: Alan Legg <a.legg@btinternet.com>
Subject: Help meeded with web to mail cgi without response
Message-Id: <01HW.B537B7080003DCAD1268A24C@news.btinternet.com>
Hi,
I have a web to mail CGI script that works just fine, now what I am after is
a similar script that allows the user to enter some data on a form and post
it to the server without the server generating any form of reply.
At the end of this message is a cut down version of a working script that
sends back a reply. I have tried removing the #Success and #Failure sections
along with the &blank_response call and I get an error stating that the page
contained no data. So then I removed the line that prints the Content-type
and then I get a server configuration error.
Can anyone help?
Many thanks,
Alan Legg.
#!/bin/perl -- -*-perl-*-
$mailprog = '/usr/lib/sendmail';
$recipient = 'a.legg@btinternet.com';
print "Content-type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
&blank_response unless $FORM{'email'};
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'name'})\n";
print MAIL "Subject: WWW Information Request\n\n";
print MAIL " Name: $FORM{'name'}\n";
print MAIL " E-Mail: $FORM{'email'}\n\n";
print MAIL " Company: $FORM{'company'}\n";
print MAIL "Telephone: $FORM{'phone'}\n";
close (MAIL);
#Success
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>\n";
<< rest of web page >>>
print "</BODY>\n";
print "</HTML>\n";
#Failure
sub blank_response
{
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>\n";
<< rest of web page>>
print "</BODY>\n";
print "</HTML>\n";
exit;
}
------------------------------
Date: Thu, 04 May 2000 17:04:44 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Help meeded with web to mail cgi without response
Message-Id: <3912101C.E01973AA@My-Deja.com>
> what I am after is
> a similar script that allows the user to enter some data on a form and post
> it to the server without the server generating any form of reply.
let the server sent HTTP status code 204
which means
Server has received the request but there is no information to send back, and
the client should stay in the same document view. This is mainly to allow input
for scripts without
changing the document at the same time.
------------------------------
Date: Fri, 05 May 2000 00:54:26 GMT
From: laporte@pcpros.net (Dave LaPorte)
Subject: Help running my app from cron. Enviromental varl issue..?
Message-Id: <391219b3.47947244@news.pcpros.net>
Could someone please help me with the following. I have
written a small perl app that goes to a NFS's dir between AIX unix and
RedHat linux 6.0. the dir /home/wscfax actaully exists on the linux
box. Any way a cobol program writes a quote file to the /home/wscfax.
Then my program will be fired off from Roots cron and checks that dir,
if it finds files it will either fax or email off the file.
The program works perfectly, I can execute it as myself or
as Root user manually. But when I try to execute the program using a
cron entry for root, the program seems to stop about halfway through.
Here's roots cron entry
" */5 * * * * /home/scripts/sendquote "
the */5 is to have the app run every 5 minutest 24/7
Here's the perl code
#!/usr/bin/perl -w
##############################################################
#
#
# Sendquote -- will ( on execution ) change to the /home/wscfax
# dir and search through all files in that specified
# directory searching for any *.quote files.
#
# Once a *.quote file is detected the program will
# search for the corresponding *.control file to
# obtain the flag.
#
# Flag = 'F' // send quote as fax
# Flag = 'E' // send quote as email
#
# Once the flag is determined the *.control file is
# read again to obtain the fax number or email
# address & username.
#
# Sendquote will Fax or email off the quote to
# its proposed destination. If for some reason the
# program cannot obtain a proper flag user 'dave' is
# emailed with the ticket number that failed.
#
# If for some reason Hylafax is unable to send a
# fax ( due to a wrong fax number etc. )
# user "bob" is emailed with the user
# name and fax number that failed.
#
# The email portion of this program is unique where
# The program ( being run by Root ) will send the
# mail message using sendmail, and change the From:
# portion to the <username> from the .control file.
# By changing the From: portion of sendmail, all
# returned mail will go to the PC users email address.
#**************************************************************
#**************************************************************
# search_names() *
#**************************************************************
# *
# *
# The function search_names( ) does a cross referance of *
# unix user name to the corporate email user name. *
# the file /home/scripts/namefile contains a line per user *
# in the format of unixname:emailname seperated by a colon. *
# The function opens the file and reads line by line *
# comparing unix names until it finds a match, when a match *
# occurs the function returns the email name. If no match *
# is found the function will return the string "NO". *
# Note: The whole purpose of this function is to get *
# senders email name so that any returned email will go *
# to the senders normal email acoount vs their unix account *
# *
#**************************************************************
sub search_names
{
my($currentname);
my($mailname);
my($tempstring);
my($first);
$currentname = $_[0]; # get the 1st. arg of function array.
# open the 'namefile' for lookup
# use eval to trap errors from die
# the eval() function will trap any error msg's
# without actually allowing die to kill the program.
# Note: the if test checks at the start of every line
# for the work "error".
eval{ open(NAMES, "/home/scripts/namefile") || die "error" };
if ( $@ =~ m/^error/)
{
system("echo \"can't open /home/scripts/namefile.\" \|
mail -s \"File Error\" dave\@internet.com" );
exit;
}
while($tempstring = <NAMES>)
{
chomp($tempstring);
$first = $tempstring;
$first =~ s/:.*//; # strip everything from the : back
if($currentname eq $first)
{
$mailname = $tempstring;
$mailname =~ s/.*://; # strip everything form the : forward
close(NAMES);
return($mailname);
last;
}
}
close(NAMES);
return("NO"); # No match found exit with an error.
} # End while
# main engine.
# move to the dir /home/wscfax
eval{ chdir("/home/wscfax") || die "error" };
if ( $@ =~ m/^error/)
{
system("echo \"can't change to /home/wscfax\" \|
mail -s \"Error Changing directory\" dave\@internet.com" );
exit;
}
while($quotefile = <*.quote>) # glog for files
{
$control = $quotefile;
$control =~ s/.quote/.control/; # strip and replace extensions
eval{ open(CONTROLFILE, $control) || die "error" };
if ( $@ =~ m/^error/)
{
system("echo \"Can't open .control file\" \|
mail -s \"File Error\" dave\@internetl.com" );
exit;
}
$flag = <CONTROLFILE>; # read file, get flag value
chomp($flag);
$destination = <CONTROLFILE>; # read file, get fax# or email
address
chomp($destination);
$name = <CONTROLFILE>; # get senders name
chomp($name);
# Check flag to see if were faxing or emailing.
if ($flag eq "F" )
# The following $erradd contains the email address
# that Hylafax will email it's error messages to.
# $longname = $name . "'s"; # concat name with an 's.
# $erradd = "-f bob\@internet.com";
# $errmsg = " -i \"$longname fax didn't go\" ";
# Send the fax
# system("sendfax $erradd $errmsg -n -d $destination
$quotefile");
} elsif ($flag eq "E" ) {
# get the correct email name, for user name.
$returnvalue = search_names($name);
# mail error message
$longname = $name . "'s"; # concat strings.
$mailmsg = "\"$longname email didn't go\" ";
if ($returnvalue eq "NO" )
{
# user isn't authorized for email
system("mail -s $mailmsg username\@internet.com <
$quotefile ");
} else {
# format the email for the new From: To: Subject:
$mailheader = "From: $returnvalue\@internet.com\n";
$mailheader = $mailheader . "To: $destination\n";
$mailheader = $mailheader . "Subject: Steel Quote\n";
eval{open( MAIL, "|sendmail -t" ) or die "error" };
if ( $@ =~ m/^error/)
{
system("echo \"Error opening sendmail\" \|
mail -s \"mail error\" dave\@internet.com" );
exit;
}
eval{open( FILE, "<$quotefile" ) or die "error" };
if( $@ =~ m/^error/)
{
system("echo \"Error opening quotefile\" \|
mail -s \"error opening quotefile\" dave\@internet.com");
exit;
}
print MAIL $mailheader;
while( <FILE> ) # loops and prints each line of file to mail.
{
print MAIL; # each line file the .quote file is printed to
mail.
};
close(FILE);
close(MAIL);
} # end if()
} else {
# if an unusable flag has been printed by a cobol program
# this will fire off an email to dave.
system( "echo \"Problem sending $quotefile Flag = $flag \" \|
mail dave\@internet.com" );
}
close CONTROLFILE;
unlink($quotefile);
unlink($control);
} # end while()
exit; # end of program
********************************************************************************
Again this program runs fine and does exactly what is is
supposed to do when run by a normal user or root, but when I try to
have root's cron entry do it, It screws up.
I hear that possibly enviromental Var's were the culprit, but
I have no Idea how to fix it. I tried doint this command as root.
#set > /home/temp/rootsvars
to capture root's enviromental var's, and then just calling my app
from a line added to rootsvars, but that didn't work either.
Would anyone have any idea what I need to do to get this app
to run like it should from root's crontab entry...?
Please feel free to email me at
dave@wausausteel.com
laporte@pcpros.net
------------------------------
Date: Thu, 04 May 2000 15:29:58 -0700
From: Makarand Kulkarni <makarand_kulkarni@My-Deja.com>
Subject: Re: Help............A easy CGI question !!!!!!!!!!!!!!!!!!!!
Message-Id: <3911F9E5.E1A9563@My-Deja.com>
> wrote like this "/usr/bin/perl -T".
it should be
#!/usr/bin/perl
> Can someone gives me some information about this
> and what the argument "-T" mean ?
check
perldoc perlsec
------------------------------
Date: Thu, 04 May 2000 19:19:16 -0400
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Help............A easy CGI question !!!!!!!!!!!!!!!!!!!!
Message-Id: <8et0hg$9mcik$2@fu-berlin.de>
--------------DE0E2D759DD06E560AFC2546
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
hi,
Makarand Kulkarni wrote:
> > wrote like this "/usr/bin/perl -T".
>
> it should be
> #!/usr/bin/perl
well, at least
#!/usr/bin/perl -w
tina
--
tinamue@gmx.net | _ enter the
http://user.berlin.de/~tina.mueller | __| |___ ___ _ _ ___
-- new: tina's moviedatabase --| / _` / _ \/ _ \ '_(_-< of
--search & add comments or reviews--| \__,_\___/\___/_| /__/ perception
--------------DE0E2D759DD06E560AFC2546
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
hi,
<p>Makarand Kulkarni wrote:
<blockquote TYPE=CITE>> wrote like this "/usr/bin/perl -T".
<p>it should be
<br>#!/usr/bin/perl</blockquote>
well, at least
<br>#!/usr/bin/perl -w
<br>
<p>tina
<br>
<pre>--
tinamue@gmx.net | _ enter the
<A HREF="http://user.berlin.de/~tina.mueller">http://user.berlin.de/~tina.mueller</A> | __| |___ ___ _ _ ___
-- new: tina's moviedatabase --| / _` / _ \/ _ \ '_(_-< of
--search & add comments or reviews--| \__,_\___/\___/_| /__/ perception</pre>
</html>
--------------DE0E2D759DD06E560AFC2546--
------------------------------
Date: Thu, 04 May 2000 18:13:53 -0400
From: Eryq <eryq@zeegee.com>
Subject: How to tell if <> operator will work on a given scalar?
Message-Id: <3911F621.10C6FD45@zeegee.com>
Suppose someone gives me $fh, and I want to know
whether or not
<$fh>
will be a problem.... *without* actually executing it.
I.e.: is $fh a real or tied filehandle?
Similarly for
print $fh "foo";
Is there a way to do it?
E'q
------------------------------
Date: Thu, 04 May 2000 19:14:42 -0400
From: Tina Mueller <tina@streetmail.com>
Subject: Re: How to tell if <> operator will work on a given scalar?
Message-Id: <8et090$9mcik$1@fu-berlin.de>
hi,
Eryq wrote:
> Suppose someone gives me $fh, and I want to know
> whether or not
>
> <$fh>
>
> will be a problem.... *without* actually executing it.
> I.e.: is $fh a real or tied filehandle?
i'm not sure if
ref is the function which can help you.
try out
print ref \$fh;
tina
--
tinamue@gmx.net | _ enter the
http://user.berlin.de/~tina.mueller | __| |___ ___ _ _ ___
-- new: tina's moviedatabase --| / _` / _ \/ _ \ '_(_-< of
--search & add comments or reviews--| \__,_\___/\___/_| /__/ perception
------------------------------
Date: Thu, 04 May 2000 22:54:31 GMT
From: Jason Hurst <gorgano@altavista.com>
Subject: Long insert feilds with ODBC/Access
Message-Id: <8esv30$3kd$1@nnrp1.deja.com>
I'm trying to put a long string in to an access database, whenever i do
i get:
------
257DBD::ODBC::st execute failed: [Microsoft][ODBC Microsoft Access 97
Driver]Invalid precision value (SQL-S1104)(DBD:
_rebind_ph/SQLBindParameter err=-1)
------
I know there is something that allows you to specify you want to READ
long strings (which i'm using), but is there something that specifies
that you want to WRITE long strings? Here is the code i'm using:
-------------
$dbh = DBI->connect('dbi:ODBC:Database') || print "Connection failed:
$DBI::errstr\n";
### Database handler ###
$dbh->{LongReadLen}=9999;
$dbh->{LongTruncOk}=1;
###
$sql = qq{ UPDATE table SET Description=? WHERE PID = 100 };
$sth = $dbh->prepare($sql) || print "Unable to prepare $sql:
$DBI::errstr\n";;
$sth->execute( $cgi{"description"} ) || &exe_err($DBI::errstr);
------------
anytime i put more than 256 char in i get the error message... Any
ideas? Thanks in advance!
-jason
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 5 May 2000 00:30:00 GMT
From: The WebDragon <nospam@devnull.com>
Subject: more than one way to do it?
Message-Id: <8et4m8$pdg$0@216.155.33.19>
apparently there's more than enough WRONG ways to do it, as well as the
'right ways'
$mapDir = param('mapstyle') || "ERROR" if param('mapstyle') eq '--CHOOSE
ONE--';
looks great, less filling, breaks at runtime.
how do I write this properly?
just another perl[1] newbie =]
[1] puling, erroneous, recalcitrant, lamer,
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: 5 May 2000 00:43:06 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: more than one way to do it?
Message-Id: <slrn8h468q.ere.sholden@pgrad.cs.usyd.edu.au>
On 5 May 2000 00:30:00 GMT, The WebDragon <nospam@devnull.com> wrote:
>apparently there's more than enough WRONG ways to do it, as well as the
>'right ways'
>
>$mapDir = param('mapstyle') || "ERROR" if param('mapstyle') eq '--CHOOSE
>ONE--';
>
>looks great, less filling, breaks at runtime.
>
>how do I write this properly?
Anything wrong with:
if (param('mapstyle') eq '--CHOOSE ONE--') {
$mapDir = 'ERROR';
} else {
$mapDir = param('mapstyle');
}
-or-
$mapDir = param('mapstyle');
$mapDir = 'ERROR' if $mapDir eq '--CHOOSE ONE--';
-or-
change the HTML to (or the appropriate for the construct you are using):
<OPTION VALUE="ERROR">--CHOOSE ONE--
-or-
sub get_mapstyle {
my $mapstyle = param('mapstyle');
return $mapstyle eq '--CHOOSE ONE-'?'ERROR':$mapstyle;
}
$mapDir = get_mapstyle();
-or-
one of the many other approaches I'm sure you can come up with.
There is no need to do everything with one line (although you could use
?: to do so if you really needed to...)
--
Sam
I took the initiative in creating the Internet.
--Al Gore
------------------------------
Date: Thu, 04 May 2000 17:55:45 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: more than one way to do it?
Message-Id: <39121C11.E9F444C5@vpservices.com>
The WebDragon wrote:
> apparently there's more than enough WRONG ways to do it,
> as well as the 'right ways'
>
> $mapDir = param('mapstyle')
> || "ERROR" if param('mapstyle') eq '--CHOOSE ONE--';
>
> looks great, less filling, breaks at runtime.
>
> how do I write this properly?
my $mapDir = (
param('mapstyle') eq '--CHOOSE ONE--'
? "ERROR"
: param('mapstyle')
);
OR
my $mapDir = param('mapstyle');
$mapDir = 'ERROR' if $mapDir eq '--CHOOSE ONE--';
--
Jeff
------------------------------
Date: Thu, 04 May 2000 23:09:36 GMT
From: efinley@efinley.com (Elliot Finley)
Subject: Re: Perl & delivering Databases?
Message-Id: <39160278.72617631@news.firstworld.net>
On Thu, 4 May 2000 17:50:30 +0200, "Martijn Tonies"
<remove_seal97@dds.nl> wrote:
>My guess is that your first plan would be slow... very slow... What about a
>3-tier solution here?
>
>Build a server application that connects to the database from localhost and
>build a client app that connects to the server app...
Why not just use the stuff in Bundle::DBI from CPAN? I don't recall
the name of the modules, but there is one (two?) that allows you to
set up a proxy on the box that has the DB running. The proxy accesses
the DB from localhost, but provides remote network access to the Perl
DBI.
--
Elliot (efinley@efinley.com) Weird Science!
------------------------------
Date: 4 May 2000 23:52:42 GMT
From: zeadeATboink.stanford.edu <spammers_suck@[127.0.0.1]>
Subject: Problem using Crypt::CBC
Message-Id: <8et2ga$cji$1@nntp.Stanford.EDU>
This initially looked like a great library to do cipher block chaining with
DES or Blowfish, but has since caused headaches because it's a "Perl only"
implementation. It munges the key (creates an MD5 hash of the key and takes
N bytes for the key and N bytes for the IV -- initialization vector), and it
munges the encrypted string to randomize the output. Anything encrypted
using Crypt::CBC requires Crypt::CBC to decrypt (or mimic exactly the
behavior of the module).
My problem is I have one end in Perl land and one end in Java land, and I'm
tired of jumping through hoops. I had modified the Java end to work with
the encryption/decryption methods going on in Crypt::CBC, but it's become
too much of a pain (especially trying to get Blowfish to work), so now I'm
looking to make a "pure" implementation of CBC in Perl (where the key
doeesn't get munged, the IV is supplied, and possibly specify the padding,
ala Java).
My question is: has anyone else done this? Has anyone else experienced this
same kind of problem? Why was Crypt::CBC implemented this way?
thanks,
Micah
--
perl -e's;^;nsiC%by:n19%o>o2z4on19%`"t2z`fn3o.%.2o.z.2o.g4og.5o.g.4o.4%;;\
s;$;f%.2o.n`fP"Y2>bP"Y2>bz`fzd2>t%`"Y>%`Pz)2>bgfP"Y2>bn%p#f8%.oP"#n%p#p;;\
s;$;.o>%d>(z#n____`Y>bod>Pt%`Yf2">o%__n;;s;#;ppfz;g;s;p;fg;g;s;_;ofo%;g;;\
s;z;2%;g;s;g;3%;g;s;f;3>;g;s;(\d+)(.);$2x$1;eg;y;t>%nC;\x278 \ng;;print;'
------------------------------
Date: Thu, 04 May 2000 22:12:02 GMT
From: Daniel Pfeiffer <occitan@esperanto.org>
Subject: Re: Regexp speed (was: Help: bol regexp in split string)
Message-Id: <8essj4$hm$1@nnrp1.deja.com>
In article <x74s8fxpfo.fsf@home.sysarch.com>,
Uri Guttman <uri@sysarch.com> wrote:
> >>>>> "DP" == Daniel Pfeiffer <occitan@esperanto.org> writes:
DP> Till then, it seems like $` and $' are generally after all a
DP> good thing where needed!
> do you understand the slowdown of $` and $' at all? it has nothing to
> do with the single regex where you use them. they slow down ALL other
> regexes in your entire program because they require extra copies of
> the string to be made in case you use those special vars.
> there is no need for them programmatically as you can always use
> grouping before and after so the rule is simply don't use them,
> period.
Well, I showed in my third benchmark, which you chose to ignore in your
reply, that grouping before and after are slightly less performant than
$` and $'. So if there aren't too many other regexps, it might be ok.
Besides I tested this with a primitive (.*) that would match only 1 or 2
characters.
In real life, since my strings and regexp are multiline and long, I'd
have to test ([\s\S]*), ((?s).*) or something like that. Looks more
costly yet!
This would be nicer, if I could simply find the match indexes, like
Emacs' (match-beginning 0) and (match-end 0). For the latter, and
apparently only if using //g, Perl has the pos function, but for the
former, there seems to be nothing.
Hopefully, I'm missing something?
--
Bring text-docs to life! Erwecke Textdokumente zum Leben!
http://beam.to/iPerl/
Vivigu tekstodokumentojn!
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 04 May 2000 22:40:48 GMT
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Regexp speed (was: Help: bol regexp in split string)
Message-Id: <x7u2gevt00.fsf@home.sysarch.com>
>>>>> "DP" == Daniel Pfeiffer <occitan@esperanto.org> writes:
DP> Well, I showed in my third benchmark, which you chose to ignore in
DP> your reply, that grouping before and after are slightly less
DP> performant than $` and $'. So if there aren't too many other
DP> regexps, it might be ok. Besides I tested this with a primitive
DP> (.*) that would match only 1 or 2 characters.
one more time. you can't benchmark $' and $` vs grouping in a single
program because the former MODIFY the operations of ALL other regexes in
the entrie program. you have to write one program for each and run them
side by side. this is not what you have done. in fact grouping might be
slower in your cases since it does every thing the $` version does (the
extra copy) and more work with the group copying.
DP> This would be nicer, if I could simply find the match indexes, like
DP> Emacs' (match-beginning 0) and (match-end 0). For the latter, and
DP> apparently only if using //g, Perl has the pos function, but for the
DP> former, there seems to be nothing.
5.6 has the @+ and @- variables which do just this.
DP> Hopefully, I'm missing something?
yes, you are. don't use $` and $'. i won't repeat this again.
uri
--
Uri Guttman --------- uri@sysarch.com ---------- http://www.sysarch.com
SYStems ARCHitecture, Software Engineering, Perl, Internet, UNIX Consulting
The Perl Books Page ----------- http://www.sysarch.com/cgi-bin/perl_books
The Best Search Engine on the Net ---------- http://www.northernlight.com
------------------------------
Date: Thu, 04 May 2000 16:15:41 -0700
From: Schieber <bschieberNObsSPAM@tidemarksys.com.invalid>
Subject: Re: Session management module for PerlEx?
Message-Id: <05b53d35.7210e3ae@usw-ex0101-007.remarq.com>
Hello,
Wondering if you ever got an answer on this question as I have
the same problem. Trying to use PerlEx with some exiting OO
Perl.
Thanks!
-Brian
In article <8btoh6$m08$1@nnrp1.deja.com>, glaserp@dialogic.com
wrote:
>I am at the very beginning of a fairly large development effort
and am
>loathe to use ASP. I've done some research on PerlEx from
ActiveState.
>PerlEx is an alternative to plain-vanilla CGI and Perl that
increases
>performance to beyond what ASP does and also is less
destabilizing to
>the server. Like ASP, it also provides persistent data base
connections
>per executable.
>
>The only shortcoming is that, unlike perl_mod (the Unix
equivalent of
>PerlEx), it does not provide built in session management. That
being
>the case, I'm wondering:
>
>1) Is there anyone out there who has developed a session
management
> module
> that they'd be willing to share, or whether there's something
> comercially available.
>
>2) What is there to session management, anyway? I mean, unless
I've
> totally missed the point, all you're doing is looking for a
cookie
> with a session ID and then matching that up with some data
you've
> saved in a data base table or perhaps in RAM. If I were
forced to
> develop entirely from scratch, what would this take? Maybe
one
> month after adequate testing?
>
>I want to sell PerlEx to my management, but in order to do so
I'll need
>to be very clear about what's involved to develop the session
>management thing. If I can borrow heavily or wholesale, all the
better;
>if I need to develop, I'll need to make clear estimate.
>
>Many thanks!
>
>Phil Glaser
>
>
>Sent via Deja.com http://www.deja.com/
>Before you buy.
>
>
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: Thu, 04 May 2000 22:46:11 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: Tanspose rows to columns
Message-Id: <sh3vdjqfgbn8@corp.supernews.com>
jimbob4334@my-deja.com wrote:
: I have been trying to convert this:
:
: 4|3|7|0|2|0|2|0|2|1|1|0|2|3|0|0|0|0|0|0|0|0|0|0|1.1|
: 6|2|3|4|6|3|6|8|6|1|2|5|3|7|2|0|0|0|0|0|0|0|0|0|1.2|
: 0|0|0|0|0|0|0|0|0|0|0|0|0|5|3|0|0|0|0|0|0|0|0|0|1.3|
:
: into this:
:
: <PRO>
: 1.1
: 1.2
: 1.3
: </PRO>
: <DATA>
: 4 6 0
: 3 2 0
[snip]
: 0 0 0
: 0 0 0
: </DATA>
#!/usr/bin/perl -w
# transpose - demo of data matrix tranposing for clpm
# Craig Berry (20000504)
use strict;
my @rows;
while (<DATA>) {
my @cols = split /\|/;
$#cols--; # Ditch empty field following final pipe.
push @rows, [ @cols ];
}
print "<PRO>\n",
map({ pop(@$_) . "\n" } @rows),
"</PRO>\n<DATA>\n";
print join("\t", map { shift @$_ } @rows), "\n" while @{$rows[0]};
print "</DATA>\n";
__DATA__
4|3|7|0|2|0|2|0|2|1|1|0|2|3|0|0|0|0|0|0|0|0|0|0|1.1|
6|2|3|4|6|3|6|8|6|1|2|5|3|7|2|0|0|0|0|0|0|0|0|0|1.2|
0|0|0|0|0|0|0|0|0|0|0|0|0|5|3|0|0|0|0|0|0|0|0|0|1.3|
--
| Craig Berry - cberry@cinenet.net
--*-- http://www.cinenet.net/users/cberry/home.html
| "The road of Excess leads to the Palace
of Wisdom" - William Blake
------------------------------
Date: 5 May 2000 00:52:06 GMT
From: The WebDragon <nospam@devnull.com>
Subject: Re: tesxtarea input to <p>paragraph</p> format -- how?
Message-Id: <8et5vm$sor$0@216.155.33.19>
In article <MPG.137b770f216a52c498aa03@nntp.hpl.hp.com>, Larry Rosler
<lr@hpl.hp.com> wrote:
| In article <8esia5$dn6$0@216.155.32.166> on 4 May 2000 19:16:21 GMT, The
| WebDragon <nospam@devnull.com> says...
| > I need script a cgi to take input from a textarea field, to be passed
| > to
| > the same script it is contained in, and processed into paragraph
| > formatted html with
| >
| > paragraph 1
| >
| > paragraph 2
| >
| > being converted to
| >
| > <p>paragraph1</p>
| > <p>paragraph2</p>
| >
| > formattinand then saved into a scalar for inclusion later on in an
| > html
| > output file the script generates towards the end..
| >
| > possible? and how? :)
|
|
| #!/usr/bin/perl -w
| use strict;
|
| {
| local $/ = ""; # Set 'paragraph mode' -- see perlvar.
| print map { chomp; "<p>$_</p>\n" } <DATA>;
| }
| __END__
| This is a paragraph
|
| And so
| is this
| set of lines
|
| Yet another paragraph
|
|
| Output:
|
| <p>This is a paragraph</p>
| <p>And so
| is this
| set of lines</p>
| <p>Yet another paragraph</p>
|
|
| This won't display the line structure of the input, though. To do that,
| add this to the processing, after the chomp:
|
| s/\n/<br>\n/g;
|
| Any more discussion gets further from Perl and more toward HTML than we
| ought to here.
so, to see if I've got this straight (and thanks again for all the help
Larry -- kudos in the script comments when finished =)
if I have something produced from a CGI.pm-using script taken as
regurgitated values in param(), I could do something like this?
{
local $/ = ""; # Set 'paragraph mode' -- see perlvar.
$reviewText = map { chomp; "<p>$_</p>\n" } param('reviewtext');
}
$reviewText =~ s/\n/<br>\n/g;
(barely educated guess, but I'm learning)
that look about right?
--
send mail to mactech (at) webdragon (dot) net instead of the above address.
this is to prevent spamming. e-mail reply-to's have been altered
to prevent scan software from extracting my address for the purpose
of spamming me, which I hate with a passion bordering on obsession.
------------------------------
Date: Thu, 04 May 2000 16:18:54 -0600
From: Michael Roinestad <michaelr@apgtest.com>
Subject: Re: Win32::OLE::Variant Converting VB to Perl question (2nd attempt)
Message-Id: <3911F74E.72BD5F78@apgtest.com>
>> The Entity Object maybe native to VBA, but not in Perl. You don't
>> indicate that you are using the Win32::OLE module to instantiate
>> your VBA objects in Perl- make sure that you do.
All other communication's with AutoCAD are functional. This request comes after 30
other exchanges
have taken place. The other requests have no problem, but they do not require any
Variant-typed variables.
>> Look in your VBA object browser and get clear whether the return
>> values are Arrays of Variants, or Variant Arrays of widgets, or whatever. I can
>> not tell what this Entity object is, or I would look it up myself.
GetXData is supposed to fill the variables FilterType and FilterValue as a variant
array. Instead they contain
whatever they contained b4 the call to GetXData. GetXData doesn't actually return
any result's itself. (Too bad, otherwise this might not be a question at all).
>> Go here for more info on Win32 Perl...
>> http://public.activestate.com/authors/jandubois/Perl/TPC3/fun.html
Tried kept getting:
Socket Error
Connection to Remote Host timed out
I'll try later after a few more hours hair loss.
Thanks for trying,
Michael Roinestad
Mark_Pryor wrote:
> Michael Roinestad wrote in message <3911A902.15548781@apgtest.com>...
> > I have been having problems trying to convert a VBA module to Perl.
> > The following line shows how to use a method called GetXData in VBA.
> >
> > [-- Start of VBA example -- ]
> > Dim FilterType as Variant
> > Dim FilterValue as Variant
> >
> > Entity.GetXData("TEXT", FilterType, FilterValue) # and
> >that works in VBA
> > [ -- End of VBA example --]
>
> Michael,
>
> The Entity Object maybe native to VBA, but not in Perl. You don't
> indicate that you are using the Win32::OLE module to instantiate
> your VBA objects in Perl- make sure that you do.
>
> Look in your VBA object browser and get clear whether the return
> values are Arrays of Variants, or Variant Arrays of widgets, or whatever. I can
> not tell what this Entity object is, or I would look it up myself.
>
> Go here for more info on Win32 Perl...
> http://public.activestate.com/authors/jandubois/Perl/TPC3/fun.html
>
> HTH,
> Mark Pryor
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 2954
**************************************
