| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl
#
# $Id: datum_strip.PL,v 0.1 2001/03/31 10:04:37 ram Exp $
#
# Copyright (c) 2000-2001, Christophe Dehaudt & Raphael Manfredi
#
# You may redistribute only under the terms of the Artistic License,
# as specified in the README file that comes with the distribution.
#
# HISTORY
# $Log: datum_strip.PL,v $
# Revision 0.1 2001/03/31 10:04:37 ram
# Baseline for first Alpha release.
#
# $EndLog$
#
use strict;
use Log::Agent;
logconfig(-prefix => $0);
use Carp::Datum::Strip qw(datum_strip);
if (@ARGV == 0) {
datum_strip("-", "-");
} else {
foreach my $file (@ARGV) {
datum_strip($file, "$file.new", ".bak");
}
}