dos命令！dos中可以执行，在perl中就报错！请帮忙

liu6545

1. 
   
2. system qq(for /f "tokens=1 delims= " %a in ('date /t') do @echo %a>date.txt);
   

复制代码

路小佳

1. 
   
2. system qq(for /f "tokens=1 delims= " %a in (\"date /t\") do @echo %a>date.txt);
   

复制代码

liu6545

楼上的结果是：

1. 
   
2. 当前日期: 2007-04-24 星期二
   
3. 输入新日期: (年月日)
   

复制代码

我希望得到的结果是：

1. 
   
2. 2007-04-24
   

复制代码

路小佳

那用啥system.
直接locatime就可以了啊。

1. 
   
2. sub mktime
   
3. {
   
4.     my @tm = localtime($_[0]);
   
5.     return sprintf('%04d-%02d-%02d %02d:%02d:%02d',
   
6.                                         $tm[5]+1900, $tm[4]+1, $tm[3], $tm[2], $tm[1], $tm[0])
   
7. }
   
8. print mktime(time()), "\n";
   

复制代码

liu6545

恩！

ulmer

原帖由 liu6545 于 2007-4-24 14:23 发表

1. 
   
2. system qq(for /f "tokens=1 delims= " %a in ('date /t') do @echo %a>date.txt);
   

复制代码

Hi,

using single q( ... ) instead of qq( ... ) to avoid interpret %, @
or using \ to escape %,@

DOS:
C:\>for /f "tokens=1 delims= " %a in ('date /t') do @echo %a
2007-04-24
One Perl-Line:
C:\>perl -le "system qq(for /f \"tokens=1 delims= \" \%a in ('date /t') do \@echo \%a)";
2007-04-24
C:\>perl -le "system q(for /f \"tokens=1 delims= \" %a in ('date /t') do @echo %a)";
2007-04-24
Pure Perl:
C:\>perl -e "($d,$m,$y)=(localtime)[3..5];printf'%04d-%02d-%02d',$y+1900,$m+1,$d"
2007-04-24

-- ulmer