|
|
|
| P is for Practical | |
| PerlMonks |
little golfby ccn (Vicar) |
| on Jul 24, 2004 at 10:34 UTC ( [id://377114]=note: print w/replies, xml ) | Need Help?? |
|
perl -lne '/^>(.*)/ or$H{$1}.=$_;END{print for map{">$_\n$H{$_}"}keys%H}' file1.txt file2.txt
In Section
Seekers of Perl Wisdom
|
|
||||||||||||||||||||||||||