perl获取上一条linux命令的参数

西红柿_炒番茄

在写一个perl脚本，需要的是在执行一条linux命令之后，在perl中获取上一条命令的参数
比如

1. 
   
2. [root@bogon leraningPerl]# ping baidu.com |tee log.txt
   
3. PING baidu.com (123.125.114.144) 56(84) bytes of data.
   
4. 64 bytes from 123.125.114.144: icmp_seq=1 ttl=128 time=36.3 ms
   
5. 64 bytes from 123.125.114.144: icmp_seq=2 ttl=128 time=37.9 ms
   
6. 64 bytes from 123.125.114.144: icmp_seq=3 ttl=128 time=44.2 ms
   
7. 64 bytes from 123.125.114.144: icmp_seq=4 ttl=128 time=48.4 ms
   
8. 64 bytes from 123.125.114.144: icmp_seq=5 ttl=128 time=37.5 ms
   
9. 64 bytes from 123.125.114.144: icmp_seq=6 ttl=128 time=36.8 ms
   
10. 64 bytes from 123.125.114.144: icmp_seq=7 ttl=128 time=40.4 ms
    
11. 64 bytes from 123.125.114.144: icmp_seq=8 ttl=128 time=40.7 ms
    
12. 64 bytes from 123.125.114.144: icmp_seq=9 ttl=128 time=45.6 ms
    
13. 64 bytes from 123.125.114.144: icmp_seq=10 ttl=128 time=52.0 ms
    
14. 64 bytes from 123.125.114.144: icmp_seq=11 ttl=128 time=36.6 ms
    
15. 
    
16. [1]+  Stopped                 ping baidu.com | tee log.txt
    

复制代码

我现在需要做的是 在perl中得到这个log.txt的路径  各位大神，这个要怎么做。。。


或者有没有更好的办法，在我ctrl+Z结束ping的时候 自动执行我的perl程序

多谢

西红柿_炒番茄

自己顶一下吧

q1208c

perl 应该没有能力知道这个吧?

就好象你突然问一个刚进门的人, "你前面进来的是谁?" 如果他见到了那个人, 或许, 他可以告诉你, 如果他根本就没见到前面的人, 你让他怎么说呢? 你的这个问题, 应该问守门的才靠谱吧?

关于你的具体问题, 我倒觉得, 你为啥非要ping之后放到一个 log里, 然后 control+z 再执行你的perl代码呢?
你就不能把这个 ping 放在 perl代码里面去执行, 然后直接处理掉么?

西红柿_炒番茄

我记得linux有个变量存储的是上一条命令的信息，可以直接使用这个变量吗。
ping只是举个例子，实际统计的是公司内部使用的一个压力测试程序，每次都要加一堆不同的参数，直接在perl里面执行感觉不够灵活。

回复 3# q1208c


   

q1208c

回复 4# 西红柿_炒番茄

那个是 bash 存起来的, 至少你的perl 或者其它的代码能不能读到, 我不是太确定.


如果放在 perl 里没有你手工执行灵活, 那我只能说, 你还是继续手工执行吧. 反正这是最灵活的方式了.
   

MMMIX

西红柿_炒番茄 发表于 2014-01-14 08:28
实际统计的是公司内部使用的一个压力测试程序，每次都要加一堆不同的参数，直接在perl里面执行感觉不够灵活。

用 Perl 包装一下，直接把传给包装脚本的参数传给你要执行的程序，完了之后处理它的结果。既满足了你对灵活性的要求，也保留了你需要的信息。

pitonas

q1208c 发表于 2014-01-14 01:34
回复 4# 西红柿_炒番茄

如果放在 perl 里没有你手工执行灵活, 那我只能说, 你还是继续手工执行吧. 反正这是最灵活的方式了.. ...

    

laputa73

调用一下history命令
然后处理一下?

qq413187589

楼主调用fg就好了呀。

1. $ ping baidu.com |tee log.txt
   
2. PING baidu.com (123.125.114.144) 56(84) bytes of data.
   
3. 64 bytes from 123.125.114.144: icmp_seq=1 ttl=52 time=31.8 ms
   
4. 64 bytes from 123.125.114.144: icmp_seq=2 ttl=52 time=32.0 ms
   
5. ^Z
   
6. [1]+  Stopped                 ping baidu.com | tee log.txt
   
7. $ fg
   
8. ping baidu.com | tee log.txt
   
9. 64 bytes from 123.125.114.144: icmp_seq=3 ttl=52 time=31.4 ms
   

复制代码

西红柿_炒番茄

回复 9# qq413187589


我能不能只获取那个log.txt的路径