Serving the Web/ServingTheWeb1995.disc1of1.iso/linux/slacksrce/d/perl/perl-4.000/perl-4/perl-4.036/eg/rmfrom

Text File | 1993-02-08 | 158 b | 8 lines

#!/usr/bin/perl -n

# $Header: rmfrom,v 4.0 91/03/20 01:12:02 lwall Locked $

# A handy (but dangerous) script to put after a find ... -print.

chop; unlink;