Clarification des fonctions open()
authorHugo Villeneuve <hugo@hugovil.com>
Tue, 7 Dec 2021 04:31:32 +0000 (23:31 -0500)
committerHugo Villeneuve <hugo@hugovil.com>
Wed, 9 Mar 2022 22:14:43 +0000 (17:14 -0500)
gtx2tex.pl

index de6c53f..9379053 100644 (file)
@@ -83,7 +83,7 @@ do "/usr/local/lib/guitartex/language/$language.pl" or die "cannot load language
 $outfilename =~ s/\s/\_/g;
 
 # open output file
-open ( TEX, ">$outfilename.tex" ) || die "cannot open output file";
+open ( TEX, '>', "$outfilename.tex" ) || die "cannot open output file";
 
 # LaTeX-Header ausgeben
 latex_header();
@@ -351,7 +351,7 @@ sub latex_header {
     $chaptercount = 0;
     @titlecount = (0);
 
-    open ( CHORDPRO, "$dirname/$outfilename.tmp" ) || die "cannot open input file";
+    open ( CHORDPRO, '<', "$dirname/$outfilename.tmp" ) || die "cannot open input file";
 
     # read the whole document for settings
     while ( <CHORDPRO> ){
@@ -421,10 +421,8 @@ sub latex_header {
     chop $geometry;                    #delete last comma
     close ( CHORDPRO );
 
-
-
     #open temporary file
-    open ( CHORDPRO, "$dirname/$outfilename.tmp" ) || die "cannot open input file";
+    open ( CHORDPRO, '<', "$dirname/$outfilename.tmp" ) || die "cannot open input file";
 
     #print preamble into LaTeX file
     if ( $output eq "pdf" ) { print TEX "\\pdfoutput=1
@@ -610,14 +608,18 @@ sub latex_footer {
 #-------------------------------------------------------------------------------
 
 sub includes{
-    open ( TMP, ">$dirname/$outfilename.tmp" ) || die "cannot open temporary output file";
+    open ( TMP, '>', "$dirname/$outfilename.tmp" ) || die "cannot open temporary output file";
+
     # open input file
-    open ( CHORDPRO, "$filename" ) || die "cannot open input file";
+    open ( CHORDPRO, '<', "$filename" ) || die "cannot open input file";
+
     while ( <CHORDPRO> ){
         if ( /{include:/ ) {           #read only lines with an include directive
             s/({.*:)(.+)(})/\2/;
             print TMP "#$_\n#\n";
-            open ( INSERT, "$dirname/$_" ) || die "cannot open file to insert: $_";
+
+            open ( INSERT, '<', "$dirname/$_" ) || die "cannot open include file: $_";
+
             while ( <INSERT> ){        #insert file to include
                 print TMP;
             }