[14019] in Perl-Users-Digest
Perl-Users Digest, Issue: 1429 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Nov 19 14:10:58 1999
Date: Fri, 19 Nov 1999 11:10:43 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <943038643-v9-i1429@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 19 Nov 1999 Volume: 9 Number: 1429
Today's topics:
database <cure@texas.net>
Re: database <jeff@vpservices.com>
Re: database <jeff@vpservices.com>
Re: database (Martien Verbruggen)
Re: DBI questions (memory, signals) <rereidy@uswest.net>
DBI::Oracle timfi@my-deja.com
DBM database, many users ? <lhauta@koti.tpo.fi>
Re: DBM database, many users ? <gellyfish@gellyfish.com>
Re: Deleting or Unlinking a file help <asd@ds.aw>
Re: Deleting or Unlinking a file help <uri@sysarch.com>
Re: Deleting or Unlinking a file help <hartleh1@westat.com>
Re: developer required for advanced Perl work (Scott McMahan)
Re: developer required for advanced Perl work (Scott McMahan)
Re: Different browser behavior on '302 Redirect' (Kragen Sitaker)
Re: embedded perl engine in Windowss application (Scott McMahan)
Encryption Algorithm for Perl Source Code?? jut@letterbox.com
Re: environment vars <slanning@bu.edu>
Re: environment vars (Martien Verbruggen)
Re: environment vars <asd@ds.aw>
Re: environment vars <uri@sysarch.com>
Re: environment vars (Martien Verbruggen)
Error Using Access db Created in a Workgroup jkort@wimberley-tx.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 Nov 1999 22:09:17 -0600
From: Cure <cure@texas.net>
Subject: database
Message-Id: <3834CD6D.9EE02107@texas.net>
i have this code that will delte a user from my databse(im a newbie)))
how does this code delete a user, doesn't make since to me::
{
open(LIST,"$logfile" || &error('Could not open log file.'));
@logs = <LIST>;
close(LIST);
foreach $i (@logs) {
chop($i);
($username,$name,$email,$pwd) = split(/\|/,$i);
if($FORM{'user'} eq $username && $FORM{'passwd'} eq $pwd) {
open(LIST,">$logfile" || &error('Could not open log file.'));
foreach $i (@logs) {
@userd = split(/\|/,$i);
unless($userd[0] eq $FORM{'user'}) {
print LIST "$i\n";
}
}
close(LIST);
}
------------------------------
Date: 19 Nov 1999 02:09:13 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: database
Message-Id: <3834B0FD.858B350D@vpservices.com>
[quotes re-aranged in chronological order for legibility]
Cure wrote:
>
> Martien Verbruggen wrote:
> >
> > On Thu, 18 Nov 1999 17:51:02 -0600,
> > Cure <cure@texas.net> wrote:
> > > What is the easiest way to delete a user from a database..
> >
> > Euhmm.. database? Is this a relational database? A text file? a dbm
> > file?
> >
> justy wanted to know whats the easiest code to delete a user froma
> database
But that is like asking "what is the easiest way to eat food?" the
answer is different if the food is "raw carrots" or the food is "soup".
A spoon is not much help eating raw carrots.
I'm not trying to be snide, it's just that we can't answer your question
without knowing what format your database is in. Is it a plain text
file? If so, how is it delimited (i.e. what separates the fields and
records)?
If you don't know how to answer these questions, perhaps you could send
a *small* sample chunk of the database so we could see what you are
talking about. Or you could send the code you use to insert a user into
the database which would probably have enough clues to figure out from
it how to delete one.
OTOH, if you don't even know what format your database is in, it might
be a bit risky to start cutting and pasting code for deleting users into
your system.
--
Jeff
------------------------------
Date: 19 Nov 1999 05:28:39 GMT
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: database
Message-Id: <3834DFBB.9A877D5E@vpservices.com>
Cure wrote:
>
> i have a database that allow me to delete a user and the code works but
> it doesnt make sense to me, basically what im saying is that i d/l this
> cgi and i dont see how this code could delete a user out of the
> database. could soembody explain it to me or give me a better code
Ok, now we have something to work with. It is much easier to answer
questions about a specific piece of code.
> ($username,$name,$email,$pwd) = split(/\|/,$i);
Aha, so you are dealing with a pipe database (a text file that uses a
pipe "|" symbol to separate fields and a carriage return to separate
records).
The reason that you probably can not see how this code deletes a user,
is that it doesn't actually delete anything in the sense of removing
something rather it deletes by not adding something. What it does is
open the old log file and then write everything in it into a new log
file *except* the user who is to be deleted. So the new log file does
not contain the user, thus effectively deleting them from the database.
> open(LIST,"$logfile" || &error('Could not open log file.'));
> @logs = <LIST>;
> close(LIST);
> ...
> foreach $i (@logs) {
This opens the OLD log file for *reading* and reads its contents into an
array. Then cycles through that array.
> ($username,$name,$email,$pwd) = split(/\|/,$i);
This finds the information for each user in the old log file.
> open(LIST,">$logfile" || &error('Could not open log file.'));
This reopens the same log file for *writing*.
> unless($userd[0] eq $FORM{'user'}) {
> print LIST "$i\n";
This prints everything in the old log file to the new log file except
the user to be deleted.
Or at least all that is the logic the code you sent seems to want to
follow. In actual fact, the code you sent has lots of other problems
(like not including $! to show why opens might fail, like no file
locking, like not exiting the read-log loop before beginning the
write-log loop, etc.). Might I ask where you got the script?
I'm not sure what other scripts to recommend for someone of your
(current) level of programming. Perhaps others on the NG have some
suggestions.
--
Jeff
------------------------------
Date: 19 Nov 1999 12:12:10 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: database
Message-Id: <slrn83aflh.qs.mgjv@wobbie.heliotrope.home>
On Thu, 18 Nov 1999 22:09:17 -0600,
Cure <cure@texas.net> wrote:
> i have this code that will delte a user from my databse(im a newbie)))
>
> how does this code delete a user, doesn't make since to me::
Please forgive me for making more remarks than you probably want.
You are not using -w and strict,are you?
> {
> open(LIST,"$logfile" || &error('Could not open log file.'));
open(LIST, $logfile) || &error("Could not open $logfile: $!");
> @logs = <LIST>;
> close(LIST);
> foreach $i (@logs) {
It is better to use while(<LIST>) to read your file line by line,
especially if the file is potentially large.
> chop($i);
chomp is safer.
> ($username,$name,$email,$pwd) = split(/\|/,$i);
Ok, this tells us that you use a flat text file, and have '|' characters
between the individual fields. We'll just assume that you have taken
precautions to never insert a bare | in one of the fields. It is however
fairly imaaterial, since all we need to know is that the username is
at the start of the line.
> if($FORM{'user'} eq $username && $FORM{'passwd'} eq $pwd) {
> open(LIST,">$logfile" || &error('Could not open log file.'));
> foreach $i (@logs) {
> @userd = split(/\|/,$i);
> unless($userd[0] eq $FORM{'user'}) {
> print LIST "$i\n";
> }
> }
> close(LIST);
> }
You probably should read perlfaq5: How do I change one line in a
file/delete a line in a file/insert a line in the middle of a
file/append to the beginning of a file?
Something like the following might work:
$username = 'smitty';
open(LIST, $logfile) or die "Couldn't open $logfile: $!";
open(OUTLIST, ">$logfile.$$") or
die "Couldn't open $logfile.$$ for write: $!";
while(<LIST>)
{
# Print everything, except the line for $username
print OUTLIST unless /^\Q$username\|/;
}
close(OUTLIST);
close(LIST);
rename($logfile, "$logfile.bak") || die "Couldn't rename $logfile: $!";
rename("$logfile.$$", $logfile) || die "Couldn't rename $logfile.$$: $!";
If there is any chance of #logfile being concurrently accessed by
multiple programs, you should also make sure to get the appropriate
locks on the file.
Read:
# perldoc perlop
section I/O Operators to find out that while(<XXXX>) assigns to $_
# perldoc -f print
to find out that print prints $_ by default
# perldoc perlre
to find out what that pattern match does, and what the ^ and \Q mean
# perldoc -f flock
# perldoc perlopentut
for more information about locking of files
# perldoc perlvar to read about the $! and $$ variable
Martien
PS. I hope this satisfies Jakob's wishes. I gave him a banana, and I
showed him the tree. Now I just hope that he starts climbing.
PPS. If this doesn't make any sense, you haven't read all of todays
posts yet :)
--
Martien Verbruggen |
Interactive Media Division | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: Fri, 19 Nov 1999 16:51:46 -0700
From: Ron Reidy <rereidy@uswest.net>
Subject: Re: DBI questions (memory, signals)
Message-Id: <3835E292.7083AF72@uswest.net>
Jani,
The size of the script grows not because of some added data structs used by
DBI/DBD, but because of the inclussion of the Oracle libraries. This would
happen regardless of language used (i.e. Perl, C/C++, php3, etc.).
Jani Lahti wrote:
> Although Tom Christiansen recently posted a bit a faq which re-
> minded me that perl happily uses more memory to speed up things,
> I'd like some help.
>
> I'm running perl version 5.004_04 built for sun4-solaris, DBI
> version 1.13 and DBD::Oracle (the version which was out by the
> same time than DBI 1.13).
>
> When I open a DBI connection to Oracle, my script grows by 3MB. I
> understand it's because some more script data is being utilized and
> buffers reserved. It's just that I think 3MB is a bit too much.
> (Resident size of one process is mere 11-14 percent smaller than
> the actual size of one process.) Is there any ways to control how
> memory is used within DBI/DBD?
>
> There's potentially a couple of dozen of different 24/7-scripts
> with open DB connections running at any given time on one system,
> so even one MB per script saved would free quite a bit of memory.
> Most of the scripts wouldn't mind a bit slower execution.
>
> I also noticed that previously I could stop the scripts with ^C,
> but now when DBI is in use, it seems to trap signals and decides
> not to care about them. Can I override this behaviour?
>
> (Should some one reply by mail, please notice the extra X's in
> the from address)
>
> //jani
>
> --
> jani.lahti@XX-iki.fi -- http://www.iki.fi/jani.lahti/ -- 050 345 0030
> Todelliset kunniamerkit näkyvät vain saunassa. -- T.Rautavaara
--
Ron Reidy
Oracle DBA
Reidy Consulting, L.L.C.
------------------------------
Date: Fri, 19 Nov 1999 18:26:24 GMT
From: timfi@my-deja.com
Subject: DBI::Oracle
Message-Id: <8144oa$1td$1@nnrp1.deja.com>
Does DBI::Oracle support array inserts for a bound insert statement,
i.e. multi-row executes versus single row executes? This is a feature
supported by Pro*C.
Code Example:
$ins = "insert into table values (?, ?, ?)";
$csr = $dbh->prepare($ins);
foreach $record_id (keys (%{$hashRef})) {
push(@COL1, $hashRef->{$record_id}->{COL1};
push(@COL2, $hashRef->{$record_id}->{COL2};
push(@COL3, $hashRef->{$record_id}->{COL3};
}
$csr->execute(@COL1, @COL2, @COL3);
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Fri, 19 Nov 1999 11:24:09 -0000
From: "Lassi Hautakangas" <lhauta@koti.tpo.fi>
Subject: DBM database, many users ?
Message-Id: <81350h$mse$1@news.koti.tpo.fi>
It is supposed that the CGI program uses the DBM database. Can more users
then use it simultaneously ?
------------------------------
Date: 19 Nov 1999 10:49:18 GMT
From: Jonathan Stowe <gellyfish@gellyfish.com>
Subject: Re: DBM database, many users ?
Message-Id: <38352b2e_1@newsread3.dircon.co.uk>
Lassi Hautakangas <lhauta@koti.tpo.fi> wrote:
> It is supposed that the CGI program uses the DBM database. Can more users
> then use it simultaneously ?
>
If you take care of the locking yes ...
/J\
--
"It's times like this I wish I had a penis" - Duckman
------------------------------
Date: Fri, 19 Nov 1999 08:37:13 +0100
From: "Jakob" <asd@ds.aw>
Subject: Re: Deleting or Unlinking a file help
Message-Id: <812v6g$ia8@sdaw04.seinf.abb.se>
Well I guess managed to offend you just a little bit then.
How about this : Go fuck yourself.
------------------------------
Date: 19 Nov 1999 04:07:03 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: Deleting or Unlinking a file help
Message-Id: <x7bt8qrgso.fsf@home.sysarch.com>
>>>>> "J" == Jakob <asd@ds.aw> writes:
J> Well I guess managed to offend you just a little bit then.
J> How about this : Go fuck yourself.
oooooooh! i will never post here again! i have been hurt to the bone by
you rapier wit and verbal skills. i must go back to grade school and
learn enough self esteem to stand up to the bright shining light that
emanates from your glowing cranium. please don't taunt me anymore, i
can't handle it. i give up. you win. you know more than anyone about
perl and how it should be taught and how this group should be run. i
hereby nominate you as moderator for life. enjoy the job. it will be
just like jack klugman in the twilight zone after he beat jackie gleason
(minnesota fats) in pool.
your humble and ever obedient servant,
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: Fri, 19 Nov 1999 13:54:29 -0500
From: HHH <hartleh1@westat.com>
Subject: Re: Deleting or Unlinking a file help
Message-Id: <38359CE5.FCFC2B07@westat.com>
Uri Guttman wrote:
> >>>>> "J" == Jakob <asd@ds.aw> writes:
> J> Well I guess managed to offend you just a little bit then.
> oooooooh! i will never post here again! i have been hurt to the bone by....
Or, as we tell our three year-old, "you're right, Philadelphia _is_ the
capital of Belgium."
HHH
------------------------------
Date: Fri, 19 Nov 1999 17:57:53 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: developer required for advanced Perl work
Message-Id: <BcgZ3.279$AQ2.22013@newshog.newsread.com>
Uri Guttman (uri@sysarch.com) wrote:
> that guy was dumb for building it with a flat file and not using
> DBI::DBD. if he had, conversion would be trivial.
He could have built the system *before* the widespread use and
availability of DBI.
Scott
------------------------------
Date: Fri, 19 Nov 1999 17:57:08 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: developer required for advanced Perl work
Message-Id: <UbgZ3.278$AQ2.22013@newshog.newsread.com>
Bretto (news@moggy.com) wrote:
> 1) Advanced knowledge of perl, including experience in connecting to a
> MySQL database.
> 4) MySQL database knowledge an asset.
I would not call MySQL "advanced" -- DB2 is advanced. MySQL and the
like are entry-level databases.
> 2) Ability to work fast and keep in constant contact with the company.
> 3) Reasonable rates.
That's always the rub -- they want advanced knowledge, but want
to pay basic rates.
Scott
------------------------------
Date: Fri, 19 Nov 1999 18:49:48 GMT
From: kragen@dnaco.net (Kragen Sitaker)
Subject: Re: Different browser behavior on '302 Redirect'
Message-Id: <gZgZ3.28573$YI2.1316412@typ11.nn.bcandid.com>
In article <813pl2$jij$1@news1.xs4all.nl>, frankv <frankv@ddsw.nl> wrote:
>I've written a simple script, to redirect a user to his own page.
>This works fine with Netscape, but unfortunately it doesn't work with the
>Internet-explorer.
So your script itself works correctly; it's just that the output is wrong.
That means it's not a Perl question. (The answer is that you don't
want to include the Content-Type header if there is no content.)
I have set followups to a more appropriate group.
--
<kragen@pobox.com> Kragen Sitaker <http://www.pobox.com/~kragen/>
The Internet stock bubble didn't burst on 1999-11-08. Hurrah!
<URL:http://www.pobox.com/~kragen/bubble.html>
------------------------------
Date: Fri, 19 Nov 1999 17:59:04 GMT
From: scott@aravis.softbase.com (Scott McMahan)
Subject: Re: embedded perl engine in Windowss application
Message-Id: <IdgZ3.280$AQ2.22013@newshog.newsread.com>
John Xu (xu@aerovironment.com) wrote:
> I have a windows applications developed using C++, which need the
> capability to parser some kind of script. Of course, I like to use Perl.
> But how do I embedded the Perl engine in a windows application? Where
> should I start?
It is trivial in a Windows application -- ActiveState already
has an embedded Perl DLL (and an Automation component). Just link
it in, create an interpreter, pass it a script, and read the
results.
Scott
------------------------------
Date: Fri, 19 Nov 1999 03:14:39 GMT
From: jut@letterbox.com
Subject: Encryption Algorithm for Perl Source Code??
Message-Id: <3834bfd0.8255520@news.singnet.com.sg>
Hello, I recently downloaded this script. I can't say where but when I
was deconstructing it to see how it did it's stuff and to learn,
imagine my horror when I saw a whole load of gibberish!!!
Something like this:
40#A7M*5D\)S!(*20Y+S1$55LI5S53.3<H1S\R4$`I)#DO-$156RE7(5<Y(CU=*C-,M*B@B8$`*32@B8$`H(F!$/"8E4SQ7/4\\1C!`+S(A0SQ'15`](D!$,41=,C,WM3$<\)SU$*5=43"@B,28S52DM/E(]50I-/%8U4BE75$DN4$A`*")@0#\R(44[M)RU%*"=,*B@B8$`H(F!`*")@1#TW+44\1EE!.S8T0"\R8$0
I did see plain-text code though, thus I concluded that the preceding
code is used to decode the rest of the message into plain-text.
However, I have not been able to decipher the esoteric code. See if
anyone can help out here.
-------Code Starts Here--------
use Socket;
*DB::readline=sub{gethostbyname($ub[2]);
"q"};
sub SUB{sub sub6{my($Sub,$sUb,$suB)=@_;
@sub6=split(/\./,$Sub);
@sub0=split(/\./,$sUb);
$n=25;
while($n-->0){@sUb=@sub0;
@sub0=@sub6;
sub sUb{$_="M$_";
}for($SUB=0;
$SUB<4;
$SUB++){$sub6[$SUB]= $sUb[$SUB]^(($suB*$sub6[$SUB])%256);
}}join('',@sub6)."|".join('',@sub0);
}subsub7{my($SUb,$Sub1)=@_;
while(!$suB){$sUB++;
$suB1=sub6($SUb,$Sub1,$sUB);
$sUb1=join('',map(chr,split(/\||\s+/,$suB1)));
if($sUb1=~/bT/){$suB=$sUB;
}}$suB;
}$sub4=\&sub2;
$sub5=\&sub3;
sub sub7{$@='u';
}subsub1{die(&$sub4(&$sub5((shift)
))."\n")}subsub2{$SUb=sub6($ub[2], $ub[3],$suB);
$SUb.="".sub6($ub[4],$ub[5],$suB);
$SUb=~s/98/32/g;
(shift).join('',map(chr,split(/\||\s+/,$SUb)));
sub sub6{&sub4;
}} subsub3{$SUb=sub6($ub[0],$ub[1],&{(shift)} );
$SUb=~s/98/32/g;
join('',map(chr,split(/\||\s+/,$SUb)));
}sub1sub{$suB=sub7($ub[0],$ub[1]);
};
}$_=<<'';
&sub7;
eval(&sub6);
sub sub3 {$n="0m26<l~l *,..VztRE@<620,*-! ";
$B=65521;
useinteger;
$sb='{$a=shift;
'.'$g=$h=$i=0;
@c=';
eval"subu".$sb. 'map{'.'$g+=$_*$a;
$b=$g%$B;
$g/=$B;
$b;
}@_;
!$g||'. 'push@c,$g;
@c;
}';
eval"sub" .' d' .$sb. 'reverse ' .'map {$h=($_+$g*$B'.')/$a;
$g=($_+$g*'.'$B)-$h*$a;
$h;
}re'.'ve'.'rse@_;
'.' @c[$#c]!=0|'.'|p'.'op@c;
('.'$g'.',@c);
}' ;
sub sub5{&sUb;
unpack($@,$_);
}sub p{for($j=0;
(($k,@l) =d(2,@_))&&$k ==0;
$j++) {@_=@l;
}return$j*(("@_"eq 1)&&($#_==0));
}push@o,2;
do{($r,@t)=d( ord(substr$n,$m+14,1)-31,@o) ;
if($r==0){@o=u(ord(substr$n,$m, 1)-31,@t);
sub sub4{unpack ($@,&sub5);
}$m=0;
if($p= p(@o)){print"$p\n";
}} else{$m=($m+1)%14;
} }while($n); }
--------Code Ends here----------
------------------------------
Date: 19 Nov 1999 12:48:54 -0500
From: Scott Lanning <slanning@bu.edu>
Subject: Re: environment vars
Message-Id: <kusvh6yv0c9.fsf@strange.bu.edu>
"Jakob" <asd@ds.aw> writes:
>You're just a bunch of sorry ass loosers who's only way of
>feeling important is to tell other people that they
>do'nt "really understand the dynamics" of this group.
<makes 'L' on forehead>
print "Just another moronic misologist\n";
--
"If there were gods, how could I bear to be no god?
Consequently there are no gods." --Nietzsche
------------------------------
Date: 19 Nov 1999 11:06:19 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: environment vars
Message-Id: <slrn83abq2.qs.mgjv@wobbie.heliotrope.home>
[Your machine seems to have a chronology problem. Your replies
consistently arrive before the text you reply to. Please reset your
clock]
On Thu, 18 Nov 1999 17:15:46 +0100,
Jakob <asd@ds.aw> wrote:
> / J
> Jonathan Stowe <gellyfish@gellyfish.com> wrote in message
> news:38342553_1@newsread3.dircon.co.uk...
> > Jakob <asd@ds.aw> wrote:
> > > Or you might be a nice guy and tell him.
> >
> > I did.
> >
> > > I use it in a couple of my scripts ...
> > >
> > > Go like :
> > >
> > > $ENV{SYBASE}="/opt/sybase/SQL/current/";
> >
> > But he wasnt talking about $ENV{SYBASE}
> >
> > > there you go, not that hard ey ?
> >
> > What does that achieve. He cut and paste that from here and it doesnt work
> > because it isnt the variable he wants to set he comes back and asks again.
> >
> > He reads about the %ENV hash in perlvar and he then understands it and
> > will be able to solve further problems when they arise ..
> >
> > *plonk*
>
> Or he has a brain of his own, my point is, instead of doing what
> everbody seems to do in this forum redirect the poor bastards to some
> FAQ or something like that, give him a hint AND inform him about where
> he can read more about it.
Which is what you did _not_ do. First of all, your example was the wrong
environment variable. You might as well have typed
$ENV{'BANANA'} = "Up tree number $tree_number";
It does not at all help anyone in any way more than telling them to read
about the ENV variable in the perlvar documentation.
And when it's pointed out to you that there are good reasons for
wanting people to read the documentation you get all defensive and
insulting. Hardly makes for a good argument.
We've seen it here more than once (in fact, we just had one good example
by the name of Re'em Bar). If you don't tell them to read the docs, they
just keep asking. I don't know whether this particular poster would
have, but it's still better to understand, and to learn how to answer
your own questions.
And I'll be damned if I get that fish metaphor out of the closet again.
It's dusty.
Give a person a banana, and they slip. Show a person a banana tree and
they can learn how to climb.
I know, it's weak. Not even close to the fish. But it's less smelly.
Martien
--
Martien Verbruggen |
Interactive Media Division | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: Fri, 19 Nov 1999 08:42:07 +0100
From: "Jakob" <asd@ds.aw>
Subject: Re: environment vars
Message-Id: <812vfp$er4@sdaw04.seinf.abb.se>
No but so will you oh mighty Perl guru, geez.
There is no dynamic in this group. This newsgroup is filled with people like
you who really knows "dynamics of this group", therefor are self proclaimed
gods. Which , I feel is my duty to say, you are Not.You're just a bunch of
sorry ass
loosers who's only way of feeling important is to tell other people that
they
do'nt "really understand the dynamics" of this group.
You are , Mr Guttman, a sorry ass loosers, and you will always be.
/ J
Uri Guttman <uri@sysarch.com> wrote in message
news:x7iu2zspo6.fsf@home.sysarch.com...
> >>>>> "J" == Jakob <asd@ds.aw> writes:
>
> J> Or he has a brain of his own, my point is, instead of doing what
> J> everbody seems to do in this forum redirect the poor bastards to
> J> some FAQ or something like that, give him a hint AND inform him
> J> about where he can read more about it.
>
> because it has been proven that most newbies will only do the cut and
> paste and won't grok what is being done. you are new here and are
> already generating killfile entries. like all others before you who have
> tried to do this and failed you don't get the dymamics of this group. i
> challenge you to answer each newbie question (especially ALL FAQs) with
> the correct answer as well as leads to the appropriate documentation.
>
> i triple dog dare you to do it!! chicken!!! ha hah ha ha!! i bet you
> won't last a microsecond.
>
> 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: 19 Nov 1999 04:03:27 -0500
From: Uri Guttman <uri@sysarch.com>
Subject: Re: environment vars
Message-Id: <x7emdmrgyo.fsf@home.sysarch.com>
>>>>> "J" == Jakob <asd@ds.aw> writes:
J> No but so will you oh mighty Perl guru, geez. There is no dynamic
J> in this group. This newsgroup is filled with people like you who
J> really knows "dynamics of this group", therefor are self proclaimed
J> gods. Which , I feel is my duty to say, you are Not.You're just a
J> bunch of sorry ass loosers who's only way of feeling important is
J> to tell other people that they do'nt "really understand the
J> dynamics" of this group. You are , Mr Guttman, a sorry ass
J> loosers, and you will always be.
i wouldn't normally comment on spelling on usenet, but 'loosers' twice
is not random. the rest of your spelling, punctuation and grammar is
pretty poor too. so your comments don't carry any weight and neither
does your skull.
go away forever, little troll. find your rock, crawl under it with your
maggot brethren and slime here no more. our dynamic shrugs you off like
the flea that you aspire to be.
in case you are too dumb, you have just been heavily insulted. please
contact your nearest lawyer to explain to you how you can't do diddly
about it but swallow your meager pride and eat shit.
<leftover jeopardy quote>
>> because it has been proven that most newbies will only do the cut and
>> paste and won't grok what is being done. you are new here and are
>> already generating killfile entries. like all others before you who have
>> tried to do this and failed you don't get the dymamics of this group. i
>> challenge you to answer each newbie question (especially ALL FAQs) with
>> the correct answer as well as leads to the appropriate documentation.
>> i triple dog dare you to do it!! chicken!!! ha hah ha ha!! i bet you
>> won't last a microsecond.
well, chicken breath? do you take on the "i hate the way you treat
newbies" dare? instead you fling your feces around like a little child
or untrained puppy. well, we shall just have to toilet train your little
potty brain, shan't we?
i enjoy not being you.
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: 19 Nov 1999 11:22:29 GMT
From: mgjv@wobbie.heliotrope.home (Martien Verbruggen)
Subject: Re: environment vars
Message-Id: <slrn83acod.qs.mgjv@wobbie.heliotrope.home>
On Fri, 19 Nov 1999 08:42:07 +0100,
Jakob <asd@ds.aw> wrote:
> No but so will you oh mighty Perl guru, geez.
>
> There is no dynamic in this group. This newsgroup is filled with
> people like you who really knows "dynamics of this group", therefor
> are self proclaimed gods. Which , I feel is my duty to say, you are
> Not.You're just a bunch of sorry ass loosers who's only way of feeling
> important is to tell other people that they do'nt "really understand
> the dynamics" of this group.
>
> You are , Mr Guttman, a sorry ass loosers, and you will always be.
I'll tell you something about Usenet. Usenet clients, at least the
decent ones, have kill or score files. You have just pissed off a large
amount of very knowledgeable people on this group with your little rant.
Since you are using a fake address, people that want to put you in their
killfile, most likely will pick part of your message id, your
Organization name, or even your NNTP host. It all depends on how much
they want to get rid of you.
This means that it's not unlikely that other people from abb.se are
going to be ignored by the people they most want an answer from.
Should we refer them to 'Jakob' when they complain?
my first *mass plonk*
Martien
--
Martien Verbruggen |
Interactive Media Division | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: Fri, 19 Nov 1999 03:48:07 GMT
From: jkort@wimberley-tx.com
Subject: Error Using Access db Created in a Workgroup
Message-Id: <812h9n$t0g$1@nnrp1.deja.com>
Hi! Trying to work some simple examples using perl, DBI, ODBC with MS
Access under Win95. Works fine with a new Access file created without
using Access workgroup security. Using identical table (named DEMOG) in
the original db, which was created in an Access workgroup and also has
had restricted permissions set (? not sure what's involved there - done
in some cryptic VB code), I get this error message:
**********
couldn't execute statement: [Microsoft][ODBC Microsoft Access 97 Driver]
Record(s) can't be read; no read permission on 'DEMOG'. (SQL-42000)(DBD:
st_execute/SQLExecute err=-1) at TEST.PL line 14, <> chunk 1.
**********
I thought that if I supplied the username (no password needed) that
normally allows me under the Access workgroup logon to have full rights
in the file (even with restricted permissions set), that this would
work. However, it seems that the username, password that I pass thru
the DBI->connect are ignored, as I can put anything there and the
connect never fails. Also tried supplying the username as the default
in the SystemDSN definition, but that didn't make a difference either.
To apply this at work, I'll have to hit against these "workgroup"
databases, so any help will be greatly appreciated!
Thanks!
Jack Ort
The code I'm testing with is below (with username changed to protect the
innocent):
-----------
use DBI;
open(STDERR,">test.err");
my $dbh = DBI->connect('DBI:ODBC:Test','usernamehere','','ODBC')
or die "couldn't connect to db: ".DBI->errstr;
my $sth = $dbh->prepare('SELECT * FROM DEMOG WHERE SUBINIT = ?')
or die "couldn't prepare statement: ".$dbh->errstr;
print "Enter SUBINIT>";
while ($subinit = <>) {
my @data;
chomp $subinit;
$sth->execute($subinit)
or die "couldn't execute statement: ".$sth->errstr;
while(@data = $sth->fetchrow_array()) {
my $subno = $data[8];
print "\t$subinit $subno\n";
}
if ($sth->rows == 0) {
print "No matches for '$subinit'.\n\n";
}
print "\n";
print "Enter SUBINIT>";
}
$sth->finish;
$dbh->disconnect;
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
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 1429
**************************************
