'$' in SQL with Perl's Variable? - #72980 (Allgemeines zu Perl)

renee

2007-01-09 10:01

User since
2003-08-04
14371 Artikel
ModeratorIn

If you read in a file, a $ is not interpolated (if you do not use eval).

This works fine:

table:

Code: (dl )

mysql> desc tbl_Test;
+-------+--------------+------+-----+---------+-------+
| Field | Type         | Null | Key | Default | Extra |
+-------+--------------+------+-----+---------+-------+
| test  | varchar(255) | YES  |     | NULL    |       |
+-------+--------------+------+-----+---------+-------+
1 row in set (0.00 sec)

test.sql:[sql]INSERT INTO tbl_Test VALUES('$test');[/sql]

skript:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = 'test.sql';

my ($user,$pass,$db,$host) = ("xx","xx","xx","localhost");
my $dbh = DBI->connect("DBI:mysql:$db:$host",$user,$pass) or die $DBI::errstr;

open my $fh,'<',$file or die $!;
while(my $stmt = <$fh>){
    $dbh->do($stmt) or die $dbh->errstr();
}
close $fh;

result:

Code: (dl )

mysql> select * from tbl_Test;
+-------+
| test  |
+-------+
| $test |
+-------+
1 row in set (0.00 sec)

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/