Als Perl-Einzeiler in der Eingabeaufforderung:

T:\> perl -wE "say$_->[0].' -> '.$_->[1]for(['0.dat','ERL'],(map{[chr.'.dat','ERL']}(97..122)),['neu.dat','CH'])"
0.dat -> ERL
a.dat -> ERL
b.dat -> ERL
c.dat -> ERL
d.dat -> ERL
e.dat -> ERL
f.dat -> ERL
g.dat -> ERL
h.dat -> ERL
i.dat -> ERL
j.dat -> ERL
k.dat -> ERL
l.dat -> ERL
m.dat -> ERL
n.dat -> ERL
o.dat -> ERL
p.dat -> ERL
q.dat -> ERL
r.dat -> ERL
s.dat -> ERL
t.dat -> ERL
u.dat -> ERL
v.dat -> ERL
w.dat -> ERL
x.dat -> ERL
y.dat -> ERL
z.dat -> ERL
neu.dat -> CH

Ich geb zu, da kann mensch auch ein paar Leerzeichen rein setzen, damit es lesbar wird, aber das ist eben auch das unvergleichliche bei Perl – eben so machbar.
Last edited: 2019-09-14 09:29:17 +0200 (CEST)