Shell Programming and Scripting

#!/bin/bash
while read L1 L2
do
    case $L1 in
        name:)  echo -n "${L2%% *},"    ;;
        age:)    echo -n "$L2,"    ;;
        about:) echo "$L2"    ;;
    esac
done < infile

file=/home/amit/ars/amit.txt



grep name $file | awk -F " " ' { print $2 } ' > name

grep age $file | awk -F " " '{print $2}' > age

grep about $file | cut -d '"' -f2 > about

paste name age about | sed 's/  /;/g'

John_Smith < Josh_Murray < Mary_Smith

$
$ cat -n f9
     1  name: John_Smith division: A
     2  age: 5
     3  favorite food: cake
     4  favorite color: blue
     5  about: "John likes to fish"
     6
     7  name: Mary_Smith division: B
     8  age: 7
     9  favorite food: french fries
    10  favorite color: red
    11  about: "Mary will be moving next year"
    12
    13  name: Josh_Murray division: C
    14  age: 5
    15  favorite food: starfish
    16  favorite color: blue
    17  about: "Josh likes the beach"
$
$
$ ##
$ perl -lne 'if (/name: (.*?) division.*$/ || /age: (\d+)$/ || /about: "(.*?)"$/){$s.=",$1"}
>            elsif (/^$/){push @a,$s;$s=""}
>            END{push @a, $s; foreach (sort @a){print substr($_,1)}}' f9
John_Smith,5,John likes to fish
Josh_Murray,5,Josh likes the beach
Mary_Smith,7,Mary will be moving next year
$
$

my %hash;
my %seq=(A=>1,C=>2,B=>3);
local $/="\n\n";
while(<DATA>){
	if(/name:\s*(\S+)\s*division:\s*(\S+).*^age:\s*([0-9]+).*^about:\s*"([^"]+)"/sm){
		$hash{$2}=sprintf("%s,%s,%s",$1,$3,$4);
	}
}
foreach my $key(sort {$seq{$a}<=>$seq{$b}} keys %hash){
	print $hash{$key},"\n";
}
__DATA__
name: John_Smith division: A
age: 5
favorite food: cake
favorite color: blue
about: "John likes to fish"

name: Mary_Smith division: B
age: 7
favorite food: french fries
favorite color: red
about: "Mary will be moving next year"

name: Josh_Murray division: C
age: 5
favorite food: starfish
favorite color: blue
about: "Josh likes the beach"

awk '/^name/ {name=$2} 
     /^age/ {age=$2} 
     /^about/ {split($0,b,"\"");about=b[2]} 
     /^$/ {print name,age,about;name=age=about=""}
     END {print name,age,about} ' OFS="," urfile