[von..bis] als Einzeiler mit map{} (gelöst) (Allgemeines zu Perl)

[thread]20661[/thread]

[von..bis] als Einzeiler mit map{} [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+4 replies
bianca

2019-09-14 08:41
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Morgen!

Dieses Script funktioniert und tut was es soll:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl use strict; use warnings; use 5.010; my @inventar; for (my $ord = 97; $ord <= 122; $ord ++) { push @inventar,[chr($ord).'.dat','ERL']; } foreach my $ref ( ['0.dat','ERL'], @inventar, ['neu.dat','CH'] ) { say $ref->[0].' -> '.$ref->[1]; }
Gibt es eine Einzeiler Schreibweise mit der ich den Umweg über @inventar und die ganze obere Schleife nicht brauche?
Also quasi etwas wie map {[chr($ord).'.dat','ERL']} each [97..122]?

Danke
10 print "Hallo"
20 goto 10
- +2 replies
- GwenDragon
  
  2019-09-14 09:18
  User since
  2005-01-17
  14759 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42
  
  # map {[chr($ord).'.dat','ERL']} each [97..122] # als Mehrzeiler: say $_->[0] . ' -> ' . $_->[1] for ( [ '0.dat', 'ERL' ], ( map { [ chr . '.dat', 'ERL' ] } ( 97 .. 122 ) ), [ 'neu.dat', 'CH' ] ); # als Einzeiler: say $_->[0] . ' -> ' . $_->[1] for ( [ '0.dat', 'ERL' ], ( map { [ chr . '.dat', 'ERL' ] } ( 97 .. 122 ) ), [ 'neu.dat', 'CH' ] ); __END__ ergibt: 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
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2019-09-14 22:11
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Cool Danke dir!
    10 print "Hallo"
    20 goto 10
- GwenDragon
  
  2019-09-14 09:24
  
  User since
  2005-01-17
  14759 Artikel
  Admin1
  
  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)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2019-09-14 08:41.