Thanks,Ikegami, for the steer
First, I went into the Windows control panel and associated all .pl files with the perl.exe located in C:/perl64/bin and then, I put the 'perl' in the command line just so:
C:\Perl64\bin>perl Hello_world_test.pl
Just as you said.
Then I got:
C:\Perl64\bin>Perl entities_99.pl
"my" variable $backupoutput masks earlier declaration in same scope at
+ entities_99.pl line 11.
Use of uninitialized value $backupoutput in substitution (s///) at ent
+ities_99.pl line 11.
Use of uninitialized value $backupoutput in concatenation (.) or strin
+g at entities_99.pl line 17.
print() on closed filehandle OUT at entities_99.pl line 18.
Of course, I don't understand what that means...yet. The script that perl is trying to execute is, as I said several posts ago, is one which operates on an HTML file to change all the entities to HTML, " to “ and so on. Here is the famous strict.pm requiring script:
1 #!/usr/bin/perl -w
4 use strict;
5 use Data::Dumper;
6 $|=1; #makes the macro produce all results at once, not in spurts
8 my $filename = "RAH99.html";
9 my $output = $filename;
10 my $backupoutput = $filename;
11 my $backupoutput =~ s{\.html*}{.entbackup.html}i;
13 open (IN, $filename);
14 my $book = join('',<IN>);
15 close IN;
17 open (OUT, ">$backupoutput");
18 print OUT $book;
19 close OUT;
22 $book =~ s/‘/‘/g;
23 $book =~ s/’/’/g;
Lots more exchange lines
79 $book =~ s/û/û/g;
80 $book =~ s/ü/ü/g;
82 my $utf8 = qq!<meta http-equiv="Content-Type" content="text/html; c
+harset=UTF-8" />!;
84 $book = "I have changed the most common Unicode characters into HTM
+L entities.\n\nUse this search term to find any leftovers: [€-ÿ]\n\nA
+lso, don't forget to add a UTF-8 meta tag to your header:\n\n$utf8\n\
+n".$book;
87 open (OUT, ">$filename");
88 print OUT $book;
89 close OUT;
If these error messages suggest a place for me to start looking, I would appreciate it
Once again, many thanks to ikegami, BrowserUK and all that have taken the time to share their thoughts on the missing strict.pm
|