一句话perl

ll | perl? -ne 'print if (split /s+/)[6]>= 19;'

ll | perl -ne 'print if ${ [split /s+/] }[6]> date;'

ll | perl -MO=Deparse -ne 'print if ${[split /s+/]}[6]>= 19;'

perl -e 'print STDERR "e[34mHello Jasone[0mn"'

e[34m...e[0m之间的字符串为蓝色。

ls -lAF | perl -ne 'BEGIN{$sum=0} next if /^d/; $sum += (split)[4]; END{ print "$sumn" }'

?

??perl -e? 'while(@ARGV){$file = shift @ARGV; open hand,"<".$file; next if (!defined hand);while(<hand>){if(m<JASON>){print $file."n";close(hand);last;}}}' ` tree -afpdictory?| perl -ne 'next unless(m/[-/);print $_'`

perl -e? 'while(@ARGV){$file = shift @ARGV; next unless -f $file;open hand,"<".$file;while(<hand>){if(m<Thesescomputersresources>){print $file."n";close(hand);last;}}}' `tree -afp /etc | perl -ne 'next unless(m/[-/);@arr=split;print $arr[-1],"n";'`