Changeset 9546 – CodeRepos::Share – Trac

{img:(please configure the [header_logo] section in trac.ini)}[=>]
Search: Login[=>]
Preferences[=>]
Help/Guide[=>]
About Trac[=>]
Wiki[=>]
Timeline[=>]
Roadmap[=>]
Browse Source[=>]
View Tickets[=>]
Search[=>]

Context Navigation

← Previous Changeset[=>]
Next Changeset[=>]
→

Changeset 9546

View differences inline side by side Show lines around each change Ignore: Blank lines Case changes White space changes Timestamp: 04/16/08 09:53:38 (20 months[=>]
ago) Author: kazuho Message: remove debug message, add READEME and POD
Location: lang/perl/Filter-SQL/trunk[=>]
Files: 1 added 1 modified
README [=>]
(added) lib/Filter/SQL.pm [=>]
(modified) (2 diffs[=>]
)

Legend:

Unmodified Added Removed

lang/perl/Filter-SQL/trunk/lib/Filter/SQL.pm[=>]

r9545[=>]
r9546[=>]
5757 $var =~ s/^{(.*)}$/$1/m; 5858 $out .= "' . Filter::SQL->quote($var) . '"; 59 print STDERR "Var - $out\n"; 6059 } 6160 } …[=>]
…[=>]
104103 1051041; 105 106__END__ 107=head1 NAME 108 109Filter::SQL - embedded SQL for perl 110 111=head1 SYNOPSIS 112 113 use Filter::SQL; 114 115 Filter::SQL->dbh(DBI->connect('dbi:...')) or die DBI->errstr; 116 117 SQL CREATE TABLE t (v int not null);; 118 119 $v = 12345; 120 INSERT INTO t (v) VALUES ($v);; 121 122 foreach my $row (SELECT * FROM t;) { 123 print "v: $row[0]\n"; 124 } 125 126 if (SELECT ROW COUNT(*) FROM t; == 1) { 127 print "1 row in table\n"; 128 } 129 130=head1 SYNTAX 131 132Filter::SQL recognizes portion of source code starting from one of the keywords below as an SQL statement, terminated by a semicolon. 133 134 SQL 135 SELECT 136 SELECT ROW 137 EXEC SELECT 138 INSERT 139 UPDATE 140 DELETE 141 REPLACE 142 143=head2 "SQL" statement 144 145Ex

■Next Page

･Full Browser

en.abc-yoga.podzone.org | Contact