Hi Mug, Thanks for your mail. I have attached my script for your reference. I have updated my script as per your suggesion but still i am not getting proper result. Let me explain you what my script does. I have one array called as @repl which contains some values. I have taken another array called as @foo and greped @repl array for "pu_" string and stored the output in @foo Now i need to delete all values(strings) which contains "pu_" from @repl array. So can you please look into the script and let me know where i am wrong Regards Irfan.
_____ From: Mug [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 29, 2006 3:29 PM To: Sayed, Irfan (Irfan) Subject: Re: delete function Hi Irfan, You may reply to the list next time, so more people could help. Sayed, Irfan (Irfan) wrote: Hi Mug, I did not get the meaning of following lines This is the exact code. Have you tried to run it ? Or do you have any code and bring out to discuss ? my %H ; $H{$_} = '' for @A; This is to use the the elems in the array to becoming keys of a hash, ie. %H ( this also quite a common technique to handling array by hash ) delete $H{$_} for ( @KILL ) ; And then, use a loop to delete all the keys that you want to delete ( the elems you want to delete ) , @A = keys %H; # The order becomes random print "@A"; And finally take back the rest of keys from Hash , %H and put back to the original array @A . Good luck, Mug Could you please give me exact code and explain how it works I will be highly obliged if you do the same. Regards Irfan. -----Original Message----- From: Mug [mailto:[EMAIL PROTECTED] Sent: Wednesday, November 29, 2006 2:07 PM To: Sayed, Irfan (Irfan) Cc: beginners@perl.org Subject: Re: delete function Sayed, Irfan (Irfan) wrote: Hi, I have two arrays . one array contains the element which needs to be deleted from the secound array in which that element is already present. I have tried using delete function but somehow i did not succeed. Could somebody please help me on this Regards Irfan.
sync.pl
Description: sync.pl
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>