[nzlug] non-RCS file check

Michal Ludvig michal at logix.cz
Tue Aug 1 16:25:23 NZST 2006


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 ;-)

Michal







More information about the NZLUG mailing list