PERL has a built-in function called join() that will concatenate a list with a given string. The official perldoc states:<\/p>\n
join EXPR,LIST<\/strong> From the code example, you can make CSV output and all kinds of goodies, but what the doc misses and the example doesn’t show is that combining join() with a print statement makes writing lists to STDOUT or a file handle a snap. This is where join() really shines.<\/p>\n Example:<\/p>\n Code<\/strong><\/em> Output<\/strong> Note that this will NOT print a final or beginning string. Join() concatenates the elements, meaning it puts the string value BETWEEN the list elements.<\/p>\n Did you find this post useful or have questions or comments? Please let me know!<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":" PERL has a built-in function called join() that will concatenate a list with a given string. The official perldoc states: join EXPR,LIST Joins the separate strings of LIST into a single string with fields separated by the value of EXPR, … Continue reading
\nJoins the separate strings of LIST into a single string with fields separated by the value of EXPR, and returns that new string. Example:<\/em>
\n$rec = join(':', $login,$passwd,$uid,$gid,$gcos,$home,$shell);<\/code><\/p>\n
\n@names = ('Mark', 'Jim', 'Bob','Mary','Steven','Gomer');
\nprint join(\"\\n\", @names);<\/code><\/p>\n
\nMark
\nJim
\nBob
\nMary
\nSteven
\nGomer<\/em><\/p>\n