Mega Code Archive

 

Categories / Perl / String

 

Read input lines and concatenate them

#!/usr/local/bin/perl  $resultstring = "";  print("Enter your input - type an empty line to quit\n");  $input = <STDIN>;  chop ($input);  while ($input ne "") {      $resultstring .= $input;      $input = <STDIN>;      chop ($input);  }  print ("Here is the final string:\n");  print ("$resultstring\n");