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();

Perl One Line Programs

# run program, but with warnings
perl -w my_file

# run program under debugger
perl -d my_file

# just check syntax, with warnings
perl -wc my_file

# useful at end of "find foo -print"
perl -nle unlink

# simplest one-liner program
perl -e 'print "hello world!\n"'

# add first and penultimate columns
perl -lane 'print $F[0] + $F[-2]'

# just lines 15 to 17
perl -ne 'print if 15 .. 17' *.pod

# in-place edit of *.c files changing all foo to bar
perl -p -i.bak -e 's/\bfoo\b/bar/g' *.c

# command-line that prints the first 50 lines (cheaply)
perl -pe 'exit if $. > 50' f1 f2 f3 ...

# delete first 10 lines
perl -i.old -ne 'print unless 1 .. 10' foo.txt

# change all the isolated oldvar occurrences to newvar
perl -i.old -pe 's{\boldvar\b}{newvar}g' *.[chy]

# command-line that reverses the whole file by lines
perl -e 'print reverse <>' file1 file2 file3 ....

# find palindromes
perl -lne 'print if $_ eq reverse' /usr/dict/words

# command-line that reverse all the bytes in a file
perl -0777e 'print scalar reverse <>' f1 f2 f3 ...

# command-line that reverses the whole file by paragraphs
perl -00 -e 'print reverse <>' file1 file2 file3 ....

# increment all numbers found in these files
perl i.tiny -pe 's/(\d+)/ 1 + $1 /ge' file1 file2 ....

# command-line that shows each line with its characters backwards
perl -nle 'print scalar reverse $_' file1 file2 file3 ....

# delete all but lines beween START and END
perl -i.old -ne 'print unless /^START$/ .. /^END$/' foo.txt

# binary edit (careful!)
perl -i.bak -pe 's/Mozilla/Slopoke/g' /usr/local/bin/netscape

# look for dup words
perl -0777 -ne 'print "$.: doubled $_\n" while /\b(\w+)\b\s+\b\1\b/gi'

# command-line that prints the last 50 lines (expensively)
perl -e 'lines = <>; print @@lines[ $#lines .. $#lines-50' f1 f2 f3 ...