removing parens

[macubergeek]

when I do arp -a I get this kind of output:
(192.168.1.1)
(192.168.1.5)
(192.168.1.100)
(192.168.1.101)
(192.168.1.255)

All I want to do is to remove the parens and keep the ip address. I've tried this with sed and gotten nowhere.
sed 's/\(//g'

 

[PaulTEG]

open FH1, "<arp-a.txt";
open FH2, ">arp-b.txt";
while (<FH1>) {
  chomp;
  @array=split //,$_ ;
  pop @array;
  unshift @array;
  print FH2, join ('',@array);
}
close FH1;
close FH2;

NOT tested ;-)

Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[macubergeek]

Sorry
perhaps I was unclear
This is the output I want:
when I do arp -a I get this kind of output:
192.168.1.1
192.168.1.5
192.168.1.100
192.168.1.101
192.168.1.255

Now I'm thinking this is a simple regex find and delete. I'm just uncertain how to match ( and ) and replace with empty string.

 

[Xaqte]

If I'm understanding you, then you want to remove all parens. If so, try this:

#!/usr/bin/perl

use strict;
use warnings;

my @linky = qw/(192.168.1.1) (192.168.1.5) (192.168.1.100) (192.168.1.101) (192.168.1.255)/;

foreach my $arp(@linky) {
           zap_parens($arp);
}

sub zap_parens {
  my $raw_number = shift;
  $raw_number =~ s/[()]//g;
  print "$raw_number\n";
}

OUTPUT ->
192.168.1.1
192.168.1.5
192.168.1.100
192.168.1.101
192.168.1.255

I cannot claim this code as my own... it came from a higher place.

Let us know your results!

X

 

[duncdude]

[b]#!/usr/bin/perl[/b]

@ips = qw/(192.168.1.1) (192.168.1.5) (192.168.1.100) (192.168.1.101) (192.168.1.255)/;

foreach (@ips) {
  s/(\(|\))//g;
  print"$_\n";
}

Kind Regards
Duncan

 

[TrojanWarBlade]

s/[\(\)]//g





(very injured) Trojan.

 

[macubergeek]

Wow
thanks guys
I'm on target now
I gotta grok regular expressions better....

**runs to re read regex book

jim