Не удается открыть браузер в программе perl?

Question

У меня есть код perl, который генерирует HTML-отчет. После завершения выполнения программы я хочу запустить html-браузер.

for (i<0; $i<$#files; $i++) { 

    if (condition is met) { 

     &sub_pass(prints to html file) 

    } 
    else { 
     &sub_fail(prints to html file) 
    } 

} 

    my @url_report = "C://path/to/htmlfile/"; 
    system("explorer @url_report"); 

Но это не запускает html-файл, я хочу. Когда я вызываю функцию System перед циклом for, он успешно открыл файл. Любая причина или решение и как я могу заставить его работать?

Answer 1

explorer - это программа для Windows и не так прощает, как Perl, о том, какой разделитель путей вы используете. То есть вам нужно использовать обратную косую черту.

my $url_report = "C:\\path\\to\\htmlfile\\"; 
system("explorer $url_report"); 

Answer 2

переменной url_report здесь является массивом, а не скаляр:

my @url_report = "C://path/to/htmlfile/"; 
system("explorer @url_report"); 

Вы можете попробовать изменить это из массива на скаляр, и вы можете также использовать возможности извлекать сообщение об ошибке от system():

my $url_report = "C://path/to/htmlfile/"; 
system("explorer $url_report") == 0 or die "could not open file: $url_report ($?)"; 

более подробное сообщение об ошибке поможет вам устранить дальше.

Answer 3

"C://Users/path/output.html/" 

должен быть

"C:\\Users\\path\\output.html" 

Хотя это можно explorer принимает следующее (так как ядро ​​делает):

"C:/Users/path/output.html" 

---

Было бы еще лучше, если вы использовал браузер пользователя, s выбор:

my $url_report = "C:\\Users\\path\\output.html"; 
system(qq{start "" "$url_report"});