Re: MySQL won't GRANT ALL ON cookbook.* ... ERROR 1044
On Sun, 23 Feb 2003 at 20:09, Ed Sickafus opined: ES:Server: Linux (RedHat 7.2) Apache 1.3.x ES:I'm trying to run an introductory exercise out of MySQL Cookbook by Paul ES:DeBois ES:Accessing MySQL from a PC via PuTTY to ISP's UNIX ES:I can get to the mysql prompt but no further. [snip] since your question has nothing to do with cgi, it would be better asked on the dbi mailing list: http://www.perl.com/pub/a/language/info/mailing-lists.html#db or perhaps one of the mysql mailing lists: http://www.mysql.com/documentation/lists.html -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: php like behavior for my perl CGI
f'ups rearranged [EMAIL PROTECTED] wadet]$ perl sub box { return('img src=p.gif height='.$_[0].' width='.$_[1].''); } print eot; table tr td${\box(5,10)}/td td${\box(7,10)}/td /tr /table eot Ctrl-D table tr tdimg src=p.gif height=5 width=10/td tdimg src=p.gif height=7 width=10/td /tr /table see: [EMAIL PROTECTED] wadet]$ perldoc perlref Peter Kappus [EMAIL PROTECTED] wrote in message news:[EMAIL PROTECTED] ... Aha! This is exactly the kind of solution I was looking for. I guess what I'm doing here is passing a reference to a subroutine call? \box(5,10) and then turning it into a scalar? ${} Almost. In most contexts in perl, a { } construct is a BLOCK, and all code in between the braces will be evaluated. So for our example, we call box then return a reference to box()'s return value. if a reference logically follows a $ in an interpolated string, the the reference will be dereferenced. Hence the desired results. If (for some reason) we were passing a reference to the subroutine, it ( may ) look like this: [EMAIL PROTECTED] wadet]$ perl sub box { return('img src=p.gif height='.$_[0][0].' width='.$_[0][1].''); } print eot; table tr td${\box( [5,10] )}/td td${\box( [7,10] )}/td /tr /table eot Ctrl-D table tr tdimg src=p.gif height=5 width=10/td tdimg src=p.gif height=7 width=10/td /tr /table and if you want to go OO: package My::Img; sub new { my($class, %params) = @_; return( bless( { %params }, $class ) ); } sub box { my($self) = shift(); return('img src=p.gif height='.$self-{height}.' width='.$self-{width}.''); } package main; print eot; table tr td${\ My::Img-new(height =5, width = 10)-box() }/td td${\ My::Img-new(height =10, width = 5)-box() }/td /tr /table eot Ctrl-D table tr tdimg src=p.gif height=5 width=10/td tdimg src=p.gif height=10 width=5/td /tr /table but thats just silly ;0) dont forget: see: [EMAIL PROTECTED] wadet]$ perldoc perlref and for a real good time, check out [EMAIL PROTECTED] wadet]$ perldoc perllol Quite ingenious. While I'm sure I'll regret it later (and curse your good name as I'm wishing I'd taken the time to learn Mason or HTML::Template) this seems like a great quick fix for the time being. And it never hurts to learn a few new tricks! Unfortunately theres nothing there I came up with on my own, and yes, new tricks are always good for the 'ol grab bag =0). HTH, Todd W. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
NULL insertion
Hi!! I need to insert NULL into the database using a perl CGI . So if a variable is to be made NULL in perl and it needs to be used in an sql statement what is best way to do it. Do I assign ' \N' to it or 'NULL' ? Thanks and Cheers always!! Murli -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: NULL insertion
I need to insert NULL into the database using a perl CGI . So if a variable is to be made NULL in perl and it needs to be used in an sql statement what is best way to do it. Do I assign ' \N' to it or 'NULL' ? Standard SQL syntax for presenting null is SET VARIABLE=NULL, but I'd need to know what kind of database you were using before I could pound out some perl code for you. You cna probably do the code anyways, so I don't feel so bad :) Anyways, thats the SQL syntax. Dennis Stout -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
RE: NULL insertion
This assumes MySQL is your DB. I know there are other people on this list that can offer more efficient solutions or pick this one apart...so feel free. :) *** #!/usr/bin/perl use strict; use CGI qw(:all); use CGI::Carp qw(fatalsToBrowser); use DBI; my $q = new CGI; # new CGI object my %formdata = $q-Vars; # NV pairs, use caution though because # items with multiple values will have # be called with references. # Let's assume that %formdata looks like this: # %formdata = (name = Joe, #phone = 888-555-1212, #fax = 888-555-1313); # Connect to the database. my $value = ; # Have to declare variables if we use strict. my $dbh = DBI-connect(DBI:mysql:database_name:localhost,username,password) or die I could not connect to the database: $!; # Prepare the SQL statement(s) for execution, then execute them. foreach my $key(%formdata) { $value = $formdata{$key}; my $sth = $dbh-prepare(qq|INSERT INTO contactData(Firstname,PhoneNo,FaxNo) VALUES ($value,NULL,NULL)|) if($key eq name); my $sth = $dbh-prepare(qq|INSERT INTO contactData(Firstname,PhoneNo,FaxNo) VALUES (NULL,$value,NULL)|) if($key eq phone); my $sth = $dbh-prepare(qq|INSERT INTO contactData(Firstname,PhoneNo,FaxNo) VALUES (NULL,NULL,$value)|) if($key eq fax); $sth-execute; } # Commit the changes. $dbh-commit; # Disconnect from the database. $dbh-disconnect; 1; - Scot Robnett inSite Internet Solutions [EMAIL PROTECTED] -Original Message- From: T. Murlidharan Nair [mailto:[EMAIL PROTECTED] Sent: Monday, February 24, 2003 4:55 PM To: [EMAIL PROTECTED] Subject: NULL insertion Hi!! I need to insert NULL into the database using a perl CGI . So if a variable is to be made NULL in perl and it needs to be used in an sql statement what is best way to do it. Do I assign ' \N' to it or 'NULL' ? Thanks and Cheers always!! Murli -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]