当前位置: 技术问答>linux和unix
Linux 下perl编程
来源: 互联网 发布时间:2016-10-13
本文导语: xiongguo@ubuntu:~/biancheng/ceshi1$ ls -alRt .: total 20 drwxr-xr-x 4 xiongguo xiongguo 4096 2010-11-01 20:39 . -rw-r--r-- 1 xiongguo xiongguo 3207 2010-11-01 20:39 TestMysql drwx------ 8 xiongguo xiongguo 4096 2010-11-01 19:34 .. drwx------ 2 xiongguo xiong...
xiongguo@ubuntu:~/biancheng/ceshi1$ ls -alRt
.:
total 20
drwxr-xr-x 4 xiongguo xiongguo 4096 2010-11-01 20:39 .
-rw-r--r-- 1 xiongguo xiongguo 3207 2010-11-01 20:39 TestMysql
drwx------ 8 xiongguo xiongguo 4096 2010-11-01 19:34 ..
drwx------ 2 xiongguo xiongguo 4096 2010-11-01 02:03 Mysql
drwx------ 2 xiongguo xiongguo 4096 2010-10-11 16:41 Javas
./Mysql:total 48
drwxr-xr-x 4 xiongguo xiongguo 4096 2010-11-01 20:39 ..
drwx------ 2 xiongguo xiongguo 4096 2010-11-01 02:03 .
-rw-r--r-- 1 xiongguo xiongguo 3100 2010-11-01 02:03 TestMysql
-rw-r--r-- 1 xiongguo xiongguo 2070 2010-11-01 00:25 test3
-rw-r--r-- 1 xiongguo xiongguo 473 2010-10-29 13:21 Iteration
我想问下 在
drwx------ 2 xiongguo xiongguo 4096 2010-10-11 16:41 Javas
./Mysql:
之间的空行是怎么产生的 如果我想把ls -alRt的结果赋值给一个变量 但是我想去除这个空行 该怎么弄
.:
total 20
drwxr-xr-x 4 xiongguo xiongguo 4096 2010-11-01 20:39 .
-rw-r--r-- 1 xiongguo xiongguo 3207 2010-11-01 20:39 TestMysql
drwx------ 8 xiongguo xiongguo 4096 2010-11-01 19:34 ..
drwx------ 2 xiongguo xiongguo 4096 2010-11-01 02:03 Mysql
drwx------ 2 xiongguo xiongguo 4096 2010-10-11 16:41 Javas
./Mysql:total 48
drwxr-xr-x 4 xiongguo xiongguo 4096 2010-11-01 20:39 ..
drwx------ 2 xiongguo xiongguo 4096 2010-11-01 02:03 .
-rw-r--r-- 1 xiongguo xiongguo 3100 2010-11-01 02:03 TestMysql
-rw-r--r-- 1 xiongguo xiongguo 2070 2010-11-01 00:25 test3
-rw-r--r-- 1 xiongguo xiongguo 473 2010-10-29 13:21 Iteration
我想问下 在
drwx------ 2 xiongguo xiongguo 4096 2010-10-11 16:41 Javas
./Mysql:
之间的空行是怎么产生的 如果我想把ls -alRt的结果赋值给一个变量 但是我想去除这个空行 该怎么弄
|
#!/usr/bin/perl -w
use strict;
my @result=`ls -alRt`;
foreach(@result){
if($_ =~ /^$/){
next;
}
print $_;
}
|
ls -alRt | grep -v '^$'