Regular Expressions do you have a gun? 1

[siswjh]

I have read chapter 7 in Programming Perl and still don't have a clue. I am looking for a pattern like this.

if (/hscsunp1/) {
print $_;

The only problem is that it prints everything on that line I just want the pattern I have specified. If I'm writing korn shell nawk works great, I just can't figure it out for whatever reason in perl.

 

[siberian]

Try this

if (/(hscsunp1)/) {
print $1;
}

The () save the string match

$1 accesses the string match.