TCL语言的具体例子

Posted 2023-04-17

参考技术A

下面是TCL程序的例子：
#!/bin/sh
# next line restarts using tclsh in path \\
exec tclsh $1+$@
# echo server that can handle multiple
# simultaneous connections.
proc newConnection sock addr port
# client connections will be handled in
# line-buffered, non-blocking mode
fconfigure $sock -blocking no -buffering line
# call handleData whensocketis readable
fileevent $sock readable [ list handleData $sock ]

proc handleData
puts $sock [ gets $sock ]
if [ eof $sock ]
close $sock


# handle all connections to port given
# as argument when server was invoked
# by calling newConnection
set port [ lindex $argv 0 ]
socket-server newConnection $port
# enter the event loop by waiting
# on a dummy variable that is otherwise
# unused.
vwait forever
另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。
proc every msbody eval $body; after $ms [info level 0]
pack [label .clock -textvar time]
every 1000 set ::time [clock format [clock sec] -format %H:%M:%S] ;# RS
解释：第一行定义了过程every， 每隔ms毫秒，就重新执行body代码。第二行创建了标签起内容由time变量决定。第3行中设置定时器，time变量从当前时间中每秒更新一次。
Tcl被广泛的用做script语言，大多数情况下，Tcl和Tk(“Tool Kit”)库同时使用，Tk是一系列令Tcl易于编写图形用户接口的命令和过程
Tcl的一个重要特性是它的扩展性。如果一个程序需要使用某些标准Tcl没有提供的功能，可以使用c语言创造一些新的Tcl命令，并很容易的融合进去。正是由于Tcl易于扩展，很多人为它编写了扩展包，并在网上共享。
Tcl和其他编程语言例如c不同，它是一种解释语言而非编译语言。Tcl程序由一系列Tcl命令组成，在运行时由Tcl解释器解释运行。解释运行的一个优点是它可以自己为自己生成Tcl script。

数据库必会必知 之 SQL四种语言：DDL DML DCL TCL

作者：泥瓦匠 今天群里面讨论，DDL 还是 DML，我这种小白还是总结下他们的区别吧。

1. DDL - Data Definition Language

数据库定义语言：定义数据库的结构。 其主要命令有CREATE，ALTER，DROP等，下面用例子详解。该语言不需要commit，因此慎重。 CREATE - to create objects in the database   在数据库创建对象

例：CREATE DATABASE test; // 创建一个名为test的数据库

ALTER - alters the structure of the database   修改数据库结构

例：ALTER TABLE test ADD birthday date; // 修改test表，新增date类型的birthday列

DROP - delete objects from the database   从数据库中删除对象

例：DROP DATABASE test;// 删除test数据库

还有其他的： TRUNCATE - 截断表内容（开发期，还是挺常用的） COMMENT - 为数据字典添加备注  

2. DML - Data Manipulation Language

数据库操作语言：SQL中处理数据库中的数据 其主要命令有SELECT,INSERT,UPDATE,DELETE等，这些例子大家常用就不一一介绍了。该语言需要commit。还有常用的 LOCK TABLE ,记得写过锁的博客 - 传送门 还有其他不熟悉的： CALL - 调用一个PL/SQL或Java子程序 EXPLAIN PLAN - 解析分析数据访问路径  

3. DCL - Data Control Language

数据库控制语言：授权，角色控制等 GRANT - 为用户赋予访问权限 REVOKE - 撤回授权权限  

4. TCL - Transaction Control Language

事务控制语言 COMMIT - 保存已完成的工作 SAVEPOINT - 在事务中设置保存点，可以回滚到此处 ROLLBACK - 回滚 SET TRANSACTION - 改变事务选项 例子：Java中JDBC封装了对事务的支持。比如我们首先新建一个表：test test.sql

SET NAMES utf8;
SET FOREIGN_KEY_CHECKS = 0;

-- ----------------------------
--  Table structure for `city`
-- ----------------------------
DROP TABLE IF EXISTS `city`;
CREATE TABLE `city` (
  `id` int(11) NOT NULL DEFAULT ‘0‘ COMMENT ‘城市ID‘,
  `name` varchar(20) DEFAULT NULL COMMENT ‘名称‘,
  `state` varchar(20) DEFAULT NULL COMMENT ‘状态‘,
  `country` varchar(20) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

SET FOREIGN_KEY_CHECKS = 1;

JDBC事务回滚第一个例子 -JDBC数据库事务回滚：

/**
 * 描述:JDBC数据库事务回滚
 *
 * Created by bysocket on 16/6/6.
 */
public class TransactionRollBack extends BaseJDBC {

    public static void main(String[] args) throws SQLException {
        Connection conn = null;
        try {
            // 加载数据库驱动
            Class.forName(DRIVER);
            // 数据库连接
            conn = DriverManager.getConnection(URL,USER,PWD);

            // 关闭自动提交的事务机制
            conn.setAutoCommit(false);
            // 设置事务隔离级别 SERIALIZABLE
            conn.setTransactionIsolation(Connection.TRANSACTION_SERIALIZABLE);

            Statement stmt = conn.createStatement();
            int rows = stmt.executeUpdate("INSERT INTO city VALUES (3,‘china‘,1,‘cc‘)");
            rows = stmt.executeUpdate("UPDATE city set country = ‘TAIWAN‘ WHERE id = 4");

            // 提交事务
            conn.commit();
        } catch (Exception e) {
            e.printStackTrace();
            // 回滚事务
            if (conn != null) {
                conn.rollback();
            }
        } finally {
            /** 关闭数据库连接 */
            if (conn != null) {
                try {
                    conn.close();
                } catch (SQLException e) {
                    e.printStackTrace();
                }
            }
        }
    }
}

第 19 行：设置了事务隔离级别为 SERIALIZABLE 底层调用的是TCL语言的SET TRANSACTION 第 22 行：执行通过，插入数据 第 23 行：执行不通过，没有主键为4的记录，直接抛出异常 第 31 行：事务回滚，封装的就是 TCL 语句的ROLLBACK

休息下，一个例子不够，再来一个。代码都在github主页上。https://github.com/JeffLi1993/jee-component-learning

JDBC事务回滚第二个例子-JDBC数据库事务回滚,回滚到特定的保存点：

/**
 * 描述:JDBC数据库事务回滚,回滚到特定的保存点
 *
 * Created by bysocket on 16/6/6.
 */
public class TransactionRollBack2 extends BaseJDBC {
    public static void main(String[] args) throws SQLException {
        Connection conn = null;
        Savepoint svpt = null;
        try {
            // 加载数据库驱动
            Class.forName(DRIVER);
            // 数据库连接
            conn = DriverManager.getConnection(URL,USER,PWD);

            // 关闭自动提交的事务机制
            conn.setAutoCommit(false);
            // 设置事务隔离级别 SERIALIZABLE
            conn.setTransactionIsolation(Connection.TRANSACTION_SERIALIZABLE);

            Statement stmt = conn.createStatement();
            int rows = stmt.executeUpdate("INSERT INTO city VALUES (3,‘china‘,1,‘cc‘)");
            // 设置事务保存点
            svpt = conn.setSavepoint();
            rows = stmt.executeUpdate("UPDATE city set country = ‘TAIWAN‘ WHERE id = 4");

            // 提交事务
            conn.commit();
        } catch (Exception e) {
            e.printStackTrace();
            // 回滚事务
            if (conn != null) {
                conn.rollback(svpt);
            }
        } finally {
            /** 关闭数据库连接 */
            if (conn != null) {
                try {
                    conn.close();
                } catch (SQLException e) {
                    e.printStackTrace();
                }
            }
        }
    }
}

和第一个例子重复的就不提了。 第 9 行：声明了一个保存点 第 24 行：设置了保存点 第 33 行：回滚事务到该保存点 上面的代码涉及到的是 TCL语言中的 SAVEPOINT   最后来张图总结： 如以上文章或链接对你有帮助的话，别忘了分享到朋友圈，让更多的人阅读这篇文章。