[英]How do I redirect stdout and stderr output from a Perl script to a file on Windows?
我試過這個:
test1.pl >output.log 2>&1
但這是結果:
Can't dup STDOUT: Permission denied at C:/Perl/lib/Test/Builder.pm line 1376.
Compilation failed in require at C:/Perl/lib/Test/Builder/Module.pm line 3.
BEGIN failed--compilation aborted at C:/Perl/lib/Test/Builder/Module.pm line 3.
Compilation failed in require at C:/Perl/lib/Test/More.pm line 22.
BEGIN failed--compilation aborted at C:/Perl/lib/Test/More.pm line 22.
Compilation failed in require at C:/Perl/site/lib/Test/WWW/Selenium.pm line 72.
BEGIN failed--compilation aborted at C:/Perl/site/lib/Test/WWW/Selenium.pm line 72.
Compilation failed in require at C:\Software\selenium-remote-control-1.0-beta-2\tests\test1.pl line 5.
BEGIN failed--compilation aborted at C:\Software\selenium-remote-control-1.0-beta-2\tests\test1.pl line 5.
只要我不嘗試以任何方式重定向命令行的輸出,腳本就會運行文件。
這是我的腳本,以防萬一。 (這是Selenium測試腳本):
#!C:/perl/bin/perl.exe -w
use strict;
use warnings;
use Time::HiRes qw(sleep);
use Test::WWW::Selenium;
use Test::More "no_plan";
use Test::Exception;
my $sel = Test::WWW::Selenium->new( host => "localhost",
port => 4444,
browser => "*chrome",
browser_url => "http://localhost/" );
print "Start Time: " . localtime() . "\n";
for (my $count = 3000; $count > 0; $count--)
{
print $count . " tests remaining.\n";
$sel->open_ok("/home");
$sel->click_ok("link=News");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("video");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("link=Sports");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("link=Movies");
$sel->wait_for_page_to_load_ok("30000");
$sel->click_ok("moremovies");
$sel->wait_for_page_to_load_ok("30000");
}
print "End Time: " . localtime() . "\n";
在Perl
for Windows
重定向存在一般問題。
Test::More
包中失敗的行說:
open TESTOUT, ">&STDOUT" or die $!;
當您將命令調用為test.pl > outlog.log
,這會失敗,因為您重定向STDOUT
的文件被cmd.exe
鎖定,而不是由perl.exe
鎖定。 你不能從perl.exe
dup()
它
你需要運行:
perl test1.pl >output.log 2>&1
代替。
在我的所有測試腳本中,我總是配置測試報告和日志記錄選項(而不是使用stdout)。 我也遇到了重定向輸出的問題。 你可以使用我上面列出的解決方案,或者你可以做我做的事情:
my $res_file = "C:\\Automation\\Results\\Test_Logs\\login_test_output.txt";
my $err_file = "C:\\Automation\\Results\\Test_Logs\\login_error_output.txt";
open FH, ">$res_file" or die "couldn't open file: $!";
FH->autoflush(1); # Make FileHandle HOT. Set to 0 to turn autoflush off
Test::More->builder->output (*FH{IO}); # Redirect to test result file ($res_file)
Test::More->builder->failure_output ($err_file); # and test failure output file
使用這種方法,我能夠將我的perl腳本中的stdout和stderr輸出重定向到Windows上的文件。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.