Pattern Matching

[bbonn]

Hi,

I have a print file I need to parse out all of the resources. I am quite new to perl, but it looks like it will do the trick. I need to match a word such as FONTS, and then grab everything after the =, up to a certain point say a closed parens or something. Can anyone help get me started??

Thanks a lot,

 

[nawlej]

Not the easiest way, just something quick I threw together.
I think:

open(PRINTFILE, "< /path/to/file");
my ($junk,$aftereq,$befpar,$junk1);
while(<PRINTFILE>){
  if($_ =~ /FONTS/){
     ($junk,$aftereq) = split(/=/,$_);
     ($befpar,$junk1) = split(/\)/,$aftereq);
  }

}

$befpar is your results you are looking for.


___________________________________
[morse]--... ...--[/morse], Eric.

 

[uida1154]

I wonder, the FONTS = ... Is this an configuration file like xxx.ini?

If so, check the config::ini module. Works very nice.

http://search.cpan.org/search?module=Config::Ini

 

[uida1154]

Sorry, wrong link...

http://search.cpan.org/~wadg/Config-IniFiles-2.38/IniFiles.pm

 

[arn0ld]

the more general way to do it is

if /FONTS.*XX(pp)YY/){
my $befpar=$1;
}

XX and YY are the "bracketing" patterns, pp is the pattern of interest. "()" captures the POI as $1.