and for esthetics:
print join ',' @array;
timtowtdi =)
John Edwards wrote:
> $data = "Sat Jun 23 01:07:31 2001,bytes=32,time=192ms,TTL=239";
>
> @array = $data =~ /=(\d*)/g;
>
> print "$array[0], $array[1], $array[2]\n";
>
> -----Original Message-----
> From: Alex Nelson [mailto:[EMAIL PROTECTED]]
> Sent: 25 June 2001 17:07
> To: [EMAIL PROTECTED]
> Subject: removing ASCII characters from array
>
> I wrote a simple Perl script that removes a line from a file then writes it
> to another file. The result that is printed to the other file is:
> Sat Jun 23 01:07:31 2001,bytes=32,time=192ms,TTL=239
> The last three elements are written from an array. What I would like to do
> is only print the numbers to the file. In other words instead of bytes=32,
> time=192ms,TTL=239 I would like to write 32,192,239.
> Can someone help me out?
>
> Thanks!!!
>
> --------------------------Confidentiality--------------------------.
> This E-mail is confidential. It should not be read, copied, disclosed or
> used by any person other than the intended recipient. Unauthorised use,
> disclosure or copying by whatever medium is strictly prohibited and may be
> unlawful. If you have received this E-mail in error please contact the
> sender immediately and delete the E-mail from your system.
