三目操作符

jiujiujiu338

1. my @name_unique=grep(($Last eq $_ ? 0:($Last=$_,1)),sort @name);

复制代码

在修改别人的一个program时，发现有这样一行：
① 其中$Last在整个程序中没有声明,却没有提示错误；
② 整个语句能不能帮忙解析一下；

多谢~~~

yinyuemi

回复 1# jiujiujiu338

1. my @name_unique=grep(($Last eq $_ ? 0:($Last=$_,1)),sort @name); ==>
   
2.     1. sort @name
   
3.     2. grep (sort @name)
   
4.     3. grep {if($Last eq $_){0}else{$Last=$_;1}} (sort @name)

复制代码

zhlong8

没用 use strict; 变量就不必声明，默认全局变量 our

jiujiujiu338

回复 2# yinyuemi


    多谢很清楚，有一点，单独一个0，或者单独一个1怎么解释呀？多谢

yinyuemi

回复 4# jiujiujiu338

1. perl -le '@a=(1,2,3,1,3,5);print grep{1} (sort @a);print grep {0} @a'
   
2. 112335
   
3. 
   

复制代码

jiujiujiu338

回复 5# yinyuemi

多谢，虽然不是很明白我再查一下，另外调用文件时本来文件名是 file.dat ，为什么写成 file1\.dat 呀，多谢~

yinyuemi

回复 6# jiujiujiu338


    没明白，贴出代码瞅瞅

jiujiujiu338

回复 7# yinyuemi


    嘿嘿，我明白了，是把文件名当做参数调用~