用户工具

站点工具


语法:perl语法速查

差别

这里会显示出您选择的修订版和当前版本之间的差别。

到此差别页面的链接

两侧同时换到之前的修订记录前一修订版
后一修订版
前一修订版
语法:perl语法速查 [2024/12/30 22:58] – [1.7.1 ref for array] user01语法:perl语法速查 [2025/01/17 11:07] (当前版本) – [1.8 字符串操作] user01
行 76: 行 76:
 $aa = shift @ar; # 取出数组第一个元素给变量,数组长度减1 $aa = shift @ar; # 取出数组第一个元素给变量,数组长度减1
 $bb = pop $ar;   # 取出数组最后一个元素给变量,数组长度减1 $bb = pop $ar;   # 取出数组最后一个元素给变量,数组长度减1
 +unshift @ar, @add; #将add数据里面的数据移入ar前面
  
 </code> </code>
行 129: 行 130:
 my @descending = reverse sort { $a <=> $b } @some_numbers; my @descending = reverse sort { $a <=> $b } @some_numbers;
 my @descending = sort {$b <=> $a } @some_nubmers; my @descending = sort {$b <=> $a } @some_nubmers;
- 
- 
-for $key (sort {$a <=> $b} keys %hash) { 
- $value = $hash{$key}; 
- print "key = $key, value = $value\n"; 
-} 
- 
  
 for $key (sort {$hash{$a} <=> $hash{$b} keys %hash) { for $key (sort {$hash{$a} <=> $hash{$b} keys %hash) {
行 326: 行 320:
 value_2 value_2
 </code> </code>
 +===== - 循环 =====
 +==== - for ====
 +<code perl>
 +@ar = (1, 2);
 +
 +for ($i=0; $i<2; $i++) {
 +    print "$ar[$i]\n";
 +}
 +
 +foreach $i (@ar) {
 +    print "$i\n";
 +}
 +
 +for $i (@ar) {
 +    print "$i\n";
 +}
 +
 +#输出
 +PS D:\> perl t.pl
 +1
 +2
 +1
 +2
 +1
 +2
 +</code>
 +
 +
 ===== - 字符串操作 ===== ===== - 字符串操作 =====
  
行 428: 行 450:
 #ENV是一个散列,用于存放环境变量。PWD是Linux的环境变量,表示当前所在目录。 #ENV是一个散列,用于存放环境变量。PWD是Linux的环境变量,表示当前所在目录。
 </code> </code>
 +===== - perl处理excel =====
 +
 +==== - 读excel ====
 +
 +<code perl>
 +use Spreadsheet::ParseExcel;
 +use Spreadsheet::ParseXLSX;
 +
 +if (scalar @ARGV <1) {
 +    print "usage: perl get_feedthrough.pl xxx.xlsx\n";
 +    exit 0;
 +}
 +$ifile = shift @ARGV;
 +
 +# 创建一个解析器对象
 +if ($ifile =~ /xlsx/) {
 +    $parser = Spreadsheet::ParseXLSX->new(); # for xlsx
 +} else {
 +    $parser = Spreadsheet::ParseExcel->new(); # for xls
 +}
 +
 +
 +# 打开Excel文件并创建一个工作簿对象
 +$workbook = $parser->parse($ifile);
 +
 +# 获取工作表对象
 +$worksheet = $workbook->worksheet(0);
 +
 +# 读取单元格数据
 +$cell = $worksheet->get_cell(2, 1);  # 索引值从0开始
 +if ($cell == under) {
 +    print "cell = under\n"; # 表格无内容
 +} else {
 +    $cell_value = $worksheet->get_cell(2, 1)->value();
 +    print "Cell A1: $cell_value\n";
 +}
 +</code>
 +
 +
 ===== - perl处理json ===== ===== - perl处理json =====
  
语法/perl语法速查.1735570726.txt.gz · 最后更改: 2024/12/30 22:58 由 user01

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki