1 2 3 4 5 6 7
#!/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;