regular expression

[Yarka]

hi,
i have an script perl as:

my($a)= "a" ;
my($b)="b";

if(/^(\d+)\t$a\t.*?\t$b.\t([^\t]+)\t2.3.22 aco/){
...
}

My input file lines is style as:

58702 a 00:13 b2 00:02 0EP7 33 1,0 t2.3.22 aco 55.33.kk

...
I want to check this file with my script, but not detected regular expression. Can anybody help me?

Thanks.

 

[MillerH]

You question doesn't really make any sense.

However, I will point out that you should never use $a and $b as variable names as they are used by the sort command.

http://perldoc.perl.org/functions/sort.html

- Miller

 

[Yarka]

Well, maybe I don't explain very well:
I have a large file with lines of style as
...
58702 a 00:13 b2 00:02 0EP7 33 1,0 t2.3.22 aco 55.33.kk

58 cc 00:13 b2 00:02 0EP7 555 1,0 t2.3.22 aco 55.33.kk

689 a 00:13 b1 00:02 0EP7 969 1,0 t2.3.22 aco 55.33.kk

58702 a 00:13 b2 00:02 0EP7 969 1,0 t2.3.22 aco 55.33.kss
...

I only want to work the lines with pattern a, b and t2.3.22 aco. On the before example, I only have to choose 1, 2 and 3 lines.

For this reason, I have this conditional into my script:
f(/^(\d+)\t$a\t.*?\t$b.\t([^\t]+)\t2.3.22 aco/){
...
}
but, this not select any lines of my input file.

 

[tsuji]

>/^(\d+)\t$a\t.*?\t$b.\t([^\t]+)\t2.3.22 aco/
Try this?
[tt]/^\d+\s+$a\s+.*?\s+$b\d\s+.*?t2\.3\.22 aco.*?$/[/tt]

 

[KevinADC]

unless you have to validate the entire line you can do a simpler check to get the lines you want:

if (/\sa\s/ && /\sb\S\s/ && /\st2.3.22 aco\s/) {
   print $_;
}

------------------------------------------
- Kevin, perl coder unexceptional!