Perl Programming
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Password:
Remember me
Go Back   Dev Shed ForumsProgramming LanguagesPerl Programming

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread Dev Shed Forums Sponsor:
Stop making mediocre tutorials.The best tutorials are video! Camtasia Studio makes it easy to create engaging, buzz-building screen videos at any size, in any popular format. Download the free trial!
  #1  
Old April 24th, 2008, 07:26 PM
tagmanadvance's Avatar
tagmanadvance tagmanadvance is offline
Kage Bunshin
Dev Shed Novice (500 - 999 posts)
 
Join Date: Aug 2005
Location: The Seven Seas Of Rhye
Posts: 719 tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level) 
Time spent in forums: 1 Week 4 Days 11 h 3 m 57 sec
Reputation Power: 184
Send a message via AIM to tagmanadvance Send a message via Yahoo to tagmanadvance Send a message via XFire to tagmanadvance
Perl mysql_escape_string equivalent

I have a saved HTML page stored in a variable. I want to copy this data into my database. The problem is, MySQL throws an error complaining that the data isn't escaped due to ""s. I would use PHP, but the existing script is quite large (>11,000 lines) and already in Perl. Is there a function similar to mysql_escape_string which escapes unescaped strings, or maybe a commonly used regex which does this? Thanks
__________________
"Java makes impossible things possible, but makes easy things difficult." - Somebody

Reply With Quote
  #2  
Old April 24th, 2008, 08:33 PM
Scorpions4ever's Avatar
Scorpions4ever Scorpions4ever is offline
Banned ;)
Dev Shed God 5th Plane (7000 - 7499 posts)
 
Join Date: Nov 2001
Location: Glendale, Los Angeles County, California, USA
Posts: 7,336 Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level)Scorpions4ever User rank is Brigadier General (60000 - 70000 Reputation Level) 
Time spent in forums: 4 Weeks 12 h 46 m 43 sec
Reputation Power: 674
Perl actually has something way better. It is a concept called placeholders. Simply google or search this forum for "DBI placeholders".

For one thing, you don't need to call mysql_escape_string(), oracle_escape_string(), mssql_escape_string() or whatever for every database engine, since it automatically knows how to escape the string for every engine. On top of that, it runs a bit faster in loops since the database engine isn't recompiling the statement every time.
Comments on this post
lnxgeek agrees!
ryon420 agrees: One more reason I love Perl
__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

Puzzle of the Month solved by sizeablegrin, etienne141 and L7Sqr, superior C/C++ programmers of the month

Reply With Quote
  #3  
Old April 28th, 2008, 03:31 PM
tagmanadvance's Avatar
tagmanadvance tagmanadvance is offline
Kage Bunshin
Dev Shed Novice (500 - 999 posts)
 
Join Date: Aug 2005
Location: The Seven Seas Of Rhye
Posts: 719 tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level)tagmanadvance User rank is First Lieutenant (10000 - 20000 Reputation Level) 
Time spent in forums: 1 Week 4 Days 11 h 3 m 57 sec
Reputation Power: 184
Send a message via AIM to tagmanadvance Send a message via Yahoo to tagmanadvance Send a message via XFire to tagmanadvance
Perhaps I included too much information in the OP. I just wanted to know how to escape a String with Perl. The whole reason I posted was because all I could find was stuff about using placeholders.... I ended up url-encoding the string with this nifty one-liner (found HERE):
perl Code:
Original - perl Code
  1. $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

Reply With Quote
  #4  
Old April 28th, 2008, 04:09 PM
ishnid's Avatar
ishnid ishnid is offline
kill 9, $$;
Dev Shed God (5000 - 5499 posts)
 
Join Date: Sep 2001
Location: Dublin, Eire
Posts: 5,394 ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level)ishnid User rank is General 4th Grade (Above 100000 Reputation Level) 
Time spent in forums: 3 Months 5 Days 14 h 14 m 24 sec
Reputation Power: 1259
Placeholders are a far better solution than escaped strings.

If you must do it that way, I'd use the quote method:
Code:
my $quoted = $dbh->quote( $unquoted );

Reply With Quote
Reply

Viewing: Dev Shed ForumsProgramming LanguagesPerl Programming > Perl mysql_escape_string equivalent


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump

 Free IT White Papers!
 
Accelerating Trading Partner Performance
One in five. That's how many partner transactions have at least one error. That is an amazing statistic, particularly given the extraordinary leaps in innovation across the global supply chain during the past two decades. Download this white paper to learn more.

 
Competing on Analytics
This Tech Analysis is designed to help identify characteristics shared by analytics competitors, and includes information about 32 organizations that have made a commitment to quantitative, fact-based analysis.

 
Cost Effective Scaling with Virtualization and Coyote Point Systems
An overview of the industry trend toward virtualization, how server consolidation has increased the importance of application uptime and the steps being taken to integrate load balancing technology with virtualized servers.

 
Five Checkpoints to Implementing IP Telephony
Implementation planning for IP PBX software and IP telephony has become vital as businesses replace discontinued legacy PBX phone systems. This informative whitepaper outlines five "checkpoints" for any implementation plan that will help make IP communications a successful proposition.

 
Hosted Email Security: Staying Ahead of New Threats
In the last two years, email has become a fierce battleground between the nefarious forces of spam and malware, and the heroes of messaging protection. The spam volumes increased alarmingly every month, bringing clever new forms of phishing and virus propagation attacks.

 

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 5 hosted by Hostway