Re: arrays and hash tables

It works for me. Execute the following:

@lines = qw(
{B001:B001}
{B002:B002}
{B003:B003}
{B00kr:B004}
{B00krup:B005}
{B00krupa:B006}
{B007:B007}
{B008:B008}
);

for (@lines) {
      if(/\{B00(.+?):B00(.+?)\}/){
         $values{$2} = $1;
         print "$1:$2:$values{$2}\n";
      }
}
__END__
1:1:1
2:2:2
3:3:3
kr:4:kr
krup:5:krup
krupa:6:krupa
7:7:7
8:8:8
[download]

CombatSquirrel.

Entropy is the tendency of everything going to hell.

Comment on Re: arrays and hash tables Download Code

Replies are listed 'Best First'.
Change case by texuser74 (Monk) on Nov 20, 2003 at 05:21 UTC
hi, I have a ascii text file with the following text Aaaa <xx>BBBBB</xx> Ccccc Bbbb <xx>CCCCC</xx> Ddddd i need to just change the text between <xx> tag to lowercase. Please help me.	[reply]
Re: Change case by CombatSquirrel (Hermit) on Nov 26, 2003 at 23:33 UTC
I am really sorry to say this, but have you even bothered to get and look into Jeffrey Friedl's Mastering Regular Expressions? You have asked a lot of similar questions along the lines of "I want to do this, please tell me how to do it". The Monastery is a place for you to learn something by looking at the answers of specific questions, but is by no means a substitute for a good Perl/RegEx book or a tutorial. Browse through the Tutorials section. Have a look at the book reviews. And consider starting a new thread when you are asking a question that is not related to the thread you are replying to, especially if you are replying to a post that is already 56 days old. Sorry if this was a bit harsh, but this is how I feel and I suppose I should at least inform you about it. Have a nice day. Cheers, CombatSquirrel. Entropy is the tendency of everything going to hell.	[reply]