The scenario is like this __DATA__ abc/edf/a acb/ecf/b ffabc/edf/e dsa/bc/edf/xy abc/edf/ghf/agg
And I want the output is like this abc/edf acb/ecf ffabc/edf dsa/bc/edf abc/edf/ghf Where it delete all the character starting from the last "/" and then it use the pattern to search it from other file and modify the content which is located on the same line. Such as Mhd abc/edf To Mhabcd abc/edf Thank you & best regards, ABC -----Original Message----- From: Rob Dixon [mailto:[EMAIL PROTECTED] Sent: Friday, July 25, 2003 7:52 PM To: [EMAIL PROTECTED] Subject: Re: search and match > > "Boon Chong Ang" <[EMAIL PROTECTED]> wrote in message > news:[EMAIL PROTECTED] > ismsg03.altera.priv.altera.com... > Hi, > Just say i have a variable being assigned as follow, > > $a = abc/edf/a > > i want it to search from another file for the file that contains > exactly the same words, what i do is to modify the variable a become > $a = abc\/edf\/a and then print if /$a/; but it failed > even if i tried print if "/$a/"; it also failed. Can anyone point out > my mistake or show me the correct way to do this? > > I'm not sure what your problem is here. Even without the escape characters this works fine. Can you tell us more of what you're doing, and why you think it doesn't work? Rob use strict; use warnings; my $a = 'abc/edf/a'; while (<DATA>) { print if /$a/; } __DATA__ abc/edf/a acb/ecf/a ffabc/edf/a dsa/bc/edf/a abc/edf/agg OUTPUT abc/edf/a ffabc/edf/a abc/edf/agg -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
