如何记录command line内容

lipch

只想在运行perl时将command line的所有内容都记录下来，然后再将其输出到log文件中，以便知道我当时是如何运行perl的以及用了哪些参数，有没有人知道请告知。

谢谢

谢谢楼下二位的帮助，不好意思，估计没有说清楚，
我并不是想记录程序的输出结果，
举个例，
比如某程序按以下方式执行
perl test.pl -a -b -c input.txt -o result.txt

我希望能把上面整个命令行"perl test.pl -a -b -c input.txt -o result.txt"  记录到一个变量中，这样，我在以后重新看结果时，我就知道当时是如何运行时该程序的，有点象.bash_history记录的东西。

liyangole

不知所云了。

wind_ch

想查看運行過的命令, linux下history文件有記錄,
想看命令運行過程中的輸出, 可以把輸出重定向到log文件.

lipch

重新编辑了贴子，谢谢

meihuaqi

script -a  history.txt
记录你的一切

lipch

script -a  history.txt
记录你的一切
meihuaqi 发表于 2011-01-04 16:06

   谢谢，正引为script记录了一切，所以我认为不妥，我只想知道本次运行的内容，并且，script需要手动去运行，别人在使用时不一定能知道这个命令，有什么函数或系统内建模块能实现记录命令行内容的功能吗。

wind_ch

bash內建的history命令就是用來記錄命令行內容的, 不過這個記錄了所有的使用過的命令, 要想針對某個程序記錄執行的命令, 要么history|grep 出來, 要么你在程序裏面自己記錄, perl的話, 可以這樣:

1. print FILE "$0 @ARGV\n";
   

复制代码

lipch

bash內建的history命令就是用來記錄命令行內容的, 不過這個記錄了所有的使用過的命令, 要想針對某個程序記錄 ...
wind_ch 发表于 2011-01-04 16:47

   
@ARGV 不支持Getopt::Long;


想到一个折中的办法

use POSIX;

system("ps -ef >.command.txt");
my $id = getpid();

...using the regular express to find the command in the .command.txt

jason680

只想在运行perl时将command line的所有内容都记录下来，然后再将其输出到log文件中，以便知道我当时是如何运 ...
lipch 发表于 2011-01-04 15:45

加入你的perl的code中
system "echo '$0 @ARGV' > $0.arg";
或
system "echo '$0 @ARGV' >> $0.arg";



# perl test.pl -x -b -c input.txt -o result.txt

# cat test.pl.arg
test.pl -x -b -c input.txt -o result.txt

lipch

谢谢楼上，此贴已解。