While that would work, since it is only a one line text file containing a
single I.P. address a much simpler way would be:
#!/usr/bin/perl -w
open(IPFILE, "<ipaddress");
chomp(my $ipaddress = <IPFILE>);
The regex is, in this case at least, not really necessary.
Note the the key here is the chomp() function which removes any newline
characters in the string that gets passed to it.
On Friday 02 November 2001 09:06 pm, Wagner-David wrote:
> Uncertain what you are attempting to do, but:
>
> #!perl -w
> while ( <DATA> ) {
> chomp;
> if ( /^(\d+\.\d+.\d+\.\d+)/ ) { #Extact the IP address here and stote as
> $1 print "$1\n";
> }
> }
> __DATA__
> 192.168.0.2
> This should not print
>
> 199.88.22.111
> ^-------- Script ends here
> Output:
> 192.168.0.2
> 199.88.22.111
>
>
> Wags ;)
>
> -----Original Message-----
> From: Daniel Falkenberg [mailto:[EMAIL PROTECTED]]
> Sent: Friday, November 02, 2001 16:19
> To: [EMAIL PROTECTED]
> Subject: Silly problem
>
>
> G'day All,
>
> I have this very very simple problem that I can't figure out. Basically
> I have a 1 line text file with an IP address in it like so...
>
> 192.168.0.2
>
> Now all I want to do is open this file up and extract the IP address
> from it. Now the good thing is I can do this OK but whenever I extract
> it it seems to be appending a new line on the end of it. Can some one
> help me and give me some ideas on what I am doing wrong? My code so far
> looks like this...
>
> open (FH, "<$file"); #...and open the textfile for reading
> @line=<FH>; #Store ppp0 as an array
> $line =~ /^(\d+\.\d+.\d+\.\d+)/; #Extact the IP address here and stote
> as $1
> print @test;
> close(FH);
>
> printing @test works fine but it appends a new line. The code also
> won't assign $1 to the IP address?
>
> Is it something simple I am doing wrong?
>
> Regards,
>
> Dan
>
> ==============================
> VINTEK CONSULTING PTY LTD
> (ACN 088 825 209)
> Email: [EMAIL PROTECTED]
> WWW: http://www.vintek.net
> Tel: (08) 8523 5035
> Fax: (08) 8523 2104
> Snail: P.O. Box 312
> Gawler SA 5118
> ==============================
--
Michael D. Risser
Software Engineer/Linux Administrator
=============================
Machine Vision Products, Inc.
www.visionpro.com
[EMAIL PROTECTED]
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org
mQGiBDuCrxARBADE9hdFrBY4oQG8dnGZo6HV1pPXdiS1yVhDA1Hp0nTcmhsAdBtu
udBPkwwrVKATJYWQsRYBwbjE9WhyeGKXW95BkeUfDQo6YJBGBaeZSnfJhugdnoEv
+UB3c7McRenM6dN0oeDBWhcylTMpdUEbM9BG3pHUrKIh/TECDESWsS2PRwCgkGMy
HTSPVa3xzwAyt4C5FPINSkcEALHAysCwpYou3n1BOjjIR/lc2Wg9jMDxCL5Kf5qh
JIfvPu5Ew/NjkcTtoUrF8Ag4++3/D9jaHpFiUvp5xKtd/CjI+zQmWYvan3Qa5D6D
ZXNAvQzDpHMQ0PNed4lD6+a2unfMI22yh57WZ51nKajSGi3kbRd+564ZdM3BC3tU
30eaA/9uwrGaTCKUpku9Q7xOXRUTQOzPKMuUkGrHK84Fea8BhRYm3P/im6+mgKPu
OeAZuxTX3KD8WyTz3wPc3C9RVkcOeii90r8AbztYFa3jq7ryAxXuIAJClDyvmVxz
0i0/QsUG7Qmh3bSqSEE8j0wS1d+oCK0vys/kzPQu4BlSIZYlArQ9TWljaGFlbCBE
LiBSaXNzZXIgKFNvZnR3YXJlIEVuZ2luZWVyKSA8bWljaGFlbEB2aXNpb25wcm8u
Y29tPohXBBMRAgAXBQI7gq8QBQsHCgMEAxUDAgMWAgECF4AACgkQ/ikO9QMSg3cj
CwCfUw/OvLdfH3J6wDkgJkgwIZdJgmgAn1PAfxKjgiFXcteIpUtN6s988k1CuQEN
BDuCrxIQBADw8yDbbWdO9pvyUpdWjWxTBBFo9eQexJFFap4b9KcpWDJWawZ6S/HU
Cn+7zfbFb43AZa21mlon/vr7nwvlll7P/fa9S4kvk5twM8PcwM9O9yVxhOZeInXR
NUBzqjpK8FfRZgt1TaOz/CpdacNAJ9i2cShvH6wcCbHxGL9rjAu+IwADBgQA0t8p
1ivBcABEmK4o+r5+uXZoQ4jUzDDN5bZmddQOQhyyMX/JUeBX7gxQ7r2cYJHIlcN+
FCeqUHLmgQ/Ky+gze61Yr+FeEBJ4EPklkHWu3RoS4aKlEtU688nm+8Mfph6nYl+n
HzmaZjf5hz/mqvs5bzBCrw+xSSjNhJBrmj8qzIqIRgQYEQIABgUCO4KvEgAKCRD+
KQ71AxKDd2/JAJ9vnTOSbmB2XceA4gBaOsZg06s5lQCfYfRtXoy/Mbw82eS19NE/
w9t+V8g=
=J9H/
-----END PGP PUBLIC KEY BLOCK-----
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
