语法:perl语法速查
差别
这里会显示出您选择的修订版和当前版本之间的差别。
| 两侧同时换到之前的修订记录前一修订版后一修订版 | 前一修订版 | ||
| 语法:perl语法速查 [2024/12/31 13:01] – [1.10.1 读excel] 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; # | ||
| </ | </ | ||
| 行 319: | 行 320: | ||
| value_2 | value_2 | ||
| </ | </ | ||
| + | ===== - 循环 ===== | ||
| + | ==== - for ==== | ||
| + | <code perl> | ||
| + | @ar = (1, 2); | ||
| + | |||
| + | for ($i=0; $i<2; $i++) { | ||
| + | print " | ||
| + | } | ||
| + | |||
| + | foreach $i (@ar) { | ||
| + | print " | ||
| + | } | ||
| + | |||
| + | for $i (@ar) { | ||
| + | print " | ||
| + | } | ||
| + | |||
| + | #输出 | ||
| + | PS D:\> perl t.pl | ||
| + | 1 | ||
| + | 2 | ||
| + | 1 | ||
| + | 2 | ||
| + | 1 | ||
| + | 2 | ||
| + | </ | ||
| + | |||
| + | |||
| ===== - 字符串操作 ===== | ===== - 字符串操作 ===== | ||
| 行 450: | 行 479: | ||
| # 读取单元格数据 | # 读取单元格数据 | ||
| - | $cell = $worksheet-> | + | $cell = $worksheet-> |
| if ($cell == under) { | if ($cell == under) { | ||
| print "cell = under\n"; | print "cell = under\n"; | ||
语法/perl语法速查.1735621280.txt.gz · 最后更改: 2024/12/31 13:01 由 user01