Help for this page

Select Code to Download

Select or download this

perl -i~ -we '$_=<>; @f= split; print; while (<>) { @a{@f}= split or w
+arn next; $a{stdNam} eq "John" and $a{stdAge}-= 2; $a{stdNam} eq "gor
+ge" and next; print join ("\t", @a{@f}), $/; }' file