STDIN - Getting Input without Return Characters

[doughboy]

I have just started learning perl. I have to write a script that will ask a persons info, ask if you want to add more records, and once it is done print all the info with a : between the fields and a blank space in between records. Here is what I have so far:

#!/usr/bin/perl
open(FILE, ">>file.txt");
while (1) {
    print("First Name ");
    $first = <STDIN>;
 
    print("Last Name ");
    $last = <STDIN>;
 
    print FILE "$first, $last\n";
 
    printf(Add another record? ");
    chomp($answer = <STDIN>);
    last if ($answer eq "n" || $answer eq "N");
}
close(FILE);
 

The problem I have is that is saves the $first and $last on seperate lines instead of putting them on the same line with a : between them

[davidiwharper]

Hi there,

You need to chomp each input to remove the line break character entered into the script when the user presses the return/enter key after typing in each variable, just like you do later on.

chomp ($first= <STDIN>);
chomp ($last = <STDIN>);
 

Also, it is useful to use tab characters to visually show which bits of your code are in a function or loop (are they the right terms? still new to this):

my $counter = 0;
 
while ($counter < 10) {
 
    # do some stuff
    $counter++;
 
}
 

Trust me, even from my very limited Perl experience this is very useful later on.

[KevinADC]

All you need do is chomp() the input like david has explained.

[doughboy]

Thank you!