UTF-8 Solution

1. #!/usr/local/git/bin/perl
2. # Test Char Set Issue
3. # Tested By : Sivasakthi.kumar
4. # IM : Sivasakthikumar@gmail.com
5. 
   
6. use DBI;
7. use DBD::Oracle qw(:ora_types);
8. use utf8;
9. use Encode;
10. 
    
11. $string = "FuÔbalÀl";
12. 
    
13. $ENV{NLS_LANG} = ".UTF8";
14. $ENV{NLS_NCHAR} = "AL32UTF8";
15. 
    
16. print "Before Insert DataBase :";
17. print "$string";
18. 
    
19. my $dbh;
20. 
    
21. $dbh = DBI->connect("DBI:Oracle:SID=tosipo;HOST="localhost";PORT=1521",
22. teststage,
23. SSaih,
24. {RaiseError => 1,
25. PrintError => 0,
26. AutoCommit => 0 }) or die $DBI::errstr;
27. 
    
28. $sqlquery = "update TEST_ASSESSMENT set RESPONSE = \'$string\' where doc_id = 34 and version_id = \'1.0.0\'";
29. print "\nSqlQuery : $sqlquery";
30. $dbh->do("$sqlquery") or die $dbh->errstr;
31. 
    
32. 
    
33. $sth = $dbh->prepare( "select response from TEST_ASSESSMENT where doc_id = 34 and version_id = '1.0.0'" ) or die $dbh->errstr;
34. $sth->execute();
35. 
    
36. while ( my($res) = $sth->fetchrow_array )
37. {
38. # $res = decode("ISO-8859-1", $res);
39. #$res = encode("utf8", $res);
40. print "\n$res";
41. }
42. 
    
43. $dbh->commit();
44. $dbh->disconnect();