here's something to get you started... ---------------------------------------------- use Data::Dumper;
my %keep; while(<DATA>) { chomp; if ($_ =~ s!(.*)/(.*)?!$1!g) { $keep{$2} = $2; print "$_\n"; } else { warn "$_ did not mattch our pattern"; } } warn Dumper(\%keep); __DATA__ abc/edf/a acb/ecf/b ffabc/edf/e dsa/bc/edf/xy abc/edf/ghf/agg ---------------------------------------------- On Mon, 2003-07-28 at 10:25, Boon Chong Ang wrote: > 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]