codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
$ echo 'create table foo (quux text);' | sqlite3 nikita-dubrovin.db $ echo 'insert into foo (quux) values ("1984г1ф!!11четыре");' | sqlite3 nikita-dubrovin.db $ perl -C -Maliased=DBIx::Class::Schema::Loader -e' Loader->naming("current"); my $d = Loader->connect("DBI:SQLite:nikita-dubrovin.db", undef, undef, { sqlite_unicode => 1 }); print $d->resultset("Foo")->first->quux; ' 1984г1ф!!11четыре
Private
[
?
]
Run code
Submit