Am Son, 28 Feb 1999 schrieben Sie:
> > wie mu� ein Script lauten, das folgendes leistet:
> > 
> > Datei einlesen (reihe f�r reihe)
> > jeweils die letzten 10 (oder besser n) Buchstaben jeder Reihe cuttet,
> > und das Ergebnis in eine andere Datei packt (wieder alle Reihen) ??
> 
> Folgendes Skript sollte es tun:
> 
> #!/bin/bash
> if [ $# -lt 2 ]
> then
>         echo "Aufruf: kuerzen eingabe ausgabe [anzahl]"
> fi
> if [ $# -lt 3 ]
> then
>         a=10
> else
>         a=$3    
> fi
> sed �s/.{$a}$//g� $1 > $2
> 
> Manfred Klim
oder mit einem perl-skript: (name: pkuerz)

<----------------------------
#!/usr/bin/perl

open(FILE, $ARGV[0]) || &usage;
while(<FILE>) {
    $TLINE = $_;
    chomp $TLINE;
    print substr("$TLINE", 0, $ARGV[1]) . "\n";
}


sub usage {

print <<"EOT"
Usage: pkuerz 'FILE length'
EOT
}
--------------------------->
--
Name:     Florian Bartels
E-Mail:   [EMAIL PROTECTED]
Homepage: http://power-two.virtualave.net
--
Um aus der Liste ausgetragen zu werden, eine Mail an [EMAIL PROTECTED]
schicken, mit dem Text: unsubscribe suse-linux

Antwort per Email an