open(NAMES, "names.txt")||die "$!";
($result = join '', )=~s/\s+/ /g;
+Pete
--
[EMAIL PROTECTED]
;;($_='Yw_xUabcdtefgdijktljkotiersjkUzxT
yvlkbfdtcierstajogvPruntRshackRJelov')=~
y&/RTUv;wxYz$&/ ~'/;$=();$&&&eval&&print
"Walter Valenti" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]
#!/usr/bin/perl
#use strict;
open (NAMES, "names.txt")||die "can't open names.txt $!";
while($lin=){
push (@list,$lin);
}
$result=join(" ",@list);
Bye
Walter
> hi,
> i've read and reread "learning perl"'s explanation of the join
> function but i still can't get join to do
hi,
i've read and reread "learning perl"'s explanation of the join
function but i still can't get join to do what i want. i have a file which
has one word on each line but some lines have more than one word on a line
and are seperated by a space. i want to join all the words together so th
