Help needed with Perl Script


 
Thread Tools Search this Thread
Top Forums Shell Programming and Scripting Help needed with Perl Script
# 1  
Old 12-20-2011
Help needed with Perl Script

i have the following script:

Code:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};

print "IP: $ip\n\nResult (hash): \n".Dumper($r);

when run from the command line, it produces this:

Code:
[#####01] ./stun_check.pl

IP: 216.111.11.123

Result (hash): 
$VAR1 = {
          'ma_port' => 38822,
          'message_type' => 257,
          'message_length' => 48,
          'attr_type' => 1,
          'attr_length' => 8,
          'ma_family' => '1',
          'transaction_id' => 'C1Eblah13384',
          'ma_dummy' => '0',
          'ma_address' => '216.111.11.123'
        };

[#####01]

Can someone please help me modify the script to make it verify that the IP address returned is a public IP and that something was returned at all? when i say public IP, i mean ensure that the IP that is returned is valid (the octets are between 0-255 and not some bizarre IP).

i'm not good with perl at all so, i would appreciate it tremendously if any one of you gurus on this site can help me modify the above short script.

thanksss
# 2  
Old 12-20-2011
Try:
Code:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};
my @ip_a=split /\./,$ip;

print "IP: $ip\n\nResult (hash): \n".Dumper($r) if ($ip_a[0]>=0&&$ip_a[0]<=255&&$ip_a[1]>=0&&$ip_a[1]<=255&&$ip_a[2]>=0&&$ip_a[2]<=255&&$ip_a[3]>=0&&$ip_a[3]<=255);

Didn't test it though.
# 3  
Old 12-20-2011
Quote:
Originally Posted by bartus11
Try:
Code:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};
my @ip_a=split /\./,$ip;

print "IP: $ip\n\nResult (hash): \n".Dumper($r) if ($ip_a[0]>=0&&$ip_a[0]<=255&&$ip_a[1]>=0&&$ip_a[1]<=255&&$ip_a[2]>=0&&$ip_a[2]<=255&&$ip_a[3]>=0&&$ip_a[3]<=255);

Didn't test it though.
thank you so much for your post. it appears to be on the right track.

however, i guess i should have been clearer.

how can i make it so that the script aborts with a 0, if and only if the IP that is returned is valid (the octets are between 0-255 and not some bizarre IP)?

like, for instance, instead of all that other output, if i run the script, i want the script to only spit out (if everything is ok), something like this: 0:$(theipthatwasreturned).
# 4  
Old 12-20-2011
Code:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};
my @ip_a=split /\./,$ip;

print "0:$ip\n" if ($ip_a[0]>=0&&$ip_a[0]<=255&&$ip_a[1]>=0&&$ip_a[1]<=255&&$ip_a[2]>=0&&$ip_a[2]<=255&&$ip_a[3]>=0&&$ip_a[3]<=255);

# 5  
Old 12-20-2011
Another one -

Code:
# Split the IP address into an array of octets
@x = split /\./, $ip;
 
# Print it unless it is invalid
print "0:$ip", "\n" unless ($#x != 3 or grep {$_ =~ /\D/ or $_ < 0 or $_ > 255} @x);

tyler_durden
# 6  
Old 12-21-2011
Quote:
Originally Posted by bartus11
Code:
#!/usr/local/bin/perl
use STUN::Client;
use Data::Dumper;
use strict;

my $stun_client = STUN::Client->new;

$stun_client->stun_server('10.59.29.14');
my $r = $stun_client->get;

my $ip = $r->{ma_address};
my @ip_a=split /\./,$ip;

print "0:$ip\n" if ($ip_a[0]>=0&&$ip_a[0]<=255&&$ip_a[1]>=0&&$ip_a[1]<=255&&$ip_a[2]>=0&&$ip_a[2]<=255&&$ip_a[3]>=0&&$ip_a[3]<=255);


i tried this and it hangs and finally spits this out:

Code:
Can't use string ("") as a HASH ref while "strict refs" in use at ./stun_check.pl line 11.

---------- Post updated 12-21-11 at 08:48 AM ---------- Previous update was 12-20-11 at 07:37 PM ----------

Quote:
Originally Posted by durden_tyler
Another one -

Code:
# Split the IP address into an array of octets
@x = split /\./, $ip;
 
# Print it unless it is invalid
print "0:$ip", "\n" unless ($#x != 3 or grep {$_ =~ /\D/ or $_ < 0 or $_ > 255} @x);

tyler_durden
how do i incorporate this into the above script?
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Help needed on Perl Script to Handle Log files that are rotated using logrotate

Hello all, I am working on a perl script which will read weblogic logfile and send the error messages to Zenoss Monitoring tool. At present the script works and it can able to send the error messages to Zenoss. The problem comes when the logrotate has been applied to the weblogic log file. At... (3 Replies)
Discussion started by: kar_333
3 Replies

2. Shell Programming and Scripting

Help needed in calling path file from Perl script.

Hi All, I need help in accessing a path file (path.xyz_pqr) not having a shell shebang and exporting paths in the following syntax, export DB_SCRIPT_PATH="/abc/aash/scripts/db_scripts/xyz_pqr" export SRC_FILES_DIR="/bcd/fdw/incoming/xyz_pqr" I need to use the path contained in the... (8 Replies)
Discussion started by: xtatic
8 Replies

3. Shell Programming and Scripting

shell or perl script needed for ldif file to text file conversion

This is the ldf file dn: sdcsmsisdn=1000000049,sdcsDatabase=subscriberCache,dc=example,dc=com objectClass: sdcsSubscriber objectClass: top postalCode: 29600 sdcsServiceLevel: 10 sdcsCustomerType: 14 givenName: Adelia sdcsBlackListAll: FALSE sdcsOwnerType: T-Mobile sn: Actionteam... (1 Reply)
Discussion started by: LinuxFriend
1 Replies

4. Shell Programming and Scripting

Shell or perl script needed

Hi! I have a curl call which gets me the following output: curl http://hostname1.qa.com:8888/getlist OUTPUT - { "token" = "201119041112"; "apps" = { "PaymentApp" = "http://hostname1.qa.com:2333/cgi-bin/Jboss/PaymentApp-EMEA.woa/paymentInfo"; "OrderConsumer" =... (4 Replies)
Discussion started by: jacki
4 Replies

5. Shell Programming and Scripting

Perl script needed

For the following command I need a perl script equivalent with a couple of more things - cat /tmp/mail |grep Appname > /tmp/mail1;cat /tmp/mail >> /tmp/mail1; mail -s "mail subject here" allan@mail.com < /tmp/mail1; >/tmp/mail ; >/tmp/mail1 ================== cat /tmp/mail ***** Alert *****... (4 Replies)
Discussion started by: jacki
4 Replies

6. Shell Programming and Scripting

Perl script help needed..

Hi, I am new to perl scripting. Can anybody help me in solving the below problem. I have file, which is called map_file. According to map_file's last column data, i need a output file, which has repeats as like the map_file's last column name. Thank you in advance Vasanth (5 Replies)
Discussion started by: vasanth.vadalur
5 Replies

7. Shell Programming and Scripting

Perl Script Help Needed

I need this script to be able to check both IPs that are given to it and exit with an OK... if one of those expected IPs is returned. The script is run like this: /bin/dns_checker.pl -s 69.34.55.66 -q htt.jababa.com -e 69.44.56.33,45.47.43.55 Right now, the script is failing, but when I... (4 Replies)
Discussion started by: SkySmart
4 Replies

8. Shell Programming and Scripting

Simple Script needed for Processing CSV file perl

I am new to perl, and need a script to pull a CSV file, strip out 2 leading columns, and 2 ending columns, and resave the file in a new location. The file is basic and has less than 10,000 records. Secondly, can I schedule perl scripts to run daily? Can someone provide the basic script to... (1 Reply)
Discussion started by: cobbjob
1 Replies

9. Shell Programming and Scripting

Assistance needed with perl script

Ok, theres a log file containing the below. Lets call the logfile log_fantastic: 2009/03/16 21:42:45 USER: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - STATE: ERROR 2009/03/16 21:42:45 USER: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - STATE: OK 2009/03/16 21:42:45 USER: tonnabo - MAC:... (5 Replies)
Discussion started by: SkySmart
5 Replies

10. Shell Programming and Scripting

Script Needed Urgent in shell or PERL!!!!!!!!!!!!!!!!!!!!

My I/p FIle #%npr # { { collectionBeginTime_Date 19Jul2007 granularityPeriod 900 NODEID BSC19 RLC_Raw_Blocksize_CS2 2048 START_DATE 19Jul07 measTimeStamp_Date 20Jul2007 COLLECTION_INTERVAL_MINS 15 RLC_User_Blocksize_CS2 1024 ... (1 Reply)
Discussion started by: aajan
1 Replies
Login or Register to Ask a Question