programming-examples/perl/String/Takes its input and joins it into a single string.pl

8 lines
122 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/usr/local/bin/perl
@input = <STDIN>;
chop (@input);
$string = join(" ", @input);
print ("$string\n");