Shell Programming and Scripting

my $string = 'attr1=value1 attr2=value2 attr3=value3 attr4=value4';
my $attr = 'attr2';
my ($value) = $string =~ /$attr=([^ ]+) /;
print $value;

#!/usr/bin/env python
d={}
string='attr1=value1 attr2=value2 attr3=value3 attr4=value4'
for i in string.split():
    attr,val = i.split("=")
    d[attr]=val
choice = raw_input("Enter attribute: ")
if d.has_key(choice):
    print d[choice]
else:
    print "No such attribute: %s " % choice

# ./test.py
Enter attribute: attr
No such attribute: attr

# ./test.py
Enter attribute: attr2
value2

awk 'BEGIN{
 string ="attr1=value1 attr2=value2 attr3=value3 attr4=value4"
 m=split(string,str," ")
 printf "Enter attribute: "
 getline choice <"/dev/stdin" 
 for (i=1;i<=m;i++){    
    if ( str[i] ~ choice){
       split(str[i],a,"=")   
       print "value is " a[2]
    }
 }
}'