Чтение файла в PERL с помощью ActiveX

Question

Я пытаюсь прочитать файл в PERL с помощью ActiveX Control. Мне удалось прочитать файл с помощью элементов управления ActiveX в HTML. Поэтому я изменил код HTML на PERL cgi, используя заявление «Печать». После этого я не могу прочитать файл с помощью ActiveX, другие функции JavaScript работают хорошо.

print "<script src='/EnvelopeUtility/EnvelopeJS.js'></script>"; 

Выше строка кода используется для вызова внешнего JavaScript.

print "<td><input type='button' name='btn1' value='Process' onClick='getData(document.getElementById('sampleFile').value)'></td>"; 

Над строкой кода является кнопка в HTML, который OnClick вызывает метод GetData JavaScript()

var obj = new ActiveXObject('Scripting.FileSystemObject'); 

Над строкой кода присутствует во внешнем JavaScript, который создает объект ActiveX, чтобы прочитать файл.

readFile = obj.OpenTextFile(path, 1, false); 
       while(!readFile.AtEndOfStream) 
       { 
     readFile = obj.OpenTextFile(path, 1, false); 
................. 

Над строкой кода является та, которая считывает строку строки строки.

Приведенный выше код отлично работает в HTML, но в CGI после использования оператора печати я не умею читать файл. Пожалуйста, предложите, что нужно изменить, чтобы прочитать файл.

Answer 1

У вас простая HTML-ошибка.

onClick='getData(document.getElementById('sampleFile').value)' 

Ваше значение атрибута ограниченно ' символов, но вы пытаетесь использовать буквенные символы ' в качестве исходных данных внутри атрибута.

Следовательно, значение атрибута становится getData(document.getElementById( который не является действительным.

Это было бы выбрано, если бы вы использовали validator.

Если вы хотите использовать ' как данные в значении атрибута, разделенного ', тогда вы должны представить его как '.