Also, ich versuche gerade, ein Perl-Skript zu schreiben, das in eine Datei liest und in eine andere schreibt. Derzeit habe ich das Problem, neue Zeilenzeichen aus analysierten Zeilen zu entfernen. Ich füttere eine Datei wie diese

BetteDavisFilms.txt
1.
Wicked Stepmother (1989) as Miranda
A couple comes home from vacation to find that their grandfather has …
2.
Directed By William Wyler (1988) as Herself
During the Golden Age of Hollywood, William Wyler was one of the …
3.
Whales of August, The (1987) as Libby Strong
Drama revolving around five unusual elderly characters, two of whom …

Letztendlich versuche ich es in ein Format wie dieses zu bringen

1,Wicked Stepmother ,1989, as Miranda,A couple comes home from vacation to …
2,Directed By William Wyler ,1988, as Herself,During the Golden Age of …
3,"Whales of August, The ",1987, as Libby Strong,Drama revolving around five…

it entfernt erfolgreich Erkennungen für jede Nummer, aber dann möchte ich die \ n entfernen und dann die "." mit einer ",". Leider werden die Daten durch die Chomp-Funktion zerstört oder ausgeblendet. Wenn ich nach dem Chomping von $ row drucke, wird nichts angezeigt. Was kann ich tun, um dies zu korrigieren?

#!bin/usr/perl
use strict;
use warnings;

my $file = "BetteDavisFilms";
my @stack = ();

open (my $in , '<', "$file.txt" ) or die "Could not open to read \n ";
open (my $out , '>', "out.txt" ) or die "Could not out to  file  \n";

my @array = <$in>;

sub readandparse() {
    for(my $i = 0 ; $i < scalar(@array); $i++) {
        my $row = $array[$i];

        if($row =~ m/\d[.]/) {
            parseFirstRow($row);
        }
    }
}

sub parseFirstRow() {
    my $rowOne = shift;
    print $rowOne; ####prints a number
    chomp($rowOne);
    print $rowOne; ###prints nothing
    #$rowOne =~ s/./,/;
}

#call to run program
readandparse();