I want to thank everyone for their input :)
Ernest P. Tucker II Network Technician -----Original Message----- From: Jeff 'japhy' Pinyan [mailto:[EMAIL PROTECTED]] Sent: Friday, May 10, 2002 11:31 AM To: [EMAIL PROTECTED] Cc: Bob Showalter; 'Tucker, Ernie'; '[EMAIL PROTECTED]' Subject: RE: matching two files On May 10, Jeff 'japhy' Pinyan said: >On May 10, Bob Showalter said: > >>perl -e 'do {$x{<>}=1} until eof; exists $x{$_} && print && delete $x{$_} >>while(<>)' mac1.txt mac2.txt > >perl -e 'do{$x{<>}=1}until eof;delete$x{$_}&&print while<>' X Y perl -e '$_.=<>until eof;s/^\Q$r\E$//m&&print while$r=<>' X Y -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ ** Look for "Regular Expressions in Perl" published by Manning, in 2002 ** <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] "The information transmitted is intended only for the person or entity to which it is addressed and may contain confidential and/or privileged material. Any review, retransmission, dissemination or other use of, or taking of any action in reliance upon, this information by persons or entities other than the intended recipient is prohibited. If you received this in error, please contact the sender and delete the material from all computers."
