[nzlug] non-RCS file check

Johann Schoonees j.schoonees at irl.cri.nz
Wed Aug 2 09:11:00 NZST 2006


Michal Ludvig wrote:
> Johann Schoonees wrote:
> 
>>Martin D Kealey wrote:
>>
>>>perl -ne '
>>>  s</RCS/(.*),v><$1> ? $R{$_}++ : push @F, $_ ;
>>>  END { print grep { ! $R{$_} } @F }
>>>'
>>
>>how would I modify it to [...]
> 
> 
> You can't. This is so called write-only type of code (default in perl)
> that can't ever be successfully modified. You need to write it from
> scratch every time ;-)

Nah, can't fool me.  That's what perl programmers tell their managers 
to maximize the coding pleasure. ;-)

Johann

This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.





More information about the NZLUG mailing list