Perl | 迷途知返

Posts Tagged ‘Perl’

习惯于linux下用perl来处理一些文件文件和数据, 有时候就难免会写大量的脚本, 为脚本配上好的注释, 以及统一编码风格, 这是一个好的习惯.

只是需要敲入大量的重复代码. 其中对于输入参数的处理就是这样.

我只能说，How 强大 Perl is！

我用过不同的方法来实现网页的post，但是perl是最方便最好用的！

这个矩阵要求是实对称矩阵，jacobi法的实质就是坐标旋转。对称矩阵和二次型是对应的，通过坐标旋转可以消去交叉项，将原矩阵化成只剩对角元素的三角阵（其他元素为0），这些对角元素就是矩阵的特征值。

可以证明，jacobi方法是收敛的。其缺点是对于稀疏矩阵旋转后难保持其稀疏性。

前面写过一个C++的版本, 功能写得非常的简单, 并且没有考虑到有MODEL的情况.

终于下定决心用Perl来重写这个类. 主要是由于以前没有用过Perl的面向对象写东西,很生疏,怕写不好,但是真正写起来却发现是那么地顺手

先看一个正确可运行的例子：

前面写了一个C++版本的，再来一个Perl版本的：

在linux中，如果要把几个可执行程序结合起来使用，一般是采用shell或者perl，当然，python也可以。

这里说一下在perl里嵌入shell命令的情形。

一般来说，最简单的方式就是采用“（qx//）就可以执行命令

无意中看到有人贴linux中常用的解压缩命令的用法，通常最后都有一个程序叫做sEx，叫super extractor，我去SF上下下来看了一下，也是perl写的，不过真的只是一个通用的解压的程序，压缩并没有实现，于是自己动手把通用的解压缩都实现了，供自己用，也供大家方便。

不过说实话，我用的压缩格式并不多，并不需要用太多的命令，一般用tar（只归档，不压缩），tar.gz，rar（windows用得多）。

#!/usr/bin/perl -w

# order templates, do NOT modify this annotation!