$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.
