8 lines
173 B
Perl
8 lines
173 B
Perl
#!/usr/bin/perl -n
|
|
|
|
# $RCSfile: rmfrom,v $$Revision: 4.1 $$Date: 92/08/07 17:20:31 $
|
|
|
|
# A handy (but dangerous) script to put after a find ... -print.
|
|
|
|
chop; unlink;
|