[Omaha.pm] Strip last 15 chars off of every row of every file in a directory...

To: <omaha-pm@pm.org>
Subject: [Omaha.pm] Strip last 15 chars off of every row of every file in a directory...
From: "Jay Hannah" <jhannah@omnihotels.com>
Date: Tue, 7 Mar 2006 10:55:19 -0600
Delivered-to: mailman-omaha-pm@mailman.pm.dev
Delivered-to: omaha-pm@pm.org
List-archive: <http://mail.pm.org/pipermail/omaha-pm>
List-help: <mailto:omaha-pm-request@pm.org?subject=help>
List-id: "Perl Mongers of Omaha, Nebraska USA" <omaha-pm.pm.org>
List-post: <mailto:omaha-pm@pm.org>
List-subscribe: <http://mail.pm.org/mailman/listinfo/omaha-pm>, <mailto:omaha-pm-request@pm.org?subject=subscribe>
List-unsubscribe: <http://mail.pm.org/mailman/listinfo/omaha-pm>, <mailto:omaha-pm-request@pm.org?subject=unsubscribe>
Reply-to: "Perl Mongers of Omaha, Nebraska USA" <omaha-pm@pm.org>
Thread-index: AcZCB+ozNlrfcWMmRC+GPqcHIenXCg==
Thread-topic: Strip last 15 chars off of every row of every file in a directory...

Just got asked this question. Here's my untested response:

perl -pi -e 's/.{15}$//' *

Not bad for untested? -grin-

j