❶ 如何写perl脚本的帮助文档
概念 / 简单应用上, 可以这样写: sub help { ... } help() if ( grep {$_ eq "-h"} @ARGV ) ; 不过, 实际的应用上, 你可能需要有更专业的模块帮你完成, 其实应该是说... 更不费劲.. 有空可以参考一下 Getopt::Long 或 Getopt::Std
❷ Perl入门教程
2楼真是的，人家还没入门，你直接整个文件操作干嘛？
什么是Perl？
Perl 是一种最初开发用于文本操作的编程语言。现在它能应用于广泛的任务，包括系统管理、 web 开发、 网络编程、 GUI 开发和更多的普通用途。
这个语言以实用性为目标（易用、高效、完整）宁愿失去美丽（小巧、优雅、迷你）。它使用方便，且支持面向过程和面向对象编程，内置强大的文本处理支持，并有世界上最令人印象深刻的第三方模块的集中营。
运行Perl程序
在Unix命令行运行Perl程序：
perl progname.pl
另一种方法是，把这个放到你的脚本第一行：
#!/usr/bin/env perl
然后用/path/to/script.pl运行。当然，首先得让它能执行，你得chmod 755 script.pl（Unix下）。
（这里的第一行假设你有env程序。你也可以直接把你的perl解释器的路径直接放到第一行，比如#!/usr/bin/perl）
安全保障
默认情况下，Perl非常随意。为了使它更强健建议每个程序由下列行开始：
1. #!/usr/bin/perl
2. use strict;
3. use warnings;
附加的两行从perl中捕获您的代码中的各种常见的问题。它们检查不同的事情，所以你需要两个都加上。一个潜在的问题通过use strict;捕获，一旦它捕获到问题，会马上让你的程序停止运行。当然使用use warnings;时，仅仅出现警告（就好像命令行的-w选项）并不会停止程序。
基本语法概述
一个Perl脚本或程序包含一条或多条语句。这些语句只需直接写在脚本中，而不需要像main()这样的东西作为程序入口。
Perl语句以分别结束：
print "Hello, world";
以星号（#）开始的语句是注释：
# This is a comment（这是一条注释）
空白字符会被Perl忽略：
1. print
2. "Hello, world"
3. ;
……引号里的字符串除外：
1. # this would print with a linebreak in the middle
2. print "Hello
3. world";
字符串使用双引号或单引号：
1. print "Hello, world";
2. print 'Hello, world';
然而，只有双引号会“插入”变量值和像换行符（\n）这样的特殊字符（转义字符）：
1. print "Hello, $name\n"; # works fine
2. print 'Hello, $name\n'; # prints $name\n literally
数字不需要引号：
print 42;
你可以使用或省略括号来传递函数的参数。它们只是在偶尔要改变或明确优先级的时候必须使用。
1. print("Hello, world\n");
2. print "Hello, world\n";
Perl变量类型
Perl有3种主要的变量类型：标量（scalars）、数组（arrays）和哈希（hashes）。
* 标量（Scalars）
一个标量表示只有一个值：
1. my $animal = "camel";
2. my $answer = 42;
标量的值可以是字符串、整数或浮点数，并且Perl会在需要的时候自动转换。你不需要预先声明你的变量类型，但是你需要在第一次使用它们的时候，使用my来声明它们。（这是use strict;所要求的）
标量可以用不用的方式使用：
1. print $animal;
2. print "The animal is $animal\n";
3. print "The square of $answer is ", $answer * $answer, "\n";
有大量的“魔法”标量的名称看上去像标点或线路噪音。这些特殊的变量用于各种目的。现在你只要知道其中一个，这就是“默认变量”$_。它被许多Perl的函数用作默认的参数，并且它被隐式设置到某些循环结构中。
print; # prints contents of $_ by default（默认打印$_的内容）
* 数组（Arrays）
数组用于表示一些值的列表：
1. my @animals = ("camel", "llama", "owl");
2. my @numbers = (23, 42, 69);
3. my @mixed = ("camel", 42, 1.23);
特殊变量$#array将返回数组最后一个元素的索引：
print $mixed[$#mixed]; # last element, prints 1.23
你可能想使用$#array + 1来得到这个数组的元素个数。别急，这很容易。在Perl预想找到一个标量值的时候（“在标量上下文”），使用@array会得到数组的元素个数：（译注：“上下文”是Perl很重要的特性之一，请查阅相关文档或在无忧Perl搜索相关内容）
if (@animals < 5) { ... } #译注：当@animals数组的元素个数少于5个的时候
当我们从数组获得元素值的时候，需要使用$，因为我们只要获取数组里的一个值；你请求一个标量，然后会获得一个标量。
从数组里获取多个值：
（译注：获取多个值，使用@，因为我们要获取数组里的几个值（列表）。）
1. @animals[0,1]; # gives ("camel", "llama");
2. @animals[0..2]; # gives ("camel", "llama", "owl");
3. @animals[1..$#animals]; # gives all except the first element
这叫“数组切片”。
你可以在列表里干些有意义的事情：
1. my @sorted = sort @animals;
2. my @backwards = reverse @numbers;
有两个特殊的数组，一个是命令行传到你脚本的参数@ARGV；另一个是传递给子程序的参数@_。
* 哈希
哈希用来表示键/值对：
1. my %fruit_color = ("apple", "red", "banana", "yellow");
你可以使用空白字符和=>操作符来美化上面的代码：
1. my %fruit_color = (
2. apple => "red",
3. banana => "yellow",
4. );
获取哈希元素：
1. $fruit_color{"apple"}; # gives "red"
你可以通过keys()和values()来获取键列表和值列表。
1. my @fruits = keys %fruit_colors;
2. my @colors = values %fruit_colors;
哈希没有特定的内部排序，然而你可以对键进行排序来遍历它。
和特殊的标量、数组一样，哈希也有特殊的。我们现在只要知道哈希%ENV包括所有环境变量
。
更复杂的数据类型可以使用引用来构造，允许你把列表和哈希放到另一个列表和哈希中。
引用是一个标量值，它可以引用任何其它的Perl数据类型。通过把引用存储为数组或哈希的元素值，你可以轻松创建列表/哈希中的列表/哈希。
以下示例演示了使用匿名哈希引用实现的两级哈希结构
1. my $variables = {
2. scalar => {
3. description => "single item",
4. sigil => '$',
5. },
6. array => {
7. description => "ordered list of items",
8. sigil => '@',
9. },
10. hash => {
11. description => "key/value pairs",
12. sigil => '%',
13. },
14. };
15.
16. print "Scalars begin with a $variables->{'scalar'}->{'sigil'}\n";
变量作用域
上面所有的例子都使用这种语法：
1. my $var = "value";
实际上，my不是必须的。你可以省略：（译注：前提是，你没有使用“use strict;”语句）
1. $var = "value";
但是，上面的用法将创建一个全局变量，这是一个很差的编程实践。my创建一个词法作用域变量，这个变量只在定义它们的语句块中可见（比如一段包在大括号里的语句）。
1. my $x = "foo";
2. my $some_condition = 1;
3. if ($some_condition) {
4. my $y = "bar";
5. print $x; # prints "foo"
6. print $y; # prints "bar"
7. }
8. print $x; # prints "foo"
9. print $y; # prints nothing; $y has fallen out of scope
结合使用my和在Perl脚本开头使用use strict，解释器将捕获常见的编程错误。比如，在上面的例子中，最后的print $y将引发一个编译时错误并阻止程序运行。强烈建议使用use strict语句！
条件和循环语句
Perl有许多常用的条件和循环语句。Perl 5.10甚至提供了分支语句（拼作given/when）。
条件可以是任何Perl表达式。比较和布尔条件语句中常用的逻辑运算符，请参阅有关信息的下一节中的运算符的列表。
* if
1. if ( condition ) {
2. ...
3. } elsif ( other condition ) {
4. ...
5. } else {
6. ...
7. }
还有否定版本的：
1. unless ( condition ) {
2. ...
3. }
这个否定版比if (!condition)更易读。
注意，大括号是必须的，即使代码块中只有一行。不过，这里有一个方法可以让你通过类似英语的语法来实现单行条件语句：
1. # the traditional way
2. if ($zippy) {
3. print "Yow!";
4. }
5.
6. # the Perlish post-condition way
7. print "Yow!" if $zippy;
8. print "We have no bananas" unless $bananas;
* while
1. while ( condition ) {
2. ...
3. }
为了和unless同样的理由，也有一个否定版本：
1. until ( condition ) {
2. ...
3. }
你也可以在后置条件里使用while：
print "LA LA LA\n" while 1; # loops forever
* for
跟C语言一样：
1. for ($i = 0; $i <= $max; $i++) {
2. ...
3. }
自然Perl提供了更友好的列表遍历循环foreach以后，C语言风格的for循环在Perl几乎不需要了。
* foreach
1. foreach (@array) {
2. print "This element is $_\n";
3. }
4.
5. print $list[$_] foreach 0 .. $max;
6.
7. # you don't have to use the default $_ either...
8. foreach my $key (keys %hash) {
9. print "The value of $key is $hash{$key}\n";
10. }
内置操作符和函数
Perl 附带了各种各样的内置函数。我们已经看到的几个，包括print，sort和reverse。
Perl常见操作符（运算符）
* 算术
1. + 加法
2. - 减法
3. * 乘法
4. / 除法
* 数字比较
1. == 等于
2. != 不等于
3. < 小于
4. > 大于
5. <= 小于等于
6. >= 大于等于
* 字符串比较
1. eq 等于
2. ne 不等于
3. lt 小于
4. gt 大于
5. le 小于等于
6. ge 大于等于
（为什么数字和字符串的比较运算符不同？因为我们没有不同的变量类型，并且Perl需要知道是以数字进行排序（99小于100）还是以字母进行排序（100在99前面））
* 逻辑
1. && and 和
2. || or 或
3. ! not 否
* 混合
1. = 赋值
2. . 字符串连接
3. x 字符串乘法
4. .. 范围 (建立一个列表)
一些操作符可以和=结合，像这样：
1. $a += 1; # same as $a = $a + 1
2. $a -= 1; # same as $a = $a - 1
3. $a .= "\n"; # same as $a = $a . "\n";
文件和I/O
你可以使用open()函数来打开一个文件，用于输入或输出：
1. open(my $in, "<", "input.txt") or die "Can't open input.txt: $!";
2. open(my $out, ">", "output.txt") or die "Can't open output.txt: $!";
3. open(my $log, ">>", "my.log") or die "Can't open my.log: $!";
你可以使用<>操作符从打开的文件句柄中读数据。在标量上下文中，它从文件句柄中读取一行；在列表上下文中，它读取整个文件，并将每一行作为列表的元素。
1. my $line = <$in>;
2. my @lines = <$in>;
一次性把整个文件读完，叫做“啜食（slurping）”。它能让人满意，但它可能是内存吞噬者。大多数文本文件处理可以通过Perl的循环结构，一行一行地完成。
<>操作符经常出现在while循环里：
1. while (<$in>) { # assigns each line in turn to $_
2. print "Just read in this line: $_";
3. }
我们已经看到了如何使用print()在标准输出里打印。但是，print()还能通过第一个可选参数指定一个文件句柄来打印（译注：将内容输出到指定的文件句柄中，即写入到文件句柄相关联的文件中）
1. print STDERR "This is your final warning.\n";
2. print $out $record;
3. print $log $logmessage;
当你完成了对文件句柄的操作之后，你应该使用close()来关闭文件句柄。（老实说，如果你忘记关闭了，Perl会帮你处理。）
close $in or die "$in: $!";
正则表达式
Perl对正则表达式的支持宽广而深入：
* 简单匹配
1. if (/foo/) { ... } # true if $_ contains "foo"
2. if ($a =~ /foo/) { ... } # true if $a contains "foo"
//匹配操作符（译注，完整的应该是：m//）默认操作$_，或者使用=~来绑定其它变量进行操作。
* 简单置换
1. s/foo/bar/; # replaces foo with bar in $_
2. $a =~ s/foo/bar/; # replaces foo with bar in $a
3. $a =~ s/foo/bar/g; # replaces ALL INSTANCES of foo with bar in $a
* 更复杂的正则表达式
你不仅能匹配固定的字符串。其实，你可以匹配任何你能想到的复杂正则表达式。
1. . 单个任意字符（默认不包含\n）
2. \s 一个空白字符 (空格, tab, 换行, ...)
3. \S 一个非空白字符
4. \d 一个数字 (0-9)
5. \D 一个非数字
6. \w 一个能组成单词的字符 (a-z, A-Z, 0-9, _)
7. \W 一个不能组成单词的字符
8. [aeiou] 匹配中括号内的任意一个字符
9. [^aeiou] 匹配除了中括号内列出的字符之外的任意一个字符
10. (foo|bar|baz) 匹配foo或bar或baz
11.
12. ^ 匹配开头
13. $ 匹配结尾
量词可用来指定数量：
1. * 零个或任意多个
2. + 至少一个
3. ? 零个或一个
4. {3} 3个
5. {3,6} 3到6个
6. {3,} 至少3个
一些简单的例子：
1. /^\d+/ 以一个或多个数字开头
2. /^$/ 空的，没有任何东西
3. /(\d\s){3}/ 3个带空白字符的数字
4. (比如 "3 4 5 ")
5. /(a.)+/ 匹配最少一次，含有a和任意字符
6. (比如 "abacadaf")
7.
8. # 从STDIN循环读入，并打印出非空白行:
9. while (<>) {
10. next if /^$/;
11. print;
12. }
* 圆括号捕捉
括号的另一个用法是分组。它可以用来捕捉最后使用的正则表达式匹配的结果。这些结果用$1、$2……表示。
1. # a cheap and nasty way to break an email address up into parts
2.
3. if ($email =~ /([^@]+)@(.+)/) {
4. print "Username is $1\n";
5. print "Hostname is $2\n";
6. }
子程序
写一个子程序是很容易的：
1. sub logger {
2. my $logmessage = shift;
3. open my $logfile, ">>", "my.log" or die "Could not open my.log: $!";
4. print $logfile $logmessage;
5. }
现在我们可以像使用其它内置函数一样，使用该子程序了：
1. logger("We have a logger subroutine!");
什么是shift？传递给子程序的参数保存在@_数组中。shift函数的默认参数是@_。所以my $logmessage = shift;去掉第一个参数，并将其赋值给$logmessage。
可以通过别的方法操作@_：
1. my ($logmessage, $priority) = @_; # common（通用）
2. my $logmessage = $_[0]; # uncommon, and ugly（不通过，并且很丑陋）
子程序可以返回值：
# sub square {
# my $num = shift;
# my $result = $num * $num;
# return $result;
# }
然后像这样使用它：
1. $sq = square(8);
Perl面向对象
Perl面向对象相对比较简单，这是实现使用引用什么样的对象知道自己是在Perl的概念为基础的封装。
刚开始进行Perl编程，你最常使用的Perl面向对象将是使用第三方模块，参见下文。
使用Perl模块
Perl 模块提供了一系列的功能，可帮助您避免重复劳动，它们可以通过CPAN（www.cpan.org）下载。许多流行的模块都已经包含在了Perl发行包中。
本文由无忧Perl（www.51perl.com）翻译，转载请注明本文链接：www.51perl.com/perl-brief-introction/
水平有限，错误难免，欢迎指正，并以原文为准。原文地址：http://perldoc.perl.org/perlintro.html
希望对你有用
❸ linux怎么批量修改文件名称
可以用脚本实现批量文件名称修改，以perl脚本为例：
注释：
1. # touch rename.perl //创建一个文件：rename.perl , 内容如下。
2. # chmod +x rename.perl
3. # cp rename.perl /bin/
4. # rename.perl 's/gongxu/leibie/g' * //将目录中所有文件名中的 gongxu 替换为 leibie。
#!/usr/bin/perl -w
# rename - Larry's filename fixer
#用法: Perl表达式 [要处理的文件名]
$op = shift or die "Usage: rename expr [files]\n";
#如果没有给出要处理的文件名则从标准输入读入
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
$was = $_;
eval $op; #对待处理的文件名($_)执行用户输入的Perl表达式$op
die $@ if $@; #退出 , 如果eval出错
rename($was,$_) unless $was eq $_;
}
rename脚本的经典实例示范:
% rename.perl 's/\.orig$//' *.orig #移除文件末尾的.orig
% rename.perl "tr/A-Z/a-z/ unless /^Make/" * #所有非Make打头的文件名大写转为小写
% rename.perl '$_ .= ".bad"' *.f #每个*.f文件后面追加一个.bad
% rename.perl 'print "$_: "; s/foo/bar/ if =~ /^y/i' * #回显每个待处理的文件名, 等待输入, 如果用户输入以y或Y打头, 把文件名中的foo替换成bar
% find /tmp -name "*~" -print | rename.perl 's/^(.+)~$/.#$1/' #把 /tmp目录里面每个文件名末尾有~的文件名改成以.#开头
❹ perl脚本中如何删除重复行
假定你的文件是oss.txt，
第一步，把以下脚本保存成script.pl，
%hash=();
while(<>){#对于输入文件的每一行
chomp();#去除行尾换行符
$_=~s/\///g;#把替换成/，如果想区分斜杠和反斜杠则请移除本行代码
$hash{$_}=1;#标记该行已出现过
}
my@lines=keys(%hash);#获得所有标记过的行
$"=" ";#定义输出的分隔符是换行符
print("@lines");#输出
第二步，在命令行执行以下命令， 执行完成后result.txt中就是不含重复行的文件。
perlscript.ploss.txt>result.txt
比如你问题中列出的内容，过滤后的结果是
oss/src/platform/graph
oss/src/include
如果区分斜杠和反斜杠，则结果是，
osssrcinclude
osssrcplatformgraph
oss/src/platform/graph
oss/src/include
❺ perl 如何接收url参数
根据CGI规范，URL里面的参数是GET传递，是在CGI程序的环境变量里面$ENV{'QUERY_STRING'}的，我的程序中相关部分是这样写的：
# 读取资料
if ($ENV{'REQUEST_METHOD'} eq "POST")
{read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});}
else {$buffer = $ENV{'QUERY_STRING'};}
# 分割资料
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
#还原+和%
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
#去处html标记
$value=~ s/\r\n/<br>/g;
$FORM{$name} = $value if ($name);
}
程序执行后，数组%FORM里面就有url的参数，例如$FORM{'user'}的值就是传递过来的what
❻ 如何调试perl脚本
进入退出：
perl
-d debugtest用调试器载入perl程序运行，交互式界面
Loading
DB routines from perl5db.pl version 1.3
Editor
support available.
Enter
h or `h h' for help, or `perldoc
perldebug'
for more help.
main::(p4.pl:2): my($xx,$yy)=(1,1);
DB<1>
先是欢迎信息，显示第一个可执行行：程序将要执行的当前行号。包名，文件名，文件中的行号。
提示符DB<n>
n为命令行号。h可看帮助，q退出调试器
l
缺省显示10行 再输入l接着显示10行
l
10 指定显示第10行
l
8-10 指定显示行的范围
l
8+3 指定从哪行开始多少行。
l
subs 指定显示函数，提供函数名。如果太长只显示前几行，用l接着显示
-
显示在当前行前面的行，再输入-继续向前
w
7 包含指定行的显示窗口 windows可能不一样
//
?? 从当前行搜索包含指定模式的行 /find/
//从前向后正向搜索，??从后向前逆向搜索 可忽略?? //中后面的? /。
S
列出所有函数，包名::函数
无参数的缺省形式列出所有底层和继承的函数，太多。加上搜索模式，指定当前程序包 S main可列出含main的函数
s 执行单条语句 显示下一条要执行的语句。如果需要交互会等待输入。
对于函数，仅仅是进入不执行，如果不进入函数内部，要跳过用n。不能进入系统内部的库函数，只能进入自己定义的
n 执行一行程序，stepover 不进入函数。
f 执行当前函数剩下的语句，显示跟随函数的语句
step
out 旧命令，现在为切换文件名
回车
如果执行了s或n，以后只用回车重复执行上一个s或n的命令。
r 在函数中执行到函数外
b 10
在哪一行设置断点。如果此行非执行语句，显示不能设置断点。如果一条语句有多行，则在第一行设置，其余行不能设置。
b func在函数处设置断点
b 10
($curdir eq
"") 当条件为真时中断执行
c
执行到断点或终止。继续
c
12临时断点，只中断一次，继续执行在12行中断。
L
列出所有断点。列出前几行，当前行，断点。断点条件。
B
10删除断点。不带参数认为是下一行是断点。
B *
删除所有断点。
X
var 不带参数列出main包的所有变量，包括预定义的变量。指定变量不带$，@。可能是符号表中的变量才行。现在与V同。
V
var 列出任何包的变量。只指定包名列出包的所有变量。指定包及变量为main
var。无::
S
列出所有可用的函数，包名::函数 无参数的缺省形式列出所有底层和继承的函数，太多。加上搜索模式，
指定当前程序包
S
main可列出含main的函数
p
expr
指印表达式值。把标准输出重定向也会输出到屏幕。
程序到达某一行时指定执行一条或多条语句。常见的行动作是显示变量值或把含错误值的变量重置为指定的值
a
10 print ("curdir is $curdir\n") 多条语句在一行中用分号;分开，当要续行时用\ 执行完第10行执行指定的语句。
A
*删除所有行动作
A 10删除第10行的动作
>
print 在程序开始执行前执行语句。无参数形式删除设置
<
print 在程序执行完成后执行语句。无参数形式删除设置
跟踪 显示每一个执行行。
t
打开，关闭跟踪。每执行显示一行。
任何非调试命令的perl语句都可执行。分号可忽略。更改变量值。
H
列出从前命令
!
n 执行从前命令。忽略行号执行上一条命令
n=-2跳过2条命令。从当前H列表逆向跳过。
T
栈跟踪。调用级
$
= &main::sub2('hi') from file debug1 line 7
$
= &main::sub1('hi') from file debug1 line 3
当前程序在第7行，在main包的sub2函数中，以hi为实际传递的参数。返回简单变量，此函数由sub1调用。
=
别名 命令 给命令定义别名 =
pc print ("curdir is $curdir\n");别名存在%DB(%DB::alias)中。无参数列出定义的别名。输入pc打印语句。
预定义别名：每次加载调试器自动定义别名。在.perldb中加入$DB'alias{"pc"} = 's/^pc/print
("curdir is $curdir\n");/';
错误检查
Lint perl -MO=Lint,-u pl 编译时检查
perldiag错误信息
-w 重定义函数变量未使用
Use strict;
use diagnostics 警告信息。
命令行参数简介
-c 语法检查
-v版本
-w警告信息
-e执行单行程序
-s为程序提供命令行选项。perl -s prog.pl
-q =>$q=1作为选项。不出现在@ARGV中。否则不加-s，-q作为字符串存在@ARGV中。可赋值-abc="abc"
跟在程序名后带-的是选项，不带-的不是，不是选项的项后面的所有都不是选项。
-P先运行c预处理器，输出再由perl执行
-I指定目录中的包含文件
-n循环处理多个文件。不用while
-p读文件行并显示。同n，不用print自动显示。
-i编辑文件，读然后写回文件。
-a分割行到@F
-F分割模式，指定分割符
-0
指定输入行结束符，用八进制表示
-1
指定输出行结束符
-x从消息中抽取程序。忽略行，直到遇到#!..perl。到文件尾，ctrl-d
ctrl-z __END__时结束
-u产生coremp
-U可以执行不安全操作
-S从路径中查找程序
-D设置调试标志
-T写安全程序。从外部获得的数据不能作为命令或修改文件系统
-d使用调试器
❼ 如何使用perl脚本处理excel的边框粗细
用Excel的宏录制功能代码就可以了
useWin32::OLEqw(inwith);
useWin32::OLE::Variant;
useWin32::OLE::Const'MicrosoftExcel';
usestrict;
my$excel;
my$excel_book;
$|=1;
create_excel();
edge(get_range([1,1]),'out',xlThick);
edge(get_range([2,2]),'out',xlThin);
edge(get_range([3,3]),'out',xlMedium);
subcol_name{
my$col=shift;
my$n="";
do{
$col--;
$n=chr($col%26+ord('A')).$n;
$col=int($col/26);
}while($col>0);
return$n;
}
subget_row_col{
my($row,$col)=@_;
returncol_name($col).$row;
}
subget_range{
my$range=shift;
my$r;
if($#$range==1){
$r=get_row_col($range->[0],$range->[1]);
}
if($#$range==3){
$r=get_row_col($range->[0],$range->[1]).":".
get_row_col($range->[2],$range->[3]);
}
return$excel->Range($r);
}subedge{
my$range=shift;
my$type=shift;
my$weight=shift||xlThin;
if($typeeq'out'||$typeeq'all'){
with($range->Borders(xlEdgeLeft),
'LineStyle'=>1,
'ColorIndex'=>0,
'Weight'=>$weight
);
with($range->Borders(xlEdgeRight),
'LineStyle'=>1,
'ColorIndex'=>0,
'Weight'=>$weight
);
with($range->Borders(xlEdgeTop),
'LineStyle'=>1,
'ColorIndex'=>0,
'Weight'=>$weight
);
with($range->Borders(xlEdgeBottom),
'LineStyle'=>1,
'ColorIndex'=>0,
'Weight'=>$weight
);
}
if($typeeq'all'){
with($range->Borders(xlInsideHorizontal),
'LineStyle'=>1,
'ColorIndex'=>0,
'Weight'=>$weight
);
with($range->Borders(xlInsideVertical),
'LineStyle'=>1,
'ColorIndex'=>0,
'Weight'=>$weight
);
}
}
subcreate_excel{
$excel=Win32::OLE->new('Excel.Application')ordie"oops ";
$excel->{Visible}=1;
$excel_book=$excel->Workbooks->Add;
}
❽ genesis perl脚本
你知道在个genesis中有特殊指令，可以屏蔽错误报告。
不管这个step 是否存在，你直接去新建这个step就好了如果存在他不会报错。
cshell 中如下：
VOF
COM 。。。。。。。
VON
perl 中如下：
sub VOF {
local ($genesis) = shift;
$genesis->sendCommand("VOF","");
}