#!/usr/local/bin/perl
# stringpack1.pl -- Erzeugt ein String fester Feldlaengen mit pack()

@input = qw ( feld1 feld2 feld3 feld4 feld5 ); # Beispieldaten
$templ = 'A10 A5 A2 A*';                       # Feldgroessen

$output = pack($templ, @input);

print ">$output<", "\n";
# Ausgabe: >feld1     feld2fefeld4<