#!/usr/bin/perl -w

require 5.000;
use lib '/usr/local/bin',"$ENV{HOME}/bin",'/usr/stud/loescher/bin';
use lib 'd:/bin','c:/mydos','c:/bin';
use slutil;

$version = '1.04'; $version = $version;
$|=1;

if ( $#ARGV<1) { die
"
ConCat: Zusammenhängen von Files.

Syntax: concat  quell-files  zielfile

Es werden die Quell-File-Namen alphabetisch sortiert und die Files dann
zusammengehängt, z.B.:
Im Verzeichnis sind unter anderem: big.001, big.003, big.002
concat big.* big.zip
bewirkt das gleiche, wie cat big.001 big.002 big.003 > big.zip

";}

$ziel = pop(@ARGV);
print "Ziel: $ziel\n";

if ( -e $ziel ) { die "\nDas Zielfile existiert bereits!\n\n";}

@quelle = sort(@ARGV);
print "Quell-Files: @quelle\n";

system("cat @quelle > $ziel");

print "Sollen die Files gelöscht werden? (j/n) ";

$eingabe = readkey();

if ( $eingabe eq 'j' ) { unlink @quelle; }

print "\n";