#!/usr/bin/perl
#use strict;
open (NAMES, "names.txt")||die "can't open names.txt $!";
while($lin=<NAMES>){
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 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 that the
> words are not all on a seperate lines, but following one after the other
> seperated by space. the following is the code i have which for some reason
> adds a space before each word and does not join the words using a space a
> glue.
> ==================================================================
> #!/usr/bin/perl
> #use strict;
> open (NAMES, "names.txt")||die "can't open names.txt $!";
> @names = <NAMES>;
> foreach $line (@names){
> $result = join("", @boaz);
> print $result;
> }
>
> ==================================================================
> any help would be greatly appreciated. thanks
> --
> - josh
> N8MSO
>
> 20A8 2FC6 9099 D215 78F4 D005 B9F3 21C4 300C C25E ~. .~ Tk Open Systems
> =}------------------------------------------------ooO--U--Ooo------------{=
> - [EMAIL PROTECTED] - tel: +972.58.520.636, http://www.tkos.co.il
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
