wiki

您在这里: start » 语法 » perl语法速查

您的足迹:

语法:perl语法速查

差别

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

到此差别页面的链接

--- 语法:perl语法速查 [2024/12/31 12:43] – [1.10 perl处理json] user01
+++ 语法:perl语法速查 [2025/01/17 11:07] (当前版本) – [1.8 字符串操作] user01
@@ 行 76: / 行 76: @@
 $aa = shift @ar; # 取出数组第一个元素给变量，数组长度减1
 $bb = pop $ar;   # 取出数组最后一个元素给变量，数组长度减1
+unshift @ar, @add; #将add数据里面的数据移入ar前面
 </code>
@@ 行 319: / 行 320: @@
 value_2
 </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
+</code>
 ===== - 字符串操作 =====
@@ 行 426: / 行 455: @@
 <code perl>
-use strict;
+use Spreadsheet::ParseExcel;
-use Spreadsheet::ParseExcel; # for xls
+use Spreadsheet::ParseXLSX;
-use Spreadsheet::ParseXLSX;  # for xlsx
+if (scalar @ARGV <1) {
+    print "usage: perl get_feedthrough.pl xxx.xlsx\n";
+    exit 0;
+}
+$ifile = shift @ARGV;
 # 创建一个解析器对象
-#my $parser = Spreadsheet::ParseExcel->new(); # for xls
+if ($ifile =~ /xlsx/) {
-my $parser = Spreadsheet::ParseXLSX->new(); # for xlsx
+    $parser = Spreadsheet::ParseXLSX->new(); # for xlsx
+} else {
+    $parser = Spreadsheet::ParseExcel->new(); # for xls
+}
 # 打开Excel文件并创建一个工作簿对象
-my $workbook = $parser->parse('example.xlsx');
+$workbook = $parser->parse($ifile);
 # 获取工作表对象
-my $worksheet = $workbook->worksheet(0);
+$worksheet = $workbook->worksheet(0);
 # 读取单元格数据
-my $cell_value = $worksheet->get_cell(0, 0)->value();
+$cell = $worksheet->get_cell(2, 1);  # 索引值从0开始
+if ($cell == under) {
-print "Cell A1: $cell_value\n";
+    print "cell = under\n"; # 表格无内容
+} else {
+    $cell_value = $worksheet->get_cell(2, 1)->value();
+    print "Cell A1: $cell_value\n";
+}
 </code>

语法/perl语法速查.1735620189.txt.gz · 最后更改: 2024/12/31 12:43 由 user01