I want to create a perl code to extract what is in the parentheses and port it to a variable

I want to create a perl code to extract what is in the parentheses and port it to a vari开发者_运维百科able. "(05-NW)HPLaserjet" should become "05-NW" Something like this:

• Catch "("
• take out any spaces that exsist in between ()
• everything in between () = variable 1

How would I go about doing this?

---

This is a job for regular expressions. Looks confusing because parens are used as meta characters in regular expression and are also part of the pattern in your example, escaped by backslashes.

C:\temp $ echo (05-NW)HPLaserjet | perl -nlwe "print for m/\(([^)]+)\)/g"

Match opening paren, start capture group, match one or more characters that aren't the closing paren, close capture group, match closing paren.

---

You can use regular expressions (see perlretut) to match and capture the value. By assigning to a list, you can put your captures into named variables. The global variables $1, $2 etc. are also used for capture groups, so you can use that instead of list assignment if you like.

use strict;
use warnings;

while (<>) # read every line
{
  my ($printer_code) = m/
    \(              # Match literal opening parenthesis
      ([^\)]*)      # Capture group (printer_code): Match characters which aren't right parenthesis, zero or more times
    \)/x;           # Match literal closing parenthesis
    # The 'x' modifier allows you to add whitespace and comments to regex for clarity.
    # If you use it, make sure you use '\ ' (or '\s', etc.) for actual literal whitespace matching!
}

__DATA__
(05-NW)HPLaserjet

---

perldoc perlre

use warnings;
use strict; 

my $s = '(05-NW)HPLaserjet';
my ($v) = $s =~ /\((.*)\)/; # Grab everything between parens (including other parens)
$v =~ s/\s//g; # Remove all whitespace
print "$v\n";

__END__

05-NW

See also: Perl Idioms Explained - @ary = $str =~ m/(stuff)/g