print() sur un handle de fichier fermé OUT au

Question

Je suis très nouveau à Perl (juste vu une vidéo Youtube dessus). Je veux faire un script qui prend deux fichiers .csv et les ajouter ensemble et faire un nouveau fichier .csv. Je ne veux pas que les deux fichiers .csv en cours d'ajout soient modifiés. Je veux aussi faire en sorte que ce script prenne une entrée d'utilisateur en tant que fichier à fusionner (pour l'instant les deux fichiers .csv ajoutés sont dans le même répertoire). L'erreur que je reçois toujours est: print() sur le handle de fichier fermé OUT sur la ligne 1 (# 2) (W closed) Le fichier que vous imprimez s'est fermé il y a quelque temps déjà. Vérifiez votre flux de contrôle

Mais je n'ai jamais utilisé la commande close alors comment se ferment mes handles de fichiers?

use strict; 
use warnings; 
use diagnostics; 
use feature 'say'; 
use feature "switch"; 
use v5.22; 

# Ask for Base File 
say "What is the base file you want to use?"; 
my $base_file = <STDIN>; 
chomp $base_file; 
open (BASE, '<', $base_file) or die "Couldn't find the base file you are entered: $base_file "; 

# Ask for Append File 
say "What is the file you want to append to the base file?"; 
my $append_file = <STDIN>; 
chomp $append_file; 
open (APPEND, '<', $append_file) or die "Couldn't find the append file you are entered: $append_file "; 

# Create new File with new name 
say "What is the name of the new file you want to create?"; 
my $new_file = <STDIN>; 
open (OUT, '>>', $new_file); 
chomp $new_file; 
while(my $base_line = <BASE>) { 
     chomp $base_line; 
     print OUT $base_line; 
} 

Answer 1

Vous devriez vraiment vérifier si les appels à open réussir.

open(OUT, '>>', $new_file) 
    or die("Can't append to \"$new_file\": $!\n"); 

Je parie que vous vous rendrez compte que le open est un échec, je parie que vous constaterez que c'est parce que le fichier que vous avez spécifié n'existe pas, et je parie que vous constaterez que $new_file contient un saut de ligne ça ne devrait pas.

La solution est de déplacer la ligne suivante avant la open:

chomp $new_file; 

---

Par ailleurs, vous ne devriez pas utiliser des variables globales. Remplacez OUT par my $OUT. Idem pour BASE et APPEND.