need help with regex in perl

umbrella2 · 01-14-2009, 07:10 AM

hi all,
So I've something file, for example...

Code:

10.10.10.10(80)
10.10.10.11(25)
10.10.10.12(53)
..etc

Which's way I can took its?

Code:

10.10.10.10 80
10.10.10.11 25
10.10.10.12 53
..etc

Just without the brackets?

theNbomr · 01-14-2009, 08:00 AM

Code:

perl -e 'while(<>){$_ =~ s/[()]/ /g;print $_;}'

--- rod.

colucix · 01-14-2009, 08:16 AM

Or if you don't want an extra space at the end of each line:

Code:

perl -e 'while(<>){$_ =~ s/[(]/ /g;s/[)]//g;print $_;}'

Telemachos · 01-14-2009, 09:12 AM

I don't think that you need a regular expression here. Won't tr do fine?

Code:

perl -ple 'tr/(/ /; tr/)//d' filename

Output:

Code:

hektor ~ $ perl -ple 'tr/(/ /; tr/)//d' numbers
10.10.10.10 80 
10.10.10.11 25 
10.10.10.12 53

We can also use the -p flag to save typing the while (<>) control structure and the print calls explicitly.

umbrella2 · 01-15-2009, 08:09 AM

Ok, thanks, first sample is suitable.
I've few questions...
1) On that time suggest me please which's way I can took unly file name. For example...
I tried this...

Code:

$fullpath="/usr/local/bin/somedaemon
@a = ~s/.*\///;
print @a"\n";

Just I need have got only file name.
--------------------------------------
2) Which's way usage sort perl function or anything else so as to doing whatever similar 'sort -u' unix-like command?

Quote:

`-u'
For the default case or the `-m' option, only output the first of
a sequence of lines that compare equal. For the `-c' option,
check that no pair of consecutive lines compares equal.

____
Thanks in advance.

Telemachos · 01-15-2009, 09:13 AM

You should really post separate threads for new questions, since people often stop checking older threads when they seem to have been answered. You also probably want to spend some time with Perl's internal documentation (check perldoc perldoc) and or a good introductory book on Perl. I like Beginning Perl which is available free online.

You can get take apart a file name using the File::Basename module. It's part of Perl's core, so you don't need to install anything extra.

Code:

#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;

my $fullpath = '/usr/local/bin/somedaemon';

my $basename = basename $fullpath;
my $dirname = dirname $fullpath;

print "The full path is $fullpath\n";
print "\tBasename: $basename\n";
print "\tDirname:  $dirname\n";

For getting unique elements from a list, you probably want to use a hash or a module. See the perlfaq answer at perldoc -q duplicate for a few suggestions.