l i n u x - u s e r s - g r o u p - o f - d a v i s
L U G O D
 
Next Meeting:
October 20: Web Application Hacking: How to Make and Break Security on the Web
Next Installfest:
TBD
Latest News:
Oct. 10: LUGOD Installfests coming again soon
Page last updated:
2003 Jun 26 12:26

The following is an archive of a post made to our 'vox-tech mailing list' by one of its subscribers.

Report this post as spam:

(Enter your email address)
Re: [vox-tech] Perl question: determining the computer's IP address
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [vox-tech] Perl question: determining the computer's IP address



#!/usr/bin/perl
my @ip = (`ifconfig` =~ m/addr:([^\s]+)\s/);
print join(":",@ip),"\n";

NOTE: run this a root (or someone who has access ifconfig),  I didn't and it
took me 10 mins before I figured out my script was right but my user was
wrong

Jay
----- Original Message -----
From: "Peter Jay Salzman" <p@dirac.org>
To: <vox-tech@lists.lugod.org>
Sent: Thursday, June 26, 2003 1:35 PM
Subject: Re: [vox-tech] Perl question: determining the computer's IP address


> sure.  you just need to be a little creative.
>
> for machines with one IP address (disregarding lo), just use the output
> of ifconfig with a little regex handling:
>
> p@satan$ ifconfig
> eth0      Link encap:Ethernet  HWaddr 00:C0:F0:48:DF:5A
>           inet addr:192.168.0.2  Bcast:192.168.0.255  Mask:255.255.255.0
>           ^^^^^^^^^^^^^^^^^^^^^
>           you want this.
>
>
> pete
>
>
> On Thu 26 Jun 03, 10:57 AM, Richard Crawford <rscrawford@mossroot.com>
said:
> > I have a Perl script that I've written and which runs on a couple of
> > different web servers.  Because the script rewrites some .html files
that
> > call on cgi-scripts, the script needs to know the IP address of the
> > computer that it's running on.  Is there an environmental variable or
> > something that I can call within Perl to find out the IP address so that
I
> > don't have to manually recode it on each server?
> >
> > On a side note, the script I've written works, but it's clumsy and
> > inelegant.  Is there anyone who'd be willing to look at my code and make
> > suggestions for cleaning it up?
> >
> > --
> > Sliante,
> > Richard S. Crawford
>
> --
> GPG Instructions: http://www.dirac.org/linux/gpg
> GPG Fingerprint: B9F1 6CF3 47C4 7CD8 D33E 70A9 A3B9 1945 67EA 951D
> _______________________________________________
> vox-tech mailing list
> vox-tech@lists.lugod.org
> http://lists.lugod.org/mailman/listinfo/vox-tech
>
>

_______________________________________________
vox-tech mailing list
vox-tech@lists.lugod.org
http://lists.lugod.org/mailman/listinfo/vox-tech



LinkedIn
LUGOD Group on LinkedIn
Sign up for LUGOD event announcements
Your email address:
facebook
LUGOD Group on Facebook
'Like' LUGOD on Facebook:

Hosting provided by:
Sunset Systems
Sunset Systems offers preconfigured Linux systems, remote system administration and custom software development.

LUGOD: Linux Users' Group of Davis
PO Box 2082, Davis, CA 95617
Contact Us

LUGOD is a 501(c)7 non-profit organization
based in Davis, California
and serving the Sacramento area.
"Linux" is a trademark of Linus Torvalds.

Sponsored in part by:
EDGE Tech Corp.
For donating some give-aways for our meetings.