wiki

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

您的足迹:

Writing /share/Web/wiki/data/cache/5/51089c637a3e7de48187fdb5488f650c.metadata failed

语法:perl语法速查

差别

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

到此差别页面的链接

--- 语法:perl语法速查 [2024/12/30 23:00] – [1.6 hash] 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>
 ===== - 字符串操作 =====
@@ 行 421: / 行 450: @@
 #ENV是一个散列，用于存放环境变量。PWD是Linux的环境变量，表示当前所在目录。
 </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语法速查.1735570857.txt.gz · 最后更改: 2024/12/30 23:00 由 user01