gnu/usr.bin/perl/eg/rmfrom


1
2
3
4
5
6
7

#!/usr/bin/perl -n

# $Header: /home/ncvs/src/gnu/usr.bin/perl/eg/rmfrom,v 1.1.1.1 1994/09/10 06:27:47 gclarkii Exp $

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

chop; unlink;